diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-14 12:42:09 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-14 12:42:09 +0100 |
| commit | e8398a8ad9ba267bbe28f2ba13914bcd1dbc150e (patch) | |
| tree | 73d74329782e089d6d86fc990b1c5801b7db7c1d /elisp/geiser-mode.el | |
| parent | 11e13d1bd7340f4f6baa059cb21f953771a09f58 (diff) | |
| download | geiser-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.el | 8 |
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)) |