Toggle settings
This commit is contained in:
parent
f7bdf6e414
commit
a5c052fd59
|
@ -5,7 +5,7 @@
|
|||
(defn init-db []
|
||||
(let [panel-width% (localstorage/get "panel-width-ratio" 0.35)
|
||||
show-panel? (localstorage/get "show-panel" false)
|
||||
selected-tab (localstorage/get "selected-tab" :traces)
|
||||
selected-tab (localstorage/get "selected-tab" :overview)
|
||||
filter-items (localstorage/get "filter-items" [])
|
||||
app-db-paths (localstorage/get "app-db-paths" '())
|
||||
json-ml-paths (localstorage/get "app-db-json-ml-expansions" #{})
|
||||
|
|
|
@ -65,6 +65,11 @@
|
|||
(localstorage/save! "selected-tab" selected-tab)
|
||||
(assoc-in db [:settings :selected-tab] selected-tab)))
|
||||
|
||||
(rf/reg-event-db
|
||||
:settings/toggle-settings
|
||||
(fn [db _]
|
||||
(update-in db [:settings :showing-settings?] not)))
|
||||
|
||||
(rf/reg-event-db
|
||||
:settings/show-panel?
|
||||
(fn [db [_ show-panel?]]
|
||||
|
|
Loading…
Reference in New Issue