select works with any datatype

Author: awb99

demo/src/demo/page/options.cljs

@@ -10,7 +10,9 @@
    :current {; select
              :year 2023
              :client 2
+             :vendor "4"
              :pet :hamster
+             :temperature 36.4
              ; bool
              :run-parallel true
              :environment {:enabled true}
@@ -29,11 +31,22 @@
                      {:id 4 :name "Dumbledor"}
                      {:id 5 :name "The Hulk"}]
               :class "placeholder-gray-400 text-gray-700 relative bg-white rounded text-sm border border-gray-400 outline-none focus:outline-none focus:shadow-outline"}
+             {:path :vendor
+              :name "Vendor"
+              :spec [{:id "1" :name "Batman"}
+                     {:id "2" :name "Robin"}
+                     {:id "3" :name "Harry Potter"}
+                     {:id "4" :name "Dumbledor"}
+                     {:id "5" :name "The Hulk"}]
+              :class "placeholder-gray-400 text-gray-700 relative bg-white rounded text-sm border border-gray-400 outline-none focus:outline-none focus:shadow-outline"}
              {:path :pet
               :name "Pet"
               :spec [:cat :dog :parrot :hamster]
               :class "placeholder-gray-400 text-gray-700 relative bg-white rounded text-sm border border-gray-400 outline-none focus:outline-none focus:shadow-outline"}
-
+             {:path :temperature
+              :name "Temperature"
+              :spec [36.0 36.4 36.5 36.6 36.7 36.8 39.3]
+              :class "placeholder-gray-400 text-gray-700 relative bg-white rounded text-sm border border-gray-400 outline-none focus:outline-none focus:shadow-outline"}
              {:path :run-parallel
               :name "RunParallel?"
               :spec :bool
@@ -49,7 +62,6 @@
               :spec :button
               :class "bg-blue-500 hover:bg-blue-700 text-white font-bold rounded" ; py-2 px-4
               :on-click #(js/alert "yeah!")}
-
              {:name "view"
               :spec :view
               :path :msg}

src/options/editor/select.cljs

@@ -1,52 +1,58 @@
 (ns options.editor.select)
 
-(defn entry->option [current-val {:keys [id name]}]
-  ;; works for spec like:
-  ;; [{:id 1 :name "Batman"}
-  ;;  {:id 2 :name "Robin"}
-  ;;  {:id 3 :name "Harry Potter"}]
-  (if (= current-val id)
-    [:option {:value id :selected true} name]
-    [:option {:value id} name]))
+; create-spec from vals
 
-(defn spec->map [spec1]
+(defn val->map [idx val]
   ;; convert spec like 
   ;; [:blue :green :red]
   ;; to a spec with :id and :name
-  {:id spec1
-   :name spec1})
+  {:id (str idx)
+   :name (str val)
+   :val val})
+
+(defn vals->spec [vals]
+  (map-indexed val->map vals))
+
+; create-spec from spec
 
-(defn type-convert [val1 v]
-  (cond
-    (number? val1)
-    (long v)
+(defn add-val [{:keys [id] :as opts}]
+  (assoc opts :val id :id (str id)))
 
-    (keyword? val1)
-    (keyword v)
+(defn spec->spec [specs]
+  (map add-val specs))
 
-    (string? val1)
-    v
+; html helper
+
+(defn entry->option [current-val {:keys [id name val]}]
+  ;; works for spec like:
+  ;; [{:id 1 :name "Batman"}
+  ;;  {:id 2 :name "Robin"}
+  ;;  {:id 3 :name "Harry Potter"}]
+  (if (= current-val val)
+    [:option {:value id :selected true} name]
+    [:option {:value id} name]))
 
-    :else
-    v))
+(defn get-id [spec id]
+  (println "get-id: " id " in spec: " spec)
+  (-> (filter #(= id (:id %)) spec)
+      first))
 
 (defn editor-select [{:keys [set-fn options]} current-val]
   (let [{:keys [class spec]
          :or {class ""
               spec []}} options
-        option1 (first spec)
-        spec (if (map? option1)
-               spec
-               (map spec->map spec))
-        val1 (-> spec first :id)
-        otype (type val1)]
-    (println "select id type: " otype)
+        mapped? (map? (first spec))
+        spec (if mapped?
+               (spec->spec spec)
+               (vals->spec spec))]
     (into  [:select {:class class
                      :on-change (fn [e]
-                                  (let [v (-> e .-target .-value)
-                                        v2 (type-convert val1 v)]
-                                    (println "setting select to: " v "v2: " v2)
-                                    (set-fn v2)))}]
+                                  (let [id-str (-> e .-target .-value)
+                                        entry (get-id spec id-str) 
+                                        v (:val entry)]
+                                    ;(println "entry: " entry)
+                                    ;(println "setting select to id: " id-str "val: " v)
+                                    (set-fn v)))}]
            (map #(entry->option current-val %) spec))))
 
 (defn select? [spec]