From 3911b69ee7459afa0dbcd0d824aa067afdb971a4 Mon Sep 17 00:00:00 2001 From: Terje Larsen Date: Wed, 23 Oct 2024 23:47:07 +0200 Subject: [PATCH] feat(theme): improve search highlight --- lisp/readable-mono-theme.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/readable-mono-theme.el b/lisp/readable-mono-theme.el index c69ac74..e4b7c2d 100644 --- a/lisp/readable-mono-theme.el +++ b/lisp/readable-mono-theme.el @@ -229,9 +229,10 @@ For example links." `(completions-common-part ((t (:inherit readable-mono-theme-strong)))) `(completions-first-difference ((t (:inherit readable-mono-theme-emphasis)))) `(highlight ((t (:inverse-video t)))) - `(isearch ((t (:inherit highlight)))) + `(isearch ((((background light)) (:inherit highlight :foreground ,l-fg)) + (((background dark)) (:inherit highlight :foreground ,d-fg)))) `(isearch-fail ((t (:inherit error)))) - `(lazy-highlight ((t (:inherit readable-mono-theme-subordinate :inverse-video t)))) + `(lazy-highlight ((t (:inherit (highlight readable-mono-theme-subordinate))))) `(match ((t (:inherit highlight)))) `(region ((((background light)) (:foreground ,l-bg :background ,l-fg)) @@ -468,6 +469,9 @@ For example links." ;;;;; haskell `(haskell-interactive-face-prompt ((t (:inherit readable-mono-theme-strong)))) +;;;;; idle-highlight + `(idle-highlight ((t (:inherit (lazy-highlight))))) + ;;;;; imenu-list `(imenu-list-entry-face-0 ((t (:foreground unspecified)))) `(imenu-list-entry-face-1 ((t (:foreground unspecified))))