Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-24 07:29:08 -05:00
Code Issues Activity

🐛 Remove empty text shapes on comp-v2 migration

Browse source
This commit is contained in:
Andrey Antukh 2024-01-25 18:05:57 +01:00
parent b1d33d4c15
commit 623b4a9858
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
backend/src/app/features/components_v2.clj
View file

@ -243,13 +243,20 @@
fix-completly-broken-shapes fix-completly-broken-shapes
(fn [file-data] (fn [file-data]
(letfn [(update-object [objects id shape] (letfn [(update-object [objects id shape]
(if (nil? (:type shape)) (cond
(nil? (:type shape))
(let [ids (cfh/get-children-ids objects id)] (let [ids (cfh/get-children-ids objects id)]
(-> objects (-> objects
(dissoc id) (dissoc id)
(as-> $ (reduce dissoc $ ids)) (as-> $ (reduce dissoc $ ids))
(d/update-in-when [(:parent-id shape) :shapes] (d/update-in-when [(:parent-id shape) :shapes]
(fn [shapes] (filterv #(not= id %) shapes))))) (fn [shapes] (filterv #(not= id %) shapes)))))
(and (cfh/text-shape? shape)
(not (seq (:content shape))))
(dissoc objects id)
:else
objects)) objects))
(update-container [container] (update-container [container]