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

Improve icons for terminal mode.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-04 21:15:28 +07:00
parent 933f321092
commit de4c631252
1 changed files with 19 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
doom-modeline-segments.el
View file

@ -528,7 +528,10 @@ Uses `all-the-icons-octicon' to fetch the icon."
(concat (concat
(propertize " " 'face (if active 'mode-line 'mode-line-inactive)) (propertize " " 'face (if active 'mode-line 'mode-line-inactive))
(if active (if active
(concat icon doom-modeline-vspc text) (concat icon
(if doom-modeline-icon
doom-modeline-vspc)
text)
(concat (concat
(propertize icon (propertize icon
'face 'face
@ -839,7 +842,7 @@ icons."
'face (if active 'mode-line 'mode-line-inactive)) 'face (if active 'mode-line 'mode-line-inactive))
(if active (if active
(concat icon (concat icon
(when (and icon text) doom-modeline-vspc) (when (and doom-modeline-icon icon text) doom-modeline-vspc)
text) text)
(concat (concat
(when icon (when icon
@ -851,7 +854,7 @@ icons."
:family :family
,(all-the-icons-icon-family icon)) ,(all-the-icons-icon-family icon))
'mode-line-inactive))) 'mode-line-inactive)))
(when (and icon text) doom-modeline-inactive-vspc) (when (and doom-modeline-icon icon text) doom-modeline-inactive-vspc)
(when text (propertize text 'face 'mode-line-inactive)))) (when text (propertize text 'face 'mode-line-inactive))))
(propertize " " 'face (if active 'mode-line 'mode-line-inactive)))) (propertize " " 'face (if active 'mode-line 'mode-line-inactive))))
""))) "")))
@ -1504,11 +1507,12 @@ Example:
(propertize (propertize
(concat (concat
(if doom-modeline-icon (if doom-modeline-icon
(doom-modeline-icon-faicon "github" (concat
:v-adjust -0.0575 (doom-modeline-icon-faicon "github"
:face 'doom-modeline-warning) :v-adjust -0.0575
:face 'doom-modeline-warning)
doom-modeline-vspc)
(propertize "#" 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) (propertize "#" 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
doom-modeline-vspc
(propertize (number-to-string doom-modeline--github-notifications-number) (propertize (number-to-string doom-modeline--github-notifications-number)
'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
'help-echo "Github Notifications 'help-echo "Github Notifications
@ -1592,13 +1596,14 @@ mouse-1: Toggle Debug on Quit"
(propertize (propertize
(concat (concat
(if doom-modeline-icon (if doom-modeline-icon
(doom-modeline-icon-material "mail" (concat
:height 1.1 (doom-modeline-icon-material "mail"
:v-adjust -0.225 :height 1.1
:face 'doom-modeline-warning) :v-adjust -0.225
:face 'doom-modeline-warning)
doom-modeline-vspc)
(propertize "#" (propertize "#"
'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
doom-modeline-vspc
(propertize (number-to-string mu4e-alert-mode-line) (propertize (number-to-string mu4e-alert-mode-line)
'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number))))
'mouse-face '(:box 0) 'mouse-face '(:box 0)
@ -1740,7 +1745,8 @@ we don't want to remove that so we just return the original."
) )
face) face)
'help-echo help-echo) 'help-echo help-echo)
(propertize doom-modeline-vspc 'help-echo help-echo) (if doom-modeline-icon
(propertize doom-modeline-vspc 'help-echo help-echo))
(propertize status (propertize status
'face face 'face face
'help-echo help-echo)) 'help-echo help-echo))