1 files changed, 13 insertions, 0 deletions
diff --git a/src/events.clj b/src/events.clj
new file mode 100644
index 0000000..6660518
--- /dev/null
+++ b/src/events.clj
@@ -0,0 +1,13 @@
+(ns events
+  (use utils))
+
+(def sample-event {:name "TMZ Maker!"
+                   :key "tmz"
+                   :template "http://dump.fm/images/20100629/1277836809689-dumpfm-ryder-tmz_template.png"
+                   :author {:nick "ryder" }})
+
+(defn current-event [session]
+  (let [st (fetch-template "event" session)
+        event sample-event]
+    (.setAttribute st "event" (stringify-and-escape sample-event))
+    (.toString st)))
+\ No newline at end of file