Better handling of initial setup (registering implementations).

2 files changed, 11 insertions, 1 deletions

diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index ac6c2b9..75a4ca7 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -41,6 +41,11 @@
   :type 'symbol
   :group 'geiser-impl)
 
+(defcustom geiser-impl-installed-implementations nil
+  "Initial list of installed Scheme implementations."
+  :type '(repeat symbol)
+  :group 'geiser-impl)
+
 
 ;;; Registering implementations:
 
@@ -209,5 +214,10 @@ implementation to be used by Geiser."))
     (load-library (format "geiser-%s" impl))))
 
 
+;;; Initialization:
+
+(mapc 'geiser-impl--register geiser-impl-installed-implementations)
+
+
 (provide 'geiser-impl)
 ;;; geiser-impl.el ends here
diff --git a/elisp/geiser.el b/elisp/geiser.el
index c57e971..d72eee7 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -95,7 +95,7 @@
     '(add-hook 'scheme-mode-hook 'turn-on-geiser-mode)))
 
 (defun geiser-setup-implementations (impls)
-  (setq geiser-impl--impls (or impls '(guile plt))))
+  (setq geiser-impl-installed-implementations (or impls '(guile plt))))
 
 (defun geiser-setup (&rest impls)
   (geiser-setup-implementations impls)