🐛 Add soft size limit for file names

This commit is contained in:
Andrey Antukh 2024-02-20 16:54:40 +01:00
parent 3994bf583c
commit 72f7e5bb76

View file

@ -593,6 +593,7 @@
(defn rename-file (defn rename-file
[id name] [id name]
{:pre [(uuid? id) (string? name)]} {:pre [(uuid? id) (string? name)]}
(let [name (str/prune name 200)]
(ptk/reify ::rename-file (ptk/reify ::rename-file
IDeref IDeref
(-deref [_] (-deref [_]
@ -606,7 +607,7 @@
(watch [_ _ _] (watch [_ _ _]
(let [params {:id id :name name}] (let [params {:id id :name name}]
(->> (rp/cmd! :rename-file params) (->> (rp/cmd! :rename-file params)
(rx/ignore)))))) (rx/ignore)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Workspace State Manipulation ;; Workspace State Manipulation