added support

src/cljs/auto_ap/views/utils.cljs

@@ -37,6 +37,15 @@
 (defmulti do-bind (fn [_ {:keys [type]}]
                     type))
 
+(defmethod do-bind "select" [dom {:keys [field subscription event class value spec] :as keys} & rest]
+  (let [keys (assoc keys
+                    :on-change (dispatch-value-change [event [field]])
+                    :class (str class
+                                (when (and spec (not (s/valid? spec (field subscription))))
+                                  " is-danger")))
+        keys (dissoc keys :field :subscription :event :spec)]
+    (vec (concat [dom keys] rest))))
+
 
 (defmethod do-bind "radio" [dom {:keys [field subscription event class value spec] :as keys} & rest]
   (let [keys (assoc keys