diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-03-01 14:25:27 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-03-01 14:25:27 +1100 |
| commit | 2621c293d82c15c00d9e73a8db75d70da7d0a23b (patch) | |
| tree | 5c2fbb1f9b302be1f79d809441b9e93a0d402493 /lisp/vc/vc-hooks.el | |
| parent | 3dd82d7501a28c1ac6cebb9a2fc14399413b5c40 (diff) | |
| download | emacs-2621c293d82c15c00d9e73a8db75d70da7d0a23b.tar.gz | |
Use colors in the VC mode lines
* lisp/vc/vc-hooks.el: Make the mode line faces default to
using colors to more clearly tell the user what the status is.
Diffstat (limited to 'lisp/vc/vc-hooks.el')
| -rw-r--r-- | lisp/vc/vc-hooks.el | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el index 0c1718e94cb..6488e53ef02 100644 --- a/lisp/vc/vc-hooks.el +++ b/lisp/vc/vc-hooks.el @@ -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) |