[elpa] externals/marginalia cca0d4f 153/241: add marginalia-annotate-bookmark

[Stefan Monnier]

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

    add marginalia-annotate-bookmark
---
 marginalia.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/marginalia.el b/marginalia.el
index 2c6d7df..fb54037 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -87,6 +87,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)
     (virtual-buffer . marginalia-annotate-virtual-buffer-class))
   "Lightweight annotator functions.
 Associates completion categories with annotation functions.
@@ -126,6 +127,7 @@ determine it."
   '(("\\<group\\>" . customize-group)
     ("\\<M-x\\>" . command)
     ("\\<package\\>" . package)
+    ("\\<bookmark\\>" . bookmark)
     ("\\<face\\>" . face)
     ("\\<environment variable\\>" . environment-variable)
     ("\\<variable\\>" . variable)
@@ -335,6 +337,7 @@ This hash table is needed to speed up 
`marginalia-annotate-binding'.")
   (pcase (- (elt 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-virtual-buffer-class cand))))
 
 (defconst marginalia--advice-regexp
@@ -499,6 +502,14 @@ Similar to `marginalia-annotate-symbol', but does not show 
symbol class."
        (t (propertize (or (package-desc-status desc) "orphan") 'face 
'marginalia-installed))) :width 10)
      ((package-desc-summary desc) :truncate marginalia-truncate-width :face 
'marginalia-documentation))))
 
+(defun marginalia-annotate-bookmark (cand)
+  "Annotate bookmark CAND with its file name and front context string."
+  (let ((front (bookmark-get-front-context-string cand)))
+    (marginalia--fields
+     ((bookmark-get-filename cand) :width 40 :face 'marginalia-file-name)
+     ((if (or (not front) (string= front "")) "" (concat front "…"))
+      :width 20 :face 'marginalia-documentation))))
+
 (defun marginalia-annotate-customize-group (cand)
   "Annotate customization group CAND with its documentation string."
   (marginalia--documentation (documentation-property (intern cand) 
'group-documentation)))