Pressing enter to exit the fields

This commit is contained in:
Alejandro Alonso 2022-01-14 11:12:41 +01:00 committed by Andrey Antukh
parent 03c91664cb
commit aa0e8ed8d6
2 changed files with 8 additions and 4 deletions

View file

@ -76,11 +76,13 @@
(fn [event]
(mf/set-ref-val! dirty-ref true)
(let [enter? (kbd/enter? event)
esc? (kbd/esc? event)]
esc? (kbd/esc? event)
input-node (mf/ref-val ref)]
(when enter?
(dom/prevent-default event)
(let [new-value (parse-value)]
(apply-value new-value)))
(apply-value new-value)
(dom/blur! input-node)))
(when esc?
(dom/prevent-default event)
(update-input value)))))

View file

@ -154,12 +154,14 @@
(let [up? (kbd/up-arrow? event)
down? (kbd/down-arrow? event)
enter? (kbd/enter? event)
esc? (kbd/esc? event)]
esc? (kbd/esc? event)
input-node (mf/ref-val ref)]
(when (or up? down?)
(set-delta event up? down?))
(when enter?
(let [new-value (parse-value)]
(apply-value new-value)))
(apply-value new-value)
(dom/blur! input-node)))
(when esc?
(update-input value-str)))))