Просмотр исходного кода

only set .field on map entries.

and later collection values.
Lucas Stadler лет назад: 12
Родитель
Сommit
29665eef6a
1 измененных файлов с 1 добавлено и 4 удалено
  1. 1 4
      clj/clarity/cljs/clarity.cljs

+ 1 - 4
clj/clarity/cljs/clarity.cljs

37
(defmethod make-typed-input 'Number [number owner]
37
(defmethod make-typed-input 'Number [number owner]
38
  (om/component
38
  (om/component
39
    (dom/input #js {:type "number"
39
    (dom/input #js {:type "number"
40
                    :className "field"
41
                    :value (om/value number)
40
                    :value (om/value number)
42
                    :onChange #(om/update! number (fn [_ n] n) (js/parseFloat (.. % -target -value)))})))
41
                    :onChange #(om/update! number (fn [_ n] n) (js/parseFloat (.. % -target -value)))})))
43
42
44
(defmethod make-typed-input 'Keyword [kw owner]
43
(defmethod make-typed-input 'Keyword [kw owner]
45
  (om/component
44
  (om/component
46
    (dom/input #js {:type "text"
45
    (dom/input #js {:type "text"
47
                    :className "field"
48
                    :value (om/value kw)
46
                    :value (om/value kw)
49
                    :pattern "^:(\\w+|\\w+(\\.\\w+)*\\/\\w+)$"
47
                    :pattern "^:(\\w+|\\w+(\\.\\w+)*\\/\\w+)$"
50
                    :onChange (fn [ev]
48
                    :onChange (fn [ev]
54
(defmethod make-typed-input 'String [string owner]
52
(defmethod make-typed-input 'String [string owner]
55
  (om/component
53
  (om/component
56
    (dom/input #js {:type "text"
54
    (dom/input #js {:type "text"
57
                    :className "field"
58
                    :value (om/value string)
55
                    :value (om/value string)
59
                    :onChange #(om/update! string (fn [_ n] n) (.. % -target -value))})))
56
                    :onChange #(om/update! string (fn [_ n] n) (.. % -target -value))})))
60
57
61
(defmethod make-typed-input 'HMap [m owner {type :type}]
58
(defmethod make-typed-input 'HMap [m owner {type :type}]
62
  (om/component
59
  (om/component
63
    (dom/div #js {:className "field"}
60
    (dom/div nil
64
      (dom/span nil "{")
61
      (dom/span nil "{")
65
      (into-array
62
      (into-array
66
        (map (fn [[k v]]
63
        (map (fn [[k v]]