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

Fix #202: Be compatible with delight.

Browse source
This commit is contained in:
Vincent Zhang 2019-08-03 14:38:10 +08:00
parent ada38ab4d8
commit cf9bfe34a5
1 changed files with 17 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
doom-modeline-segments.el
View file

@ -479,14 +479,16 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(propertize
(concat
(doom-modeline-spc)
(format-mode-line
`(:propertize ("" mode-name)
help-echo "Major mode\n\
(propertize (format-mode-line
(or (and (boundp 'delighted-modes)
(cadr (assq major-mode delighted-modes)))
mode-name))
'help-echo "Major mode\n\
mouse-1: Display major mode menu\n\
mouse-2: Show help for major mode\n\
mouse-3: Toggle minor modes"
mouse-face mode-line-highlight
local-map ,mode-line-major-mode-keymap))
'mouse-face 'mode-line-highlight
'local-map mode-line-major-mode-keymap)
(when (and doom-modeline-env-version doom-modeline-env--version)
(format " %s" doom-modeline-env--version))
(and (boundp 'text-scale-mode-amount)
@ -521,14 +523,14 @@ mouse-3: Toggle minor modes"
(doom-modeline-def-segment minor-modes
(when doom-modeline-minor-modes
(let ((active (doom-modeline--active)))
(let ((face (if (doom-modeline--active)
'doom-modeline-buffer-minor-mode
'mode-line-inactive)))
(if (bound-and-true-p minions-mode)
(concat
(doom-modeline-spc)
(propertize minions-mode-line-lighter
'face (if active
'doom-modeline-buffer-minor-mode
'mode-line-inactive)
'face face
'help-echo "Minions
mouse-1: Display minor modes menu"
'mouse-face 'mode-line-highlight
@ -536,12 +538,12 @@ mouse-1: Display minor modes menu"
'mouse-1 #'minions-minor-modes-menu))
(doom-modeline-spc))
(concat
(format-mode-line
`(:propertize ("" minor-mode-alist)
face ,(if active
'doom-modeline-buffer-minor-mode
'mode-line-inactive)))
(doom-modeline-vspc))))))
(propertize (replace-regexp-in-string
(regexp-quote "%") "%%%%"
(format-mode-line minor-mode-alist)
t t)
'face face)
(doom-modeline-spc))))))
;;