gistfile1.clj

(defn ticker2 [data owner]
  (reify
    om/IInitState
     (init-state [_] {:s 0})
    om/IRender
    (render [_]
       (let [state (om/get-state owner)]
       (dom/ul #js {:onClick #(om/transact! data :t inc)}
         (dom/li nil (str "data: " (:t data )) )
         (dom/li nil (str "state: " (:s state )) )) ))))

(defn ticker [data owner]
  (reify
    om/IInitState
     (init-state [_] {:s 0})
    om/IRender
    (render [_]
       (let [state (om/get-state owner)]
       (om/transact! data :t inc)
       (om/set-state! owner :s (inc (:s state)))
       (dom/ul nil
         (dom/li nil (str (:name data )) )
         (dom/li nil (str "data: " (:t data )) )
         (dom/li nil (str "state: " (:s state )) )
         (om/build ticker2 data {:state state})      
               ) ))
    om/IDidUpdate
    (did-update [_ _ _ _]
                (om/transact! data :t inc)
        (om/set-state! owner :s (inc (:s (om/get-state owner))))      
                )))

(def D (atom {:t 0 :name "joe"}))

(om/root D ticker (.-body js/document))

(swap! D merge {:name "fred"})