fix checkbox graph settings enabled?

Author: Kcheung42

projects/behave/src/cljs/behave/wizard/subs.cljs

@@ -850,3 +850,15 @@
  (fn [[_ ws-uuid]] (subscribe [:wizard/multi-value-input-count ws-uuid]))
  (fn [count _]
    (pos? count)))
+
+(reg-sub
+ :wizard/enable-graph-settings?
+ (fn [[_ ws-uuid]]
+   [(subscribe [:worksheet/get-graph-settings-attr
+                ws-uuid
+                :graph-settings/enabled?])
+    (subscribe [:worksheet/multi-value-input-uuids ws-uuid])])
+ (fn [[saved-enabled?-setting multi-valued-inputs] _]
+   (if (not (nil? (first saved-enabled?-setting)))
+     (first saved-enabled?-setting)
+     (pos? (count multi-valued-inputs)))))

projects/behave/src/cljs/behave/wizard/views.cljs

@@ -443,12 +443,7 @@
         multi-valued-input-count (count multi-valued-input-uuids)
         x-axis-limits            (first @(subscribe [:worksheet/graph-settings-x-axis-limits ws-uuid]))
         units-lookup             @(subscribe [:worksheet/result-table-units ws-uuid])
-        saved-enabled?-setting   (first @(subscribe [:worksheet/get-graph-settings-attr
-                                                     ws-uuid
-                                                     :graph-settings/enabled?]))
-        enabled?                 (if (not (nil? saved-enabled?-setting))
-                                   saved-enabled?-setting
-                                   (pos? multi-valued-input-count))]
+        enabled?                 @(subscribe [:wizard/enable-graph-settings? ws-uuid])]
     (letfn [(radio-group [{:keys [label attr variables on-change]}]
               (let [*values   (subscribe [:worksheet/get-graph-settings-attr ws-uuid attr])
                     selected? (first @*values)]

projects/behave/src/cljs/behave/worksheet/events.cljs

@@ -427,7 +427,9 @@
    (let [graph-setting-id (get-in worksheet [:worksheet/graph-settings :db/id])
          enabled?         (get-in worksheet [:worksheet/graph-settings :graph-settings/enabled?])]
      {:transact [{:db/id                   graph-setting-id
-                  :graph-settings/enabled? (not enabled?)}]
+                  :graph-settings/enabled? (if (nil? enabled?)
+                                             false
+                                             (not enabled?))}]
       :fx       [[:dispatch [:worksheet/set-default-graph-settings ws-uuid]]]})))
 
 (rp/reg-event-fx