From 35a467232935a3133dd73595a1080fda1e4074cd Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Tue, 14 Oct 2025 16:48:18 +0200 Subject: [PATCH] :sparkles: Add mark-file-as-trimmed srepl helper --- backend/src/app/srepl/main.clj | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/backend/src/app/srepl/main.clj b/backend/src/app/srepl/main.clj index c7cdbafe59..b57ed21226 100644 --- a/backend/src/app/srepl/main.clj +++ b/backend/src/app/srepl/main.clj @@ -531,6 +531,18 @@ (assoc :max-jobs 1) (process!)))) + +(defn mark-file-as-trimmed + [id] + (let [id (h/parse-uuid id)] + (db/tx-run! main/system (fn [cfg] + (-> (db/update! cfg :file + {:has-media-trimmed true} + {:id id} + {::db/return-keys false}) + (db/get-update-count) + (pos?)))))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; DELETE/RESTORE OBJECTS (WITH CASCADE, SOFT) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;