Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-09 16:30:37 -05:00
Code Issues Activity

✨ Improve migration 14

Browse source 
Remove frame thumbnail if the migration modifies a shape.
This commit is contained in:
Andrey Antukh 2022-03-30 14:38:36 +02:00
parent f0d956f71c
commit 4c6433b0f1
1 changed files with 21 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
common/src/app/common/pages/migrations.cljc
View file

@ -304,19 +304,28 @@
(defmethod migrate 14
[data]
(letfn [(update-object [_ {:keys [type] :as object}]
(if (= :image type)
(let [fill-color (str/upper (:fill-color object))
fill-opacity (:fill-opacity object)]
(cond-> object
(and (= 1 fill-opacity)
(or (= "#B1B2B5" fill-color)
(= "#7B7D85" fill-color)))
(dissoc :fill-color :fill-opacity)))
object))
(letfn [(process-shape [shape]
(let [fill-color (str/upper (:fill-color shape))
fill-opacity (:fill-opacity shape)]
(cond-> shape
(and (= 1 fill-opacity)
(or (= "#B1B2B5" fill-color)
(= "#7B7D85" fill-color)))
(dissoc :fill-color :fill-opacity))))
(update-container [_ container]
(update container :objects #(d/mapm update-object %)))]
(update-container [_ {:keys [objects] :as container}]
(loop [objects objects
shapes (->> (vals objects)
(filter #(= :image (:type %))))]
(if-let [shape (first shapes)]
(let [{:keys [id frame-id] :as shape'} (process-shape shape)]
(if (identical? shape shape')
(recur objects (rest shapes))
(recur (-> objects
(assoc id shape')
(d/update-when frame-id dissoc :thumbnail))
(rest shapes))))
(assoc container :objects objects))))]
(-> data
(update :pages-index #(d/mapm update-container %))