mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(dottime.el): Support dottime display in notmuch thread view

Browse source 
Advises notmuch to display `Date` headers using dottime.
This commit is contained in:
Vincent Ambo 2019-12-27 12:52:56 +01:00
parent 29e71053be
commit 309d1ac50f
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
tools/emacs-pkgs/dottime/dottime.el
View file

@ -66,7 +66,7 @@
;;
;; This will never display offsets in the chat window, as those are
;; always visible in the modeline anyways.
(when (-contains? features 'telega)
(when (featurep 'telega)
(defun telega-ins--dottime-advice (orig timestamp)
(let* ((dtime (decode-time timestamp t))
(current-ts (time-to-seconds (current-time)))
@ -78,4 +78,22 @@
(advice-add 'telega-ins--date :around #'telega-ins--dottime-advice))
;; Amend the time display in notmuch to use dottime.
(when (featurep 'notmuch)
(defun notmuch-show--dottime-date-advice (orig header header-value)
(if (equal "Date" header)
;; Unfortunately the header insertion functions do not have access
;; to the message object, which means that the only information we
;; have about the timestamp is its string rendering.
(-let* (((sec min hour day mon year dow dst tz)
(parse-time-string header-value)))
(insert header ": "
(dottime-format (encode-time sec min hour day mon year tz)
tz "%a, %Y-")
"\n"))
(funcall orig header header-value)))
(advice-add 'notmuch-show-insert-header :around #'notmuch-show--dottime-date-advice))
(provide 'dottime)