From 1d91655d0eb54cc9f602c0318805fb75c97f6c92 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Mon, 7 Aug 2023 21:56:42 -0700 Subject: emacs: format display-time --- .emacs.d/rul-lisp/packages/rul-modeline.el | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to '.emacs.d/rul-lisp/packages') diff --git a/.emacs.d/rul-lisp/packages/rul-modeline.el b/.emacs.d/rul-lisp/packages/rul-modeline.el index 264719e..a05eeb9 100644 --- a/.emacs.d/rul-lisp/packages/rul-modeline.el +++ b/.emacs.d/rul-lisp/packages/rul-modeline.el @@ -129,14 +129,6 @@ Truncation is done up to `rul-modeline-string-truncate-length'." Read Info node `(elisp) Pixel Specification'.") -;;;; Variables used in the modeline need to be in `risky-local-variable'. -(dolist (construct '( - rul-modeline-major-mode - rul-modeline-misc-info - prot-modeline-align-right - )) - (put construct 'risky-local-variable t)) - ;;;; Miscellaneous (defvar-local rul-modeline-misc-info '(:eval @@ -145,6 +137,19 @@ Read Info node `(elisp) Pixel Specification'.") "Mode line construct displaying `mode-line-misc-info'. Specific to the current window's mode line.") +;;;; Display current time +(setq display-time-format " %a %e %b, %H:%M ") +(setq display-time-default-load-average nil) +(setq display-time-mail-string "") + +;;;; Variables used in the modeline need to be in `risky-local-variable'. +(dolist (construct '( + rul-modeline-major-mode + rul-modeline-misc-info + prot-modeline-align-right + )) + (put construct 'risky-local-variable t)) + ;;;; Finally, define the modeline format (setq-default mode-line-format '("%e" -- cgit v1.2.3