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.

Browse source
This commit is contained in:
Vincent Zhang 2019-05-21 14:40:35 +08:00
parent 825c2bed71
commit 58c05c5834
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
doom-modeline-segments.el
View file

@ -942,32 +942,32 @@ mouse-1: List all problems%s"
(advice-add #'flymake--handle-report :after #'doom-modeline-update-flymake-text)
(doom-modeline-def-segment checker
"Displays color-coded error status in the current buffer with pretty
icons."
"Displays color-coded error status in the current buffer with pretty icons."
(let ((active (doom-modeline--active))
(seg (cond ((and (bound-and-true-p flymake-mode)
(bound-and-true-p flymake--backend-state)) ; only support 26+
`(,doom-modeline--flymake-icon . ,doom-modeline--flymake-text))
((bound-and-true-p flycheck-mode)
`(,doom-modeline--flycheck-icon . ,doom-modeline--flycheck-text)))))
(when seg
(let ((icon (car seg))
(text (cdr seg)))
(concat
(doom-modeline-whitespace)
(when icon
(if active
icon
(propertize icon 'face `(:inherit
,(get-text-property 0 'face icon)
:inherit
mode-line-inactive))))
(when (and doom-modeline-icon icon text)
(doom-modeline-vspc))
(when text
(if active
text
(propertize text 'face 'mode-line-inactive))))))))
(if seg
(let ((icon (car seg))
(text (cdr seg)))
(concat
(doom-modeline-whitespace)
(when icon
(if active
icon
(propertize icon 'face `(:inherit
,(get-text-property 0 'face icon)
:inherit
mode-line-inactive))))
(when (and doom-modeline-icon icon text)
(doom-modeline-vspc))
(when text
(if active
text
(propertize text 'face 'mode-line-inactive)))))
"")))
;;