branch: externals/marginalia
commit 597186dad0952b808aa5b3a7715a0268ad00e35b
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
add marginalia-annotate-minor-mode
* Works with describe-minor-mode, minor-mode-menu-from-indicator and
consult-minor-mode-menu
* See
https://github.com/minad/consult/commit/d7212861b3245e0ceb09009652698379c9465da3
---
marginalia.el | 38 +++++++++++++++++++++++++++++++++++++-
1 file changed, 37 insertions(+), 1 deletion(-)
diff --git a/marginalia.el b/marginalia.el
index 763ed12..20f5883 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -44,6 +44,21 @@
"Face used to highlight keys in `marginalia-mode'."
:group 'marginalia)
+(defface marginalia-lighter
+ '((t :inherit marginalia-size))
+ "Face used to highlight lighters in `marginalia-mode'."
+ :group 'marginalia)
+
+(defface marginalia-on
+ '((t :inherit success))
+ "Face used to signal enabled modes."
+ :group 'marginalia)
+
+(defface marginalia-off
+ '((t :inherit error))
+ "Face used to signal disabled modes."
+ :group 'marginalia)
+
(defface marginalia-documentation
'((t :inherit completions-annotations))
"Face used to highlight documentation string in `marginalia-mode'."
@@ -122,6 +137,7 @@ only with the annotations that come with Emacs) without
disabling
(customize-group . marginalia-annotate-customize-group)
(variable . marginalia-annotate-variable)
(face . marginalia-annotate-face)
+ (minor-mode . marginalia-annotate-minor-mode)
(symbol . marginalia-annotate-symbol)
(variable . marginalia-annotate-variable)
(package . marginalia-annotate-package))
@@ -165,7 +181,8 @@ determine it."
("\\<M-x\\>" . command)
("\\<package\\>" . package)
("\\<face\\>" . face)
- ("\\<variable\\>" . variable))
+ ("\\<variable\\>" . variable)
+ ("\\<minor mode\\>" . minor-mode))
"Associates regexps to match against minibuffer prompts with categories."
:type '(alist :key-type regexp :value-type symbol)
:group 'marginalia)
@@ -288,6 +305,25 @@ This hash table is needed to speed up
`marginalia-annotate-command-binding'.")
("abcdefghijklmNOPQRSTUVWXYZ" :face sym)
(doc :truncate marginalia-truncate-width :face
'marginalia-documentation)))))
+(defun marginalia-annotate-minor-mode (cand)
+ "Annotate minor-mode CAND with status and documentation string."
+ (let* ((ind
+ (with-selected-window
+ (or (minibuffer-selected-window) (selected-window))
+ (lookup-minor-mode-from-indicator cand)))
+ (mode (or ind (intern cand)))
+ (lighter (cdr (assq mode minor-mode-alist)))
+ (lighter-str (and lighter (string-trim (format-mode-line (cons t
lighter))))))
+ (concat
+ (marginalia--fields
+ ((if (and (boundp mode) (symbol-value mode))
+ (propertize "On" 'face 'marginalia-on)
+ (propertize "Off" 'face 'marginalia-off)) :width 3)
+ ((or lighter-str "") :width 10 :face 'marginalia-lighter)
+ ((or (ignore-errors (documentation mode)) "")
+ :truncate marginalia-truncate-width
+ :face 'marginalia-documentation)))))
+
(defun marginalia-annotate-package (cand)
"Annotate package CAND with its description summary."
(when-let* ((pkg (intern (replace-regexp-in-string "-[[:digit:]\\.-]+$" ""
cand)))
