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

Merge pull request #124 from hlissner/patch-1

Browse source 
Hide checker segment when disabled/empty
This commit is contained in:
Vincent Zhang 2019-03-01 03:17:31 +07:00 committed by GitHub
commit cbc74f0e9e
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 25 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
doom-modeline-segments.el
View file

@ -831,29 +831,31 @@ icons."
`(,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)))))
(let ((icon (car seg)) (if seg
(text (cdr seg))) (let ((icon (car seg))
(concat (text (cdr seg)))
(propertize (if vc-mode " " " ") (concat
'face (if active 'mode-line 'mode-line-inactive)) (propertize (if vc-mode " " " ")
(if active 'face (if active 'mode-line 'mode-line-inactive))
(concat icon (if active
(when (and icon text) doom-modeline-vspc) (concat icon
text) (when (and icon text) doom-modeline-vspc)
(concat text)
(when icon (concat
(propertize icon (when icon
'face (propertize icon
(if doom-modeline-icon 'face
`(:height (if doom-modeline-icon
,(doom-modeline-icon-height 1.3) `(:height
:family ,(doom-modeline-icon-height 1.3)
,(all-the-icons-icon-family icon) :family
:inherit mode-line-inactive) ,(all-the-icons-icon-family icon)
'mode-line-inactive))) :inherit mode-line-inactive)
(when (and icon text) doom-modeline-inactive-vspc) 'mode-line-inactive)))
(when text (propertize text 'face 'mode-line-inactive)))) (when (and icon text) doom-modeline-inactive-vspc)
(propertize " " 'face (if active 'mode-line 'mode-line-inactive)))))) (when text (propertize text 'face 'mode-line-inactive))))
(propertize " " 'face (if active 'mode-line 'mode-line-inactive))))
"")))
;; ;;