[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 218881e 172/241: Replace consult-buffer anno
From: |
Stefan Monnier |
Subject: |
[elpa] externals/marginalia 218881e 172/241: Replace consult-buffer annotator with consult-multi annotator |
Date: |
Fri, 28 May 2021 20:49:21 -0400 (EDT) |
branch: externals/marginalia
commit 218881ea80476723cb12795ad744867b0d2a3c03
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Replace consult-buffer annotator with consult-multi annotator
See
https://github.com/minad/consult/commit/1864b6a942182ea74e9e4b959bea21886e48370e
---
marginalia.el | 35 +++++++++--------------------------
1 file changed, 9 insertions(+), 26 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 2c9d828..245a057 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -96,8 +96,7 @@ only with the annotations that come with Emacs) without
disabling
(charset . marginalia-annotate-charset)
(package . marginalia-annotate-package)
(imenu . marginalia-annotate-imenu)
- (bookmark . marginalia-annotate-bookmark)
- (consult-buffer . marginalia-annotate-consult-buffer-class))
+ (bookmark . marginalia-annotate-bookmark))
"Lightweight annotator functions.
Associates completion categories with annotation functions.
Each annotation function must return a string,
@@ -110,8 +109,8 @@ See also `marginalia-annotators-heavy'."
'((file . marginalia-annotate-file)
(project-file . marginalia-annotate-project-file)
(buffer . marginalia-annotate-buffer)
- (consult-buffer . marginalia-annotate-consult-buffer-full)
- (command . marginalia-annotate-command))
+ (command . marginalia-annotate-command)
+ (consult-multi . marginalia-annotate-consult-multi))
marginalia-annotators-light)
"Heavy annotator functions.
@@ -328,28 +327,12 @@ This hash table is needed to speed up
`marginalia-annotate-binding'.")
(binding (gethash sym marginalia--annotate-binding-hash)))
(propertize (format " (%s)" (key-description binding)) 'face
'marginalia-key)))
-;; This annotator is consult-specific, it will annotate the `consult-buffer'
command.
-(defun marginalia-annotate-consult-buffer-class (cand)
- "Annotate consult-buffer CAND with the buffer class."
- (marginalia--fields
- ((pcase (- (aref cand 0) #x100000)
- (?b "Buffer")
- (?h "Hidden Buffer")
- (?f "File")
- (?p "Project Buffer")
- (?q "Project File")
- (?m "Bookmark")
- (?v "View"))
- :face 'marginalia-documentation)))
-
-;; This annotator is consult-specific, it will annotate the `consult-buffer'
command.
-(defun marginalia-annotate-consult-buffer-full (cand)
- "Annotate consult-buffer CAND with the buffer class."
- (pcase (- (aref cand 0) #x100000)
- ((or ?b ?h ?p) (marginalia-annotate-buffer (substring cand 1)))
- ((or ?f ?q) (marginalia-annotate-file (substring cand 1)))
- (?m (marginalia-annotate-bookmark (substring cand 1)))
- (_ (marginalia-annotate-consult-buffer-class cand))))
+;; This annotator is consult-specific, it will annotate commands with
`consult-multi' category
+(defun marginalia-annotate-consult-multi (cand)
+ "Annotate consult-multi CAND with the buffer class."
+ (when-let (annotate (alist-get (get-text-property 0 'consult-multi cand)
+ (symbol-value (car marginalia-annotators))))
+ (funcall annotate (substring cand 1))))
(defconst marginalia--advice-regexp
(rx bos
- [elpa] externals/marginalia 0c2735e 214/241: Selectrum advice is unnecessary - post-command-hook performs the update, (continued)
- [elpa] externals/marginalia 0c2735e 214/241: Selectrum advice is unnecessary - post-command-hook performs the update, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 1a100ba 216/241: Add mail address to header, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 470e278 231/241: Restore obsolete variables, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia b6ca937 115/241: shorter mode name, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia cca8f9c 116/241: readme typo, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia d37e9a5 129/241: fix #33, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia c76b9d8 132/241: partially rewrite buffer annotator using format-mode-line, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 6da7980 139/241: fix #39, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia cca0d4f 153/241: add marginalia-annotate-bookmark, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 4a727cd 158/241: fix #46: affixation suffix must not be nil, it must be a string, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 218881e 172/241: Replace consult-buffer annotator with consult-multi annotator,
Stefan Monnier <=
- [elpa] externals/marginalia 436cd05 175/241: consult--multi preserves the original candidate, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 548bf39 012/241: more explicit name for marginalia-command-annotate, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia bcb6bbb 022/241: Correct slight imprecision in docstring, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 642e25d 057/241: replace marginalia-separator-width by marginalia-separator, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia cb64b10 135/241: add comment, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia aa41183 156/241: treat bookmarks as normal alists, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 62ed158 183/241: Version 0.3, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia d2b43ed 189/241: Use project-roots (project-root is Emacs 28), Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 321feea 196/241: Increase marginalia-margin-threshold, Stefan Monnier, 2021/05/28
- [elpa] externals/marginalia 1a65026 195/241: marginalia-annotate-buffer: Truncate mode-name to fix alignment, Stefan Monnier, 2021/05/28