Skip to content
This repository has been archived by the owner on Jun 25, 2024. It is now read-only.

Commit

Permalink
Remove unnecessary :group attributes
Browse files Browse the repository at this point in the history
* which-key.el:  Remove :group 'which-key in defcustoms.
(which-key-idle-delay):
(which-key-idle-secondary-delay):
(which-key-echo-keystrokes):
(which-key-max-description-length):
(which-key-min-column-description-width):
(which-key-add-column-padding):
(which-key-unicode-correction):
(which-key-dont-use-unicode):
(which-key-separator):
(which-key-ellipsis):
(which-key-prefix-prefix):
(which-key-compute-remaps):
(which-key-replacement-alist):
(which-key-allow-multiple-replacements):
(which-key-show-docstrings):
(which-key-highlighted-command-list):
(which-key-special-keys):
(which-key-buffer-name):
(which-key-show-prefix):
(which-key-popup-type):
(which-key-min-display-lines):
(which-key-max-display-columns):
(which-key-side-window-location):
(which-key-side-window-slot):
(which-key-side-window-max-width):
(which-key-side-window-max-height):
(which-key-frame-max-width):
(which-key-frame-max-height):
(which-key-allow-imprecise-window-fit):
(which-key-show-remaining-keys):
(which-key-sort-order):
(which-key-sort-uppercase-first):
(which-key-paging-prefixes):
(which-key-paging-key):
(which-key-use-C-h-commands):
(which-key-show-early-on-C-h):
(which-key-is-verbose):
(which-key-preserve-window-configuration):
(which-key-hide-alt-key-translations):
(which-key-delay-functions):
(which-key-allow-regexps):
(which-key-inhibit-regexps):
(which-key-show-transient-maps):
(which-key-init-buffer-hook):
  • Loading branch information
jeremy-bryant authored and justbur committed Mar 5, 2024
1 parent 9b33ccc commit a79a884
Showing 1 changed file with 0 additions and 45 deletions.
45 changes: 0 additions & 45 deletions which-key.el
Original file line number Diff line number Diff line change
Expand Up @@ -61,7 +61,6 @@ This variable should be set before activating `which-key-mode'.
A value of zero might lead to issues, so a non-zero value is
recommended
(see https://github.com/justbur/emacs-which-key/issues/134)."
:group 'which-key
:type 'float
:version "1.0")

Expand All @@ -70,7 +69,6 @@ recommended
This makes it possible to shorten the delay for subsequent popups
in the same key sequence. The default is for this value to be
nil, which disables this behavior."
:group 'which-key
:type '(choice float (const :tag "Disabled" nil))
:version "1.0")

Expand All @@ -84,7 +82,6 @@ This only applies if `which-key-popup-type' is minibuffer or
`which-key-show-prefix' is echo. It needs to be less than
`which-key-idle-delay' or else the keystroke echo will erase the
which-key popup."
:group 'which-key
:type 'float
:version "1.0")

Expand All @@ -95,7 +92,6 @@ characters), a float (use that fraction of the available width),
or a function, which takes one argument, the available width in
characters, and whose return value has one of the types mentioned
before. Truncation is done using `which-key-ellipsis'."
:group 'which-key
:type '(choice (const :tag "Disable truncation" nil)
(integer :tag "Width in characters")
(float :tag "Use fraction of available width")
Expand All @@ -104,13 +100,11 @@ before. Truncation is done using `which-key-ellipsis'."

(defcustom which-key-min-column-description-width 0
"Every column should at least have this width."
:group 'which-key
:type 'natnum
:version "1.0")

(defcustom which-key-add-column-padding 0
"Additional spaces to add to the left of each key column."
:group 'which-key
:type 'integer
:version "1.0")

Expand All @@ -127,15 +121,13 @@ contributed by any wide unicode characters to be up to one
additional ASCII character in the which-key buffer. Increase this
number if you are seeing characters get cutoff on the right side
of the which-key popup."
:group 'which-key
:type 'integer
:version "1.0")

(defcustom which-key-dont-use-unicode nil
"If non-nil, don't use any unicode characters in default setup.
For affected settings, see `which-key-replacement-alist', `which-key-ellipsis'
'which-key-separator'."
:group 'which-key
:type 'boolean
:version "1.0")

Expand All @@ -144,7 +136,6 @@ For affected settings, see `which-key-replacement-alist', `which-key-ellipsis'
"Separator to use between key and description.
Default is \"\", unless `which-key-dont-use-unicode' is non
nil, in which case the default is \" : \"."
:group 'which-key
:type 'string
:version "1.0")

