Update epochs to retain
This commit is contained in:
parent
a2c3f7c36b
commit
23a63de354
|
@ -127,12 +127,21 @@
|
||||||
(rf/reg-event-db
|
(rf/reg-event-db
|
||||||
:settings/set-number-of-retained-epochs
|
:settings/set-number-of-retained-epochs
|
||||||
(fn [db [_ num-str]]
|
(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
|
;; Global
|
||||||
|
|
||||||
|
|
|
@ -40,6 +40,14 @@
|
||||||
(fn [settings]
|
(fn [settings]
|
||||||
(:number-of-epochs 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
|
;; App DB
|
||||||
|
|
||||||
(rf/reg-sub
|
(rf/reg-sub
|
||||||
|
|
|
@ -95,7 +95,7 @@
|
||||||
:margin-right common/gs-19s}
|
:margin-right common/gs-19s}
|
||||||
:children [(let [num-epochs @(rf/subscribe [:epochs/number-of-matches])
|
:children [(let [num-epochs @(rf/subscribe [:epochs/number-of-matches])
|
||||||
num-traces @(rf/subscribe [:traces/number-of-traces])
|
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
|
[settings-box
|
||||||
[[rc/h-box
|
[[rc/h-box
|
||||||
:align :center
|
:align :center
|
||||||
|
@ -175,18 +175,19 @@
|
||||||
settings-box-131]
|
settings-box-131]
|
||||||
|
|
||||||
[rc/line]
|
[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]
|
[rc/line]
|
||||||
[settings-box
|
[settings-box
|
||||||
|
|
Loading…
Reference in New Issue