summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-12-05 00:44:21 +0000
committerjao <jao@gnu.org>2021-12-05 00:44:21 +0000
commit3378f1850489f8890beec4542a3f87ce38947e08 (patch)
treec6399eb30c1e409146df662fbbd9523024f5c7fd /elisp/geiser-repl.el
parentb2621789d3dace5590ca5f19d036634ef3dd84b9 (diff)
downloadgeiser-3378f1850489f8890beec4542a3f87ce38947e08.tar.gz
geiser-3378f1850489f8890beec4542a3f87ce38947e08.tar.bz2
Redundant custom groups removed (geiser-repl)
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el73
1 files changed, 24 insertions, 49 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 9f51efa..c2a490e 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -42,8 +42,7 @@
The function is called with a single argument - an implementation
symbol (e.g., `guile', `chicken', etc.)."
:type '(choice (function-item geiser-repl-buffer-name)
- (function :tag "Other function"))
- :group 'geiser-repl)
+ (function :tag "Other function")))
(geiser-custom--defcustom geiser-repl-current-project-function
(if (featurep 'project) #'project-current 'ignore)
@@ -53,19 +52,16 @@ should return a value which uniquely identifies the project."
:type '(choice (function-item :tag "Ignore projects" ignore)
(function-item :tag "Use Project.el" project-current)
(function-item :tag "Use Projectile" projectile-project-root)
- (function :tag "Other function"))
- :group 'geiser-repl)
+ (function :tag "Other function")))
(geiser-custom--defcustom geiser-repl-use-other-window t
"Whether to Use a window other than the current buffer's when
switching to the Geiser REPL buffer."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-window-allow-split t
"Whether to allow window splitting when switching to the Geiser REPL buffer."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-history-filename
(expand-file-name "~/.geiser_history")
@@ -73,18 +69,15 @@ switching to the Geiser REPL buffer."
This is actually the base name: the concrete Scheme
implementation name gets appended to it."
- :type 'file
- :group 'geiser-repl)
+ :type 'file)
(geiser-custom--defcustom geiser-repl-history-size comint-input-ring-size
"Maximum size of the saved REPL input history."
- :type 'integer
- :group 'geiser-repl)
+ :type 'integer)
(geiser-custom--defcustom geiser-repl-history-no-dups-p t
"Whether to skip duplicates when recording history."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-save-debugging-history-p nil
"Whether to skip debugging input in REPL history.
@@ -92,38 +85,31 @@ implementation name gets appended to it."
By default, REPL interactions while scheme is in the debugger are
not added to the REPL command history. Set this variable to t to
change that."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-autodoc-p t
"Whether to enable `geiser-autodoc-mode' in the REPL by default."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-company-p t
"Whether to use company-mode for completion, if available."
- :group 'geiser-mode
:type 'boolean)
(geiser-custom--defcustom geiser-repl-read-only-prompt-p t
"Whether the REPL's prompt should be read-only."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-read-only-output-p t
"Whether the REPL's output should be read-only."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-highlight-output-p nil
"Whether to syntax highlight REPL output."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-auto-indent-p t
"Whether newlines for incomplete sexps are autoindented."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-send-on-return-p t
"Sends input to REPL when ENTER is pressed in a balanced S-expression,
@@ -138,8 +124,7 @@ arguments inside an existing expression.
When on (the default), pressing ENTER inside a balanced S-expression
will send the input to the inferior Scheme process regardless of the
cursor placement."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-forget-old-errors-p t
"Whether to forget old errors upon entering a new expression.
@@ -148,8 +133,7 @@ When on (the default), every time a new expression is entered in
the REPL old error messages are flushed, and using \\[next-error]
afterwards will jump only to error locations produced by the new
expression, if any."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-skip-version-check-p nil
"Whether to skip version checks for the Scheme executable.
@@ -157,53 +141,44 @@ expression, if any."
When set, Geiser won't check the version of the Scheme
interpreter when starting a REPL, saving a few tenths of a
second."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-query-on-exit-p nil
"Whether to prompt for confirmation on \\[geiser-repl-exit]."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-delete-last-output-on-exit-p nil
"Whether to delete partial outputs when the REPL's process exits."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-query-on-kill-p t
"Whether to prompt for confirmation when killing a REPL buffer with
a life process."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-default-host "localhost"
"Default host when connecting to remote REPLs."
- :type 'string
- :group 'geiser-repl)
+ :type 'string)
(geiser-custom--defcustom geiser-repl-default-port 37146
"Default port for connecting to remote REPLs."
- :type 'integer
- :group 'geiser-repl)
+ :type 'integer)
(geiser-custom--defcustom geiser-repl-startup-time 10000
"Time, in milliseconds, to wait for Racket to startup.
If you have a slow system, try to increase this time."
- :type 'integer
- :group 'geiser-repl)
+ :type 'integer)
(geiser-custom--defcustom geiser-repl-inline-images-p t
"Whether to display inline images in the REPL."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defcustom geiser-repl-auto-display-images-p t
"Whether to automatically invoke the external viewer to display
images popping up in the REPL.
See also `geiser-debug-auto-display-images-p'."
- :type 'boolean
- :group 'geiser-repl)
+ :type 'boolean)
(geiser-custom--defface repl-input
'comint-highlight-input geiser-repl "evaluated input highlighting")