From e8398a8ad9ba267bbe28f2ba13914bcd1dbc150e Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 14 Mar 2009 12:42:09 +0100 Subject: Show implementation in geiser-mode's modeline. --- elisp/geiser-repl.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index c362787..62fbcdf 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -103,10 +103,14 @@ REPL buffer." (with-current-buffer repl (add-to-list 'act geiser-impl--implementation))))) +(defsubst geiser-repl--repl-name (impl) + (format "%s REPL" (geiser-impl--impl-str impl))) + (defun geiser-repl--to-repl-buffer (impl) (unless (and (eq major-mode 'geiser-repl-mode) (not (get-buffer-process (current-buffer)))) - (pop-to-buffer (generate-new-buffer (format "*Geiser REPL (%s)*" impl)))) + (pop-to-buffer + (generate-new-buffer (format "* %s *" (geiser-repl--repl-name impl))))) (geiser-impl--set-buffer-implementation impl) (geiser-repl-mode)) @@ -116,7 +120,7 @@ REPL buffer." (let ((binary (geiser-impl--binary impl)) (args (geiser-impl--parameters impl)) (prompt-rx (geiser-impl--prompt-regexp impl)) - (cname (format "Geiser REPL (%s)" impl))) + (cname (geiser-repl--repl-name impl))) (unless (and binary prompt-rx) (error "Sorry, I don't know how to start a REPL for %s" impl)) (set (make-local-variable 'comint-prompt-regexp) prompt-rx) -- cgit v1.2.3