From 8224381c5d7ecdfd2339d94e2aba9a0bfb8d3240 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Wed, 16 Sep 2015 16:19:36 +0300 Subject: Add 'geiser-repl-buffer-name-function' variable --- elisp/geiser-repl.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 7b50c4a..2d3f26e 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -35,6 +35,15 @@ "Interacting with the Geiser REPL." :group 'geiser) +(geiser-custom--defcustom geiser-repl-buffer-name-function + 'geiser-repl-buffer-name + "Function used to define the name of a REPL buffer. +The function is called with a single argument - an implementation +symbol (e.g., `guile', `chicken', etc.)." + :type '(choice (function-item geiser-repl-buffer-name) + (function :tag "Other function")) + :group 'geiser-repl) + (geiser-custom--defcustom geiser-repl-use-other-window t "Whether to Use a window other than the current buffer's when switching to the Geiser REPL buffer." @@ -247,6 +256,10 @@ module command as a string") (format "%s REPL" (geiser-impl--impl-str impl))) (defsubst geiser-repl--buffer-name (impl) + (funcall geiser-repl-buffer-name-function impl)) + +(defun geiser-repl-buffer-name (impl) + "Return default name of the REPL buffer for implementation IMPL." (format "* %s *" (geiser-repl--repl-name impl))) (defun geiser-repl--switch-to-buffer (buffer) -- cgit v1.2.3