Lucas Stadler лет назад: 12
Родитель
Сommit
f7f4967f36
1 измененных файлов с 0 добавлено и 7 удалено
  1. 0 7
      clj/clarity/cljs/clarity.cljs

+ 0 - 7
clj/clarity/cljs/clarity.cljs

@ -14,13 +14,6 @@
14 14
;  does change the data, if it doesn't signal the
15 15
;  error and don't change the data
16 16
17
(defn change-data
18
  ([ev d]
19
   (om/update! d assoc :data (.. ev -target -value)))
20
  ([ev d pred parse]
21
   (when (pred (.-target ev))
22
     (om/update! d assoc :data (parse (.. ev -target -value))))))
23
24 17
(defn valid? [el]
25 18
  (.. el -validity -valid))
26 19