[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 84f0fde 002/241: add marginalia-command-anno
From: |
Stefan Monnier |
Subject: |
[elpa] externals/marginalia 84f0fde 002/241: add marginalia-command-annotate |
Date: |
Fri, 28 May 2021 20:48:45 -0400 (EDT) |
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
- [elpa] branch externals/marginalia created (now 529aee6), Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 84f0fde 002/241: add marginalia-command-annotate,
Stefan Monnier <=
- [elpa] externals/marginalia eecc6e2 006/241: Get key binding active in next window instead of in the minibuffer, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 863e07b 004/241: experimental: remove selectrum-specifics (may not work out!), Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia e863b6c 007/241: Show key bindings from minibuffer-selected-window, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 4780a6a 009/241: marginalia works with icomplete-vertical now!, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 237a620 001/241: initial prototype, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia c47576c 010/241: add configuration example, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia a6dfb38 003/241: add todos, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia bdbbee2 005/241: add very basic readme, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 6077206 008/241: Ignore byte-compiled files, autoloads and *-pkg.el files, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 0c090f3 011/241: improve readme, Stefan Monnier, 2021/05/28