mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

ambrevar/emacs: Remove CL package prefix from transmitted symbols.

master
Pierre Neidhardt 2021-01-14 20:33:42 +01:00
parent 37c28b3ec7
commit 2d4ba191e3
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
.local/share/common-lisp/source/ambrevar/emacs.lisp
View File

@ -16,16 +16,18 @@ Example:
(with-emacs-eval
(switch-to-buffer (get-buffer-create \"foobar\"))
(insert \"Hello\"))"
`(cmd:cmd "emacsclient" "-e"
(let ((*print-case* :downcase))
(format nil "'~s'" '(progn ,@body)))))
`(let ((*package* (find-package :ambrevar/emacs)))
(cmd:cmd "emacsclient" "-e"
(let ((*print-case* :downcase))
(format nil "'~s'" '(progn ,@body))))))
(defun %emacs-eval (caller &rest s-exp)
"See `emacs-eval'."
(funcall caller "emacsclient" "-e"
(let ((*print-case* :downcase))
(format nil "'~s'" `(progn
,@s-exp)))))
(let ((*package* (find-package :ambrevar/emacs)))
(funcall caller "emacsclient" "-e"
(let ((*print-case* :downcase))
(format nil "'~s'" `(progn
,@s-exp))))))
(export-always 'emacs-eval)
(defun emacs-eval (&rest s-exp)
@ -55,8 +57,8 @@ Example:
This means string double quotes are included.
See `princ-emacs-buffer'."
(emacs-eval
`(with-current-buffer (get-buffer-create ,buffer-or-name)
(insert ,(write-to-string thing)))))
`(with-current-buffer (get-buffer-create ,buffer-or-name)
(insert ,(write-to-string thing)))))
(export-always 'princ-emacs-buffer)
(defun princ-emacs-buffer (buffer-or-name thing)