From 0bfc6be0d25ff311d739d2f65fd343135142f6f3 Mon Sep 17 00:00:00 2001 From: diego <9020453+dieggsy@users.noreply.github.com> Date: Sun, 17 Dec 2017 16:46:39 -0500 Subject: 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]+> ") -- cgit v1.2.3