From 5170efb520bad180bfca68828c644b59834457c8 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 7 May 2009 22:53:32 +0200 Subject: Better handling of initial setup (registering implementations). --- elisp/geiser-impl.el | 10 ++++++++++ elisp/geiser.el | 2 +- 2 files changed, 11 insertions(+), 1 deletion(-) (limited to 'elisp') 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: @@ -208,6 +213,11 @@ implementation to be used by Geiser.")) (dolist (impl impls) (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) -- cgit v1.2.3