[elpa] externals/marginalia ddba3a3849: Improve tab annotator

[ELPA Syncer]

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

    Improve tab annotator
---
 marginalia.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 629a788694..44b6ac3998 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -1050,13 +1050,16 @@ These annotations are skipped for remote paths."
       (concat
        (format #(" (%s)" 0 5 (face marginalia-key)) index)
        (marginalia--fields
-        ((format "win:%s" (length bufs))
+        ((format "win:%s"
+                 (if (eq (car tab) 'current-tab)
+                     (length (window-list nil 'no-minibuf))
+                   (length bufs)))
          :face 'marginalia-size)
         ((format "group:%s" (or (alist-get 'group tab) 'none))
          :face 'marginalia-type
-         :width 30)
-        ((if (memq 'current-tab tab)
-             "*current tab*"
+         :truncate 20)
+        ((if (eq (car tab) 'current-tab)
+             "(current tab)"
            (string-join bufs " "))
          :face 'marginalia-documentation))))))