[elpa] externals/marginalia fe5d5db 047/241: add faces: marginalia-file-modes, marginalia-file-owner

[Stefan Monnier]

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

    add faces: marginalia-file-modes, marginalia-file-owner
---
 marginalia.el | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index a37cbdd..539f598 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -74,6 +74,16 @@
   "Face used to highlight file names in `marginalia-mode'."
   :group 'marginalia)
 
+(defface marginalia-file-modes
+  '((t :inherit marginalia-documentation))
+  "Face used to highlight file modes in `marginalia-mode'."
+  :group 'marginalia)
+
+(defface marginalia-file-owner
+  '((t :inherit marginalia-documentation))
+  "Face used to highlight file owners in `marginalia-mode'."
+  :group 'marginalia)
+
 (defcustom marginalia-documentation-width 80
   "Width of documentation string."
   :type 'integer
@@ -339,11 +349,13 @@ using `minibuffer-force-complete' on the candidate CAND."
                         12 marginalia-separator-width ;; user:group
                         7 marginalia-separator-width ;; size
                         12) ;; date
-     (file-attribute-modes attributes)
+     (propertize (file-attribute-modes attributes)
+                 'face 'marginalia-file-modes)
      (marginalia--separator)
-     (format "%12s" (format "%s:%s"
-                            (file-attribute-user-id attributes)
-                            (file-attribute-group-id attributes)))
+     (propertize (format "%12s" (format "%s:%s"
+                                        (file-attribute-user-id attributes)
+                                        (file-attribute-group-id attributes)))
+                 'face 'marginalia-file-owner)
      (marginalia--separator)
      (propertize (format "%7s" (file-size-human-readable (file-attribute-size 
attributes)))
                  'face 'marginalia-size)