diff options
| -rw-r--r-- | init.el | 13 |
1 files changed, 6 insertions, 7 deletions
| @@ -289,11 +289,7 @@ | |||
| 289 | ;; --------------------------------- | 289 | ;; --------------------------------- |
| 290 | 290 | ||
| 291 | ;; Display time in modeline | 291 | ;; Display time in modeline |
| 292 | (defvar mm/display-time-format-string "%H:%M" | 292 | (setq display-time-default-load-average nil) |
| 293 | "Time format for `display-time-mode'.") | ||
| 294 | |||
| 295 | (setq display-time-format mm/display-time-format-string | ||
| 296 | display-time-default-load-average nil) | ||
| 297 | 293 | ||
| 298 | (defface mm/display-time-face | 294 | (defface mm/display-time-face |
| 299 | '((((type x w32 mac)) | 295 | '((((type x w32 mac)) |
| @@ -301,12 +297,15 @@ | |||
| 301 | "Face used to display the time in the modeline.") | 297 | "Face used to display the time in the modeline.") |
| 302 | 298 | ||
| 303 | (setq display-time-string-forms | 299 | (setq display-time-string-forms |
| 304 | '((propertize (concat " " 24-hours ":" minutes " ") | 300 | '((propertize (concat |
| 301 | "[ " | ||
| 302 | (format-time-string "%Y-%m-%d" (current-time)) | ||
| 303 | " ]" | ||
| 304 | "[ " 24-hours ":" minutes " ]") | ||
| 305 | 'face 'mm/display-time-face))) | 305 | 'face 'mm/display-time-face))) |
| 306 | 306 | ||
| 307 | (display-time-mode) | 307 | (display-time-mode) |
| 308 | 308 | ||
| 309 | |||
| 310 | ;; Display battery percentage in modeline | 309 | ;; Display battery percentage in modeline |
| 311 | (display-battery-mode) | 310 | (display-battery-mode) |
| 312 | 311 | ||