3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-02 06:41:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

🔥 Remove unused code.

Browse source
This commit is contained in:
Andrey Antukh 2020-12-21 11:35:13 +01:00 • committed by Alonso Torres
parent 4a5e27e641
commit 38a645ad49
1 changed files with 2 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

16
frontend/src/app/main/store.cljs
View file

@ -25,26 +25,14 @@
(defonce state (ptk/store {:resolve ptk/resolve})) (defonce state (ptk/store {:resolve ptk/resolve}))
(defonce stream (ptk/input-stream state)) (defonce stream (ptk/input-stream state))
(defn- repr-event
[event]
(cond
(satisfies? ptk/Event event)
(str "typ: " (pr-str (ptk/type event)))
(and (fn? event)
(pos? (count (.-name event))))
(str "fn: " (demunge (.-name event)))
:else
(str "unk: " (pr-str event))))
(when *assert* (when *assert*
(defonce debug-subscription (defonce debug-subscription
(->> stream (->> stream
(rx/filter ptk/event?) (rx/filter ptk/event?)
(rx/filter (fn [s] (and (debug? :events) (rx/filter (fn [s] (and (debug? :events)
(not (debug-exclude-events (ptk/type s)))))) (not (debug-exclude-events (ptk/type s))))))
(rx/subs #(println "[stream]: " (repr-event %)))))) (rx/subs #(println "[stream]: " (ptk/repr-event %))))))
(defn emit! (defn emit!
([] nil) ([] nil)
([event] ([event]