Expand All @@ -154,22 +145,19 @@ nil, in which case the default is \" : \"."
Default is \"\", unless `which-key-dont-use-unicode' is non nil,
in which case the default is \"..\". This can also be the empty
string to truncate without using any ellipsis."
:group 'which-key
:type 'string
:version "1.0")

(defcustom which-key-prefix-prefix "+"
"Prefix string to indicate a key bound to a keymap.
Default is \"+\"."
:group 'which-key
:type 'string
:version "1.0")

(defcustom which-key-compute-remaps nil
"If non-nil, show remapped commands.
This applies to commands that have been remapped given the
currently active keymaps."
:group 'which-key
:type 'boolean
:version "1.0")

Expand Down Expand Up @@ -211,7 +199,6 @@ the key binding is ignored by which-key.
Finally, you can multiple replacements to occur for a given key
binding by setting `which-key-allow-multiple-replacements' to a
non-nil value."
:group 'which-key
:type '(alist :key-type (cons (choice regexp (const nil))
(choice regexp (const nil)))
:value-type (cons (choice string (const nil))
Expand All @@ -224,7 +211,6 @@ When non-nil, this allows a single key binding to match multiple
patterns in `which-key-replacement-alist'. When nil, only the
first match is used to perform replacements from
`which-key-replacement-alist'."
:group 'which-key
:type 'boolean
:version "1.0")

Expand All @@ -235,7 +221,6 @@ break. If you set this variable to the symbol docstring-only,
then the command's name with be omitted. You probably also want
to adjust `which-key-max-description-length' at the same time if
you use this feature."
:group 'which-key
:type '(radio
(const :tag "Do not show docstrings" nil)
(const :tag "Add docstring to command names" t)
Expand All @@ -249,7 +234,6 @@ matching command names and use
`which-key-highlighted-command-face' for any matching names. If
the element is a cons cell, it should take the form (regexp .
face to apply)."
:group 'which-key
:type '(repeat (choice string (cons regexp face)))
:version "1.0")

Expand All @@ -259,21 +243,18 @@ They also have `which-key-special-key-face' applied to them. This
is disabled by default. An example configuration is
\(setq which-key-special-keys \\='(\"SPC\" \"TAB\" \"RET\" \"ESC\" \"DEL\")\)"
:group 'which-key
:type '(repeat string)
:version "1.0")

(defcustom which-key-buffer-name " *which-key*"
"Name of which-key buffer."
:group 'which-key
:type 'string
:version "1.0")

(defcustom which-key-show-prefix 'echo
"Whether to and where to display the current prefix sequence.
Possible choices are echo for echo area (the default), left, top
and nil. Nil turns the feature off."
:group 'which-key
:type '(radio (const :tag "Left of the keys" left)
(const :tag "In the first line" top)
(const :tag "In the last line" bottom)
Expand All @@ -284,7 +265,6 @@ and nil. Nil turns the feature off."

(defcustom which-key-popup-type 'side-window
"Supported types are minibuffer, side-window, frame, and custom."
:group 'which-key
:type '(radio (const :tag "Show in minibuffer" minibuffer)
(const :tag "Show in side window" side-window)
(const :tag "Show in popup frame" frame)
Expand All @@ -293,14 +273,12 @@ and nil. Nil turns the feature off."

(defcustom which-key-min-display-lines 1
"Minimum number of horizontal lines to display in the which-key buffer."
:group 'which-key
:type 'integer
:version "1.0")

(defcustom which-key-max-display-columns nil
"Maximum number of columns to display in the which-key buffer.
A value of nil means don't impose a maximum."
:group 'which-key
:type '(choice integer (const :tag "Unbounded" nil))
:version "1.0")

Expand All @@ -310,7 +288,6 @@ Should be one of top, bottom, left or right. You can also specify
a list of two locations, like (right bottom). In this case, the
first location is tried. If there is not enough room, the second
location is tried."
:group 'which-key
:type '(radio (const right)
(const bottom)
(const left)
Expand All @@ -330,35 +307,30 @@ specified side. A negative value means use a slot
preceding (that is, above or on the left of) the middle slot. A
positive value means use a slot following (that is, below or on
the right of) the middle slot. The default is zero."
:group 'which-key
:type 'integer
:version "1.0")

(defcustom which-key-side-window-max-width 0.333
"Maximum width of which-key popup when type is side-window.
This variable can also be a number between 0 and 1. In that case,
it denotes a percentage out of the frame's width."
:group 'which-key
:type 'float
:version "1.0")

(defcustom which-key-side-window-max-height 0.25
"Maximum height of which-key popup when type is side-window.
This variable can also be a number between 0 and 1. In that case, it denotes
a percentage out of the frame's height."
:group 'which-key
:type 'float
:version "1.0")

(defcustom which-key-frame-max-width 60
"Maximum width of which-key popup when type is frame."
:group 'which-key
:type 'integer
:version "1.0")

(defcustom which-key-frame-max-height 20
"Maximum height of which-key popup when type is frame."
:group 'which-key
:type 'integer
:version "1.0")

Expand All @@ -369,13 +341,11 @@ this on may help.
See https://github.com/justbur/emacs-which-key/issues/130
and https://github.com/justbur/emacs-which-key/issues/225."
:group 'which-key
:type 'boolean
:version "1.0")

