next: Use str instead of cl-strings.
parent
69f6f19afc
commit
aa7beb040d
|
@ -50,11 +50,11 @@
|
||||||
|
|
||||||
(defun eval-in-emacs (&rest s-exps)
|
(defun eval-in-emacs (&rest s-exps)
|
||||||
"Evaluate S-exps with `emacsclient'."
|
"Evaluate S-exps with `emacsclient'."
|
||||||
(let ((s-exps-string (cl-strings:replace-all
|
(let ((s-exps-string (str:replace-all
|
||||||
(write-to-string
|
|
||||||
`(progn ,@s-exps) :case :downcase)
|
|
||||||
;; Discard the package prefix.
|
;; Discard the package prefix.
|
||||||
"next::" "")))
|
"next::" ""
|
||||||
|
(write-to-string
|
||||||
|
`(progn ,@s-exps) :case :downcase))))
|
||||||
(log:debug "Sending to Emacs: ~a" s-exps-string)
|
(log:debug "Sending to Emacs: ~a" s-exps-string)
|
||||||
(ignore-errors (uiop:run-program
|
(ignore-errors (uiop:run-program
|
||||||
(list "emacsclient" "--eval" s-exps-string)))))
|
(list "emacsclient" "--eval" s-exps-string)))))
|
||||||
|
|
Loading…
Reference in New Issue