From f9a40fe67e15ad2ec984687a8e99844707f736e5 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 6 Mar 2022 19:18:54 +0000 Subject: Harmonizing buffer names So that now all start with *Geiser (and a space for hidden ones) and use consistent capitalization (see issue #38). --- elisp/geiser-debug.el | 10 +++++----- elisp/geiser-doc.el | 4 ++-- elisp/geiser-log.el | 6 +++--- elisp/geiser-repl.el | 2 +- elisp/geiser-syntax.el | 6 +++--- elisp/geiser-xref.el | 4 ++-- news.org | 3 ++- 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) -- cgit v1.2.3