branch: elpa/apropospriate-theme
commit a03fd98f438806bfd74ed3cd0957de859ea7fd2f
Author: justin talbott <jus...@waymondo.com>
Commit: justin talbott <jus...@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 <jus...@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))))
