   (got-event [_ ev]))
 
 ;; TODO: xform
-;; TODO: Terminate loop.
-;;
 
 ;; =============================================================================
-;; Helper functions.
+;; Event bus setup.
 
 (defn- init-event-bus!
   "Adds support for triggering events and, if the component reified IGotEvent, support for handling events

        (async/tap fork branch)
        (async/tap fork downstream)
        (om/set-state! this ::event-bus upstream)
        (async/go-loop []
                 (let [e (async/<! branch)]
                   (got-event c e))
                 (recur))))))



(defn- around-method
  "Overrides a pure method by wrapping it in f."


   Do not use the local state values directly; they are for internal use only."
  [this]
  (println "Setting event bus for" (om/id this))
  (let [downstream (om/get-state this ::event-bus)
        c (om/children this)]
    (om/set-state! this ::trigger-fn #(async/put! downstream %))
