3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-12 18:36:37 +02:00
Code Issues Projects Releases Packages Wiki 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
Download patch file Download diff file Expand all files Collapse all files

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

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