mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Make mode-line behavior better with grayscale visuals

Browse source 
* lisp/faces.el (mode-line, mode-line-inactive)
(mode-line-highlight): Enable gray faces on grayscale visuals.
This commit is contained in:
Po Lu 2023-04-28 14:43:31 +08:00
parent a97c382682
commit a57a8b75f5
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/faces.el
View file

@ -2696,7 +2696,7 @@ non-nil."
:version "22.1") :version "22.1")
(defface mode-line (defface mode-line
'((((class color) (min-colors 88)) '((((class color grayscale) (min-colors 88))
:box (:line-width -1 :style released-button) :box (:line-width -1 :style released-button)
:background "grey75" :foreground "black") :background "grey75" :foreground "black")
(t (t
@ -2719,11 +2719,11 @@ This inherits from the `mode-line' face."
(defface mode-line-inactive (defface mode-line-inactive
'((default '((default
:inherit mode-line) :inherit mode-line)
(((class color) (min-colors 88) (background light)) (((class color grayscale) (min-colors 88) (background light))
:weight light :weight light
:box (:line-width -1 :color "grey75" :style nil) :box (:line-width -1 :color "grey75" :style nil)
:foreground "grey20" :background "grey90") :foreground "grey20" :background "grey90")
(((class color) (min-colors 88) (background dark) ) (((class color grayscale) (min-colors 88) (background dark) )
:weight light :weight light
:box (:line-width -1 :color "grey40" :style nil) :box (:line-width -1 :color "grey40" :style nil)
:foreground "grey80" :background "grey30")) :foreground "grey80" :background "grey30"))
@ -2733,7 +2733,7 @@ This inherits from the `mode-line' face."
:group 'basic-faces) :group 'basic-faces)
(defface mode-line-highlight (defface mode-line-highlight
'((((supports :box t) (class color) (min-colors 88)) '((((supports :box t) (class color grayscale) (min-colors 88))
:box (:line-width 2 :color "grey40" :style released-button)) :box (:line-width 2 :color "grey40" :style released-button))
(t (t
:inherit highlight)) :inherit highlight))