From ac30982fe9cf0b9fdde1de4f7e86684a0f688db4 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 19 Jun 2009 17:26:16 +0200 Subject: User command to register scheme implementations (geiser-register-implementation). --- elisp/geiser-impl.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'elisp/geiser-impl.el') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index c148920..58cd089 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -233,6 +233,21 @@ implementation to be used by Geiser.")) (throw 'impl impl)))) (geiser-impl--default-implementation))) + +;;; User commands + +(defun geiser-register-implementation () + "Register a new Scheme implementation." + (interactive) + (let ((current geiser-impl-installed-implementations) + (impl (geiser-impl--read-impl "New implementation: " nil t))) + (unless (geiser-impl--register impl) + (error "geiser-%s.el not found in load-path")) + (when (and (not (memq impl current)) + (y-or-n-p "Remember this implementation using customize? ")) + (customize-save-variable + 'geiser-impl-installed-implementations (cons impl current))))) + ;;; Unload support -- cgit v1.2.3