[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 8ac29a6239 1/3: Tidy: (hyperdrive-vars.el) Remo
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 8ac29a6239 1/3: Tidy: (hyperdrive-vars.el) Remove unnecessary :group |
Date: |
Tue, 5 Sep 2023 04:01:34 -0400 (EDT) |
branch: elpa/hyperdrive
commit 8ac29a623951c15ff3382bd708da14acb54bf843
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Tidy: (hyperdrive-vars.el) Remove unnecessary :group
---
hyperdrive-vars.el | 84 +++++++++++++++++++-----------------------------------
1 file changed, 30 insertions(+), 54 deletions(-)
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 59f1b39ed6..865d21bcd7 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -92,8 +92,7 @@ Passed to `display-buffer', which see."
;; TODO: Perhaps use `display-buffer--action-custom-type'?
:type '(choice (const :tag "Same window" (display-buffer-same-window))
(const :tag "Pop up window" (display-buffer-pop-up-window))
- (sexp :tag "Other"))
- :group 'hyperdrive)
+ (sexp :tag "Other")))
(defcustom hyperdrive-directory-sort '(hyperdrive-entry-name . string<)
"Column by which directory entries are sorted.
@@ -114,8 +113,7 @@ etc)."
(choice :tag "Direction" :value time-less-p
(const :tag "Ascending" time-less-p)
(const :tag "Descending" (lambda (a b)
- (not (time-less-p a
b)))))))
- :group 'hyperdrive)
+ (not (time-less-p a
b))))))))
(defcustom hyperdrive-history-display-buffer-action
'(display-buffer-same-window)
@@ -175,81 +173,59 @@ an existing buffer at the same version, or make a new
buffer."
:group 'hyperdrive)
(defface hyperdrive-petname '((t :inherit font-lock-type-face))
- "Applied to hyperdrive petnames."
- :group 'hyperdrive-faces)
+ "Applied to hyperdrive petnames.")
(defface hyperdrive-seed '((t :inherit font-lock-doc-face))
- "Applied to hyperdrive seeds."
- :group 'hyperdrive-faces)
+ "Applied to hyperdrive seeds.")
(defface hyperdrive-domain '((t :inherit font-lock-keyword-face))
- "Applied to hyperdrive domains."
- :group 'hyperdrive-faces)
+ "Applied to hyperdrive domains.")
(defface hyperdrive-nickname '((t :inherit font-lock-warning-face))
- "Applied to hyperdrive nicknames."
- :group 'hyperdrive-faces)
+ "Applied to hyperdrive nicknames.")
(defface hyperdrive-public-key '((t :inherit font-lock-function-name-face))
- "Applied to hyperdrive public keys."
- :group 'hyperdrive-faces)
-
-(defface hyperdrive-header
- '((t (:inherit dired-header)))
- "Directory path."
- :group 'hyperdrive-faces)
-
-(defface hyperdrive-column-header
- '((t (:inherit underline)))
- "Directory path."
- :group 'hyperdrive-faces)
-
-(defface hyperdrive-directory
- '((t (:inherit dired-directory)))
- "Subdirectories."
- :group 'hyperdrive-faces)
-
-(defface hyperdrive-size
- '((t (:inherit font-lock-doc-face)))
- "Size of entries."
- :group 'hyperdrive-faces)
-
-(defface hyperdrive-timestamp
- '((t (:inherit default)))
- "Entry timestamp."
- :group 'hyperdrive-faces)
-
-(defface hyperdrive-history-range
- '((t (:inherit font-lock-escape-face)))
- "Version range in `hyperdrive-history' buffers."
- :group 'hyperdrive-faces)
+ "Applied to hyperdrive public keys.")
+
+(defface hyperdrive-header '((t (:inherit dired-header)))
+ "Directory path.")
+
+(defface hyperdrive-column-header '((t (:inherit underline)))
+ "Directory path.")
+
+(defface hyperdrive-directory '((t (:inherit dired-directory)))
+ "Subdirectories.")
+
+(defface hyperdrive-size '((t (:inherit font-lock-doc-face)))
+ "Size of entries.")
+
+(defface hyperdrive-timestamp '((t (:inherit default)))
+ "Entry timestamp.")
+
+(defface hyperdrive-history-range '((t (:inherit font-lock-escape-face)))
+ "Version range in `hyperdrive-history' buffers.")
(defface hyperdrive-history-existent '((t (:foreground "black" :background
"green")))
- "Marker for known existent entries in `hyperdrive-history'buffers."
- :group 'hyperdrive-faces)
+ "Marker for known existent entries in `hyperdrive-history'buffers.")
(defface hyperdrive-history-nonexistent '((t (:foreground "black" :background
"red")))
- "Marker for known nonexistent entries in `hyperdrive-history'buffers."
- :group 'hyperdrive-faces)
+ "Marker for known nonexistent entries in `hyperdrive-history'buffers.")
(defface hyperdrive-history-unknown '((t (:foreground "black" :background
"yellow")))
- "Marker for entries with unknown existence in `hyperdrive-history' buffers."
- :group 'hyperdrive-faces)
+ "Marker for entries with unknown existence in `hyperdrive-history' buffers.")
(defface hyperdrive-button
;; Inspired by cus-edit.el's `custom-button' face.
;; NOTE: This face is not currently used, but
;; `hyperdrive-button-dangerous' inherits from it.
'((t (:inherit custom-button)))
- "Face for hyperdrive buttons."
- :group 'hyperdrive-faces)
+ "Face for hyperdrive buttons.")
(defface hyperdrive-button-dangerous
'((t (:inherit hyperdrive-button
:box (:line-width 3)
:background "red" :foreground "yellow")))
- "Face for dangerous hyperdrive buttons."
- :group 'hyperdrive-faces)
+ "Face for dangerous hyperdrive buttons.")
;;;;; Regular expressions