status-im/re-frame-10x
2
0
Fork 0
mirror of https://github.com/status-im/re-frame-10x.git synced 2025-02-05 19:03:24 +00:00
Code Issues Projects Releases Wiki Activity

Add enable and disable-tracing functions

Browse Source 
Hard coded at the moment to disable/enable when showing the panel. Will
be eventually made configurable.

Fixes #7
This commit is contained in:
Daniel Compton 2016-12-15 11:21:28 +13:00
parent 91d8715584
commit 44429f981c
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,10 +103,17 @@
#_(if-let [comp-p (get-in trace [:tags :component-path])] #_(if-let [comp-p (get-in trace [:tags :component-path])]
(println comp-p)))) (println comp-p))))
(defn init-tracing! [] (defn disable-tracing! []
(re-frame.trace/remove-trace-cb ::cb))
(defn enable-tracing! []
(re-frame.trace/register-trace-cb ::cb (fn [new-traces] (re-frame.trace/register-trace-cb ::cb (fn [new-traces]
(let [new-traces (filter log-trace? new-traces)] (let [new-traces (filter log-trace? new-traces)]
(swap! traces #(reduce conj % new-traces))))) (swap! traces #(reduce conj % new-traces))))))
(defn init-tracing!
"Sets up any intial state that needs to be there for tracing. Does not enable tracing."
[]
(monkey-patch-reagent) (monkey-patch-reagent)
) )
@ -206,6 +213,9 @@
(cond (cond
(and (= key "h") (.-ctrlKey e)) (and (= key "h") (.-ctrlKey e))
(do (swap! showing? not) (do (swap! showing? not)
(if @showing?
(enable-tracing!)
(disable-tracing!))
(.preventDefault e))))))] (.preventDefault e))))))]
(r/create-class (r/create-class
{:component-will-mount #(js/window.addEventListener "keydown" handle-keys) {:component-will-mount #(js/window.addEventListener "keydown" handle-keys)