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:
parent
39eb964cb7
commit
910485008f
1 changed files with 13 additions and 9 deletions
|
@ -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) ""))
|
||||||
|
|
Loading…
Add table
Reference in a new issue