greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix issue of autopairs

pull/645/head
Tienson Qin 2020-06-03 14:50:57 +08:00
parent 46637fb988
commit 4ca0e6f30a
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
web/src/main/frontend/components/editor.cljs
View File

@ -181,6 +181,14 @@
(>= pos 1))
(nth value (- pos 1))))))
(defn get-previous-input-chars
[input length]
(when-let [pos (:pos (util/get-caret-pos input))]
(let [value (gobj/get input "value")]
(when (and (>= (count value) pos)
(>= pos 1))
(subs value (- pos length) pos)))))
(defn get-current-input-char
[input]
(when-let [pos (:pos (util/get-caret-pos input))]
@ -603,6 +611,11 @@
(fn [e key-code]
(let [key (gobj/get e "key")]
(cond
(and
(contains? (set (keys reversed-autopair-map)) key)
(= (get-previous-input-chars input 2) (str key key)))
nil
(and
(contains? (set (keys reversed-autopair-map)) key)
(or