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 | 660fc8e0465e48812fc6f38f82d91d22b0664118 (patch) | |
| tree | 74a7cb882cf4d2b5ed13dd35a553202c5136ba1a /elisp/geiser-mode.el | |
| parent | 137d2e0db5efe444f6f208aba8ebd57584f1ee52 (diff) | |
| download | geiser-guile-660fc8e0465e48812fc6f38f82d91d22b0664118.tar.gz geiser-guile-660fc8e0465e48812fc6f38f82d91d22b0664118.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)) |