mirror of
https://github.com/penpot/penpot.git
synced 2026-02-27 06:43:53 +00:00
38 lines
1022 B
Clojure
38 lines
1022 B
Clojure
(ns uxbox.core
|
|
(:require-macros [uxbox.util.syntax :refer [define-once]])
|
|
(:require [beicon.core :as rx]
|
|
[cats.labs.lens :as l]
|
|
[uxbox.state :as st]
|
|
[uxbox.router :as rt]
|
|
[uxbox.rstore :as rs]
|
|
[uxbox.ui :as ui]
|
|
[uxbox.data.load :as dl]))
|
|
|
|
(enable-console-print!)
|
|
|
|
(defn- main
|
|
[]
|
|
(let [lens (l/select-keys [:pages-by-id
|
|
:shapes-by-id
|
|
:colors-by-id
|
|
:projects-by-id])
|
|
stream (->> (l/focus-atom lens st/state)
|
|
(rx/from-atom)
|
|
(rx/dedupe)
|
|
(rx/debounce 1000)
|
|
(rx/tap #(println "[save]")))]
|
|
(rx/on-value stream #(dl/persist-state %))))
|
|
|
|
(define-once :setup
|
|
(println "bootstrap")
|
|
(st/init)
|
|
(rt/init)
|
|
(ui/init)
|
|
|
|
(rs/emit! (dl/load-data))
|
|
|
|
;; During development, you can comment the
|
|
;; following call for disable temprary the
|
|
;; local persistence.
|
|
(main))
|