github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Revert "fix mu4e-alert-mode-line numberp error"

Browse source 
This reverts commit b29ce18e68.
This commit is contained in:
yqrashawn 2019-03-04 11:31:51 +08:00
parent 59047842b0
commit 66779bcb17
1 changed files with 20 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
doom-modeline-segments.el
View file

@ -1586,28 +1586,26 @@ mouse-1: Toggle Debug on Quit"
(doom-modeline--active)
(bound-and-true-p mu4e-alert-mode-line))
;; don't display if the unread mails count is zero
(mu4e-alert--get-mu-unread-mails
(lambda (mails)
(if (> (length mails) 0)
(concat
" "
(propertize
(concat
(if doom-modeline-icon
(doom-modeline-icon-material "mail"
:height 1.1
:v-adjust -0.225
:face 'doom-modeline-warning)
(propertize "#"
'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
doom-modeline-vspc
(propertize (length mails)
'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
'mouse-face '(:box 0)
'help-echo (if (= mu4e-alert-mode-line 1)
"You have an unread email"
(format "You have %s unread emails" mu4e-alert-mode-line)))
" "))))))
(if (> mu4e-alert-mode-line 0)
(concat
" "
(propertize
(concat
(if doom-modeline-icon
(doom-modeline-icon-material "mail"
:height 1.1
:v-adjust -0.225
:face 'doom-modeline-warning)
(propertize "#"
'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
doom-modeline-vspc
(propertize (number-to-string mu4e-alert-mode-line)
'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
'mouse-face '(:box 0)
'help-echo (if (= mu4e-alert-mode-line 1)
"You have an unread email"
(format "You have %s unread emails" mu4e-alert-mode-line)))
" "))))
(defun doom-modeline-override-mu4e-alert-modeline (&rest _)
"Delete `mu4e-alert-mode-line' from global modeline string."