nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emacs: list: Fontify time stamps. 

* emacs/guix-list.el (guix-list-time): New face.
  (guix-list-get-time): Use it.
This commit is contained in:
Alex Kost 2015-11-17 21:46:31 +03:00
parent d84018b5b1
commit d7a58c60d6
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
emacs/guix-list.el
View File

@ -45,6 +45,11 @@
"Face used for file paths." "Face used for file paths."
:group 'guix-list-faces) :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 (defcustom guix-list-describe-warning-count 10
"The maximum number of entries for describing without a warning. "The maximum number of entries for describing without a warning.
If a user wants to describe more than this number of marked 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 _) (defun guix-list-get-time (seconds &optional _)
"Return formatted time string from SECONDS." "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 _) (defun guix-list-get-file-path (path &optional _)
"Return PATH button specification for `tabulated-list-entries'." "Return PATH button specification for `tabulated-list-entries'."