more specs.

src/cljs/auto_ap/views/utils.cljs

@@ -1,5 +1,6 @@
 (ns auto-ap.views.utils
   (:require [re-frame.core :as re-frame]
+            [clojure.spec.alpha :as s]
             [cljs-time.format :as format]))
 
 (defn active-when= [active-page candidate]
@@ -28,3 +29,42 @@
 
 (defn date-time->str [d]
   (format/unparse pretty-long d))
+
+
+
+(defmulti do-bind (fn [_ {:keys [type]}]
+                    type))
+
+
+(defmethod do-bind "radio" [dom {:keys [field subscription event class value] :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)))
+                                  " is-danger")))
+        keys (dissoc keys :field :subscription :event)]
+    (vec (concat [dom keys] rest))))
+
+
+(defmethod do-bind :default [dom {:keys [field event subscription class] :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)))
+                                  " is-danger")))
+        keys (dissoc keys :field :subscription :event)]
+    (vec (concat [dom keys] rest))))
+
+(defn bind-field [all]
+  (apply do-bind all))
+
+(defn horizontal-field [label & controls]
+  [:div.field.is-horizontal
+   [:div.field-label
+    label
+    ]
+   (into
+    [:div.field-body]
+    (map (fn [c] [:div.field c]) controls))])