diff options
author | Vincent Ambo <tazjin@google.com> | 2019-12-15T22·14+0000 |
---|---|---|
committer | Vincent Ambo <tazjin@google.com> | 2019-12-15T22·54+0000 |
commit | 6ee061e2051af470ecd6d94ce028d48f9789a7e2 (patch) | |
tree | c1e3eb2412818c1c5352c8b7765b5a5c0977d34b /tools/emacs/config/look-and-feel.el | |
parent | 2bf25672846a1d73dc14f5fe1f44f612eea61250 (diff) |
refactor(emacs.d): Use dottime from my dottime package
Instead of locally advicing format-time-string, use my dottime package.
Diffstat (limited to 'tools/emacs/config/look-and-feel.el')
-rw-r--r-- | tools/emacs/config/look-and-feel.el | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/tools/emacs/config/look-and-feel.el b/tools/emacs/config/look-and-feel.el index 8f42133fb8a0..88cab18ed2e2 100644 --- a/tools/emacs/config/look-and-feel.el +++ b/tools/emacs/config/look-and-feel.el @@ -27,21 +27,6 @@ (font . ,font))) (set-frame-font font t t)) -;; Display modeline time in dottime (see https://dotti.me) -;; -;; This is done in a way that initially seems more complicated than -;; one would like, but this is unfortunately required due to the way -;; `format-time-string' handles timezones. -(defun format-dottime-advice (orig _ &optional _ _) - (let* ((offset-sec (car (current-time-zone))) - (offset-hours (/ offset-sec 60 60)) - (dottime (if (/= offset-hours 0) - (concat "%M-%Dt%H·%M" (format "%0+3d" offset-hours)) - "%m-%dT%H·%M"))) - (apply orig '("%m-%dT%H·%M" nil t)))) - -(advice-add 'format-time-string :around #'format-dottime-advice) - ;; Configure telephone-line (defun telephone-misc-if-last-window () "Renders the mode-line-misc-info string for display in the |