[nongnu] elpa/geiser 47b3783671 1/2: Improve default names for per-project REPLs.

[ELPA Syncer]

branch: elpa/geiser
commit 47b378367169c3de160600e28ab08820a6d4b49f
Author: David Thompson <dthompson@vistahigherlearning.com>
Commit: David Thompson <dthompson@vistahigherlearning.com>

    Improve default names for per-project REPLs.
---
 elisp/geiser-repl.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 469c0f5255..26f4168a77 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))