Template for Reagent on Klipse

reagent.cljs

; Try this online here:
;
; http://app.klipse.tech/?cljs_in.gist=pesterhazy%2F2540ab6458f6681656bfd8bf5a4af4cb&container=1

(ns test.reagent
  (:require [reagent.core :as r]))

(defonce !state (r/atom nil))

(defn input-ui []
  (let [!input (r/atom nil)]
    (fn [!model]
      [:div
       [:input {:value @!model
                :on-change #(reset! !model
                                    (aget % "target" "value"))
                :ref (partial reset! !input)}]
       [:button {:on-click (fn []
                             (reset! !model nil)
                             (.focus @!input))}
        "Clear and Focus"]])))

(defn render []
  [:div
   [:h1 "Reagent Test"]
   [input-ui (r/cursor !state [:a])]
   [input-ui (r/cursor !state [:b])]])


(r/render [render] js/klipse-container)

See http://app.klipse.tech/?cljs_in.gist=pesterhazy%2F2540ab6458f6681656bfd8bf5a4af4cb&container=1