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

Refactor mu4e segment.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-01 23:35:37 +07:00
parent e8f8a61a74
commit 6c35035bc8
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
doom-modeline-segments.el
View file

@ -118,6 +118,7 @@
(declare-function lsp-workspaces 'lsp-mode) (declare-function lsp-workspaces 'lsp-mode)
(declare-function magit-toplevel 'magit-git) (declare-function magit-toplevel 'magit-git)
(declare-function minions-minor-modes-menu 'minions) (declare-function minions-minor-modes-menu 'minions)
(declare-function mu4e-alert-default-mode-line-formatter 'mu4e-alert)
(declare-function mu4e-alert-enable-mode-line-display 'mu4e-alert) (declare-function mu4e-alert-enable-mode-line-display 'mu4e-alert)
(declare-function nyan-create 'nyan-mode) (declare-function nyan-create 'nyan-mode)
(declare-function parrot-create 'parrot) (declare-function parrot-create 'parrot)
@ -1611,21 +1612,18 @@ mouse-1: Toggle Debug on Quit"
(format "You have %s unread emails" mu4e-alert-mode-line))) (format "You have %s unread emails" mu4e-alert-mode-line)))
" ")))) " "))))
(defvar doom-modeline--mu4e-alert-modeline-formatter #'ignore)
(with-eval-after-load 'mu4e-alert
(setq doom-modeline--mu4e-alert-modeline-formatter mu4e-alert-modeline-formatter))
(defun doom-modeline-override-mu4e-alert-modeline (&rest _) (defun doom-modeline-override-mu4e-alert-modeline (&rest _)
"Delete `mu4e-alert-mode-line' from global modeline string." "Delete `mu4e-alert-mode-line' from global modeline string."
(when (featurep 'mu4e-alert)
(if (and doom-modeline-mu4e (if (and doom-modeline-mu4e
(bound-and-true-p doom-modeline-mode)) (bound-and-true-p doom-modeline-mode))
;; Set mu4e alert modeline ;; Set mu4e-alert modeline
(progn (progn
(setq mu4e-alert-modeline-formatter #'identity) (setq mu4e-alert-modeline-formatter #'identity)
(setq global-mode-string (setq global-mode-string
(delete '(:eval mu4e-alert-mode-line) global-mode-string))) (delete '(:eval mu4e-alert-mode-line) global-mode-string)))
;; Recover default settings ;; Recover default settings
(setq mu4e-alert-modeline-formatter doom-modeline--mu4e-alert-modeline-formatter))) (setq mu4e-alert-modeline-formatter #'mu4e-alert-default-mode-line-formatter))))
(advice-add #'mu4e-alert-enable-mode-line-display :after #'doom-modeline-override-mu4e-alert-modeline) (advice-add #'mu4e-alert-enable-mode-line-display :after #'doom-modeline-override-mu4e-alert-modeline)
(add-hook 'doom-modeline-mode-hook #'doom-modeline-override-fancy-battery-modeline) (add-hook 'doom-modeline-mode-hook #'doom-modeline-override-fancy-battery-modeline)