Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-10 09:08:31 -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>
(ns uxbox.data.projects
(:require [bouncer.validators :as v]
[cuerdas.core :as str]
(:require [cuerdas.core :as str]
[promesa.core :as p]
[beicon.core :as rx]
[uxbox.rstore :as rs]
[uxbox.router :as r]
[uxbox.state :as st]
[uxbox.schema :as sc]
[uxbox.util.time :as time]
[uxbox.repo :as rp]
[uxbox.util.datetime :as dt]
[uxbox.state.project :as stpr]
[uxbox.util.data :refer (without-keys)]))
@ -66,6 +68,31 @@
;; 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
[{:keys [name width height project layout] :as data}]
(sc/validate! +create-page-schema+ data)
@ -74,7 +101,7 @@
(-apply-update [_ state]
(let [page {:id (random-uuid)
:project project
:created (time/now :unix)
:created (dt/now)
:layout layout
:shapes []
:name name
@ -113,7 +140,7 @@
(-apply-update [_ state]
(let [proj {:id uuid
:name name
:created (time/now :unix)}]
:created (dt/now)}]
(stpr/assoc-project state proj)))
rs/EffectEvent