(defcustom which-key-show-remaining-keys nil
"Show remaining keys in last slot, when keys are hidden."
:group 'which-key
:type '(radio (const :tag "Yes" t)
(const :tag "No" nil))
:version "1.0")
Expand All @@ -394,7 +364,6 @@ are
See the README and the docstrings for those functions for more
information."
:group 'which-key
:type '(choice (function-item which-key-key-order)
(function-item which-key-key-order-alpha)
(function-item which-key-description-order)
Expand All @@ -406,20 +375,17 @@ information."
"If non-nil, uppercase comes before lowercase in sorting.
This applies to the function chosen in
`which-key-sort-order'. Otherwise, the order is reversed."
:group 'which-key
:type 'boolean
:version "1.0")

(defcustom which-key-paging-prefixes '()
"Enable paging for these prefixes."
:group 'which-key
:type '(repeat string)
:version "1.0")

(defcustom which-key-paging-key "<f5>"
"Key to use for changing pages.
Bound after each of the prefixes in `which-key-paging-prefixes'"
:group 'which-key
:type 'string
:version "1.0")

Expand All @@ -439,7 +405,6 @@ Bound after each of the prefixes in `which-key-paging-prefixes'"
Normally `help-char' after a prefix calls
`describe-prefix-bindings'. This changes that command to a
which-key paging command when which-key-mode is active."
:group 'which-key
:type 'boolean
:version "1.0")

Expand All @@ -456,13 +421,11 @@ using C-h.
Note that `which-key-idle-delay' should be set before turning on
`which-key-mode'."
:group 'which-key
:type 'boolean
:version "1.0")

(defcustom which-key-is-verbose nil
"Whether to warn about potential mistakes in configuration."
:group 'which-key
:type 'boolean
:version "1.0")

Expand All @@ -473,8 +436,6 @@ shown and restore it after which-key buffer is hidden. It
prevents which-key from changing window position of visible
buffers. Only takken into account when popup type is
side-window."
:group
'which-key
:type 'boolean
:version "1.0")

Expand Down Expand Up @@ -544,7 +505,6 @@ These translations are not relevant most of the times since a lot
of terminals issue META modifier for the Alt key.
See http://www.gnu.org/software/emacs/manual/html_node/emacs/Modifier-Keys.html"
:group 'which-key
:type 'boolean
:version "1.0")

Expand All @@ -561,7 +521,6 @@ this list to return a value is the value that is used.
The delay time is effectively added to the normal
`which-key-idle-delay'."
:group 'which-key
:type '(repeat function)
:version "1.0")

Expand All @@ -570,7 +529,6 @@ The delay time is effectively added to the normal
When non-nil, for a key sequence to trigger the which-key popup
it must match one of the regexps in this list. The format of the
key sequences is what is produced by `key-description'."
:group 'which-key
:type '(repeat regexp)
:version "1.0")

Expand All @@ -579,7 +537,6 @@ key sequences is what is produced by `key-description'."
When non-nil, for a key sequence to trigger the which-key popup
it cannot match one of the regexps in this list. The format of
the key sequences is what is produced by `key-description'."
:group 'which-key
:type '(repeat regexp)
:version "1.0")

Expand All @@ -589,7 +546,6 @@ the key sequences is what is produced by `key-description'."
More specifically, detect when `overriding-terminal-local-map' is
set (this is the keymap used by `set-transient-map') and display
it."
:group 'which-key
:type 'boolean
:version "1.0")

Expand All @@ -601,7 +557,6 @@ it."
;; Hooks
(defcustom which-key-init-buffer-hook '()
"Hook run when which-key buffer is initialized."
:group 'which-key
:type 'hook
:version "1.0")

Expand Down

0 comments on commit a79a884

Please sign in to comment.