branch: externals/marginalia
commit 739469015cfccd3dba6a66aaaa3163a996b00f26
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
add marginalia-annotate-virtual-buffer for consult-buffer
This is consult specific. If more consult specific annotations
come up, we might move them to some separate consult-marginalia package.
But right now, having the annotators here does not hurt.
---
marginalia.el | 26 ++++++++++++++++++++++++--
1 file changed, 24 insertions(+), 2 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 1f323e1..97ee258 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -153,7 +153,8 @@ only with the annotations that come with Emacs) without
disabling
(input-method . marginalia-annotate-input-method)
(coding-system . marginalia-annotate-coding-system)
(charset . marginalia-annotate-charset)
- (package . marginalia-annotate-package))
+ (package . marginalia-annotate-package)
+ (virtual-buffer . marginalia-annotate-virtual-buffer-class))
"Lightweight annotator functions.
Associates completion categories with annotation functions.
Each annotation function must return a string,
@@ -166,6 +167,7 @@ See also `marginalia-annotators-heavy'."
(append
'((file . marginalia-annotate-file)
(buffer . marginalia-annotate-buffer)
+ (virtual-buffer . marginalia-annotate-virtual-buffer-full)
(command . marginalia-annotate-command-full))
marginalia-annotators-light)
"Heavy annotator functions.
@@ -296,6 +298,26 @@ This hash table is needed to speed up
`marginalia-annotate-command-binding'.")
(marginalia-annotate-command-binding cand)
(marginalia-annotate-symbol cand)))
+;; This annotator is consult-specific, it will annotate the `consult-buffer'
command.
+(defun marginalia-annotate-virtual-buffer-class (cand)
+ "Annotate virtual-buffer CAND with the buffer class."
+ (marginalia--fields
+ ((pcase (elt cand 0)
+ (?b "Buffer")
+ (?f "File")
+ (?m "Bookmark")
+ (?v "View"))
+ :width -8 :face 'marginalia-documentation)))
+
+;; This annotator is consult-specific, it will annotate the `consult-buffer'
command.
+(defun marginalia-annotate-virtual-buffer-full (cand)
+ "Annotate virtual-buffer CAND with the buffer class."
+ (let ((cand-without-prefix (replace-regexp-in-string "^[^ ]+ " "" cand)))
+ (pcase (elt cand 0)
+ (?b (marginalia-annotate-buffer cand-without-prefix))
+ (?f (marginalia-annotate-file cand-without-prefix))
+ (_ (marginalia-annotate-virtual-buffer-class cand)))))
+
(defconst marginalia--advice-regexp
(rx bos
(1+ (seq (? "This function has ")
@@ -402,7 +424,7 @@ This hash table is needed to speed up
`marginalia-annotate-command-binding'.")
((buffer-local-value 'major-mode buffer) :width 30 :face 'marginalia-mode)
((if-let (file (buffer-file-name buffer))
(abbreviate-file-name file) "")
- :truncate marginalia-truncate-width
+ :truncate (/ marginalia-truncate-width 2)
:face 'marginalia-file-name))))
;; At some point we might want to revisit how this function is implemented.
Maybe we come up with a
