summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-repl.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 469c0f5..26f4168 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -343,7 +343,13 @@ will be set up using `geiser-connect-local' when a REPL is started.")
(defun geiser-repl-buffer-name (impl)
"Return default name of the REPL buffer for implementation IMPL."
- (format "*Geiser %s*" (geiser-repl--repl-name impl)))
+ (let ((repl-name (geiser-repl--repl-name impl))
+ (current-project (funcall geiser-repl-current-project-function)))
+ (if (and geiser-repl-per-project-p current-project)
+ (let ((project-name (file-name-nondirectory
+ (directory-file-name current-project))))
+ (format "*Geiser %s: %s*" repl-name project-name))
+ (format "*Geiser %s*" repl-name))))
(defun geiser-repl--switch-to-buffer (buffer)
(unless (eq buffer (current-buffer))