procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use colors in the VC mode lines

Browse source 
* lisp/vc/vc-hooks.el: Make the mode line faces default to
using colors to more clearly tell the user what the status is.
This commit is contained in:
Lars Ingebrigtsen 2016-03-01 14:25:27 +11:00
parent 3dd82d7501
commit 2621c293d8
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/vc/vc-hooks.el
View file

@ -54,44 +54,51 @@
:group 'vc-faces)
(defface vc-needs-update-state
'((default :inherit vc-state-base-face))
'((default :inherit vc-state-base-face)
(((class color)) :foreground "blue" :weight bold))
"Face for VC modeline state when the file needs update."
:version "25.1"
:group 'vc-faces)
(defface vc-locked-state
'((default :inherit vc-state-base-face))
'((default :inherit vc-state-base-face)
(((class color)) :foreground "red"))
"Face for VC modeline state when the file locked."
:version "25.1"
:group 'vc-faces)
(defface vc-locally-added-state
'((default :inherit vc-state-base-face))
'((default :inherit vc-state-base-face)
(((class color)) :foreground "ForestGreen"))
"Face for VC modeline state when the file is locally added."
:version "25.1"
:group 'vc-faces)
(defface vc-conflict-state
'((default :inherit vc-state-base-face))
'((default :inherit vc-state-base-face)
(((class color)) :foreground "red" :weight bold))
"Face for VC modeline state when the file contains merge conflicts."
:version "25.1"
:group 'vc-faces)
(defface vc-removed-state
'((default :inherit vc-state-base-face))
'((default :inherit vc-state-base-face)
(((class color)) :foreground "red"))
"Face for VC modeline state when the file was removed from the VC system."
:version "25.1"
:group 'vc-faces)
(defface vc-missing-state
'((default :inherit vc-state-base-face))
'((default :inherit vc-state-base-face)
(((class color)) :foreground "red"))
"Face for VC modeline state when the file is missing from the file system."
:version "25.1"
:group 'vc-faces)
(defface vc-edited-state
'((default :inherit vc-state-base-face))
"Face for VC modeline state when the file is up to date."
'((default :inherit vc-state-base-face)
(((class color)) :foreground "ForestGreen"))
"Face for VC modeline state when the file is edited."
:version "25.1"
:group 'vc-faces)