gistfile1.clj

(defn render [view to-el]
  (dommy/append! (sel1 to-el) view))

(defn gen-clock []
  (let [time (model/model {} {:time (str (js/Date.))})]
    (go! [time time]
      (<! (timeout 1000))
      (pub! time :update {:time (str (js/Date.))}))
    time))

(defview clock [date]
  (let [time (:time date)]
    [:h3.date {:click (fn [e] (println e))} time]))

(render (clock (gen-clock)) :div#content)