jwhitlark

(defn scrubbing-int-state-view [app owner]
  (let [start-capturing #(do (om/set-state! owner :capturing true)
                             (om/set-state! owner :start-x (.-clientX %)))
        stop-capturing #(do (om/set-state! owner :capturing false)
                            (om/set-state! owner :start-x nil))]
    (reify
      om/IInitState
      (init-state [_]
        {:my-val 0
         :capturing false

jwhitlark

(defn listen [el & types]
  (let [out (chan)]
    (doall (map (fn [type] (events/listen el type #(put! out %))) types))
    out))

(defn set-states! [owner desired]
  (doall (map #(om/set-state! owner (key %) (val %)) desired)))

jwhitlark

(defn clock-view [app owner]
  (reify
    om/IWillMount
    (will-mount [_]
      (js/setInterval
       (fn [] (om/transact! app :time (fn [_] (js/Date.))))
       100))
    om/IRender
    (render [_]
      (dom/div nil (. (:time app) toUTCString)))))