Re-Frame Example

data.cljs

;;;DATA

(ns data
  (:require [re-frame.db :refer [app-db]]
            [reagent.atom :as ra :include-macros true]
            [re-frame.core :as rf]))

(defn show-box?- []
  (ra/reaction (get-in @app-db [:show-box?])))

(rf/register-handler 
  :show-box middleware
  (fn [db]
      (assoc-in db [:show-box?] true])))

view.cljs

;;;VIEW

(ns view
  (:require [data :as data]
            [re-frame.core :as rf]))

(defn component []
  (let [show-box?- data/show-box?-]
      (fn []
        [:div 
          [:span {:on-click #(rf/dispatch [:show-box])}
            "Click to show red box."]
          (when @show-box?- [:div {:style {:width 40
                                         :height 40
                                         :background-color "red"}}]))))