editors all have :style option

Author: awb99

src/options/core.cljs

@@ -69,7 +69,7 @@
 
 (defn options-ui [{:keys [class style]}  ; styling
                   {:keys [current state options]
-                   :or {state (r/atom current)} :as config}] ; data
+                   :or {state (r/atom current)} :as _config}] ; data
   (reset! state current)
   [options-ui2 {:class class
                 :style style

src/options/editor/bool.cljs

@@ -1,8 +1,11 @@
 (ns options.editor.bool)
 
 (defn editor-bool [{:keys [set-fn options]} current-val]
-  (let [{:keys [class] :or {class ""}} options]
+  (let [{:keys [class style] 
+         :or {class ""
+              style {}}} options]
     [:input {:class class
+             :style style 
              :type "checkbox"
              :checked current-val
              :on-change (fn [e]

src/options/editor/button.cljs

@@ -6,8 +6,8 @@
 (defn editor-button [{:keys [_set-fn options]} _current-val]
   (let [{:keys [class style name on-click]
          :or {class ""
-              name ""
-              style {}}} options]
+              style {}
+              name ""}} options]
     [:button
      {:class class
       :style style

src/options/editor/select.cljs

@@ -40,15 +40,17 @@
 
 
 (defn editor-select [{:keys [set-fn options]} current-val]
-  (let [{:keys [class spec]
+  (let [{:keys [class style spec]
          :or {class ""
+              style {}
               spec []}} options
         normalized-spec (normalize-spec spec)
         dict (into {}
                    (map (juxt :id identity) normalized-spec))
         current-val (str current-val)]
     (println "select val: " current-val)
     (into  [:select {:class class
+                     :style style
                      :value current-val
                      :on-change (fn [e]
                                   (let [id (-> e .-target .-value)

src/options/editor/string.cljs

@@ -1,8 +1,12 @@
 (ns options.editor.string)
 
 (defn editor-string [{:keys [set-fn options]} current-val]
-  (let [{:keys [class name] :or {class "" name ""}} options]
+  (let [{:keys [class style name]
+         :or {class ""
+              style {}
+              name ""}} options]
     [:input {:class class
+             :style style
              :type "text"
              :value current-val
              :placeholder name

src/options/editor/view.cljs

@@ -1,7 +1,9 @@
 (ns options.editor.view)
 
 (defn editor-view [{:keys [options]} current-val]
-  (let [{:keys [class]
-         :or {class ""}}
+  (let [{:keys [class style]
+         :or {class ""
+              style {}}}
         options]
-    [:span {:class class} (pr-str current-val)]))
+    [:span {:class class
+            :style style} (pr-str current-val)]))