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

Hide checker segment when disabled/empty

Browse source 
For buffers that don't have either mode enabled or a valid checker present.
This commit is contained in:
Henrik Lissner 2019-02-28 14:55:49 -05:00 committed by GitHub
parent 5f9d9a2e48
commit 386000d47f
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))
((bound-and-true-p flycheck-mode)
`(,doom-modeline--flycheck-icon . ,doom-modeline--flycheck-text)))))
(let ((icon (car seg))
(text (cdr seg)))
(concat
(propertize (if vc-mode " " " ")
'face (if active 'mode-line 'mode-line-inactive))
(if active
(concat icon
(when (and icon text) doom-modeline-vspc)
text)
(concat
(when icon
(propertize icon
'face
(if doom-modeline-icon
`(:height
,(doom-modeline-icon-height 1.3)
:family
,(all-the-icons-icon-family icon)
:inherit mode-line-inactive)
'mode-line-inactive)))
(when (and icon text) doom-modeline-inactive-vspc)
(when text (propertize text 'face 'mode-line-inactive))))
(propertize " " 'face (if active 'mode-line 'mode-line-inactive))))))
(if seg
(let ((icon (car seg))
(text (cdr seg)))
(concat
(propertize (if vc-mode " " " ")
'face (if active 'mode-line 'mode-line-inactive))
(if active
(concat icon
(when (and icon text) doom-modeline-vspc)
text)
(concat
(when icon
(propertize icon
'face
(if doom-modeline-icon
`(:height
,(doom-modeline-icon-height 1.3)
:family
,(all-the-icons-icon-family icon)
:inherit mode-line-inactive)
'mode-line-inactive)))
(when (and icon text) doom-modeline-inactive-vspc)
(when text (propertize text 'face 'mode-line-inactive))))
(propertize " " 'face (if active 'mode-line 'mode-line-inactive))))
"")))
;;