Next: Fix EVAL-IN-EMACS casing
parent
0580104fdb
commit
8443dbd8e9
|
@ -14,11 +14,14 @@
|
||||||
|
|
||||||
(defun eval-in-emacs (&rest s-exps)
|
(defun eval-in-emacs (&rest s-exps)
|
||||||
"Evaluate S-EXPS with emacsclient."
|
"Evaluate S-EXPS with emacsclient."
|
||||||
(uiop:run-program
|
(let ((s-exps-string (cl-strings:replace-all
|
||||||
(list "emacsclient" "--eval"
|
(write-to-string
|
||||||
;; Discard the package prefix.
|
`(progn ,@s-exps) :case :downcase)
|
||||||
(ppcre:regex-replace-all
|
;; Discard the package prefix.
|
||||||
"next::" (prin1-to-string `(progn ,@s-exps)) ""))))
|
"next::" "")))
|
||||||
|
(format *error-output* "Sending to Emacs:~%~a~%" s-exps-string)
|
||||||
|
(uiop:run-program
|
||||||
|
(list "emacsclient" "--eval" s-exps-string))))
|
||||||
|
|
||||||
(define-command org-capture ()
|
(define-command org-capture ()
|
||||||
"Org-capture current page."
|
"Org-capture current page."
|
||||||
|
|
Loading…
Reference in New Issue