From e8398a8ad9ba267bbe28f2ba13914bcd1dbc150e Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 14 Mar 2009 12:42:09 +0100 Subject: Show implementation in geiser-mode's modeline. --- elisp/geiser-mode.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-mode.el') 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)) -- cgit v1.2.3