github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-27 11:09:52 +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

8
doom-modeline-segments.el
View file

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