[elpa] externals/marginalia fb84b50de8: Add marginalia-annotate-tab

[ELPA Syncer]

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

    Add marginalia-annotate-tab
---
 marginalia.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/marginalia.el b/marginalia.el
index 31e3e1fa1a..c916c0e902 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -103,6 +103,7 @@ a relative age."
      (project-file marginalia-annotate-project-file)
      (buffer marginalia-annotate-buffer)
      (library marginalia-annotate-library)
+     (tab marginalia-annotate-tab)
      (multi-category marginalia-annotate-multi-category)))
   "Annotator function registry.
 Associates completion categories with annotation functions.
@@ -136,6 +137,7 @@ determine it."
     ("\\<coding system\\>" . coding-system)
     ("\\<minor mode\\>" . minor-mode)
     ("\\<kill-ring\\>" . kill-ring)
+    ("\\<tab by name\\>" . tab)
     ("\\<[Ll]ibrary\\>" . library))
   "Associates regexps to match against minibuffer prompts with categories."
   :type '(alist :key-type regexp :value-type symbol))
@@ -1028,6 +1030,24 @@ These annotations are skipped for remote paths."
      ((abbreviate-file-name (file-name-directory file))
       :truncate -0.5 :face 'marginalia-file-name))))
 
+(defun marginalia-annotate-tab (cand)
+  (when-let* ((tab (seq-find (lambda (tab)
+                               (equal (alist-get 'name tab) cand))
+                             (frame-parameter nil 'tabs)))
+              (ws (alist-get 'ws tab))
+              ;; window-state-buffers requires Emacs 27
+              (bufs (and (fboundp 'window-state-buffers)
+                         (window-state-buffers ws))))
+    ;; NOTE: When the buffer key is present in the window state
+    ;; it is added in front of the window buffer list and gets duplicated.
+    (when (cadr (assq 'buffer ws)) (pop bufs))
+    (marginalia--fields
+     ((if (cdr bufs)
+          (format "%d windows" (length bufs))
+        "1 window ")
+      :face 'marginalia-size)
+     ((string-join bufs " ") :face 'marginalia-documentation))))
+
 (defun marginalia-classify-by-command-name ()
   "Lookup category for current command."
   (and marginalia--command