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

Refactor: minor modes.

Browse source
This commit is contained in:
Vincent Zhang 2018-12-21 02:28:27 +08:00
parent e5e4964691
commit 7519a379d7
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
doom-modeline.el
View file

@ -933,20 +933,21 @@ mouse-3: Toggle minor modes"
(doom-modeline-def-segment minor-modes (doom-modeline-def-segment minor-modes
(when doom-modeline-minor-modes (when doom-modeline-minor-modes
(if (bound-and-true-p minions-mode) (let ((active (doom-modeline--active)))
(concat (if (bound-and-true-p minions-mode)
" " (concat
(propertize minions-mode-line-lighter " "
'face (if (doom-modeline--active) 'doom-modeline-buffer-minor-mode) (propertize minions-mode-line-lighter
'help-echo "Minions 'face (if active 'doom-modeline-buffer-minor-mode)
'help-echo "Minions
mouse-1: Display minor modes menu" mouse-1: Display minor modes menu"
'mouse-face 'mode-line-highlight 'mouse-face 'mode-line-highlight
'local-map (make-mode-line-mouse-map 'local-map (make-mode-line-mouse-map
'mouse-1 #'minions-minor-modes-menu)) 'mouse-1 #'minions-minor-modes-menu))
" ") " ")
(propertize (propertize
(concat (format-mode-line `(:propertize ("" minor-mode-alist))) " ") (concat (format-mode-line `(:propertize ("" minor-mode-alist))) " ")
'face (if (doom-modeline--active) 'doom-modeline-buffer-minor-mode))))) 'face (if active 'doom-modeline-buffer-minor-mode))))))
;; ;;