dotfiles

commit 99dbb07618bf017fb66f457994d5ab0aa39c4eea
parent e8d8b93e0c141fcafef13ce02f2673b84393959f
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date:   Sun,  4 Jun 2023 15:58:50 +0200

Tweak selection faces

Make region cyan rather than blue, so that the selection remains
visible over added hunks from diff or Magit buffers.

Make Magit selections cyan to follow suit.  Make magit-blame headers
blue to fit the "intangible UI" motif.

Look longingly at Modus 4.2 announcement and wonder if this is all
worth it.

Diffstat:
M
.emacs.d/eighters-theme.el
 | 
9
+++++++--

1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el
@@ -359,7 +359,7 @@
   `(org-tag ((t (:inherit font-lock-constant-face))))
   `(org-todo ((t (:inherit error))))
   `(org-verbatim ((t (:background ,bg-hl-dim :foreground ,fg-magenta :inherit fixed-pitch-serif))))
-  `(region ((t (:background ,bg-blue))))
+  `(region ((t (:background ,bg-cyan))))
   `(rst-adornment ((t (:inherit shadow))))
   `(rst-block ((t (:inherit (bold rst-adornment)))))
   `(rst-definition ((t (:inherit font-lock-type-face))))
@@ -461,7 +461,7 @@
   `(which-key-group-description-face ((t (:foreground ,fg-green-dim))))
   `(which-key-key-face ((t :weight bold :inherit help-key-binding)))
 ;;;; Magit.
-  `(magit-blame-highlight ((t (:foreground ,fg-dim :background ,bg-yellow-dimmer))))
+  `(magit-blame-highlight ((t (:foreground ,fg-blue-dim :background ,bg-blue-dimmer))))
   `(magit-branch-current ((t (:inverse-video t :inherit magit-branch-local))))
   `(magit-branch-local ((t (:foreground ,fg-blue))))
   `(magit-branch-remote ((t (:foreground ,fg-green-dim))))
@@ -485,6 +485,11 @@
   `(magit-diff-context-highlight ((t (:background ,bg-hl-dimmer :inherit magit-diff-context))))
   `(magit-diff-hunk-heading ((t (:background ,bg-hl-dim))))
   `(magit-diff-hunk-heading-highlight ((t (:background ,bg-hl))))
+;;;;; Selections.
+  `(magit-section-heading-selection ((t (:foreground ,fg-cyan :background ,bg-cyan-dim))))
+  `(magit-diff-file-heading-selection ((t (:foreground ,fg-cyan :background ,bg-cyan-dim))))
+  `(magit-diff-hunk-heading-selection ((t (:foreground ,fg-cyan :background ,bg-cyan-dim))))
+  `(magit-diff-lines-heading ((t (:foreground ,fg-cyan :inverse-video t))))
 ;;;;; Diffs.
   `(magit-diff-removed ((t (:foreground ,fg-dim :inherit diff-removed))))
   `(magit-diff-removed-highlight ((t (:background ,bg-red-dim))))