diff options
| -rw-r--r-- | init.el | 29 |
1 files changed, 29 insertions, 0 deletions
| @@ -282,6 +282,35 @@ | |||
| 282 | 282 | ||
| 283 | 283 | ||
| 284 | ;; --------------------------------- | 284 | ;; --------------------------------- |
| 285 | ;; Modeline | ||
| 286 | ;; -------- | ||
| 287 | ;; I'm losing the will to give a | ||
| 288 | ;; shit about these descriptions. | ||
| 289 | ;; --------------------------------- | ||
| 290 | |||
| 291 | ;; Display time in modeline | ||
| 292 | (defvar mm/display-time-format-string "%H:%M" | ||
| 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 | |||
| 298 | (defface mm/display-time-face | ||
| 299 | '((((type x w32 mac)) | ||
| 300 | (:foreground "DeepSkyBlue"))) | ||
| 301 | "Face used to display the time in the modeline.") | ||
| 302 | |||
| 303 | (setq display-time-string-forms | ||
| 304 | '((propertize (concat " " 24-hours ":" minutes " ") | ||
| 305 | 'face 'mm/display-time-face))) | ||
| 306 | |||
| 307 | (display-time-mode) | ||
| 308 | |||
| 309 | |||
| 310 | ;; Display battery percentage in modeline | ||
| 311 | (display-battery-mode) | ||
| 312 | |||
| 313 | ;; --------------------------------- | ||
| 285 | ;; Icons | 314 | ;; Icons |
| 286 | ;; ----- | 315 | ;; ----- |
| 287 | ;; Icons make it easy to recongnize | 316 | ;; Icons make it easy to recongnize |