From 07369cf05cb123e19932cc20e443cfe8d979b526 Mon Sep 17 00:00:00 2001 From: Greg Pfeil Date: Sun, 12 Feb 2023 17:26:10 -0700 Subject: [PATCH] Handle the remaining color locations MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Some attributes that can be a color name weren’t converted from Solarized’s symbols. E.g., `:box`, `:overline`, etc. Now they’re all handled. --- solarized-definitions.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/solarized-definitions.el b/solarized-definitions.el index 2975594..39c41d4 100644 --- a/solarized-definitions.el +++ b/solarized-definitions.el @@ -144,7 +144,7 @@ If LIGHT is non-nil, invert the base faces." The colors are looked up in ‘solarized-colors’, and base colors are inverted if LIGHT is non-nil." (let ((new-fontspec (copy-sequence facespec))) - (dolist (property '(:foreground :background :color)) + (dolist (property '(:background :box :color :foreground :overline :strike-through :underline)) (let ((color-name (plist-get new-fontspec property))) (when (and color-name (symbolp color-name)) (plist-put new-fontspec