From 598e4d36fc337235c38e5b0ad0662f15dbebe9a3 Mon Sep 17 00:00:00 2001 From: Florian Schroedl Date: Fri, 21 Jun 2024 17:19:59 +0200 Subject: [PATCH] Disable on value error --- frontend/src/app/main/ui/workspace/tokens/form.cljs | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/frontend/src/app/main/ui/workspace/tokens/form.cljs b/frontend/src/app/main/ui/workspace/tokens/form.cljs index ffe3dbaa07..cc3e3f3a3d 100644 --- a/frontend/src/app/main/ui/workspace/tokens/form.cljs +++ b/frontend/src/app/main/ui/workspace/tokens/form.cljs @@ -94,7 +94,14 @@ (= token-or-err :error/token-missing-reference) :error/token-missing-reference (:resolved-value token-or-err) (:resolved-value token-or-err))] (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] ;; (dom/prevent-default e) @@ -125,8 +132,7 @@ :on-change on-update-value}}] [:div {:class (stl/css-case :resolved-value true :resolved-value-placeholder (nil? @token-resolve-result) - :resolved-value-error (when (keyword? @token-resolve-result) - (= (namespace @token-resolve-result) "error")))} + :resolved-value-error value-error?)} (case @token-resolve-result :error/token-self-reference "Token has self reference" :error/token-missing-reference "Token has missing reference"