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 new implementation for create and delete project events.

Browse source 
For backend integration.
This commit is contained in:
Andrey Antukh 2016-03-17 22:24:02 +02:00
parent 63bcae9dc1
commit c4e8a881c1
1 changed files with 34 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -37,9 +37,17 @@
:layout [sc/required sc/string]
:width [sc/required sc/integer]
:height [sc/required sc/integer]
:data [sc/required]
:project [sc/required sc/uuid]})
(def ^:static +update-page-schema+
{:name [sc/required sc/string]
:width [sc/required sc/integer]
:height [sc/required sc/integer]
:data [sc/required]
:layout [sc/required sc/string]})
(def ^:static +update-page-metadata-schema+
{:name [sc/required sc/string]
:width [sc/required sc/integer]
:height [sc/required sc/integer]
@ -126,7 +134,7 @@
(defn update-page
[{:keys [id name width height layout] :as data}]
(sc/validate! +create-page-schema+ data)
(sc/validate! +update-page-schema+ data)
(reify
rs/UpdateEvent
(-apply-update [_ state]
@ -157,28 +165,35 @@
(defn create-project
[{:keys [name width height layout] :as data}]
(sc/validate! +project-schema+ data)
(let [uuid (random-uuid)]
(letfn [(on-success [project]
(rx/of (rs/swap #(stpr/assoc-project % project))
(create-page (assoc data
:project (:id project)
:name "Page 1"
:data []))))
(on-failure [err]
(println "on-failure" err)
(uum/error (tr "errors.create-project")))]
(reify
rs/UpdateEvent
(-apply-update [_ state]
(let [proj {:id uuid
:name name
:created (dt/now)}]
(stpr/assoc-project state proj)))
rs/WatchEvent
(-apply-watch [_ state]
(->> (rp/do :create/project {:name name})
(rx/from-promise)
(rx/mapcat on-success)
(rx/catch on-failure))))))
rs/EffectEvent
(-apply-effect [_ state]
(rs/emit! (create-page {:name "Page 1"
:layout layout
:width width
:height height
:project uuid}))))))
(defn delete-project
[proj]
(letfn [(on-success [_]
(rs/swap #(stpr/dissoc-project % proj)))
(on-failure [e]
(uum/error (tr "errors.delete-project")))]
(reify
rs/UpdateEvent
(-apply-update [_ state]
(stpr/dissoc-project state proj))))
rs/WatchEvent
(-apply-watch [_ state]
(->> (rp/do :delete/project proj)
(p/map on-success)
(p/err on-failure))))))
(defn go-to
"A shortcut event that redirects the user to the