From 7ec3bc9f0c731a302c39c60e63fff676102289c6 Mon Sep 17 00:00:00 2001 From: bard Date: Mon, 11 Mar 2024 21:52:57 -0400 Subject: move modeline time --- bard-emacs-modules/bard-emacs-time.el | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 bard-emacs-modules/bard-emacs-time.el (limited to 'bard-emacs-modules/bard-emacs-time.el') diff --git a/bard-emacs-modules/bard-emacs-time.el b/bard-emacs-modules/bard-emacs-time.el new file mode 100644 index 0000000..aa859f9 --- /dev/null +++ b/bard-emacs-modules/bard-emacs-time.el @@ -0,0 +1,27 @@ +;; Modeline +(setq display-time-format "%Y-%m-%d (%A) %H:%M") +(setq display-time-interval 60) +(setq display-time-default-load-average nil) +(setq display-time-mail-directory nil) +(setq display-time-mail-function nil) +(setq display-time-use-mail-icon nil) +(setq display-time-mail-string nil) +(setq display-time-mail-face nil) +(setq display-time-string-forms + '((propertize + (format-time-string display-time-format now) + 'face 'display-time-date-and-time + 'help-echo (format-time-string "%a %b %e, %Y" now)) + " ")) +(display-time-mode 1) + +;; world clock +(setq world-clock-list + '(("America/New_York" "New York") + ("Europe/Moscow" "Moscow") + ("Europe/London" "London") + ("Asia/Tokyo" "Tokyo"))) + +(setq world-clock-time-format "%Y-%m-%d %B (%A) %R %Z") + +(provide 'bard-emacs-time) -- cgit v1.2.3