[elpa] externals/marginalia 597186d 065/241: add marginalia-annotate-minor-mode

[Stefan Monnier]

branch: externals/marginalia
commit 597186dad0952b808aa5b3a7715a0268ad00e35b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)))