summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el57
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