[elpa] externals/disk-usage 54d4aee 25/26: Propertize size, percent and children columns

[Pierre Neidhardt]

branch: externals/disk-usage
commit 54d4aee73d3333feb5589a712b62905eb65926ac
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>

    Propertize size, percent and children columns
---
 disk-usage.el | 24 +++++++++++++++++++-----
 1 file changed, 19 insertions(+), 5 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index dd28afe..fa25931 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -110,7 +110,19 @@
 (defface disk-usage-symlink-directory
   '((t :inherit disk-usage-symlink
        :underline t))
-  "Face for symlinks.")
+  "Face for symlinked directories.")
+
+(defface disk-usage-size
+  '((t :inherit default))
+  "Face for sizes.")
+
+(defface disk-usage-percent
+  '((t :inherit default))
+  "Face for the percent column.")
+
+(defface disk-usage-children
+  '((t :inherit default))
+  "Face for the children column.")
 
 (defvar disk-usage-mode-map
   (let ((map (make-sparse-keymap)))
@@ -470,11 +482,13 @@ FILE-ENTRY may be a string or a button."
                          cols)
                      cols))))
       (setq x (tabulated-list-print-col 0
-                                        (funcall 
disk-usage-size-format-function
-                                                 (string-to-number (aref cols 
0)))
+                                        (propertize
+                                         (funcall 
disk-usage-size-format-function
+                                                  (string-to-number (aref cols 
0)))
+                                         'face 'disk-usage-size)
                                         x))
-      (setq x (tabulated-list-print-col 1 (aref cols 1) x))
-      (setq x (tabulated-list-print-col 2 (aref cols 2) x))
+      (setq x (tabulated-list-print-col 1 (propertize (aref cols 1) 'face 
'disk-usage-percent) x))
+      (setq x (tabulated-list-print-col 2 (propertize (aref cols 2) 'face 
'disk-usage-children) x))
       (setq x (tabulated-list-print-col 3 (disk-usage--print-file-col (aref 
cols 3)) x))
       (cl-loop for i from 4 below ncols
                do (setq x (tabulated-list-print-col i (aref cols i) x))))