mirror of
https://github.com/penpot/penpot.git
synced 2025-05-18 13:56:10 +02:00
Insert shapes alwais on top (#10)
This commit is contained in:
parent
20ae512143
commit
706bc84d95
1 changed files with 1 additions and 1 deletions
|
@ -10,7 +10,7 @@
|
||||||
(let [sid (random-uuid)
|
(let [sid (random-uuid)
|
||||||
shape (merge shape {:id sid :page page})]
|
shape (merge shape {:id sid :page page})]
|
||||||
(as-> state $
|
(as-> state $
|
||||||
(update-in $ [:pages-by-id page :shapes] conj sid)
|
(update-in $ [:pages-by-id page :shapes] #(into [] (cons sid %)))
|
||||||
(assoc-in $ [:shapes-by-id sid] shape))))
|
(assoc-in $ [:shapes-by-id sid] shape))))
|
||||||
|
|
||||||
(defn duplicate-shapes'
|
(defn duplicate-shapes'
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue