02/04: emacs: list: Fontify time stamps.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit d7a58c60d6e167d0fb0661afdbc3450476db10cb
Author: Alex Kost <address@hidden>
Date:   Tue Nov 17 21:46:31 2015 +0300

    emacs: list: Fontify time stamps.
    
    * emacs/guix-list.el (guix-list-time): New face.
      (guix-list-get-time): Use it.
---
 emacs/guix-list.el |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/emacs/guix-list.el b/emacs/guix-list.el
index 87d214b..560ae6a 100644
--- a/emacs/guix-list.el
+++ b/emacs/guix-list.el
@@ -45,6 +45,11 @@
   "Face used for file paths."
   :group 'guix-list-faces)
 
+(defface guix-list-time
+  '((t :inherit guix-info-time))
+  "Face used for time stamps."
+  :group 'guix-list-faces)
+
 (defcustom guix-list-describe-warning-count 10
   "The maximum number of entries for describing without a warning.
 If a user wants to describe more than this number of marked
@@ -201,7 +206,8 @@ VAL may be nil."
 
 (defun guix-list-get-time (seconds &optional _)
   "Return formatted time string from SECONDS."
-  (guix-get-time-string seconds))
+  (guix-get-string (guix-get-time-string seconds)
+                   'guix-list-time))
 
 (defun guix-list-get-file-path (path &optional _)
   "Return PATH button specification for `tabulated-list-entries'."