alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

mu4e-mu-scm-repl: keep same repl by default

Browse Source 
Add prefix argument, and unless set, switch to existing repl.
This commit is contained in:
Dirk-Jan C. Binnema
2025-09-04 08:43:08 +03:00
committed by Seth Ladygo
parent 461e4f83fe
commit 2630832b19
1 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
mu4e/mu4e-server.el
View File

@ -109,8 +109,15 @@ server is started."
:group 'mu4e :group 'mu4e
:safe 'booleanp) :safe 'booleanp)
(defun mu4e-mu-scm-repl () (defconst mu4e-mu-scm-repl-buffer-name
"Start a mu-scm REPL using geiser. "*mu4e-mu-scm-repl*"
"Name for the mu-scm REPL buffer.")
(defun mu4e-mu-scm-repl (new-repl)
"Start a mu-scm REPL using geiser, and switch to it.
If NEW-REPL is non-nil or no REPL buffer exists yet,
start a new one. Otherwise, use the (first) existing one.
See `mu4e-mu-scm-server' to enable this; and requires the See `mu4e-mu-scm-server' to enable this; and requires the
`geiser-guile' package. `geiser-guile' package.
@ -119,14 +126,20 @@ The REPL uses the same server instance that mu4e uses.
Note: this REPL is not to be confused with the mu REPL as per Note: this REPL is not to be confused with the mu REPL as per
`mu4e-server-repl'." `mu4e-server-repl'."
(interactive) (interactive "P")
(unless (require 'geiser-guile nil 'noerror) (unless (require 'geiser-guile nil 'noerror)
(mu4e-error "geiser-guile not found; please install")) (mu4e-error "geiser-guile not found; please install"))
(let ((sock (plist-get (mu4e-server-properties) :scm-socket-path))) (let ((sock (plist-get (mu4e-server-properties) :scm-socket-path))
(geiser-repl-buffer-name-function
(lambda (_)
mu4e-mu-scm-repl-buffer-name)))
(unless sock (unless sock
(mu4e-error "socket-path unavailable")) (mu4e-error "socket-path unavailable"))
(when (fboundp 'geiser-connect-local) (when (fboundp 'geiser-connect-local)
(geiser-connect-local 'guile sock)))) (if (and (buffer-live-p (get-buffer mu4e-mu-scm-repl-buffer-name))
(not new-repl))
(switch-to-buffer mu4e-mu-scm-repl-buffer-name)
(geiser-connect-local 'guile sock)))))
;; Cached data ;; Cached data
(defvar mu4e-maildir-list) (defvar mu4e-maildir-list)