[elpa] externals/marginalia c76b9d8 132/241: partially rewrite buffer annotator using format-mode-line

[Stefan Monnier]

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

    partially rewrite buffer annotator using format-mode-line
---
 marginalia.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index c57b46e..d17a15a 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -518,13 +518,12 @@ Similar to `marginalia-annotate-symbol', but does not 
show symbol class."
   "Annotate buffer CAND with modification status, file name and major mode."
   (when-let (buffer (get-buffer cand))
     (marginalia--fields
-     ((format-mode-line "%I" nil nil buffer) :width 7 :face 'marginalia-size)
-     ((concat
-       (if (buffer-modified-p buffer) "*" " ")
-       (if (buffer-local-value 'buffer-read-only buffer) "%" " "))
-      :face 'marginalia-modified)
-     ((format-mode-line 'mode-name nil nil buffer)
-      :width 20 :face 'marginalia-mode)
+     ((format-mode-line '((7 (:propertize "%I" face marginalia-size))
+                          marginalia--separator
+                          (:propertize "%1*%1+" face marginalia-modified)
+                          marginalia--separator
+                          (20 (:propertize mode-name face marginalia-mode)))
+                        nil nil buffer))
      ((when-let (file (buffer-file-name buffer))
         (abbreviate-file-name file))
       :truncate (/ marginalia-truncate-width 2)