[nongnu] elpa/inkpot-theme d052976380 087/104: Improve header contrast for diff mode

[ELPA Syncer]

branch: elpa/inkpot-theme
commit d0529763802ebdc9208bd8aa84ea39d8cffb9acd
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Improve header contrast for diff mode
---
 changelog.rst   |  3 +++
 inkpot-theme.el | 13 ++++++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/changelog.rst b/changelog.rst
index 6b9ab85013..9e3a0bb929 100644
--- a/changelog.rst
+++ b/changelog.rst
@@ -3,6 +3,9 @@
 Change Log
 ##########
 
+- 2021-10-05
+  - Improve header contrast for ``diff-mode``.
+
 - 2021-07-16
   - Add ``fancy-dabbrev`` mode colors.
 
diff --git a/inkpot-theme.el b/inkpot-theme.el
index 08e1abc7e0..776bcca73e 100644
--- a/inkpot-theme.el
+++ b/inkpot-theme.el
@@ -55,7 +55,7 @@
 
       (ip-brown-bright          "#f0ad6d") ;; fg:Number
       (ip-brown-light           "#ffcd8b") ;; fg:Constant fg:String
-      ;; (ip-brown-light+30.9   "#ffffcd") ;; fg:DiffText fg:DiffChange 
fg:DiffDelete fg:DiffAdd
+      (ip-brown-light+30.9      "#ffffcd") ;; fg:DiffText fg:DiffChange 
fg:DiffDelete fg:DiffAdd
 
       (ip-cream-light           "#cfbfad") ;; fg:Normal fg:MBENormal 
fg:MatchParen
 
@@ -214,6 +214,17 @@
    `(diff-refine-added ((t (:background ,ip-green-mid))))
    `(diff-refine-removed ((t (:background ,ip-red-dark+0.2))))
 
+   ;; Headers:
+   ;; These are displayed grouped.
+   `(diff-header ((t (:foreground ,ip-brown-light+30.9 :background 
,ip-grey+18))))
+   ;; Use the same colors, too many tones here makes diff headers overly busy.
+   `(diff-index ((t (:foreground ,ip-brown-light+30.9 :background 
,ip-grey+25))))
+   `(diff-file-header ((t (:foreground ,ip-brown-light+30.9 :background 
,ip-grey+25))))
+   ;; These are displayed side-by-side, a rare exception where a black
+   ;; background is useful to visually separate content.
+   `(diff-hunk-header ((t (:foreground ,ip-cyan-mid :background ,ip-black))))
+   `(diff-function ((t (:foreground ,ip-yellow-bright :background ,ip-black))))
+
    ;; ediff-mode
    `(ediff-current-diff-A ((t (:foreground ,ip-cream-light :background 
,ip-red-mid))))
    `(ediff-current-diff-Ancestor ((t (:foreground ,ip-cream-light :background 
,ip-red-mid))))