From 40bc9c45fcc73edb126c5e04321afc5d175f0cd0 Mon Sep 17 00:00:00 2001
From: Scott Ostler <scottbot9000@gmail.com>
Date: Sun, 5 Sep 2010 05:50:30 -0400
Subject: import events very rough file

---
 src/events.clj | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/events.clj

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
-- 
cgit v1.2.3-70-g09d2