Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-13 16:21:57 -05:00
Code Issues Activity

✨ Add protection to fix script

Browse source
This commit is contained in:
Andrés Moya 2023-09-29 13:29:21 +02:00
parent cc07c7a580
commit 1f04304210
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
backend/src/app/srepl/fixes.clj
View file

@ -364,8 +364,10 @@
fix-touched-children
(fn [shape]
(let [matches? (fn [[child-id ref-child-id]]
(let [child (ctn/get-shape page child-id)]
(= (:shape-ref child) ref-child-id)))
(if child-id
(let [child (ctn/get-shape page child-id)]
(= (:shape-ref child) ref-child-id))
false))
equal? (every? matches? (d/zip-all (:shapes shape) (:shapes ref-shape)))]
(when (and (not equal?) (not (cph/touched-group? shape :shapes-group)))
(println " -> set touched " (:name shape) (:id shape) :shapes :shapes-group))