From 2621c293d82c15c00d9e73a8db75d70da7d0a23b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 1 Mar 2016 14:25:27 +1100 Subject: [PATCH] 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. --- lisp/vc/vc-hooks.el | 23 +++++++++++++++-------- 1 file 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) -- 2.39.5