diff options
| author | Alex Kost <alezost@gmail.com> | 2015-11-17 21:46:31 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-12-09 19:54:19 +0300 |
| commit | d7a58c60d6e167d0fb0661afdbc3450476db10cb (patch) | |
| tree | 6dfb7a8434551aecf591bc4881f5b7d30d3f9784 /emacs | |
| parent | d84018b5b1ee0edbd562f7aa092ef738e8c510ba (diff) | |
| download | guix-d7a58c60d6e167d0fb0661afdbc3450476db10cb.tar.gz | |
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.el | 8 |
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'." |