3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-11 17:26:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix wrong argument number on recursive delete operation (shapes).

Browse source
This commit is contained in:
Andrey Antukh 2020-11-30 15:57:32 +01:00 • committed by Hirunatan
parent 6f64053dd5
commit f4124b28d8
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
common/app/common/pages.cljc
View file

@ -807,7 +807,7 @@
(defmethod process-change :del-obj (defmethod process-change :del-obj
[data {:keys [page-id component-id id ignore-touched] :as change}] [data {:keys [page-id component-id id ignore-touched] :as change}]
(letfn [(delete-object [objects] (letfn [(delete-object [objects id]
(if-let [target (get objects id)] (if-let [target (get objects id)]
(let [parent-id (cph/get-parent id objects) (let [parent-id (cph/get-parent id objects)
frame-id (:frame-id target) frame-id (:frame-id target)
@ -829,8 +829,8 @@
(as-> $ (reduce delete-object $ (:shapes target))))) (as-> $ (reduce delete-object $ (:shapes target)))))
objects))] objects))]
(if page-id (if page-id
(d/update-in-when data [:pages-index page-id :objects] delete-object) (d/update-in-when data [:pages-index page-id :objects] delete-object id)
(d/update-in-when data [:components component-id :objects] delete-object)))) (d/update-in-when data [:components component-id :objects] delete-object id))))
(defn rotation-modifiers (defn rotation-modifiers
[center shape angle] [center shape angle]