From 17376dfa3f365e4588a89282af85b6554c484e43 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
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 | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/backend/src/app/srepl/main.clj b/backend/src/app/srepl/main.clj
index 5d43d1dd11..69d6008021 100644
--- a/backend/src/app/srepl/main.clj
+++ b/backend/src/app/srepl/main.clj
@@ -549,6 +549,17 @@
                  :elapsed elapsed))))))
 
 
+(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)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;