cljspad re-frame demo

re-frame.cljs

(require '[re-frame.core :as rf]
         '[sandbox.reagent :refer [render]])

(rf/reg-sub :demo/counter 
  (fn [db _]
    (:counter db)))

(rf/reg-event-db :demo/increment-counter 
  (fn [db _]
    (update db :counter (fnil inc 0))))

(defn ui []
  (let [i @(rf/subscribe [:demo/counter])]
    [:div 
      [:h1 "re-frame demo"]
      [:button {:on-click #(rf/dispatch [:demo/increment-counter])}
       "Increment"]
      [:p "The current value is: " [:strong (or i 0)]]]))

(render [ui])