From c0e7bfae007d00179e9fe92d897ead97f0a6381a Mon Sep 17 00:00:00 2001 From: Alonso Torres Date: Thu, 21 May 2026 11:02:47 +0200 Subject: [PATCH] :bug: Fix problem with shift and alt in numeric inputs --- .../src/app/main/ui/ds/controls/numeric_input.cljs | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/frontend/src/app/main/ui/ds/controls/numeric_input.cljs b/frontend/src/app/main/ui/ds/controls/numeric_input.cljs index aed2b769d4..464fb2edf4 100644 --- a/frontend/src/app/main/ui/ds/controls/numeric_input.cljs +++ b/frontend/src/app/main/ui/ds/controls/numeric_input.cljs @@ -470,7 +470,11 @@ (let [parsed (parse-value (str/trim (mf/ref-val raw-value*)) (mf/ref-val last-value*) min max nillable) current-value (or parsed default) - new-val (increment current-value step min max)] + eff-step (cond + (kbd/shift? event) (* step 10) + (kbd/alt? event) (* step 0.1) + :else step) + new-val (increment current-value eff-step min max)] (dom/prevent-default event) (update-input (fmt/format-number new-val)) (apply-value (dm/str new-val)))) @@ -483,7 +487,11 @@ (let [parsed (parse-value (str/trim (mf/ref-val raw-value*)) (mf/ref-val last-value*) min max nillable) current-value (or parsed default) - new-val (decrement current-value step min max)] + eff-step (cond + (kbd/shift? event) (* step 10) + (kbd/alt? event) (* step 0.1) + :else step) + new-val (decrement current-value eff-step min max)] (dom/prevent-default event) (update-input (fmt/format-number new-val)) (apply-value (dm/str new-val))))))))