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.

diff --git a/init.el b/init.el
index b850412efe025d78926ffda9a7c75c6636b02ba7..1357e2ec5cd986e7ca92923a267184b9211a8434 100644 (file)
--- 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 49e699234e89083ab08b944dd1ac3fce581b7b5f..d4b7c09c5524257e677c3b778c5115859f05968f 100644 (file)
--- 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