[nongnu] elpa/geiser-chicken 3c77b8b 064/102: Make geiser-chicken-required-modules customizable (#233)

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 3c77b8bf23bcb23d15c938c04ab21a34ba0dc225
Author: diego <9020453+dieggsy@users.noreply.github.com>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Make geiser-chicken-required-modules customizable (#233)
    
    We can probably do away with this entirely; but for now, make it a custom.
---
 elisp/geiser-chicken.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index e61da2d..9f38354 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -109,8 +109,11 @@ this variable to t."
   :type 'integer
   :group 'geiser-chicken)
 
-(defvar geiser-chicken--required-modules
-  (list "chicken-doc" "apropos" "data-structures" "extras" "ports" "posix" 
"srfi-1" "srfi-13" "srfi-14" "srfi-18" "srfi-69" "tcp" "utils"))
+(geiser-custom--defcustom geiser-chicken-required-modules
+    (list "chicken-doc" "apropos" "data-structures" "extras" "ports" "posix" 
"srfi-1" "srfi-13" "srfi-14" "srfi-18" "srfi-69" "tcp" "utils")
+  "Modules automatically loaded in the Chicken REPL."
+  :type '(repeat string)
+  :group 'geiser-chicken)
 
 
 ;;; REPL support:
@@ -132,7 +135,7 @@ This function uses `geiser-chicken-init-file' if it exists."
                              geiser-chicken-load-path))
     ,@(and init-file (file-readable-p init-file) (list init-file))
     ,@(apply 'append (mapcar (lambda (m) (list "-R" m))
-                            geiser-chicken--required-modules)))))
+                            geiser-chicken-required-modules)))))
 
 (defconst geiser-chicken--prompt-regexp "#[^;]*;[^:0-9]*:?[0-9]+> ")