0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-01 11:59:17 -05:00

Fix name not updating button

This commit is contained in:
Florian Schroedl 2024-06-21 17:19:13 +02:00
parent 39eb964cb7
commit 910485008f

View file

@ -7,6 +7,7 @@
(ns app.main.ui.workspace.tokens.form (ns app.main.ui.workspace.tokens.form
(:require-macros [app.main.style :as stl]) (:require-macros [app.main.style :as stl])
(:require (:require
["lodash.debounce" :as debounce]
[app.main.ui.workspace.tokens.common :as tokens.common] [app.main.ui.workspace.tokens.common :as tokens.common]
[app.main.ui.workspace.tokens.style-dictionary :as sd] [app.main.ui.workspace.tokens.style-dictionary :as sd]
[app.util.dom :as dom] [app.util.dom :as dom]
@ -64,21 +65,24 @@
state @state* state @state*
_ (js/console.log "render") _ (js/console.log "render")
form-touched (mf/use-state nil)
update-form-touched (mf/use-callback
(debounce #(reset! form-touched (js/Symbol)) 120))
;; Name ;; Name
name (mf/use-var (or (:name token) "")) name (mf/use-var (or (:name token) ""))
name-errors (mf/use-state nil) name-errors (mf/use-state nil)
name-schema (mf/use-memo name-schema (mf/use-memo
(mf/deps existing-token-names) (mf/deps existing-token-names)
#(token-name-schema existing-token-names)) #(token-name-schema existing-token-names))
on-update-name (fn [e] on-update-name (mf/use-callback
(let [value (dom/get-target-val e) (debounce (fn [e]
errors (->> (finalize-name value) (let [value (dom/get-target-val e)
(m/explain name-schema))] errors (->> (finalize-name value)
(reset! name value) (m/explain name-schema))]
(reset! name-errors errors))) (mf/set-ref-val! name value)
disabled? (or (reset! name-errors errors)
@name-errors (update-form-touched)))))
(empty? (finalize-name (:name state))))
;; Value ;; Value
value (mf/use-var (or (:value token) "")) value (mf/use-var (or (:value token) ""))