status-im
/
re-frame-10x
mirror of https://github.com/status-im/re-frame-10x.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge pull request #58 from Day8/local-storage-show-details 

Save state of traces panel to localstorage
This commit is contained in:
Daniel Compton 2017-08-31 16:06:36 +12:00 committed by GitHub
parent c617fa4195 7bd773fe02
commit 91d4ac57f7
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/day8/re_frame/trace.cljs
View File

@ -95,6 +95,7 @@
(def traces (interop/ratom [])) (def traces (interop/ratom []))
(defn log-trace? [trace] (defn log-trace? [trace]
(let [rendering? (= (:op-type trace) :render)] (let [rendering? (= (:op-type trace) :render)]
(if-not rendering? (if-not rendering?
@ -267,12 +268,17 @@
(def ease-transition "left 0.2s ease-out, top 0.2s ease-out, width 0.2s ease-out, height 0.2s ease-out") (def ease-transition "left 0.2s ease-out, top 0.2s ease-out, width 0.2s ease-out, height 0.2s ease-out")
(defn toggle-traces [showing?]
(if @showing?
(enable-tracing!)
(disable-tracing!)))
(defn devtools [] (defn devtools []
;; Add clear button ;; Add clear button
;; Filter out different trace types ;; Filter out different trace types
(let [position (r/atom :right) (let [position (r/atom :right)
panel-width-ratio (r/atom (localstorage/get "panel-width-ratio" 0.35)) panel-width-ratio (r/atom (localstorage/get "panel-width-ratio" 0.35))
showing? (r/atom false) showing? (r/atom (localstorage/get "show-panel" false))
dragging? (r/atom false) dragging? (r/atom false)
pin-to-bottom? (r/atom true) pin-to-bottom? (r/atom true)
selected-tab (r/atom :traces) selected-tab (r/atom :traces)
@ -286,9 +292,7 @@
(cond (cond
(and (= key "h") (.-ctrlKey e)) (and (= key "h") (.-ctrlKey e))
(do (swap! showing? not) (do (swap! showing? not)
(if @showing? (toggle-traces showing?)
(enable-tracing!)
(disable-tracing!))
(.preventDefault e)))))) (.preventDefault e))))))
handle-mousemove (fn [e] handle-mousemove (fn [e]
(when @dragging? (when @dragging?
@ -296,13 +300,17 @@
y (.-clientY e)] y (.-clientY e)]
(.preventDefault e) (.preventDefault e)
(reset! panel-width-ratio (/ (- window-width x) window-width)))))] (reset! panel-width-ratio (/ (- window-width x) window-width)))))]
(add-watch panel-width-ratio (add-watch panel-width-ratio
:update-panel-width-ratio :update-panel-width-ratio
(fn [_ _ _ new-state] (fn [_ _ _ new-state]
(localstorage/save! "panel-width-ratio" new-state))) (localstorage/save! "panel-width-ratio" new-state)))
(add-watch showing?
:update-show-panel
(fn [_ _ _ new-state]
(localstorage/save! "show-panel" new-state)))
(r/create-class (r/create-class
{:component-will-mount (fn [] {:component-will-mount (fn []
(toggle-traces showing?)
(js/window.addEventListener "keydown" handle-keys) (js/window.addEventListener "keydown" handle-keys)
(js/window.addEventListener "mousemove" handle-mousemove)) (js/window.addEventListener "mousemove" handle-mousemove))
:component-will-unmount (fn [] :component-will-unmount (fn []