mirror of
https://github.com/penpot/penpot.git
synced 2026-04-25 19:28:12 +00:00
Insert shapes alwais on top (#10)
This commit is contained in:
parent
20ae512143
commit
706bc84d95
@ -10,7 +10,7 @@
|
||||
(let [sid (random-uuid)
|
||||
shape (merge shape {:id sid :page page})]
|
||||
(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))))
|
||||
|
||||
(defn duplicate-shapes'
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user