branch: elpa/dirvish
commit cced976617791b4f7ce74d2b612159c0920156a7
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: GitHub <nore...@github.com>
Define new faces for all VC states (#222)
This allows themes to apply styles that are suitable for Dirvish even
when they would not necessarily look good in the modeline where the
generic VC faces are present in. For example, the modus-themes do not
apply colours to the generic VC modeline faces, though they should
apply colour-coding in Dirvish buffers.
---
extensions/dirvish-vc.el | 49 +++++++++++++++++++++++++++++++++++++++++-------
1 file changed, 42 insertions(+), 7 deletions(-)
diff --git a/extensions/dirvish-vc.el b/extensions/dirvish-vc.el
index ad7b664479..82d066142b 100644
--- a/extensions/dirvish-vc.el
+++ b/extensions/dirvish-vc.el
@@ -22,14 +22,14 @@
(defcustom dirvish-vc-state-face-alist
'((up-to-date . nil)
- (edited . vc-edited-state)
- (added . vc-locally-added-state)
- (removed . vc-removed-state)
- (missing . vc-missing-state)
+ (edited . dirvish-vc-edited-state)
+ (added . dirvish-vc-added-state)
+ (removed . dirvish-vc-removed-state)
+ (missing . dirvish-vc-missing-state)
(needs-merge . dirvish-vc-needs-merge-face)
- (conflict . vc-conflict-state)
- (unlocked-changes . vc-locked-state)
- (needs-update . vc-needs-update-state)
+ (conflict . dirvish-vc-conflict-state)
+ (unlocked-changes . dirvish-vc-locked-state)
+ (needs-update . dirvish-vc-needs-update-state)
(ignored . dired-ignored)
(unregistered . dirvish-vc-unregistered-face))
"Alist of (VC-STATE . FACE).
@@ -55,6 +55,41 @@ vc-hooks.el) for detail explanation of these states."
"Face for commit message overlays."
:group 'dirvish)
+(defface dirvish-vc-edited-state
+ '((t :inherit vc-edited-state))
+ "Face used for `edited' vc state in the Dirvish buffer."
+ :group 'dirvish)
+
+(defface dirvish-vc-added-state
+ '((t :inherit vc-locally-added-state))
+ "Face used for `added' vc state in the Dirvish buffer."
+ :group 'dirvish)
+
+(defface dirvish-vc-removed-state
+ '((t :inherit vc-removed-state))
+ "Face used for `removed' vc state in the Dirvish buffer."
+ :group 'dirvish)
+
+(defface dirvish-vc-missing-state
+ '((t :inherit vc-missing-state))
+ "Face used for `missing' vc state in the Dirvish buffer."
+ :group 'dirvish)
+
+(defface dirvish-vc-conflict-state
+ '((t :inherit vc-conflict-state))
+ "Face used for `conflict' vc state in the Dirvish buffer."
+ :group 'dirvish)
+
+(defface dirvish-vc-locked-state
+ '((t :inherit vc-locked-state))
+ "Face used for `locked' vc state in the Dirvish buffer."
+ :group 'dirvish)
+
+(defface dirvish-vc-needs-update-state
+ '((t :inherit vc-needs-update-state))
+ "Face used for `needs-update' vc state in the Dirvish buffer."
+ :group 'dirvish)
+
(defvar vc-dir-process-buffer)
(cl-defmethod transient-infix-set ((obj dirvish-vc-preview) value)
