[nongnu] elpa/geiser-gauche 0be6e0a 081/119: Add setup elisp file

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit 0be6e0aaf92968b24ddd30e6d13baa0daca06550
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    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 <andras.simonyi@gmail.com>
+;; 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