3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-19 20:56:11 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Add soft size limit for file names

Browse source
This commit is contained in:
Andrey Antukh 2024-02-20 16:54:40 +01:00
parent 3994bf583c
commit 72f7e5bb76
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
frontend/src/app/main/data/workspace.cljs
View file

@ -593,20 +593,21 @@
(defn rename-file (defn rename-file
[id name] [id name]
{:pre [(uuid? id) (string? name)]} {:pre [(uuid? id) (string? name)]}
(ptk/reify ::rename-file (let [name (str/prune name 200)]
IDeref (ptk/reify ::rename-file
(-deref [_] IDeref
{::ev/origin "workspace" :id id :name name}) (-deref [_]
{::ev/origin "workspace" :id id :name name})
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
(assoc-in state [:workspace-file :name] name)) (assoc-in state [:workspace-file :name] name))
ptk/WatchEvent ptk/WatchEvent
(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