3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-24 21:07:22 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix added children detection in fix-touched script

Browse source
This commit is contained in:
Andrés Moya 2023-09-22 10:51:01 +02:00 • committed by Andrey Antukh
parent e9bd769823
commit de8758c4ca
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -366,8 +366,8 @@
(let [matches? (fn [[child-id ref-child-id]]
(let [child (ctn/get-shape page child-id)]
(= (:shape-ref child) ref-child-id)))
equal? (every? matches? (d/zip (:shapes shape) (:shapes ref-shape)))]
(when (and (not equal?) (not (cph/touched-group? shape :shapes)))
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))
(cond-> shape
(and (not equal?) (not (cph/touched-group? shape :shapes-group)))