gistfile1.clj

;;; Event loop
(def ^:dynamic *ui-events-chan* (chan))

(defn post-event [type cursor param]
  (let [path (.-path cursor)]
    (put! *ui-events-chan* [type path param])))

(declare handle-event)
(defn run-event-loop [root-cursor]
  (go-loop []
    (om/update! root-cursor handle-event (<! *ui-events-chan*))
    (recur)))

(defn handle-event [app [type path param :as e]]
  (case type
    ; ... 
    ))