From 72f7e5bb76dedd56943d951ffdcd604eb73de872 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Tue, 20 Feb 2024 16:54:40 +0100
Subject: [PATCH] :bug: Add soft size limit for file names

---
 frontend/src/app/main/data/workspace.cljs | 25 ++++++++++++-----------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/frontend/src/app/main/data/workspace.cljs b/frontend/src/app/main/data/workspace.cljs
index 0249bf2ca..380efb492 100644
--- a/frontend/src/app/main/data/workspace.cljs
+++ b/frontend/src/app/main/data/workspace.cljs
@@ -593,20 +593,21 @@
 (defn rename-file
   [id name]
   {:pre [(uuid? id) (string? name)]}
-  (ptk/reify ::rename-file
-    IDeref
-    (-deref [_]
-      {::ev/origin "workspace" :id id :name name})
+  (let [name (str/prune name 200)]
+    (ptk/reify ::rename-file
+      IDeref
+      (-deref [_]
+        {::ev/origin "workspace" :id id :name name})
 
-    ptk/UpdateEvent
-    (update [_ state]
-      (assoc-in state [:workspace-file :name] name))
+      ptk/UpdateEvent
+      (update [_ state]
+        (assoc-in state [:workspace-file :name] name))
 
-    ptk/WatchEvent
-    (watch [_ _ _]
-      (let [params {:id id :name name}]
-        (->> (rp/cmd! :rename-file params)
-             (rx/ignore))))))
+      ptk/WatchEvent
+      (watch [_ _ _]
+        (let [params {:id id :name name}]
+          (->> (rp/cmd! :rename-file params)
+               (rx/ignore)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Workspace State Manipulation