[nongnu] elpa/apropospriate-theme a03fd98f43 1/2: Adjust variation percentage variables and initial light bg value

[ELPA Syncer]

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

    Adjust variation percentage variables and initial light bg value
---
 apropospriate.el | 37 ++++++++++++++++++-------------------
 1 file changed, 18 insertions(+), 19 deletions(-)

diff --git a/apropospriate.el b/apropospriate.el
index c22a0e9800..cd72353d55 100644
--- a/apropospriate.el
+++ b/apropospriate.el
@@ -4,7 +4,7 @@
 
 ;; Author: Justin Talbott <justin@waymondo.com>
 ;; URL: http://github.com/waymondo/apropospriate-theme
-;; Version: 0.1.1
+;; Version: 0.2.0
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -47,7 +47,7 @@ Set to `1.0' or nil to prevent font size manipulation."
   (declare (indent 0))
   `(let* ((class '((class color) (min-colors 89)))
           (variant ,variant)
-          (base00   (if (eq variant 'light) "#FAFAFA" "#424242"))
+          (base00   (if (eq variant 'light) "#F5F5F5" "#424242"))
           (base01   (if (eq variant 'light) "#90A4AE" "#757575"))
           (base02   (if (eq variant 'light) "#78909C" "#9E9E9E"))
           (base03   (if (eq variant 'light) "#546E7A" "#E0E0E0"))
@@ -74,29 +74,28 @@ Set to `1.0' or nil to prevent font size manipulation."
           (green    (if (eq variant 'light) "#66BB6A" "#C5E1A5"))
           (green-1  (if (eq variant 'light) "#558B2F" "#F4FF81"))
           (base00-1 (if (eq variant 'light)
-                        (color-lighten-name base00 3)
-                      (color-darken-name base00 3)))
+                        (color-lighten-name base00 12)
+                      (color-darken-name base00 12)))
           (base00-2 (if (eq variant 'light)
-                        (color-lighten-name base00 5)
-                      (color-darken-name base00 5)))
+                        (color-lighten-name base00 24)
+                      (color-darken-name base00 24)))
           (base00-3 (if (eq variant 'light)
-                        (color-lighten-name base00 10)
-                      (color-darken-name base00 10)))
+                        (color-lighten-name base00 36)
+                      (color-darken-name base00 36)))
           (base00+1 (if (eq variant 'light)
                         (color-darken-name base00 2)
-                      (color-lighten-name base00 2)))
+                      (color-lighten-name base00 12)))
           (base00+2 (if (eq variant 'light)
-                        (color-darken-name base00 8)
-                      (color-lighten-name base00 8)))
+                        (color-darken-name base00 4)
+                      (color-lighten-name base00 24)))
           (base00+3 (if (eq variant 'light)
-                        (color-darken-name base00 12)
-                      (color-lighten-name base00 12)))
-          (base03-1 (if (eq variant 'light) (color-lighten-name base03 10) 
(color-darken-name base03 10)))
+                        (color-darken-name base00 6)
+                      (color-lighten-name base00 36)))
           (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) pink (color-darken-name pink 
25)))
-          (highlight-line-color (if (eq variant 'light) base00-1 base00+1)))
+          (highlight-line-color base00+1))
      ,@body))
 
 (defun create-apropospriate-theme (variant theme-name)
@@ -110,7 +109,7 @@ Set to `1.0' or nil to prevent font size manipulation."
      `(border ((,class (:background ,base02))))
      `(cursor ((,class (:background ,pink-1 :inverse-video t))))
      `(highlight ((,class (:background ,base00+1))))
-     `(hl-line ((,class (:background ,highlight-line-color))))
+     `(hl-line ((,class (:background ,(if (eq variant 'light) base00-1 
base00+1)))))
      `(link ((,class (:foreground ,blue :underline t))))
      `(link-visited ((,class (:inherit link :foreground ,purple))))
      `(minibuffer-prompt ((,class (:foreground ,blue :weight bold))))
@@ -287,8 +286,8 @@ Set to `1.0' or nil to prevent font size manipulation."
      `(which-key-posframe ((,class :background ,base00-2 :foreground ,base03)))
      `(which-key-posframe-border ((,class :background ,base00-2)))
      `(company-posframe-quickhelp ((,class :background ,base00-2 :foreground 
,base03)))
-     `(frog-menu-prompt-face ((,class :foreground ,base03-1)))
-     `(frog-menu-actions-face ((,class :foreground ,base03-1)))
+     `(frog-menu-prompt-face ((,class :foreground ,base03)))
+     `(frog-menu-actions-face ((,class :foreground ,base03)))
      `(frog-menu-posframe-background-face ((,class :background ,base00-2)))
      `(frog-menu-action-keybinding-face ((,class :inherit avy-lead-face)))
      `(ivy-posframe-border ((,class :background ,base00-2)))
@@ -639,7 +638,7 @@ Set to `1.0' or nil to prevent font size manipulation."
      `(eshell-ls-special ((,class (:foreground ,orange))))
      `(eshell-ls-symlink ((,class (:foreground ,purple))))
      `(ansi-color-black ((,class (:foreground ,base03))))
-     `(ansi-color-bright-black ((,class (:foreground ,base03-1))))
+     `(ansi-color-bright-black ((,class (:foreground ,base03))))
      `(ansi-color-red ((,class (:foreground ,red))))
      `(ansi-color-bright-red ((,class (:foreground ,red-1))))
      `(ansi-color-green ((,class (:foreground ,green))))