emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

modeline: polish flycheck segment

Browse source
This commit is contained in:
Henrik Lissner 2016-11-04 03:30:45 +01:00
parent 8d1d514be8
commit 0256174f5a
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/core-modeline.el
View file

@ -294,18 +294,21 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(setq doom--flycheck-cache (setq doom--flycheck-cache
(let ((fw (doom-ml-flycheck-count 'warning)) (let ((fw (doom-ml-flycheck-count 'warning))
(fe (doom-ml-flycheck-count 'error))) (fe (doom-ml-flycheck-count 'error)))
(concat (if fe (concat (concat (if (or fe fw) " ")
" " (if fe (concat
(all-the-icons-octicon "circle-slash" :face 'doom-modeline-urgent :height 1.0 :v-adjust 0) (all-the-icons-octicon "circle-slash" :face 'doom-modeline-urgent :height 1.0 :v-adjust 0)
(propertize " " 'face 'variable-pitch) (propertize " " 'face 'variable-pitch)
(propertize (format "%d" fe) 'face 'doom-modeline-urgent))) (propertize (format "%d" fe) 'face 'doom-modeline-urgent)
(if fw (concat
" " " "
))
(if fw (concat
(all-the-icons-octicon "alert" :face 'doom-modeline-warning :height 0.9 :v-adjust 0) (all-the-icons-octicon "alert" :face 'doom-modeline-warning :height 0.9 :v-adjust 0)
(propertize " " 'face 'variable-pitch) (propertize " " 'face 'variable-pitch)
(propertize (format "%d" fw) 'face 'doom-modeline-warning) (propertize (format "%d" fw) 'face 'doom-modeline-warning)
" "
)) ))
(unless (or fe fw) (if (or fe fw)
" "
(when (active) (when (active)
(all-the-icons-octicon "check" :height 1.2 :v-adjust -0.06)))))))) (all-the-icons-octicon "check" :height 1.2 :v-adjust -0.06))))))))
(concat (concat