[elpa] externals/marginalia 4cb6d2b 039/241: marginalia-annotate-file: add modes, user and group

[monnier--- via]

branch: externals/marginalia
commit 4cb6d2bbbdecbbb20fecaf7d28b6ab41b5a6463a
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>

    marginalia-annotate-file: add modes, user and group
---
 marginalia.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 2ca6f56..bf2963d 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -318,12 +318,19 @@ using `minibuffer-force-complete' on the candidate CAND."
 
 (defun marginalia-annotate-file (cand)
   "Annotate file CAND with its size and modification time."
-  (when-let ((attributes (file-attributes (marginalia--full-candidate cand))))
+  (when-let ((attributes (file-attributes (marginalia--full-candidate cand) 
'string)))
     (concat
-     (marginalia--align 7 ;; size
-                        marginalia-separator-width
+     (marginalia--align 10 marginalia-separator-width ;; modes
+                        12 marginalia-separator-width ;; user:group
+                        7 marginalia-separator-width ;; size
                         12 ;; date
                         20) ;; offset
+     (file-attribute-modes attributes)
+     (marginalia--separator)
+     (format "%12s" (format "%s:%s"
+                            (file-attribute-user-id attributes)
+                            (file-attribute-group-id attributes)))
+     (marginalia--separator)
      (propertize (format "%7s" (file-size-human-readable (file-attribute-size 
attributes)))
                  'face 'marginalia-size)
      (marginalia--separator)