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