branch: elpa/geiser-gauche
commit 0be6e0aaf92968b24ddd30e6d13baa0daca06550
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
Add setup elisp file
---
geiser-gauche-setup.el | 33 +++++++++++++++++++++++++++++++++
1 file changed, 33 insertions(+)
diff --git a/geiser-gauche-setup.el b/geiser-gauche-setup.el
new file mode 100644
index 0000000..030ac46
--- /dev/null
+++ b/geiser-gauche-setup.el
@@ -0,0 +1,33 @@
+;;; geiser-gauche-setup.el --- Set up Gauche support for Geiser -*-
lexical-binding:t -*-
+
+;; Copyright (C) 2020 András Simonyi
+
+;; Author: András Simonyi <[email protected]>
+;; SPDX-License-Identifier: BSD-3-Clause
+
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; Function to set up Gauche support in Geiser. It is in a separate file to
+;; avoid loading geiser-gauche in the setup phase.
+
+;;; Code:
+
+(require 'geiser-gauche)
+
+;;;###autoload
+(defun geiser-gauche-setup ()
+ "Set up Geiser Gauche support.
+Add Gauche to the list of active Scheme implementations if the
+user didn't customize the list."
+ (interactive)
+ (eval-after-load 'geiser-impl
+ ;; Add Gauche only if the list of active impls is the standard one.
+ (when (equalp (cadar (get 'geiser-active-implementations 'standard-value))
+ geiser-active-implementations)
+ (add-to-list 'geiser-active-implementations 'gauche))))
+
+(provide 'geiser-gauche-setup)
+
+;;; geiser-gauche-setup.el ends here
