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

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

[nongnu] elpa/alect-themes 5f96e30 142/269: Improve faces for whitespace


From: ELPA Syncer
Subject: [nongnu] elpa/alect-themes 5f96e30 142/269: Improve faces for whitespace-mode
Date: Thu, 21 Oct 2021 17:59:06 -0400 (EDT)

branch: elpa/alect-themes
commit 5f96e30e0a436835a815fbc03fe69394b8ae8bbc
Author: Alex Kost <alezost@gmail.com>
Commit: Alex Kost <alezost@gmail.com>

    Improve faces for whitespace-mode
---
 alect-themes.el | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/alect-themes.el b/alect-themes.el
index cb426dc..dffca7c 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -1338,23 +1338,21 @@ For INVERT, see `alect-get-color'."
          (which-func ((,c :foreground ,(gc 'green-2))))
 
          ;; whitespace-mode
-         (whitespace-space            ((,c :background ,(gc 'bg)
-                                           :foreground ,(gc 'blue-2))))
+         (whitespace-space            ((,c :foreground ,(gc 'bg+1))))
          (whitespace-hspace           ((,c :background ,(gc 'bg)
-                                           :foreground ,(gc 'gray))))
-         (whitespace-tab              ((,c :background ,(gc 'fg-2)
+                                           :foreground ,(gc 'yellow))))
+         (whitespace-tab              ((,c :background ,(gc 'bg+1)
                                            :foreground ,(gc 'blue-2))))
          (whitespace-newline          ((,c :foreground ,(gc 'blue-2))))
-         (whitespace-trailing         ((,c :background ,(gc 'red))))
-         (whitespace-line             ((,c :background ,(gc 'gray)
-                                           :foreground ,(gc 'gray-2))))
-         (whitespace-space-before-tab ((,c :background ,(gc 'fg-2)
-                                           :foreground ,(gc 'fg-2))))
-         (whitespace-indentation      ((,c :background ,(gc 'yellow-2)
-                                           :foreground ,(gc 'red-2))))
-         (whitespace-empty            ((,c :background ,(gc 'yellow))))
-         (whitespace-space-after-tab  ((,c :background ,(gc 'yellow-2)
-                                           :foreground ,(gc 'red-2))))
+         (whitespace-trailing         ((,c :inherit trailing-whitespace)))
+         (whitespace-line             ((,c :background ,(gc 'bg-2))))
+         (whitespace-empty            ((,c :background ,(gc 'bg+1))))
+         (whitespace-indentation      ((,c :background ,(gc 'bg+1)
+                                           :foreground ,(gc 'red))))
+         (whitespace-space-before-tab ((,c :background ,(gc 'bg+1)
+                                           :foreground ,(gc 'green))))
+         (whitespace-space-after-tab  ((,c :background ,(gc 'bg+1)
+                                           :foreground ,(gc 'blue))))
 
          ;; widget
          (widget-field             ((,c :background ,(gc 'bg)



reply via email to

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