aboutsummaryrefslogtreecommitdiff
path: root/.emacs.d/rul-lisp/packages/rul-modeline.el
diff options
context:
space:
mode:
authorRaúl Benencia <id@rbenencia.name>2023-08-07 21:56:42 -0700
committerRaúl Benencia <id@rbenencia.name>2023-08-07 21:56:42 -0700
commit1d91655d0eb54cc9f602c0318805fb75c97f6c92 (patch)
treedae752054b1859f1afafa52ffdd41b9d6ae34066 /.emacs.d/rul-lisp/packages/rul-modeline.el
parentd7c3a4e8254af93b65f3a62b366790782ada449a (diff)
emacs: format display-time
Diffstat (limited to '.emacs.d/rul-lisp/packages/rul-modeline.el')
-rw-r--r--.emacs.d/rul-lisp/packages/rul-modeline.el21
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"
nihil fit ex nihilo