diff options
| author | Case Duckworth | 2022-01-25 16:58:11 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-25 16:58:11 -0600 |
| commit | 97687e8d014bfd2f9c157a840428d120473206de (patch) | |
| tree | dd97ca7c8c1f70b3aacc0aaff46c14e85069794d | |
| parent | Change initial-major-mode (diff) | |
| download | emacs-97687e8d014bfd2f9c157a840428d120473206de.tar.gz emacs-97687e8d014bfd2f9c157a840428d120473206de.zip | |
Don't eval after stuff
| -rw-r--r-- | init.el | 57 |
1 files changed, 28 insertions, 29 deletions
| diff --git a/init.el b/init.el index 97c9d4d..4bbc06e 100644 --- a/init.el +++ b/init.el | |||
| @@ -668,35 +668,34 @@ | |||
| 668 | ;; TODO: +display-time-mode with MOAR customizations | 668 | ;; TODO: +display-time-mode with MOAR customizations |
| 669 | (:option display-time-default-load-average nil | 669 | (:option display-time-default-load-average nil |
| 670 | display-time-mail-file :disable) | 670 | display-time-mail-file :disable) |
| 671 | (with-eval-after-load 'discord | 671 | (:require discord +tab-bar) ; Require instead of eval after load |
| 672 | (with-eval-after-load '+tab-bar | 672 | (:option display-time-string-forms |
| 673 | (:option display-time-string-forms | 673 | '((propertize (format-time-string "%H:%M %a %e" now) |
| 674 | '((propertize (format-time-string "%H:%M %a %e" now) | 674 | 'face '+tab-bar-extra |
| 675 | 'face '+tab-bar-extra | 675 | 'help-echo (discord-date-string)) |
| 676 | 'help-echo (discord-date-string)) | 676 | load |
| 677 | load | 677 | (if mail |
| 678 | (if mail | 678 | (concat " " |
| 679 | (concat " " | 679 | (propertize |
| 680 | (propertize | 680 | display-time-mail-string |
| 681 | display-time-mail-string | 681 | 'display `(when (and display-time-use-mail-icon |
| 682 | 'display `(when (and display-time-use-mail-icon | 682 | (display-graphic-p)) |
| 683 | (display-graphic-p)) | 683 | ,@display-time-mail-icon |
| 684 | ,@display-time-mail-icon | 684 | ,@(when (and |
| 685 | ,@(when (and | 685 | display-time-mail-face |
| 686 | display-time-mail-face | 686 | (memq |
| 687 | (memq | 687 | (plist-get |
| 688 | (plist-get | 688 | (cdr display-time-mail-icon) |
| 689 | (cdr display-time-mail-icon) | 689 | :type) |
| 690 | :type) | 690 | '(pbm xbm))) |
| 691 | '(pbm xbm))) | 691 | (let ((bg (face-attribute |
| 692 | (let ((bg (face-attribute | 692 | display-time-mail-face |
| 693 | display-time-mail-face | 693 | :background))) |
| 694 | :background))) | 694 | (when (stringp bg) |
| 695 | (when (stringp bg) | 695 | (list :background bg))))) |
| 696 | (list :background bg))))) | 696 | 'face display-time-mail-face)) |
| 697 | 'face display-time-mail-face)) | 697 | "") |
| 698 | "") | 698 | " ")) |
| 699 | " ")))) | ||
| 700 | 699 | ||
| 701 | (display-time-mode +1)) | 700 | (display-time-mode +1)) |
| 702 | 701 | ||