Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 08:50:57 -05:00
Code Issues Activity

🔧 Adjust code style

Browse source
This commit is contained in:
Andrés Moya 2022-10-04 13:49:54 +02:00
parent c5b875c925
commit 687e4dce2a
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -43,10 +43,9 @@
(defmethod ig/init-key ::handler (defmethod ig/init-key ::handler
[_ {:keys [pool] :as cfg}] [_ {:keys [pool] :as cfg}]
(fn [params] (fn [{:keys [id] :as params}]
(db/with-atomic [conn pool] (db/with-atomic [conn pool]
(let [min-age (or (:min-age params) (:min-age cfg)) (let [min-age (or (:min-age params) (:min-age cfg))
id (:id params)
cfg (assoc cfg :min-age min-age :conn conn :id id)] cfg (assoc cfg :min-age min-age :conn conn :id id)]
(loop [total 0 (loop [total 0
files (retrieve-candidates cfg)] files (retrieve-candidates cfg)]
@ -185,7 +184,7 @@
(let [get-chunk (fn [cursor] (let [get-chunk (fn [cursor]
(let [rows (db/exec! conn [sql:retrieve-client-files library-id cursor])] (let [rows (db/exec! conn [sql:retrieve-client-files library-id cursor])]
[(some-> rows peek :modified-at) [(some-> rows peek :modified-at)
(map #(->> % :data blob/decode) rows)]))] (map (comp blob/decode :data) rows)]))]
(d/iteration get-chunk (d/iteration get-chunk
:vf second :vf second
@ -197,28 +196,30 @@
[conn library-id library-data] [conn library-id library-data]
(let [find-used-components-file (let [find-used-components-file
(fn [components file-data] (fn [components file-data]
; Find what of the components are used in the file. ; Find which of the components are used in the file.
(d/filterm #(ctf/used-in? file-data library-id (second %) :component) (into #{}
components)) (filter #(ctf/used-in? file-data library-id % :component))
components))
find-used-components find-used-components
(fn [components files-data] (fn [components files-data]
; Find what components are used in any of the files. ; Find what components are used in any of the files.
(loop [files-data files-data (loop [files-data files-data
components components components components
used-components {}] used-components #{}]
(let [file-data (first files-data)] (let [file-data (first files-data)]
(if (or (nil? file-data) (empty? components)) (if (or (nil? file-data) (empty? components))
used-components used-components
(let [used-components-file (find-used-components-file components file-data)] (let [used-components-file (find-used-components-file components file-data)]
(recur (rest files-data) (recur (rest files-data)
(d/filterm #(not (contains? used-components-file (:id %))) components) (into #{} (remove used-components-file) components)
(into used-components used-components-file))))))) (into used-components used-components-file)))))))
deleted-components (:deleted-components library-data) deleted-components (set (vals (:deleted-components library-data)))
saved-components (find-used-components deleted-components saved-components (find-used-components deleted-components
(cons library-data (cons library-data
(retrieve-client-files conn library-id))) (retrieve-client-files conn library-id)))
new-deleted-components (d/index-by :id (vec saved-components))
total (- (count deleted-components) total (- (count deleted-components)
(count saved-components))] (count saved-components))]
@ -226,7 +227,7 @@
(when-not (zero? total) (when-not (zero? total)
(l/debug :hint "clean deleted components" :total total) (l/debug :hint "clean deleted components" :total total)
(let [new-data (-> library-data (let [new-data (-> library-data
(assoc :deleted-components saved-components) (assoc :deleted-components new-deleted-components)
(blob/encode))] (blob/encode))]
(db/update! conn :file (db/update! conn :file
{:data new-data} {:data new-data}