当我添加：on-change处理程序时，Clojurescript试剂文本字段不显示键入的内容

Question

我正在跟随http://yogthos.net/posts/2014-07-15-Building-Single-Page-Apps-with-Reagent.html的Reagent SPA教程。

我到目前为止的代码是：

(def state (atom {:doc {} :saved? false}))

(defn set-value! [id value]
  (swap! state assoc :saved? false)
  (swap! state assoc-in [:doc id] value))

(defn get-value [id]
  (get-in @state [:doc id]))

(defn row [label body]
  [:div.row
   [:div.col-md-2 [:span label]]
   [:div.col-md-3 body]])

(defn text-input [id label]
  [row label
   [:input {:type "text"
            :class "form-control"
            :value (get-value id)
            :on-change #(set-value! id (-> % .-target .-value))}]])

(defn home-pg []
  [:div.container
   [:div.page-header [:h1 "Reagent Form"]]
   [text-input :first-name "First name"]])

现在，当我运行此文本框并在文本框中键入文本时，不显示任何内容。当我删除：on-change处理程序时，无论我输入的是什么。有人可以帮我理解发生了什么吗？

非常感谢提前！

Answer 1

我发现了错误。第一行是使用常规的Clojure原子。相反，它应该使用试剂原子。将该行更改为

gulp

解决了这个问题。