diff options
| author | bard <[email protected]> | 2024-03-11 21:52:57 -0400 |
|---|---|---|
| committer | bard <[email protected]> | 2024-03-11 21:52:57 -0400 |
| commit | 7ec3bc9f0c731a302c39c60e63fff676102289c6 (patch) | |
| tree | 9e88d9583223cdf1ff42420a7f66925d03ce03b7 /bard-emacs-modules | |
| parent | 296c62a4a432e312859e1b76cb056b94b1078dca (diff) | |
move modeline time
Diffstat (limited to 'bard-emacs-modules')
| -rw-r--r-- | bard-emacs-modules/bard-emacs-time.el | 27 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-ui.el | 17 |
2 files changed, 27 insertions, 17 deletions
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) diff --git a/bard-emacs-modules/bard-emacs-ui.el b/bard-emacs-modules/bard-emacs-ui.el index 5a5d303..f4b0e03 100644 --- a/bard-emacs-modules/bard-emacs-ui.el +++ b/bard-emacs-modules/bard-emacs-ui.el @@ -49,23 +49,6 @@ (setq whitespace-style '(face tabs spaces trailing space-before-tab newline indentation empty space-after-tab space-mark tab-mark)) -;; Modeline -(setq display-time-format "%Y-%m-%d %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) - ;; Fonts ;; Removed in favour of fontaine package |