diff --git a/backend/src/app/features/fdata.clj b/backend/src/app/features/fdata.clj index 43cf612068..50ebb10b57 100644 --- a/backend/src/app/features/fdata.clj +++ b/backend/src/app/features/fdata.clj @@ -49,6 +49,20 @@ (update :data update-data) (update :features conj "fdata/objects-map")))) +(defn disable-objects-map + [file & _opts] + (let [update-page + (fn [page] + (update page :objects #(into {} %))) + + update-data + (fn [fdata] + (update fdata :pages-index d/update-vals update-page))] + + (-> file + (update :data update-data) + (update :features disj "fdata/objects-map")))) + (defn process-objects "Apply a function to all objects-map on the file. Usualy used for convert the objects-map instances to plain maps"