branch: externals/marginalia
commit 84f0fdea5e04d6413fc3db96181e7e2e2beaa162
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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
