;; 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-2016 Andrey Antukh <niwi@niwi.nz>
;; Copyright (c) 2015-2016 Juan de la Cruz <delacruzgarciajuan@gmail.com>

(ns uxbox.state
  (:require [hodgepodge.core :refer [local-storage]]
            [beicon.core :as rx]
            [lentes.core :as l]
            [uxbox.rstore :as rs]))

(defonce state (atom {}))

(defn get-initial-state
  []
  {:dashboard {:project-order :name
               :project-filter ""}
   :route nil
   :auth (:uxbox/auth local-storage)
   :clipboard #queue []
   :profile nil
   :workspace nil
   :shapes-by-id {}
   :elements-by-id {}
   :colors-by-id {}
   :icons-by-id {}
   :projects-by-id {}
   :pages-by-id {}})

(defonce stream
  (rs/init (get-initial-state)))

(defn init
  "Initialize the state materialization."
  []
  (as-> stream $
    (rx/dedupe $)
    (rx/to-atom $ state)))