notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

not using namespaced keys, due to graphql

Browse Source
This commit is contained in:
Bryce Covert
2018-04-10 10:51:21 -07:00
parent 4a0275f024
commit 53905c317b
19 changed files with 114 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/cljs/auto_ap/views/utils.cljs
View File

@@ -36,25 +36,25 @@
type))
(defmethod do-bind "radio" [dom {:keys [field subscription event class value] :as keys} & rest]
(defmethod do-bind "radio" [dom {:keys [field subscription event class value spec] :as keys} & rest]
(let [keys (assoc keys
:on-change (dispatch-value-change [event [field]])
:checked (= (field subscription) value)
:class (str class
(when (not (s/valid? field (field subscription)))
(when (and spec (not (s/valid? spec (field subscription))))
" is-danger")))
keys (dissoc keys :field :subscription :event)]
keys (dissoc keys :field :subscription :event :spec)]
(vec (concat [dom keys] rest))))
(defmethod do-bind :default [dom {:keys [field event subscription class] :as keys} & rest]
(defmethod do-bind :default [dom {:keys [field event subscription class spec] :as keys} & rest]
(let [keys (assoc keys
:on-change (dispatch-value-change [event [field]])
:value (field subscription)
:class (str class
(when (not (s/valid? field (field subscription)))
(when (and spec (not (s/valid? spec (field subscription))))
" is-danger")))
keys (dissoc keys :field :subscription :event)]
keys (dissoc keys :field :subscription :event :spec)]
(vec (concat [dom keys] rest))))
(defn bind-field [all]