Update epochs to retain

src/day8/re_frame/trace/events.cljs

@@ -127,12 +127,21 @@
 (rf/reg-event-db
   :settings/set-number-of-retained-epochs
   (fn [db [_ num-str]]
-    (let [num (js/parseInt num-str)]
+    ;; TODO: this is not perfect, there is an issue in re-com
-      (if-not (js/isNaN num)
+    ;; where it won't update its model if it never receives another
-        (do
+    ;; changes after it's on-change is fired.
-          (localstorage/save! "retained-epochs" num)
+    (let [num (js/parseInt num-str)
-          (assoc-in db [:settings :number-of-epochs] num))
+          num (if (and (not (js/isNaN num)) (pos-int? num))
-        db))))
+                num
+                30)]
+      (localstorage/save! "retained-epochs" num)
+      (assoc-in db [:settings :number-of-epochs] num))))
+
+(rf/reg-event-db
+  :settings/low-level-trace
+  [(rf/path [:settings :low-level-trace])]
+  (fn [low-level [_ trace-type capture?]]
+    (assoc low-level trace-type capture?)))
 
 ;; Global
 

src/day8/re_frame/trace/subs.cljs

@@ -40,6 +40,14 @@
   (fn [settings]
     (:number-of-epochs settings)))
 
+(rf/reg-sub
+  :settings/low-level-trace
+  ;; TODO: filter from traces panel
+  ;; TODO: eventually drop these low level traces after computing the state we need from them.
+  :<- [:settings/root]
+  (fn [settings]
+    (:low-level-trace settings)))
+
 ;; App DB
 
 (rf/reg-sub

src/day8/re_frame/trace/view/settings.cljs

@@ -95,7 +95,7 @@
               :margin-right     common/gs-19s}
    :children [(let [num-epochs @(rf/subscribe [:epochs/number-of-matches])
                     num-traces @(rf/subscribe [:traces/number-of-traces])
-                    epochs-to-retain @(rf/subscribe [:settings/number-of-retained-epochs])]
+                    epochs-to-retain (rf/subscribe [:settings/number-of-retained-epochs])]
                 [settings-box
                  [[rc/h-box
                    :align    :center
@@ -175,18 +175,19 @@
                settings-box-131]
 
               [rc/line]
-              [settings-box
+              (let [low-level-trace @(rf/subscribe [:settings/low-level-trace])]
-               [[rc/label :label "Remove low level trace"]
+                [settings-box
-                [rc/checkbox
+                [[rc/label :label "Remove low level trace"]
-                 :model     false
+                 [rc/checkbox
-                 :label     "reagent internals"
+                  :model (:reagent low-level-trace)
-                 :on-change #(rf/dispatch [:settings/low-level-trace :reagent %])]
+                  :label "reagent internals"
-                [rc/checkbox
+                  :on-change #(rf/dispatch [:settings/low-level-trace :reagent %])]
-                 :model     false
+                 [rc/checkbox
-                 :label     "re-frame internals"
+                  :model (:re-frame low-level-trace)
-                 :on-change #(rf/dispatch [:settings/low-level-trace :re-frame %])]]
+                  :label "re-frame internals"
-               [[:p "Most of the time, low level trace is noisy and you want it filtered out."]]
+                  :on-change #(rf/dispatch [:settings/low-level-trace :re-frame %])]]
-               settings-box-131]
+                [[:p "Most of the time, low level trace is noisy and you want it filtered out."]]
+                settings-box-131])
 
               [rc/line]
               [settings-box