summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordiego <9020453+dieggsy@users.noreply.github.com>2017-12-17 16:46:39 -0500
committerJose Antonio Ortega Ruiz <jao@gnu.org>2017-12-17 22:53:58 +0100
commit0bfc6be0d25ff311d739d2f65fd343135142f6f3 (patch)
tree419334b7cc63918c543c68fdcdbe84be6829321c
parent473ef183d6c2c205699b7a865a206f579e60ce17 (diff)
downloadgeiser-guile-0bfc6be0d25ff311d739d2f65fd343135142f6f3.tar.gz
geiser-guile-0bfc6be0d25ff311d739d2f65fd343135142f6f3.tar.bz2
Make geiser-chicken-required-modules customizable (#233)
We can probably do away with this entirely; but for now, make it a custom.
-rw-r--r--elisp/geiser-chicken.el9
1 files 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]+> ")