src/events.clj


1
2
3
4
5
6
7
8
9
10
11
12
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)))