reagent-form-example.clj

(def app-state
  (atom {:form {:email {:label "Email"
                        :error "invalid email"
                        :value "[email protected]"}}}))

(defn form-element [key]
  (reagent/cursor app-state [:form key]))

(def cur (form-element :email))

(defn input-field [model]
  [:div
   [:label (:label @model)]
   [:br]
   [:input
    {:value (:value @model)}]
   [:br]
   [:span.help (:error @model)]])

(defn home-page []
  [:div [:h2 "Welcome"]
   [:b (:name @app-state)]
   [input-field (reagent/cursor app-state [:form :email])]
   [:a {:onClick (fn [e]
                   (swap! cur assoc-in [:label] (str "blah" (.random js/Math))))}
    "Click me"]
   [:div [:a {:href "#/about"} "go to about page"]]])