🐛 Fix minor regression on paste shapes with fill-image

This commit is contained in:
Andrey Antukh 2025-06-25 09:40:17 +02:00
parent e1ce7ec787
commit 1a8a9df2b7

View File

@ -679,14 +679,8 @@
mobj (get media-idx id)]
(if mobj
(if (empty? attr-path)
(-> mdata
(assoc :id (:id mobj))
(assoc :path (:path mobj)))
(update-in mdata attr-path (fn [value]
(-> value
(assoc :id (:id mobj))
(assoc :path (:path mobj))))))
(assoc mdata :id (:id mobj))
(update-in mdata attr-path assoc :id (:id mobj)))
mdata)))
(add-obj? [chg]