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

⬆️ Update potok to 3.0.0.

Browse source
This commit is contained in:
Andrey Antukh 2020-12-21 09:47:50 +01:00 • committed by Alonso Torres
parent b7353db14e
commit 4a5e27e641
2 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -21,10 +21,9 @@
(def ^:dynamic *on-error* identity)
(defonce state (l/atom {}))
(defonce loader (l/atom false))
(defonce store (ptk/store {:resolve ptk/resolve}))
(defonce stream (ptk/input-stream store))
(defonce state (ptk/store {:resolve ptk/resolve}))
(defonce stream (ptk/input-stream state))
(defn- repr-event
[event]
@ -49,15 +48,15 @@
(defn emit!
([] nil)
([event]
(ptk/emit! store event)
(ptk/emit! state event)
nil)
([event & events]
(apply ptk/emit! store (cons event events))
(apply ptk/emit! state (cons event events))
nil))
(defn emitf
[& events]
#(apply ptk/emit! store events))
#(apply ptk/emit! state events))
(def initial-state
{:session-id (uuid/next)
@ -67,8 +66,7 @@
"Initialize the state materialization."
([] (init {}))
([props]
(emit! #(merge % initial-state props))
(rx/to-atom store state)))
(emit! #(merge % initial-state props))))
(defn ^:export dump-state []
(logjs "state" @state))