[elpa] externals/marginalia 84f0fde 002/241: add marginalia-command-annotate

[Stefan Monnier]

branch: externals/marginalia
commit 84f0fdea5e04d6413fc3db96181e7e2e2beaa162
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    add marginalia-command-annotate
---
 marginalia.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index f49d179..c1c08a4 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -73,7 +73,7 @@ Annotations are only shown if `marginalia-mode' is enabled."
   :type '(alist :key-type symbol :value-type function)
   :group 'marginalia)
 
-(defcustom marginalia-category-alist
+(defcustom marginalia-command-category-alist
   '((execute-extended-command . command)
     (customize-face . face)
     (customize-face-other-window . face)
@@ -221,7 +221,7 @@ PROP is the property which is looked up."
          (funcall fun metadata prop)))
     ('category
      (or (and marginalia--this-command
-              (alist-get marginalia--this-command marginalia-category-alist))
+              (alist-get marginalia--this-command 
marginalia-command-category-alist))
          (funcall fun metadata prop)))
     (_ (funcall fun metadata prop))))
 
@@ -265,5 +265,15 @@ Remember `this-command' for annotation and replace 
highlighting function."
     ;; https://github.com/oantolin/icomplete-vertical/issues/16
     (advice-add #'completion-metadata-get :around 
#'marginalia--completion-metadata-get)))
 
+;;;###autoload
+(defun marginalia-command-annotate (cmd ann)
+  "Modify marginalia configuration such that annotation function ANN is used 
for command CMD."
+  (setq marginalia-command-category-alist
+        (cons (cons cmd cmd)
+              (assq-delete-all cmd marginalia-command-category-alist)))
+  (setq marginalia-command-category-alist
+        (cons (cons cmd ann)
+              (assq-delete-all cmd marginalia-annotate-alist))))
+
 (provide 'marginalia)
 ;;; marginalia.el ends here