3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-07 03:51:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

Disable on value error

Browse source
This commit is contained in:
Florian Schroedl 2024-06-21 17:19:59 +02:00
parent 910485008f
commit 598e4d36fc
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
frontend/src/app/main/ui/workspace/tokens/form.cljs
View file

@ -94,7 +94,14 @@
(= token-or-err :error/token-missing-reference) :error/token-missing-reference (= token-or-err :error/token-missing-reference) :error/token-missing-reference
(:resolved-value token-or-err) (:resolved-value token-or-err))] (:resolved-value token-or-err) (:resolved-value token-or-err))]
(reset! token-resolve-result value)))) (reset! token-resolve-result value))))
on-update-value (sd/use-debonced-resolve-callback name token tokens set-resolve-value)] on-update-value (sd/use-debonced-resolve-callback name token tokens set-resolve-value)
value-error? (when (keyword? @token-resolve-result)
(= (namespace @token-resolve-result) "error"))
disabled? (or
@name-errors
value-error?
(empty? (finalize-name (mf/ref-val name))))]
;; on-submit (fn [e] ;; on-submit (fn [e]
;; (dom/prevent-default e) ;; (dom/prevent-default e)
@ -125,8 +132,7 @@
:on-change on-update-value}}] :on-change on-update-value}}]
[:div {:class (stl/css-case :resolved-value true [:div {:class (stl/css-case :resolved-value true
:resolved-value-placeholder (nil? @token-resolve-result) :resolved-value-placeholder (nil? @token-resolve-result)
:resolved-value-error (when (keyword? @token-resolve-result) :resolved-value-error value-error?)}
(= (namespace @token-resolve-result) "error")))}
(case @token-resolve-result (case @token-resolve-result
:error/token-self-reference "Token has self reference" :error/token-self-reference "Token has self reference"
:error/token-missing-reference "Token has missing reference" :error/token-missing-reference "Token has missing reference"