diff options
-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 | ||