Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Cleanup defcustom definitions #651

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Cleanup defcustom definitions #651

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
36 changes: 16 additions & 20 deletions lispy.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -194,8 +194,8 @@
(defcustom lispy-no-space nil
"When non-nil, don't insert a space before parens/brackets/braces/colons."
:type 'boolean
:group 'lispy)
(make-variable-buffer-local 'lispy-no-space)
:group 'lispy
:local t)

(defcustom lispy-lax-eval t
"When non-nil, fix \"unbound variable\" error by setting the it to nil.
Expand Down Expand Up @@ -250,29 +250,25 @@ The hint will consist of the possible nouns that apply to the verb."
(const :tag "Find File in Project" ffip)
(const :tag "Projectile" projectile)))

(defcustom lispy-avy-style-char 'pre
"Method of displaying the overlays for a char during visual selection."
(define-widget 'lispy-avy-style 'lazy
"Method of displaying the overlays during visual selection."
:type '(choice
(const :tag "Pre" pre)
(const :tag "At" at)
(const :tag "At full" at-full)
(const :tag "Post" post)))

(defcustom lispy-avy-style-char 'pre
"Method of displaying the overlays for a char during visual selection."
:type 'lispy-avy-style)

(defcustom lispy-avy-style-paren 'at
"Method of displaying the overlays for a paren during visual selection."
:type '(choice
(const :tag "Pre" pre)
(const :tag "At" at)
(const :tag "At full" at-full)
(const :tag "Post" post)))
:type 'lispy-avy-style)

(defcustom lispy-avy-style-symbol 'pre
"Method of displaying the overlays for a symbol during visual selection."
:type '(choice
(const :tag "Pre" pre)
(const :tag "At" at)
(const :tag "At full" at-full)
(const :tag "Post" post)))
:type 'lispy-avy-style)

(defcustom lispy-avy-keys (number-sequence ?a ?z)
"Keys for jumping."
Expand Down Expand Up @@ -352,7 +348,7 @@ This applies to `lispy-delete', `lispy-kill-at-point', `lispy-paste', and
This only applies when `lispy-safe-delete', `lispy-safe-copy', and/or
`lispy-safe-paste' are non-nil."
:group 'lispy
:type 'number)
:type 'integer)

(defcustom lispy-safe-actions-ignore-strings t
"When non-nil, don't try to act safely in strings.
Expand Down Expand Up @@ -3551,7 +3547,7 @@ When SLURP-WHITESPACE is non-nil, add any whitespace following split into previo
(nreverse res)))

(defcustom lispy-multiline-threshold 32
"Don't multiline expresssions shorter than this when printed as a string."
"Don't multiline expressions shorter than this when printed as a string."
:type 'integer)

(defun lispy--translate-newlines (str)
Expand Down Expand Up @@ -3757,15 +3753,15 @@ When SILENT is non-nil, don't issue messages."
(fill-paragraph)))

(defcustom lispy-move-after-commenting t
"When non-nil, adjust point to next sexp after commenting out a
sexp. If at last sexp in list, move out and backwards to
enclosing sexp."
"When non-nil, adjust point to next sexp after commenting out a sexp.
If at last sexp in list, move out and backwards to enclosing
sexp."
:type 'boolean
:group 'lispy)

(defcustom lispy-comment-use-single-semicolon nil
"When non-nil, prefer single semicolons for comments at the
right of the source code (after lispy-right or at eol)."
right of the source code (after `lispy-right' or at eol)."
:type 'boolean
:group 'lispy)

Expand Down