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

Use deftype instead of defrecord in page events.

Browse source
This commit is contained in:
Andrey Antukh 2016-12-18 19:46:56 +01:00
parent 63576ae4f1
commit 569aec25ba
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
frontend/src/uxbox/main/data/pages.cljs
View file

@ -105,7 +105,7 @@
;; --- Pages Fetched
(defrecord PagesFetched [pages]
(deftype PagesFetched [pages]
ptk/UpdateEvent
(update [_ state]
(as-> state $
@ -118,7 +118,7 @@
;; --- Fetch Pages (by project id)
(defrecord FetchPages [projectid]
(deftype FetchPages [projectid]
ptk/WatchEvent
(watch [_ state s]
(->> (rp/req :fetch/pages-by-project {:project projectid})
@ -130,7 +130,7 @@
;; --- Page Created
(defrecord PageCreated [data]
(deftype PageCreated [data]
ptk/UpdateEvent
(update [_ state]
(-> state
@ -147,7 +147,7 @@
;; --- Create Page
(defrecord CreatePage [name project width height layout]
(deftype CreatePage [name project width height layout]
ptk/WatchEvent
(watch [this state s]
(let [params {:name name
@ -164,13 +164,13 @@
(s/keys :req-un [::name ::project ::width ::height ::layout]))
(defn create-page
[data]
[{:keys [name project width height layout] :as data}]
{:pre [(us/valid? ::create-page-event data)]}
(map->CreatePage data))
(->CreatePage name project width height layout))
;; --- Page Persisted
(defrecord PagePersisted [data]
(deftype PagePersisted [data]
ptk/UpdateEvent
(update [_ state]
;; TODO: update only the version instead of complete unpacking
@ -191,7 +191,7 @@
;; --- Persist Page
(defrecord PersistPage [id]
(deftype PersistPage [id]
ptk/WatchEvent
(watch [this state s]
(let [page (get-in state [:pages id])]
@ -212,7 +212,7 @@
;; --- Page Metadata Persisted
(defrecord MetadataPersisted [id data]
(deftype MetadataPersisted [id data]
ptk/UpdateEvent
(update [_ state]
;; TODO: page-data update
@ -232,7 +232,7 @@
;; that does not sends the heavyweiht `:data` attribute
;; and only serves for update other page data.
(defrecord PersistMetadata [id]
(deftype PersistMetadata [id]
ptk/WatchEvent
(watch [_ state stream]
(let [page (get-in state [:pages id])]
@ -247,7 +247,7 @@
;; --- Update Page Options
(defrecord UpdateMetadata [id metadata]
(deftype UpdateMetadata [id metadata]
IMetadataUpdate
ptk/UpdateEvent
(update [this state]
@ -260,7 +260,7 @@
;; --- Update Page
(defrecord UpdatePage [id name width height layout]
(deftype UpdatePage [id name width height layout]
ptk/UpdateEvent
(update [this state]
(-> state
@ -283,7 +283,7 @@
;; --- Delete Page (by id)
(defrecord DeletePage [id callback]
(deftype DeletePage [id callback]
ptk/WatchEvent
(watch [_ state s]
(letfn [(on-success [_]