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:
parent
2bf2567284
commit
6ee061e205
3 changed files with 4 additions and 17 deletions
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)" $@
|
||||
''
|
||||
|
|
Loading…
Reference in a new issue