Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-09 21:41:23 -05:00
Code Issues Activity

🚧 Add impl for canvas related ops.

Browse source
This commit is contained in:
Andrey Antukh 2019-12-14 23:13:19 +01:00
parent 5d7fba1955
commit 2436c09295
1 changed files with 29 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
common/uxbox/common/pages.cljc
View file

@ -58,7 +58,12 @@
:id uuid?
:data any?)
:del-shape (s/cat :name #(= % :del-shape)
:id uuid?)))
:id uuid?)
:add-canvas (s/cat :name #(= % :add-canvas)
:id uuid?
:data any?)
:del-canvas (s/cat :name #(= % :del-canvas)
:id uuid?)))
(s/def ::operations
(s/coll-of ::operation :kind vector?))
@ -67,9 +72,11 @@
;; --- Operations Processing Impl
(declare process-operation)
(declare process-add-shape)
(declare process-mod-shape)
(declare process-add-shape)
(declare process-del-shape)
(declare process-add-canvas)
(declare process-del-canvas)
(defn process-ops
[data operations]
@ -79,9 +86,15 @@
(defn- process-operation
[data operation]
(case (first operation)
:add-shape (process-add-shape data operation)
:mod-shape (process-mod-shape data operation)
:del-shape (process-del-shape data operation)))
:add-shape (process-add-shape data operation)
:del-shape (process-del-shape data operation)
:add-canvas (process-add-canvas data operation)
:del-canvas (process-del-canvas data operation)))
(defn- process-mod-shape
[data {:keys [id attr value]}]
(update-in data [:shapes-by-id id] assoc attr value))
(defn- process-add-shape
[data {:keys [id data]}]
@ -89,13 +102,21 @@
(update :shapes conj id)
(update :shapes-by-id assoc id data)))
(defn- process-mod-shape
[data {:keys [id attr value]}]
(update-in data [:shapes-by-id id] assoc attr value))
(defn- process-del-shape
[data {:keys [id attr value]}]
(-> data
(update :shapes (fn [s] (filterv #(not= % id) s)))
(update :shapes-by-id dissoc id)))
(defn- process-add-canvas
[data {:keys [id data]}]
(-> data
(update :canvas conj id)
(update :shapes-by-id assoc id data)))
(defn- process-del-canvas
[data {:keys [id attr value]}]
(-> data
(update :canvas (fn [s] (filterv #(not= % id) s)))
(update :shapes-by-id dissoc id)))