emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

No NARF, only DOOM

Browse source
This commit is contained in:
Henrik Lissner 2016-05-20 22:37:30 -04:00
parent a984bf4f26
commit ad225d2591
104 changed files with 1404 additions and 1409 deletions
Download patch file Download diff file Expand all files Collapse all files

10
core/defuns/defuns-embrace.el
View file

@ -1,6 +1,6 @@
;;; defuns-embrace.el
(defun narf--embrace-get-pair (char)
(defun doom--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)
@ -11,23 +11,23 @@
(t `(,char . ,char))))
;;;###autoload
(defun narf/embrace-escaped ()
(defun doom/embrace-escaped ()
"Escaped surround characters."
(let ((char (read-char "\\")))
(if (eq char 27)
(cons "" "")
(let ((pair (narf--embrace-get-pair (string char)))
(let ((pair (doom--embrace-get-pair (string char)))
(text (if (sp-point-in-string) "\\\\%s" "\\%s")))
(cons (format text (car pair))
(format text (cdr pair)))))))
;;;###autoload
(defun narf/embrace-latex ()
(defun doom/embrace-latex ()
"LaTeX commands"
(cons (format "\\%s{" (read-string "\\")) "}"))
;;;###autoload
(defun narf/embrace-elisp-fn ()
(defun doom/embrace-elisp-fn ()
(cons (format "(%s " (or (read-string "(") "")) ")"))
(provide 'defuns-embrace)