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

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

[nongnu] elpa/apropospriate-theme 3cc7729 039/118: adjust flashing color


From: ELPA Syncer
Subject: [nongnu] elpa/apropospriate-theme 3cc7729 039/118: adjust flashing color variables
Date: Thu, 21 Oct 2021 18:02:18 -0400 (EDT)

branch: elpa/apropospriate-theme
commit 3cc7729e266058c3c080ee67769cb0ff3e0789a6
Author: justin talbott <justin@waymondo.com>
Commit: justin talbott <justin@waymondo.com>

    adjust flashing color variables
---
 apropospriate.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/apropospriate.el b/apropospriate.el
index 94c09c2..99c42a8 100644
--- a/apropospriate.el
+++ b/apropospriate.el
@@ -42,8 +42,8 @@
          (orange-1 (if (eq variant 'light) "#FF5722" "#FFA726"))
          (red      (if (eq variant 'light) "#D50000" "#E57373"))
          (red-1    (if (eq variant 'light) "#FF1744" "#EF9A9A"))
-         (pink     (if (eq variant 'light) "#EC407A" "#F8BBD0"))
-         (pink-1   (if (eq variant 'light) "#F8BBD0" "#FF80AB"))
+         (pink     (if (eq variant 'light) "#F8BBD0" "#F8BBD0"))
+         (pink-1   (if (eq variant 'light) "#EC407A" "#FF80AB"))
          (purple   (if (eq variant 'light) "#7E57C2" "#E1BEE7"))
          (purple-1 (if (eq variant 'light) "#B388FF" "#9575CD"))
          (blue     (if (eq variant 'light) "#42A5F5" "#64B5F6"))
@@ -77,9 +77,7 @@
          (light-emphasis (if (eq variant 'light) base00+3 base00-3))
          (light-emphasis-1 (if (eq variant 'light) base00+2 base00-2))
          (light-emphasis-2 (if (eq variant 'light) base00+1 base00-1))
-         (flashing-color (if (eq variant 'light)
-                             (color-lighten-name pink 25)
-                           (color-darken-name pink 25)))
+         (flashing-color (if (eq variant 'light) pink (color-darken-name pink 
25)))
          (highlight-line-color (if (eq variant 'light) base00-1 base00+1)))
 
     (apply 'custom-theme-set-faces theme-name



reply via email to

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