enhance: ignore iscomposing event on keyup

pull/3475/head^2
Tienson Qin 2021-12-15 12:07:12 +08:00
parent 7238709d32
commit 6b3102d349
2 changed files with 12 additions and 8 deletions

View File

@ -2786,13 +2786,11 @@
value (gobj/get input "value")
ctrlKey (gobj/get e "ctrlKey")
metaKey (gobj/get e "metaKey")
is-composing? (gobj/getValueByKeys e "event_" "isComposing")
pos (cursor/pos input)
shift? (.-shiftKey e)
code (gobj/getValueByKeys e "event_" "code")]
(cond
(and (or is-composing? (= key-code 229))
(not (state/get-editor-show-page-search-hashtag?)))
(util/event-is-composing? e)
nil
(or ctrlKey metaKey)
@ -2869,12 +2867,12 @@
:else
nil))))
;; key up
(defn keyup-handler
[state input input-id search-timeout]
(fn [e key-code]
(let [k (gobj/get e "key")]
(let [code (gobj/getValueByKeys e "event_" "code")
(when-not (util/event-is-composing? e)
(let [k (gobj/get e "key")
code (gobj/getValueByKeys e "event_" "code")
format (:format (get-state))
current-pos (cursor/pos input)
value (gobj/get input "value")

View File

@ -1490,3 +1490,9 @@
(defn sm-breakpoint?
[]
(< (.-offsetWidth js/document.documentElement) 640)))
#?(:cljs
(defn event-is-composing?
[e]
(or (gobj/getValueByKeys e "event_" "isComposing")
(= (.-keyCode e) 229))))