emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/standard-themes ed4814f777 11/23: Revise whitespace-mod


From: ELPA Syncer
Subject: [elpa] externals/standard-themes ed4814f777 11/23: Revise whitespace-mode faces to be easier to use; apply palette mappings
Date: Mon, 27 Nov 2023 00:58:40 -0500 (EST)

branch: externals/standard-themes
commit ed4814f777bdd557f22ae8a7fca6bad3d3cc5916
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Revise whitespace-mode faces to be easier to use; apply palette mappings
---
 standard-dark-theme.el  |  6 ++++++
 standard-light-theme.el |  6 ++++++
 standard-themes.el      | 24 ++++++++++++------------
 3 files changed, 24 insertions(+), 12 deletions(-)

diff --git a/standard-dark-theme.el b/standard-dark-theme.el
index 830e9da16e..7d94ead255 100644
--- a/standard-dark-theme.el
+++ b/standard-dark-theme.el
@@ -274,6 +274,12 @@
       (rainbow-7 blue-faint)
       (rainbow-8 yellow-cooler)
 
+;;;; Space mappings
+
+      (bg-space unspecified)
+      (fg-space border)
+      (bg-space-err bg-red-intense)
+
 ;;;; Prose mappings
 
       (prose-code cyan-cooler)
diff --git a/standard-light-theme.el b/standard-light-theme.el
index 81bac6ec47..164029df88 100644
--- a/standard-light-theme.el
+++ b/standard-light-theme.el
@@ -274,6 +274,12 @@
       (rainbow-7 blue-faint)
       (rainbow-8 magenta-warmer)
 
+;;;; Space mappings
+
+      (bg-space unspecified)
+      (fg-space border)
+      (bg-space-err bg-red-intense)
+
 ;;;; Prose mappings
 
       (prose-code cyan-cooler)
diff --git a/standard-themes.el b/standard-themes.el
index 76c756bfb4..d096c24df7 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -846,7 +846,7 @@ Optional prefix argument MAPPINGS has the same meaning as 
for
     `(shadow ((,c :foreground ,fg-dim)))
     `(success ((,c :inherit bold :foreground ,info)))
     `(tooltip ((,c :background ,bg-alt :foreground ,fg-main)))
-    `(trailing-whitespace ((,c :background ,bg-red-intense :foreground 
,fg-main)))
+    `(trailing-whitespace ((,c :background ,bg-space-err)))
     `(warning ((,c :inherit bold :foreground ,warning)))
 ;;;; all-the-icons
     `(all-the-icons-blue ((,c :foreground ,blue-cooler)))
@@ -2027,17 +2027,17 @@ Optional prefix argument MAPPINGS has the same meaning 
as for
 ;;;; which-function-mode
     `(which-func ((,c :inherit bold :foreground ,modeline-warning))) ; same as 
`breadcrumb-imenu-leaf-face'
 ;;;; whitespace-mode
-    `(whitespace-big-indent ((,c :background ,bg-err :foreground ,err)))
-    `(whitespace-empty ((,c :inherit whitespace-big-indent)))
-    `(whitespace-hspace ((,c :inherit whitespace-indentation)))
-    `(whitespace-indentation ((,c :background ,bg-dim :foreground ,fg-dim)))
-    `(whitespace-line ((,c :background ,bg-dim :foreground ,warning)))
-    `(whitespace-newline ((,c :inherit whitespace-indentation)))
-    `(whitespace-space ((,c :inherit whitespace-indentation)))
-    `(whitespace-space-after-tab ((,c :inherit whitespace-space-before-tab)))
-    `(whitespace-space-before-tab ((,c :background ,bg-red-intense)))
-    `(whitespace-tab ((,c :inherit whitespace-indentation)))
-    `(whitespace-trailing ((,c :inherit whitespace-space-before-tab)))
+    `(whitespace-big-indent ((,c :background ,bg-space-err)))
+    `(whitespace-empty ((,c :inherit standard-themes-intense-magenta)))
+    `(whitespace-hspace ((,c :background ,bg-space :foreground ,fg-space)))
+    `(whitespace-indentation ((,c :background ,bg-space :foreground 
,fg-space)))
+    `(whitespace-line ((,c :background ,bg-space :foreground ,warning)))
+    `(whitespace-newline ((,c :background ,bg-space :foreground ,fg-space)))
+    `(whitespace-space ((,c :background ,bg-space :foreground ,fg-space)))
+    `(whitespace-space-after-tab ((,c :inherit 
standard-themes-subtle-magenta)))
+    `(whitespace-space-before-tab ((,c :inherit standard-themes-subtle-cyan)))
+    `(whitespace-tab ((,c :background ,bg-space :foreground ,fg-space)))
+    `(whitespace-trailing ((,c :background ,bg-space-err)))
 ;;;; widget
     `(widget-button ((,c :inherit bold :foreground ,fg-link)))
     `(widget-button-pressed ((,c :inherit widget-button :foreground 
,fg-link-visited)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]