3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-29 01:26:11 +02:00
Code Issues Projects Releases Packages Wiki Activity

📎 Add srepl fix function for disable fdata features

Browse source
This commit is contained in:
Andrey Antukh 2024-02-13 11:21:02 +01:00
parent e8a1c58c5d
commit 1cb6f43339
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -16,8 +16,26 @@
[app.common.logging :as l] [app.common.logging :as l]
[app.common.uuid :as uuid] [app.common.uuid :as uuid]
[app.db :as db] [app.db :as db]
[app.features.fdata :as feat.fdata]
[app.srepl.helpers :as h])) [app.srepl.helpers :as h]))
(defn disable-fdata-features
[{:keys [id features] :as file} _]
(when (or (contains? features "fdata/pointer-map")
(contains? features "fdata/objects-map"))
(l/warn :hint "disable fdata features" :file-id (str id))
(-> file
(update :data feat.fdata/process-pointers deref)
(update :data feat.fdata/process-objects (partial into {}))
(update :features disj "fdata/pointer-map" "fdata/objects-map"))))
(defn find-fdata-pointers
[{:keys [id features data] :as file} _]
(when (contains? features "fdata/pointer-map")
(let [pointers (feat.fdata/get-used-pointer-ids data)]
(l/warn :hint "found pointers" :file-id (str id) :pointers pointers)
nil)))
(defn repair-file-media (defn repair-file-media
"A helper intended to be used with `srepl.main/process-files!` that "A helper intended to be used with `srepl.main/process-files!` that
fixes all not propertly referenced file-media-object for a file" fixes all not propertly referenced file-media-object for a file"