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

modeline: flycheck segment polish (and move to end of rhs)

Browse source
This commit is contained in:
Henrik Lissner 2016-10-06 17:28:08 +02:00
parent 95bbe87339
commit 2b410604f0
1 changed files with 27 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

36
core/core-modeline.el
View file

@ -281,32 +281,39 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(or (and (or (eq doom--flycheck-err-cache doom--flycheck-cache)
(memq flycheck-last-status-change '(running not-checked)))
(if (eq flycheck-last-status-change 'running)
(concat " "
(all-the-icons-octicon
"ellipsis"
:face 'doom-modeline-warning
:height 1.05
:face 'font-lock-doc-face
:height 1.1
:v-adjust 0)
" ")
doom--flycheck-cache))
(and (setq doom--flycheck-err-cache flycheck-current-errors)
(setq doom--flycheck-cache
(let ((fw (doom-ml-flycheck-count 'warning))
(fe (doom-ml-flycheck-count 'error)))
(concat (if fe (concat
(all-the-icons-octicon "x" :face 'doom-modeline-urgent :height 1.2 :v-adjust -0.06)
(propertize (format " %d " fe) 'face 'doom-modeline-urgent)
" "))
" "
(all-the-icons-octicon "circle-slash" :face 'doom-modeline-urgent :height 1.0 :v-adjust 0)
(propertize " " 'face 'variable-pitch)
(propertize (format "%d" fe) 'face 'doom-modeline-urgent)))
(if fw (concat
(all-the-icons-octicon "circle-slash" :face 'doom-modeline-warning :height 1.0 :v-adjust -0.01)
(propertize (format " %d " fw) 'face 'doom-modeline-warning)
" "))
" "
(all-the-icons-octicon "alert" :face 'doom-modeline-warning :height 0.9 :v-adjust 0)
(propertize " " 'face 'variable-pitch)
(propertize (format "%d" fw) 'face 'doom-modeline-warning)
))
(unless (or fe fw)
(when (active)
(all-the-icons-octicon "check" :height 1.2 :v-adjust -0.06))))))))
(concat
" "
(all-the-icons-octicon "check"
:face (if (active) 'doom-modeline-info)
:height 1.2
:v-adjust -0.06)))))
:v-adjust -0.06)
" "))))
(defun *selection-info ()
"Information about the current selection, such as how many characters and
@ -424,11 +431,14 @@ lines are selected, or the NxM dimensions of a block selection."
'(list (*buffer-info)
" %l:%c %p "
(*selection-info)
(*flycheck))))))
(rhs (list ,(if id ""
)))))
(rhs ,(if id
'(list (*major-mode))
'(list (*buffer-encoding)
(*vc)))
(*major-mode)))
(*vc)
(*major-mode)
" "
(*flycheck))))
(mid (propertize
" " 'display `((space :align-to (- (+ right right-fringe right-margin)
,(+ 1 (string-width (format-mode-line rhs)))))))))