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

Add more autopairs

pull/645/head
Tienson Qin 2020-06-03 14:18:29 +08:00
parent 1783fc3368
commit eea7d02ae9
1 changed files with 29 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60,7 +60,14 @@
(def autopair-map
{"[" "]"
"{" "}"
"(" ")"})
"(" ")"
"$" "$" ; math
"`" "`"
"~" "~"
"/" "/"
"*" "*"
"_" "_"
"^" "^"})
(def reversed-autopair-map
(zipmap (vals autopair-map)
@ -585,30 +592,30 @@
(when-not (state/get-editor-show-input)
(util/stop e)
(adjust-heading-level! state nil)))
;; autopairs
;; [ && { (shift+219)
219 (fn [state e]
(util/stop e)
(autopair input-id (gobj/get e "key") format nil))
;; (
57 (fn [state e]
(util/stop e)
(autopair input-id "(" format nil))
}
(fn [e key-code]
(let [key (gobj/get e "key")]
(when (and
(contains? (set (keys reversed-autopair-map)) key)
(or
(=
(get-previous-input-char input)
(get reversed-autopair-map key))
(=
(get-previous-input-char input)
key)))
(util/stop e)
(util/cursor-move-forward input 1)))
(cond
(contains? (set (keys autopair-map)) key)
(do
(util/stop e)
(autopair input-id key format nil))
(and
(contains? (set (keys reversed-autopair-map)) key)
(or
(=
(get-previous-input-char input)
(get reversed-autopair-map key))
(=
(get-previous-input-char input)
key)))
(do
(util/stop e)
(util/cursor-move-forward input 1))
:else
nil))
;; (swap! state/state assoc
;; :editor/last-saved-cursor nil)
))