awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(evil): embrace: escaped pairs in first org buffer

Browse Source 
Close: #5423
This commit is contained in:
Henrik Lissner
2023-03-22 01:13:56 -04:00
parent 0eff40c552
commit cb6b065b87
1 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
modules/editor/evil/config.el
View File

@ -281,6 +281,16 @@ directives. By default, this only recognizes C directives.")
:init
(after! evil-surround
(evil-embrace-enable-evil-surround-integration))
;; HACK: This must be done ASAP, before embrace has a chance to
;; buffer-localize `embrace--pairs-list' (which happens right after it calls
;; `embrace--setup-defaults'), otherwise any new, global default pairs we
;; define won't be in scope.
(defadvice! +evil--embrace-init-escaped-pairs-a (&rest args)
"Add escaped-sequence support to embrace."
:after #'embrace--setup-defaults
(embrace-add-pair-regexp ?\\ "\\[[{(]" "\\[]})]" #'+evil--embrace-escaped
(embrace-build-help "\\?" "\\?")))
:config
(setq evil-embrace-show-help-p nil)
@ -317,15 +327,7 @@ directives. By default, this only recognizes C directives.")
(set var (delq ?< evil-embrace-evil-surround-keys))
(set var (delq ?> evil-embrace-evil-surround-keys)))
(embrace-add-pair-regexp ?< "\\_<[a-z0-9-_]+<" ">" #'+evil--embrace-angle-brackets)
(embrace-add-pair ?> "<" ">"))
;; Add escaped-sequence support to embrace
(setf (alist-get ?\\ (default-value 'embrace--pairs-list))
(make-embrace-pair-struct
:key ?\\
:read-function #'+evil--embrace-escaped
:left-regexp "\\[[{(]"
:right-regexp "\\[]})]")))
(embrace-add-pair ?> "<" ">")))
(use-package! evil-escape