Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-23 23:35:58 -05:00
Code Issues Activity

✨ Add public function for enable event stream debugging.

Browse source
This commit is contained in:
Andrey Antukh 2020-03-10 11:44:57 +01:00
parent 5e91f05a7b
commit 8f2e31cafa
2 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
frontend/src/uxbox/main.cljs
View file

@ -84,3 +84,8 @@
[]
(when (= "main" (unchecked-get js/window app-sym))
(reinit)))
(defn ^:export toggle-debug
[]
(swap! st/*debug* not))

17
frontend/src/uxbox/main/store.cljs
View file

@ -21,7 +21,7 @@
(defonce store (ptk/store {:on-error #(*on-error* %)}))
(defonce stream (ptk/input-stream store))
(defn repr-event
(defn- repr-event
[event]
(cond
(satisfies? ptk/Event event)
@ -34,12 +34,15 @@
:else
(str "unk: " (pr-str event))))
(defonce debug (as-> stream $
(rx/filter ptk/event? $)
;; Comment this line if you want full debug.
(rx/ignore $)
(rx/subscribe $ (fn [event]
(println "[stream]: " (repr-event event))))))
(defonce ^:dynamic *debug* (atom false))
(when *assert*
(defonce debug-subscription
(as-> stream $
(rx/filter ptk/event? $)
(rx/filter (fn [s] (deref *debug*)) $)
(rx/subscribe $ (fn [event]
(println "[stream]: " (repr-event event)))))))
(def auth-ref
(-> (l/key :auth)