Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-13 18:48:37 -05:00
Code Issues Activity

Add load-projects and load-pages events.

Browse source
This commit is contained in:
Andrey Antukh 2016-03-15 20:56:22 +02:00
parent 0ce8059266
commit fd2c27cdd6
1 changed files with 32 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
src/uxbox/data/projects.cljs
View file

@ -6,13 +6,15 @@
;; Copyright (c) 2015-2016 Juan de la Cruz <delacruzgarciajuan@gmail.com> ;; Copyright (c) 2015-2016 Juan de la Cruz <delacruzgarciajuan@gmail.com>
(ns uxbox.data.projects (ns uxbox.data.projects
(:require [bouncer.validators :as v] (:require [cuerdas.core :as str]
[cuerdas.core :as str] [promesa.core :as p]
[beicon.core :as rx]
[uxbox.rstore :as rs] [uxbox.rstore :as rs]
[uxbox.router :as r] [uxbox.router :as r]
[uxbox.state :as st] [uxbox.state :as st]
[uxbox.schema :as sc] [uxbox.schema :as sc]
[uxbox.util.time :as time] [uxbox.repo :as rp]
[uxbox.util.datetime :as dt]
[uxbox.state.project :as stpr] [uxbox.state.project :as stpr]
[uxbox.util.data :refer (without-keys)])) [uxbox.util.data :refer (without-keys)]))
@ -66,6 +68,31 @@
;; Events ;; Events
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn load-projects
[]
(letfn [(transform [state projects]
(reduce stpr/assoc-project state projects))
(on-loaded [projects]
#(transform % projects))]
(reify
rs/WatchEvent
(-apply-watch [_ state]
(-> (rp/do :fetch/projects)
(p/then on-loaded))))))
(defn load-pages
[]
(letfn [(transform [state pages]
(reduce stpr/assoc-page state pages))
(on-loaded [pages]
#(transform % pages))]
(reify
rs/WatchEvent
(-apply-watch [_ state]
(println "load-pages")
(-> (rp/do :fetch/pages)
(p/then on-loaded))))))
(defn create-page (defn create-page
[{:keys [name width height project layout] :as data}] [{:keys [name width height project layout] :as data}]
(sc/validate! +create-page-schema+ data) (sc/validate! +create-page-schema+ data)
@ -74,7 +101,7 @@
(-apply-update [_ state] (-apply-update [_ state]
(let [page {:id (random-uuid) (let [page {:id (random-uuid)
:project project :project project
:created (time/now :unix) :created (dt/now)
:layout layout :layout layout
:shapes [] :shapes []
:name name :name name
@ -113,7 +140,7 @@
(-apply-update [_ state] (-apply-update [_ state]
(let [proj {:id uuid (let [proj {:id uuid
:name name :name name
:created (time/now :unix)}] :created (dt/now)}]
(stpr/assoc-project state proj))) (stpr/assoc-project state proj)))
rs/EffectEvent rs/EffectEvent