3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-20 22:57:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add file cleaner to file-gc process

Browse source
This commit is contained in:
Andrey Antukh 2025-04-23 10:06:53 +02:00
parent fef19a3c80
commit 694a2084e2
2 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
backend/src/app/binfile/cleaner.clj
View file

@ -90,13 +90,18 @@
(fix-root-shape)
(fix-legacy-flex-dir)))
(defn- fix-container
[container]
(-> container
;; Remove possible `nil` keys on objects
(d/update-when :objects dissoc nil)
(d/update-when :objects d/update-vals clean-shape-post-decode)))
(defn clean-file
[file & {:as _opts}]
(let [update-container
(fn [container]
(d/update-when container :objects d/update-vals clean-shape-post-decode))]
(update file :data
(fn [data]
(-> data
(update :pages-index d/update-vals update-container)
(update :components d/update-vals update-container))))))
(update file :data
(fn [data]
(-> data
(d/update-when :pages-index d/update-vals fix-container)
(d/update-when :components d/update-vals fix-container)
(d/without-nils)))))

2
backend/src/app/tasks/file_gc.clj
View file

@ -10,6 +10,7 @@
file is eligible to be garbage collected after some period of
inactivity (the default threshold is 72h)."
(:require
[app.binfile.cleaner :as bfl]
[app.binfile.common :as bfc]
[app.common.files.helpers :as cfh]
[app.common.files.validate :as cfv]
@ -258,6 +259,7 @@
(if-let [file (get-file cfg file-id)]
(let [file (->> file
(bfc/decode-file cfg)
(bfl/clean-file)
(clean-media! cfg)
(clean-fragments! cfg))
file (assoc file :has-media-trimmed true)]