e43d575caf
Toward our eventual goal of moving smartparens out of core, I've adapted this from code provided by hpfr on Discord, which was adapted from smartparen's syntax-ppss caching logic. `:config default` will need need some attention before we can fully move smartparens to its own `:editor smartparens` module. Co-authored-by: hpfr <hpfr@users.noreply.github.com>
40 lines
1.5 KiB
EmacsLisp
40 lines
1.5 KiB
EmacsLisp
;;; editor/evil/autoload/embrace.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun +evil--embrace-get-pair (char)
|
|
(if-let* ((pair (cdr-safe (assoc (string-to-char char) evil-surround-pairs-alist))))
|
|
pair
|
|
(if-let* ((pair (assoc-default char embrace--pairs-list)))
|
|
(if-let* ((real-pair (and (functionp (embrace-pair-struct-read-function pair))
|
|
(funcall (embrace-pair-struct-read-function pair)))))
|
|
real-pair
|
|
(cons (embrace-pair-struct-left pair) (embrace-pair-struct-right pair)))
|
|
(cons char char))))
|
|
|
|
;;;###autoload
|
|
(defun +evil--embrace-escaped ()
|
|
"Backslash-escaped surround character support for embrace."
|
|
(let ((char (read-char "\\")))
|
|
(if (eq char 27)
|
|
(cons "" "")
|
|
(let* ((pair (+evil--embrace-get-pair (string char)))
|
|
(escape (if (doom-point-in-string-p) "\\\\" "\\"))
|
|
(escape (format "\\1%s" (regexp-quote escape))))
|
|
(cons (replace-regexp-in-string "^\\( *\\)" escape (car pair))
|
|
(replace-regexp-in-string "^\\( *\\)" escape (cdr pair)))))))
|
|
|
|
;;;###autoload
|
|
(defun +evil--embrace-latex ()
|
|
"LaTeX command support for embrace."
|
|
(cons (format "\\%s{" (read-string "\\")) "}"))
|
|
|
|
;;;###autoload
|
|
(defun +evil--embrace-elisp-fn ()
|
|
"Elisp function support for embrace."
|
|
(cons (format "(%s " (or (read-string "(") "")) ")"))
|
|
|
|
;;;###autoload
|
|
(defun +evil--embrace-angle-brackets ()
|
|
"Type/generic angle brackets."
|
|
(cons (format "%s<" (or (read-string "") ""))
|
|
">"))
|