refactor(emacs.d): Use dottime from my dottime package

Instead of locally advicing format-time-string, use my dottime
package.
This commit is contained in:
Vincent Ambo 2019-12-15 22:14:31 +00:00
parent 2bf2567284
commit 6ee061e205
3 changed files with 4 additions and 17 deletions

View file

@ -38,6 +38,7 @@
(use-package dash)
(use-package dash-functional)
(use-package dottime :config (dottime-display-mode t))
(use-package gruber-darker-theme)
(use-package ht)
(use-package hydra)

View file

@ -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

View file

@ -8,6 +8,7 @@ with third_party.emacsPackagesNg;
with third_party.emacs;
let
localPackages = pkgs.tools.emacs-pkgs;
emacsWithPackages = (third_party.emacsPackagesNgGen third_party.emacs26).emacsWithPackages;
tazjinsEmacs = (emacsWithPackages(epkgs:
@ -81,7 +82,7 @@ let
]) ++
# Custom packages
[ carp-mode ]
[ carp-mode localPackages.dottime ]
));
in third_party.writeShellScriptBin "tazjins-emacs" ''
exec ${tazjinsEmacs}/bin/emacs \
@ -90,5 +91,5 @@ in third_party.writeShellScriptBin "tazjins-emacs" ''
--no-site-lisp \
--no-init-file \
--directory ${./config} \
--eval "(require 'init)"
--eval "(require 'init)" $@
''