diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-09-05 05:50:30 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-09-05 05:50:30 -0400 |
| commit | 40bc9c45fcc73edb126c5e04321afc5d175f0cd0 (patch) | |
| tree | 10ec6e6e0a50b4b1826ae3d3c3ef0748a3bb7bff | |
| parent | b6d00d6f0748d6678f58b784ad5611a46c9655e0 (diff) | |
import events very rough file
| -rw-r--r-- | src/events.clj | 13 |
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 |