[nongnu] elpa/apropospriate-theme ef33a42 038/118: flashing-color variable as modified pink

[ELPA Syncer]

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

    flashing-color variable as modified pink
    
    * simplify highlight-tail colors
    * add beacon support
---
 apropospriate.el | 21 +++++++--------------
 1 file changed, 7 insertions(+), 14 deletions(-)

diff --git a/apropospriate.el b/apropospriate.el
index ac48908..94c09c2 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) "#F8BBD0" "#F8BBD0"))
-         (pink-1   (if (eq variant 'light) "#EC407A" "#FF80AB"))
+         (pink     (if (eq variant 'light) "#EC407A" "#F8BBD0"))
+         (pink-1   (if (eq variant 'light) "#F8BBD0" "#FF80AB"))
          (purple   (if (eq variant 'light) "#7E57C2" "#E1BEE7"))
          (purple-1 (if (eq variant 'light) "#B388FF" "#9575CD"))
          (blue     (if (eq variant 'light) "#42A5F5" "#64B5F6"))
@@ -77,6 +77,9 @@
          (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)))
          (highlight-line-color (if (eq variant 'light) base00-1 base00+1)))
 
     (apply 'custom-theme-set-faces theme-name
@@ -530,19 +533,9 @@
                                  ,blue
                                  ,purple
                                  ,orange))
-
+     `(beacon-color ,flashing-color)
      `(highlight-tail-colors
-       (if (eq ',variant 'light)
-           '((,orange-1 . 0)
-             (,yellow . 10)
-             (,yellow-1 . 30)
-             (,base00+1 . 60)
-             (,base00 . 80))
-         '((,pink . 0)
-           (,pink-1 . 10)
-           (,purple-1 . 30)
-           (,base00+1 . 60)
-           (,base00 . 80))))
+       '((,flashing-color . 0) (,base00 . 100)))
 
      `(tabbar-background-color ,base00-2)