Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-11 23:31:21 -05:00
Code Issues Activity

Minor change on code on core ns.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-17 23:29:14 +02:00
parent d62a6922be
commit 1dc85c00c6
1 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/uxbox/core.cljs
View file

@ -1,4 +1,5 @@
(ns uxbox.core (ns uxbox.core
(:require-macros [uxbox.util.syntax :refer [define-once]])
(:require [beicon.core :as rx] (:require [beicon.core :as rx]
[cats.labs.lens :as l] [cats.labs.lens :as l]
[uxbox.state :as st] [uxbox.state :as st]
@ -9,8 +10,7 @@
(enable-console-print!) (enable-console-print!)
(defn main (defn- main
"Initialize the storage subsystem."
[] []
(let [lens (l/select-keys [:pages-by-id (let [lens (l/select-keys [:pages-by-id
:shapes-by-id :shapes-by-id
@ -23,13 +23,11 @@
(rx/tap #(println "[save]")))] (rx/tap #(println "[save]")))]
(rx/on-value stream #(dl/persist-state %)))) (rx/on-value stream #(dl/persist-state %))))
(defonce +setup+ (define-once :setup
(do (println "bootstrap")
(println "bootstrap") (st/init)
(rt/init)
(ui/init)
(st/init) (rs/emit! (dl/load-data))
(rt/init) (main))
(ui/init)
(rs/emit! (dl/load-data))
(main)))