mu4e: add long datetime tooltip to human-date field in headers view.

This commit is contained in:
Sasha Kovar 2013-09-17 10:55:31 -07:00
parent 97e821bcd6
commit defca5dd41
1 changed files with 10 additions and 1 deletions

View File

@ -79,6 +79,12 @@ In the format of `format-time-string'."
:type 'string
:group 'mu4e-headers)
(defcustom mu4e-headers-long-date-format "%a %e %b %Y %X %Z"
"Date format to use in the headers view tooltip.
In the format of `format-time-string'."
:type 'string
:group 'mu4e-headers)
(defcustom mu4e-headers-visible-lines 10
"Number of lines to display in the header view when using the
horizontal split-view. This includes the header-line at the top,
@ -427,7 +433,10 @@ if provided, or at the end of the buffer otherwise."
(:from-or-to (mu4e~headers-from-or-to msg))
(:date (format-time-string mu4e-headers-date-format val))
(:mailing-list (mu4e~headers-mailing-list val))
(:human-date (mu4e~headers-human-date msg))
(:human-date (propertize (mu4e~headers-human-date msg)
'help-echo (format-time-string
mu4e-headers-long-date-format
(mu4e-msg-field msg :date))))
(:flags (propertize (mu4e~headers-flags-str val)
'help-echo (format "%S" val)))
(:tags (propertize (mapconcat 'identity val ", ")))