summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-11-17 21:46:31 +0300
committerAlex Kost <alezost@gmail.com>2015-12-09 19:54:19 +0300
commitd7a58c60d6e167d0fb0661afdbc3450476db10cb (patch)
tree6dfb7a8434551aecf591bc4881f5b7d30d3f9784 /emacs
parentd84018b5b1ee0edbd562f7aa092ef738e8c510ba (diff)
emacs: list: Fontify time stamps.
* emacs/guix-list.el (guix-list-time): New face. (guix-list-get-time): Use it.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/guix-list.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/emacs/guix-list.el b/emacs/guix-list.el
index 87d214bb4d..560ae6a86f 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'."