summaryrefslogtreecommitdiff
path: root/elisp/geiser-mode.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-14 12:42:09 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-14 12:42:09 +0100
commite8398a8ad9ba267bbe28f2ba13914bcd1dbc150e (patch)
tree73d74329782e089d6d86fc990b1c5801b7db7c1d /elisp/geiser-mode.el
parent11e13d1bd7340f4f6baa059cb21f953771a09f58 (diff)
downloadgeiser-e8398a8ad9ba267bbe28f2ba13914bcd1dbc150e.tar.gz
geiser-e8398a8ad9ba267bbe28f2ba13914bcd1dbc150e.tar.bz2
Show implementation in geiser-mode's modeline.
Diffstat (limited to 'elisp/geiser-mode.el')
-rw-r--r--elisp/geiser-mode.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index cf43e00..57fb84e 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -135,9 +135,13 @@ With prefix, recursively macro-expand the resulting expression."
;;; Geiser mode:
(make-variable-buffer-local
- (defvar geiser-mode-string " G"
+ (defvar geiser-mode-string nil
"Modeline indicator for geiser-mode"))
+(defun geiser-mode--lighter ()
+ (or geiser-mode-string
+ (format " %s" (or (geiser-impl--impl-str) "G"))))
+
(defvar geiser-mode-map (make-sparse-keymap)
"Key map for geiser-mode")
@@ -151,7 +155,7 @@ When Geiser mode is enabled, a host of nice utilities for
interacting with the Geiser REPL is at your disposal.
\\{geiser-mode-map}"
:init-value nil
- :lighter geiser-mode-string
+ :lighter (:eval (geiser-mode--lighter))
:group 'geiser-mode
:keymap geiser-mode-map
(when geiser-mode (geiser-impl--set-buffer-implementation))