Harmonizing buffer names

So that now all start with *Geiser (and a space for hidden ones) and
use consistent capitalization (see issue #38).

7 files changed, 18 insertions, 17 deletions

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 78160e4..23cbfde 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -1,6 +1,6 @@
 ;;; geiser-debug.el -- displaying debug and eval info  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2020, 2021 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2016, 2020-2022 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -87,7 +87,7 @@ results using ANSI color sequences (e.g. when using the the
 colorized module in Guile).
 
 If set to `nil', no special treatment is applied to output.  The
-symbol colors indicates colorizing the display of the Geiser dbg
+symbol colors indicates colorizing the display of the Geiser debug
 buffer using any color escape, and the symbol remove to remove
 all ANSI sequences."
   :type '(choice (const :tag "No special treatment" nil)
@@ -103,7 +103,7 @@ all ANSI sequences."
     map)
   "Keymap for `geiser-debug-mode'.")
 
-(define-derived-mode geiser-debug-mode nil "Geiser DBG"
+(define-derived-mode geiser-debug-mode nil "Geiser Debug"
   "A major mode for displaying Scheme compilation and evaluation results.
 \\{geiser-debug-mode-map}"
   (buffer-disable-undo)
@@ -195,7 +195,7 @@ all ANSI sequences."
 
 ;;; Buffer for displaying evaluation results:
 
-(geiser-popup--define debug "*Geiser dbg*" geiser-debug-mode)
+(geiser-popup--define debug "*Geiser Debug*" geiser-debug-mode)
 
 
 ;;; Displaying retorts
@@ -316,7 +316,7 @@ result in the minibuffer."
     (geiser-eval--send code cont (current-buffer))))
 
 (defun geiser-debug--send-region/wait (compile start end timeout)
-  "Synchronous version of `geiser-debug--send-region', waiting and returning its result."
+  "Synchronous version of `geiser-debug--send-region', returning its result."
   (let* ((str (buffer-substring-no-properties start end))
          (wrapped (geiser-debug--wrap-region str))
          (code `(,(if compile :comp :eval) (:scm ,wrapped))))
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index b160bd8..f8e2beb 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -1,6 +1,6 @@
 ;;; geiser-doc.el -- accessing scheme-provided documentation
 
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2021 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2016, 2021-2022 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -332,7 +332,7 @@ help (e.g. browse an HTML page) implementing this method.")
   (setq geiser-eval--get-module-function 'geiser-doc--module)
   (setq buffer-read-only t))
 
-(geiser-popup--define doc "*Geiser documentation*" geiser-doc-mode)
+(geiser-popup--define doc "*Geiser Documentation*" geiser-doc-mode)
 
 
 ;;; Commands:
diff --git a/elisp/geiser-log.el b/elisp/geiser-log.el
index 1310187..2573138 100644
--- a/elisp/geiser-log.el
+++ b/elisp/geiser-log.el
@@ -1,6 +1,6 @@
 ;;; geiser-log.el -- logging utilities
 
-;; Copyright (C) 2009, 2010, 2012, 2019, 2021 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2012, 2019, 2021, 2022 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -27,11 +27,11 @@
 ;;; Customization:
 
 (geiser-custom--defcustom geiser-log-autoscroll-buffer-p nil
-  "Set this so than the buffer *geiser messages* always shows the last message"
+  "Set this so than the buffer *Geiser Messages* always shows the last message"
   :group 'geiser
   :type 'boolean)
 
-(defvar geiser-log--buffer-name "*geiser messages*"
+(defvar geiser-log--buffer-name "*Geiser Messages*"
   "Name of the Geiser log buffer.")
 
 (defvar geiser-log--max-buffer-size 320000
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 2156ff6..b66e000 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -333,7 +333,7 @@ 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 "* %s *" (geiser-repl--repl-name impl)))
+  (format "*Geiser %s*" (geiser-repl--repl-name impl)))
 
 (defun geiser-repl--switch-to-buffer (buffer)
   (unless (eq buffer (current-buffer))
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 6cf89a9..c1cced7 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -1,6 +1,6 @@
 ;;; geiser-syntax.el -- utilities for parsing scheme syntax
 
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2019, 2020, 2021 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2016, 2019-2022 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -484,7 +484,7 @@ implementation-specific entries for font-lock-keywords.")
                  (geiser-syntax--mapconcat 'geiser-syntax--display a " ")))
         (t (format "%s" a))))
 
-(defconst geiser-syntax--font-lock-buffer-name " *geiser font lock*")
+(defconst geiser-syntax--font-lock-buffer-name " *Geiser font-lock*")
 
 (defun geiser-syntax--font-lock-buffer-p (&optional buffer)
   (equal (buffer-name buffer) geiser-syntax--font-lock-buffer-name))
@@ -515,7 +515,7 @@ implementation-specific entries for font-lock-keywords.")
         (buffer-undo-list t)
         (geiser-buffer (current-buffer)))
     (with-current-buffer
-        (get-buffer-create " *geiser-repl-fontification*")
+        (get-buffer-create " *Geiser repl fontification*")
       (let ((inhibit-modification-hooks nil))
         (erase-buffer)
         ;; Add string and a final space to ensure property change.
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el
index 65a57b3..03b9c1f 100644
--- a/elisp/geiser-xref.el
+++ b/elisp/geiser-xref.el
@@ -1,6 +1,6 @@
 ;;; geiser-xref.el -- utilities for cross-referencing
 
-;; Copyright (C) 2009, 2010, 2012 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2012, 2022 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -41,7 +41,7 @@
 
 ;;; Buffer and mode:
 
-(geiser-popup--define xref "*Geiser xref*" geiser-xref-mode)
+(geiser-popup--define xref "*Geiser Xref*" geiser-xref-mode)
 
 (defvar geiser-xref-mode-map
   (let ((map (make-sparse-keymap)))
diff --git a/news.org b/news.org
index 79a0be7..61529ff 100644
--- a/news.org
+++ b/news.org
@@ -2,8 +2,9 @@
 * Version 0.23 (unreleased)
 
   - Set REPL's default directory to project's root.
-  - Depending on ELPA's project 0.8.1 to ensure compatibility
+  - Depend on ELPA's project 0.8.1 to ensure compatibility
     with emacs < 28.
+  - Harmonize buffer names (follow ~*Geiser ...*~ format)
 
 * Version 0.22.2 (February, 2022)