summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-impl.el4
-rw-r--r--elisp/geiser.el7
2 files changed, 10 insertions, 1 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index babe617..b67c6bf 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -239,6 +239,10 @@ switcher (switch-to-NAME), and provides geiser-NAME."
(add-to-list 'geiser-implementations-alist
(list (list kind what) impl) append))
+(defun geiser-implementation-extension (impl ext)
+ "Add to `geiser-implementations-alist' an entry for extension EXT."
+ (geiser-impl--add-to-alist 'regexp (format "\\.%s$" ext) impl t))
+
;;; Trying to guess the scheme implementation:
diff --git a/elisp/geiser.el b/elisp/geiser.el
index ce1a0d5..a1a5549 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -105,7 +105,12 @@
(autoload 'geiser-mode--maybe-activate "geiser-mode")
;;;###autoload
-(autoload 'geiser-activate-implementation "geiser-impl")
+(autoload 'geiser-activate-implementation "geiser-impl"
+ "Register the given implementation as active.")
+
+;;;###autoload
+(autoload 'geiser-implementation-extension "geiser-impl"
+ "Register a file extension as handled by a given implementation.")
;;;###autoload
(mapc (lambda (group)