alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #272 from abend/long-date-tooltip

Browse Source 
* mu4e: add long datetime tooltip to human-date field in headers view.
This commit is contained in:
Dirk-Jan C. Binnema
2013-09-17 23:04:23 -07:00
parent efe775e8a8 defca5dd41
commit 66b0a3af89
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
mu4e/mu4e-headers.el
View File

@ -79,6 +79,12 @@ In the format of `format-time-string'."
:type 'string :type 'string
:group 'mu4e-headers) :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 (defcustom mu4e-headers-visible-lines 10
"Number of lines to display in the header view when using the "Number of lines to display in the header view when using the
horizontal split-view. This includes the header-line at the top, 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)) (:from-or-to (mu4e~headers-from-or-to msg))
(:date (format-time-string mu4e-headers-date-format val)) (:date (format-time-string mu4e-headers-date-format val))
(:mailing-list (mu4e~headers-mailing-list 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) (:flags (propertize (mu4e~headers-flags-str val)
'help-echo (format "%S" val))) 'help-echo (format "%S" val)))
(:tags (propertize (mapconcat 'identity val ", "))) (:tags (propertize (mapconcat 'identity val ", ")))