diff options
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-modeline.el | 21 |
1 files changed, 13 insertions, 8 deletions
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" |