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

ui/doom-modeline: revise face defs (to match doom-themes update)

Browse source
This commit is contained in:
Henrik Lissner 2017-05-17 17:28:36 +02:00
parent a6c4aace90
commit 03ebdf7855
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
modules/ui/doom-modeline/config.el
View file

@ -119,32 +119,32 @@
:group 'doom) :group 'doom)
(defface doom-modeline-buffer-path (defface doom-modeline-buffer-path
'((t (:inherit mode-line :bold t))) '((t (:inherit mode-line-emphasis :bold t)))
"Face used for the dirname part of the buffer path." "Face used for the dirname part of the buffer path."
:group '+doom-modeline) :group '+doom-modeline)
(defface doom-modeline-buffer-file (defface doom-modeline-buffer-file
'((t (:inherit doom-modeline-buffer-path))) '((t (:inherit mode-line-buffer-id)))
"Face used for the filename part of the mode-line buffer path." "Face used for the filename part of the mode-line buffer path."
:group '+doom-modeline) :group '+doom-modeline)
(defface doom-modeline-buffer-modified (defface doom-modeline-buffer-modified
'((t (:inherit highlight :background nil))) '((t (:inherit error :background nil :bold t)))
"Face used for the 'unsaved' symbol in the mode-line." "Face used for the 'unsaved' symbol in the mode-line."
:group '+doom-modeline) :group '+doom-modeline)
(defface doom-modeline-buffer-major-mode (defface doom-modeline-buffer-major-mode
'((t (:inherit mode-line :bold t))) '((t (:inherit mode-line-emphasis :bold t)))
"Face used for the major-mode segment in the mode-line." "Face used for the major-mode segment in the mode-line."
:group '+doom-modeline) :group '+doom-modeline)
(defface doom-modeline-highlight (defface doom-modeline-highlight
'((t (:inherit mode-line))) '((t (:inherit mode-line-emphasis)))
"Face for bright segments of the mode-line." "Face for bright segments of the mode-line."
:group '+doom-modeline) :group '+doom-modeline)
(defface doom-modeline-panel (defface doom-modeline-panel
'((t (:inherit mode-line))) '((t (:inherit mode-line-highlight)))
"Face for 'X out of Y' segments, such as `+doom-modeline--anzu', `+doom-modeline--evil-substitute' and "Face for 'X out of Y' segments, such as `+doom-modeline--anzu', `+doom-modeline--evil-substitute' and
`iedit'" `iedit'"
:group '+doom-modeline) :group '+doom-modeline)
@ -165,16 +165,16 @@
:group '+doom-modeline) :group '+doom-modeline)
;; Bar ;; Bar
(defface doom-modeline-bar '((t (:inherit highlight :foreground nil))) (defface doom-modeline-bar '((t (:inherit highlight)))
"The face used for the left-most bar on the mode-line of an active window." "The face used for the left-most bar on the mode-line of an active window."
:group '+doom-modeline) :group '+doom-modeline)
(defface doom-modeline-eldoc-bar '((t (:inherit shadow :foreground nil))) (defface doom-modeline-eldoc-bar '((t (:inherit shadow)))
"The face used for the left-most bar on the mode-line when eldoc-eval is "The face used for the left-most bar on the mode-line when eldoc-eval is
active." active."
:group '+doom-modeline) :group '+doom-modeline)
(defface doom-modeline-inactive-bar '((t (:inherit mode-line-inactive))) (defface doom-modeline-inactive-bar '((t (:inherit warning :inverse-video t)))
"The face used for the left-most bar on the mode-line of an inactive window." "The face used for the left-most bar on the mode-line of an inactive window."
:group '+doom-modeline) :group '+doom-modeline)
@ -547,14 +547,15 @@ with `evil-ex-substitute', and/or 4. The number of active `iedit' regions."
(+doom-modeline--make-xpm (+doom-modeline--make-xpm
(face-background (if (active) (face-background (if (active)
'doom-modeline-bar 'doom-modeline-bar
'doom-modeline-inactive-bar)) 'doom-modeline-inactive-bar)
nil t)
+doom-modeline-height +doom-modeline-height
+doom-modeline-bar-width)) +doom-modeline-bar-width))
(def-modeline-segment! eldoc-bar (def-modeline-segment! eldoc-bar
"A differently colored bar, to signify an eldoc display." "A differently colored bar, to signify an eldoc display."
(+doom-modeline--make-xpm (+doom-modeline--make-xpm
(face-background 'doom-modeline-eldoc-bar) (face-background 'doom-modeline-eldoc-bar nil t)
+doom-modeline-height +doom-modeline-height
+doom-modeline-bar-width)) +doom-modeline-bar-width))