summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-14 12:42:09 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-14 12:42:09 +0100
commit660fc8e0465e48812fc6f38f82d91d22b0664118 (patch)
tree74a7cb882cf4d2b5ed13dd35a553202c5136ba1a /elisp/geiser-repl.el
parent137d2e0db5efe444f6f208aba8ebd57584f1ee52 (diff)
downloadgeiser-chez-660fc8e0465e48812fc6f38f82d91d22b0664118.tar.gz
geiser-chez-660fc8e0465e48812fc6f38f82d91d22b0664118.tar.bz2
Show implementation in geiser-mode's modeline.
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el8
1 files changed, 6 insertions, 2 deletions
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)