[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: emacs: list: Fontify time stamps.
From: |
Alex Kost |
Subject: |
02/04: emacs: list: Fontify time stamps. |
Date: |
Wed, 09 Dec 2015 17:04:02 +0000 |
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'."