0

我想在我的主页中创建一个文本框,所以我写了以下内容:

(defn home-page []   
    [:div.container    
        [:h1 "Enter Code:"]    
        [c/text-input "id" :id "enter code" fields]])

其中 c/text-input 包含在我需要的另一个命名空间(common.cljs)中。

common.cljs 命名空间中的代码如下:

(defn input [type id placeholder fields]
  [:input.form-control.input-lg
   {:type        type
    :placeholder placeholder
    :value       (id @fields)
    :on-change   #(swap! fields assoc id (-> % .-target .-value))}])

(defn form-input [type label id placeholder fields optional?]
  [:div.form-group
   [:label label]
   (if optional?
     [input type id placeholder fields]
     [:div.input-group
      [input type id placeholder fields]
      [:span.input-group-addon
       "✱"]])])

(defn text-input [label id placeholder fields & [optional?]]
  (form-input :text label id placeholder fields optional?))

[c/text-input "id" :id "enter code" fields]]但是,如果我从代码中删除网页正常加载,就会出现我的问题。使用这行代码没有任何反应。

我无法弄清楚我的错误,任何帮助将不胜感激。

(PS 如果有帮助,我正在使用 luminus 框架)

4

1 回答 1

1

查看您发布的代码,它看起来fields应该是一个atom包含map字段的值将存储在 key 下的位置id。代码应该或多或少像这样:

(defn home-page []
  (let fields (atom {})
    [:div.container
      [:h1 "Enter Code:"]
      [c/text-input "id" :id "enter code" fields]]))

我希望这被证明是有帮助的。

于 2016-11-03T18:05:14.513 回答