33 lines
1.1 KiB
EmacsLisp
33 lines
1.1 KiB
EmacsLisp
;;; defuns-embrace.el
|
|
|
|
(defun narf--embrace-get-pair (char)
|
|
(acond ((cdr-safe (assoc (string-to-char char) evil-surround-pairs-alist))
|
|
`(,(car it) . ,(cdr it)))
|
|
((assoc-default char embrace--pairs-list)
|
|
(if (functionp (embrace-pair-struct-read-function it))
|
|
(let ((pair (funcall (embrace-pair-struct-read-function it))))
|
|
`(,(car pair) . ,(cdr pair)))
|
|
`(,(embrace-pair-struct-left it) . ,(embrace-pair-struct-right it))))
|
|
(t `(,char . ,char))))
|
|
|
|
;;;###autoload
|
|
(defun narf/embrace-escaped ()
|
|
"Escaped surround characters."
|
|
(let* ((char (string (read-char "\\")))
|
|
(pair (narf--embrace-get-pair char))
|
|
(text (if (sp-point-in-string) "\\\\%s" "\\%s")))
|
|
(cons (format text (car pair))
|
|
(format text (cdr pair)))))
|
|
|
|
;;;###autoload
|
|
(defun narf/embrace-latex ()
|
|
"LaTeX commands"
|
|
(cons (format "\\%s{" (read-string "\\")) "}"))
|
|
|
|
;;;###autoload
|
|
(defun narf/embrace-elisp-fn ()
|
|
(cons (format "(%s " (or (read-string "(") "")) ")"))
|
|
|
|
(provide 'defuns-embrace)
|
|
;;; defuns-embrace.el ends here
|