From 759106a71f844029dd128290cb1d019b786a411a Mon Sep 17 00:00:00 2001 From: rearman Date: Thu, 30 Apr 2026 17:02:27 -0400 Subject: [PATCH] Underlining and boxing Move paren match setup to theme definition - no reason not to if using my own theme. Change region to be a box, and corfu-current to be an underline. Much more understated while still gutting the point across. --- init.el | 9 --------- re/eng-paper-theme.el | 6 ++++-- 2 files changed, 4 insertions(+), 11 deletions(-) diff --git a/init.el b/init.el index b850412..1357e2e 100644 --- a/init.el +++ b/init.el @@ -517,15 +517,6 @@ Start from bottom if given a negative line number." (setq show-paren-delay 0 show-paren-style 'expression) -(set-face-attribute 'show-paren-match - nil - :foreground - 'unspecified - :background - 'unspecified - :underline - t) - (setq electric-pair-pairs '((?\" . ?\") (?\‘ . ?\’) (?\“ . ?\”) diff --git a/re/eng-paper-theme.el b/re/eng-paper-theme.el index 49e6992..d4b7c09 100644 --- a/re/eng-paper-theme.el +++ b/re/eng-paper-theme.el @@ -52,13 +52,15 @@ `(scroll-bar ((,class (:foreground ,light-green :background ,safety-green)))) `(region - ((,class (:background ,hi-vis-yellow :extend t)))) + ((,class (:foreground unspecified :background unspecified :box t :extend t)))) `(shadow ((,class (:foreground ,text :weight light)))) `(match ((,class (:background ,hi-vis-yellow)))) `(highlight ((,class (:background ,hi-vis-yellow)))) + `(show-paren-match + ((,class (:foreground unspecified :background unspecified :underline t)))) `(link ((,class (:foreground ,precaution-blue :underline t)))) `(secondary-selection @@ -169,7 +171,7 @@ `(corfu-default ((,class (:inherit default)))) `(corfu-current - ((,class (:foreground ,text :background ,hi-vis-yellow :extend t)))))) + ((,class (:foreground ,text :background ,light-green :underline t :extend t)))))) ;;;###autoload (when load-file-name -- 2.39.5