branch: externals/marginalia
commit 091895bd17bd59aaf27531440091231be1757876
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
fix #23
---
marginalia.el | 132 ++++++++++++++++++++++++++++++----------------------------
1 file changed, 69 insertions(+), 63 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 7d74302..82e0526 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -39,69 +39,6 @@
:group 'convenience
:prefix "marginalia-")
-(defface marginalia-key
- '((t :inherit font-lock-keyword-face))
- "Face used to highlight keys in `marginalia-mode'.")
-
-(defface marginalia-lighter
- '((t :inherit marginalia-size))
- "Face used to highlight lighters in `marginalia-mode'.")
-
-(defface marginalia-on
- '((t :inherit success))
- "Face used to signal enabled modes.")
-
-(defface marginalia-off
- '((t :inherit error))
- "Face used to signal disabled modes.")
-
-(defface marginalia-documentation
- '((t :inherit completions-annotations))
- "Face used to highlight documentation string in `marginalia-mode'.")
-
-(defface marginalia-variable
- '((t :inherit marginalia-key))
- "Face used to highlight variable values in `marginalia-mode'.")
-
-(defface marginalia-mode
- '((t :inherit marginalia-key))
- "Face used to highlight major modes in `marginalia-mode'.")
-
-(defface marginalia-date
- '((t :inherit marginalia-key))
- "Face used to highlight dates in `marginalia-mode'.")
-
-(defface marginalia-version
- '((t :inherit marginalia-size))
- "Face used to highlight package version in `marginalia-mode'.")
-
-(defface marginalia-archive
- '((t :inherit warning))
- "Face used to highlight package archives in `marginalia-mode'.")
-
-(defface marginalia-installed
- '((t :inherit success))
- "Face used to highlight package status in `marginalia-mode'.")
-
-(defface marginalia-size
- '((t :inherit font-lock-constant-face))
- "Face used to highlight sizes in `marginalia-mode'.")
-
-(defface marginalia-modified
- '((t :inherit font-lock-negation-char-face))
- "Face used to highlight modification indicators in `marginalia-mode'.")
-
-(defface marginalia-file-name
- '((t :inherit marginalia-documentation))
- "Face used to highlight file names in `marginalia-mode'.")
-
-(defface marginalia-file-modes
- '((t :inherit font-lock-string-face))
- "Face used to highlight file modes in `marginalia-mode'.")
-
-(defface marginalia-file-owner
- '((t :inherit font-lock-preprocessor-face))
- "Face used to highlight file owners in `marginalia-mode'.")
(defcustom marginalia-truncate-width 80
"Maximum truncation width of annotation fields.
@@ -191,6 +128,75 @@ determine it."
"Associate commands with a completion category."
:type '(alist :key-type symbol :value-type symbol))
+(defgroup marginalia-faces nil
+ "Faces used by `marginalia-mode'."
+ :group 'marginalia
+ :group 'faces)
+
+(defface marginalia-key
+ '((t :inherit font-lock-keyword-face))
+ "Face used to highlight keys in `marginalia-mode'.")
+
+(defface marginalia-lighter
+ '((t :inherit marginalia-size))
+ "Face used to highlight lighters in `marginalia-mode'.")
+
+(defface marginalia-on
+ '((t :inherit success))
+ "Face used to signal enabled modes.")
+
+(defface marginalia-off
+ '((t :inherit error))
+ "Face used to signal disabled modes.")
+
+(defface marginalia-documentation
+ '((t :inherit completions-annotations))
+ "Face used to highlight documentation string in `marginalia-mode'.")
+
+(defface marginalia-variable
+ '((t :inherit marginalia-key))
+ "Face used to highlight variable values in `marginalia-mode'.")
+
+(defface marginalia-mode
+ '((t :inherit marginalia-key))
+ "Face used to highlight major modes in `marginalia-mode'.")
+
+(defface marginalia-date
+ '((t :inherit marginalia-key))
+ "Face used to highlight dates in `marginalia-mode'.")
+
+(defface marginalia-version
+ '((t :inherit marginalia-size))
+ "Face used to highlight package version in `marginalia-mode'.")
+
+(defface marginalia-archive
+ '((t :inherit warning))
+ "Face used to highlight package archives in `marginalia-mode'.")
+
+(defface marginalia-installed
+ '((t :inherit success))
+ "Face used to highlight package status in `marginalia-mode'.")
+
+(defface marginalia-size
+ '((t :inherit font-lock-constant-face))
+ "Face used to highlight sizes in `marginalia-mode'.")
+
+(defface marginalia-modified
+ '((t :inherit font-lock-negation-char-face))
+ "Face used to highlight modification indicators in `marginalia-mode'.")
+
+(defface marginalia-file-name
+ '((t :inherit marginalia-documentation))
+ "Face used to highlight file names in `marginalia-mode'.")
+
+(defface marginalia-file-modes
+ '((t :inherit font-lock-string-face))
+ "Face used to highlight file modes in `marginalia-mode'.")
+
+(defface marginalia-file-owner
+ '((t :inherit font-lock-preprocessor-face))
+ "Face used to highlight file owners in `marginalia-mode'.")
+
;;;; Pre-declarations for external packages
(defvar package--builtins)
