Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-03 04:49:03 -05:00
Code Issues 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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
frontend/deps.edn
View file

@ -11,10 +11,10 @@
danlentz/clj-uuid {:mvn/version "0.1.9"} danlentz/clj-uuid {:mvn/version "0.1.9"}
frankiesardo/linked {:mvn/version "1.3.0"} frankiesardo/linked {:mvn/version "1.3.0"}
funcool/beicon {:mvn/version "2020.05.08-2"} funcool/beicon {:mvn/version "2020.12.20-1"}
funcool/cuerdas {:mvn/version "2020.03.26-3"} funcool/cuerdas {:mvn/version "2020.03.26-3"}
funcool/okulary {:mvn/version "2020.04.14-0"} funcool/okulary {:mvn/version "2020.04.14-0"}
funcool/potok {:mvn/version "2020.08.10-2"} funcool/potok {:mvn/version "3.0.0"}
funcool/promesa {:mvn/version "6.0.0"} funcool/promesa {:mvn/version "6.0.0"}
funcool/rumext {:mvn/version "2020.11.27-0"} funcool/rumext {:mvn/version "2020.11.27-0"}

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

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