penpot/frontend/src/uxbox/main/store.cljs

;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
;;
;; Copyright (c) 2015-2017 Andrey Antukh <niwi@niwi.nz>

(ns uxbox.main.store
  (:require [beicon.core :as rx]
            [lentes.core :as l]
            [potok.core :as ptk]
            [uxbox.builtins.colors :as colors]
            [uxbox.util.storage :refer [storage]]))

(enable-console-print!)

(def ^:dynamic *on-error* identity)

(defonce state (atom {}))
(defonce loader (atom false))
(defonce store (ptk/store {:on-error #(*on-error* %)}))
(defonce stream (ptk/input-stream store))

;; (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))))

;; (defonce debug (as-> stream $
;;                  (rx/filter ptk/event? $)
;;                  (rx/subscribe $ (fn [event]
;;                                    (println "[stream]: " (repr-event event))))))

(def auth-ref
  (-> (l/key :auth)
      (l/derive state)))

(defn emit!
  ([event]
   (ptk/emit! store event)
   nil)
  ([event & events]
   (apply ptk/emit! store (cons event events))
   nil))

(def initial-state
  {:dashboard {:project-order :name
               :project-filter ""
               :images-order :name
               :images-filter ""}
   :route nil
   :router nil
   :auth (:auth storage)
   :profile (:profile storage)
   :clipboard #queue []
   :undo {}
   :workspace nil
   :images-collections nil
   :images nil
   :icons-collections nil
   :icons nil
   :colors-collections colors/collections
   :shapes nil
   :projects nil
   :pages nil})

(defn init
  "Initialize the state materialization."
  ([] (init {}))
  ([props]
   (emit! #(merge % initial-state props))
   (rx/to-atom store state)))