|
|
@ -1,5 +1,7 @@
|
|
1
|
1
|
(ns clarity
|
|
2
|
|
(:require [om.core :as om :include-macros true]
|
|
|
2
|
(:require [cljs.reader :as r]
|
|
|
3
|
|
|
|
4
|
[om.core :as om :include-macros true]
|
|
3
|
5
|
[om.dom :as dom :include-macros true]))
|
|
4
|
6
|
|
|
5
|
7
|
(enable-console-print!)
|
|
|
@ -100,7 +102,7 @@
|
|
100
|
102
|
|
|
101
|
103
|
(defmethod make-typed-input 'U [value owner {type :type}]
|
|
102
|
104
|
(om/component
|
|
103
|
|
(dom/select nil
|
|
|
105
|
(dom/select #js {:onChange #(om/update! value (fn [_ n] n) (r/read-string (.. % -target -value)))}
|
|
104
|
106
|
(into-array
|
|
105
|
107
|
(map (fn [[_ v]]
|
|
106
|
108
|
(dom/option nil (str v)))
|
Lucas Stadler