gistfile1.clj

(defmacro compile-events
  [events]
  (let [handlers (vals events)
        compiled-handlers
        (for [handler handlers]
          (let [func (into (list) (reverse (cons 'defn (cons 'e (rest handler)))))]
            (-> (build func {:optimizations :advanced})
                (clojure.string/replace #"^.*=" "var tmp=")
                (clojure.string/replace #";$" "; tmp;"))))]
    (json/write-str (zipmap (keys events) compiled-handlers))))

(defhtml dashboard
  [req user]
  [:div.page-header
   [:h1 "Datasift" [:small " dashboard"]]]
  [:div
   [:p
    [:button 
      {:data-event 
        (compile-events
          {:click
            (fn [e]
              (println "hello there client, i'm the server!" "don't be frightened..."))})}              
     "Click me!"]]])