async.cljs

(require '[reagent.core :as reagent])
(require '[cljs.core.async :as async :refer [<! >!]])
(require-macros '[cljs.core.async.macros :refer [go go-loop]])

(def increment-chan (async/chan))

(def counter
  (reagent/atom 1))

(defn increment []
  (async/put! increment-chan 1))

(defn slow-counter []
  [:div 
   [:div "Current value counter: " @counter]
   [:button {:onClick increment} "Increment"]])

(go 
  (while true
    (<! increment-chan)
    (swap! counter inc)
    (<! (async/timeout 2000))))

(reagent/render [slow-counter] js/klipse-container)