summaryrefslogtreecommitdiff
path: root/elisp/geiser-impl.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
commit660fc8e0465e48812fc6f38f82d91d22b0664118 (patch)
tree74a7cb882cf4d2b5ed13dd35a553202c5136ba1a /elisp/geiser-impl.el
parent137d2e0db5efe444f6f208aba8ebd57584f1ee52 (diff)
downloadgeiser-guile-660fc8e0465e48812fc6f38f82d91d22b0664118.tar.gz
geiser-guile-660fc8e0465e48812fc6f38f82d91d22b0664118.tar.bz2
Show implementation in geiser-mode's modeline.
Diffstat (limited to 'elisp/geiser-impl.el')
-rw-r--r--elisp/geiser-impl.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index 4f70b29..20b648e 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -60,6 +60,10 @@
geiser-impl-default-implementation
(car geiser-impl--impls)))
+(defsubst geiser-impl--impl-str (&optional impl)
+ (let ((impl (or impl geiser-impl--implementation)))
+ (and impl (capitalize (format "%s" impl)))))
+
;;; Installing Scheme implementations:
@@ -78,7 +82,6 @@
(geiser-impl--install-eval impl)
(geiser-impl--register impl)))
-
(defsubst geiser-impl--sym (imp name)
(intern (format "geiser-%s-%s" imp name)))
@@ -104,7 +107,7 @@
(geiser-impl--sym impl "get-module"))
(defsubst geiser-impl--geiser-procedure-function (impl)
- (geiser-impl--sym imp "geiser-procedure"))
+ (geiser-impl--sym impl "geiser-procedure"))
(defun geiser-impl--install-eval (impl)
(setq geiser-eval--get-module-function (geiser-impl--module-function impl))