From 46fe5bb8846750fc3e0cd7d6e8dbe8f2a8ac4528 Mon Sep 17 00:00:00 2001
From: Jeremy Kaplan <jeremydkaplan@gmail.com>
Date: Tue, 10 May 2016 15:25:57 -0400
Subject: [PATCH] Add light theme to emacs

---
 emacs/init.el                        |  2 +-
 emacs/themes/jdkaplan-light-theme.el | 28 ++++++++++++++++++++++++++++
 emacs/themes/jdkaplan-theme.el       |  3 ++-
 3 files changed, 31 insertions(+), 2 deletions(-)
 create mode 100644 emacs/themes/jdkaplan-light-theme.el

diff --git a/emacs/init.el b/emacs/init.el
index a187b7c..41bf12c 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -95,7 +95,6 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
- '(hl-line ((t (:background "black"))))
  '(tuareg-font-lock-operator-face ((t (:inherit font-lock-keyword-face)))))
 
 (require 'autopair)
@@ -280,6 +279,7 @@ they line up with the line containing the corresponding opening bracket."
 
 (add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
 (load-theme 'jdkaplan t)
+;; (load-theme 'jdkaplan-light t)
 
 ;; sup
 (add-to-list 'auto-mode-alist '("/sup.*eml$" . message-mode))
diff --git a/emacs/themes/jdkaplan-light-theme.el b/emacs/themes/jdkaplan-light-theme.el
new file mode 100644
index 0000000..cc7e80a
--- /dev/null
+++ b/emacs/themes/jdkaplan-light-theme.el
@@ -0,0 +1,28 @@
+(deftheme jdkaplan-light "jdkaplan's light theme")
+(custom-theme-set-faces
+ 'jdkaplan-light
+ '(default ((t (:background "#e4e4e4" :foreground "#262626" ))))
+ '(fringe ((t (:background "#eeeeee" ))))
+ '(cursor ((t (:background "#262626" ))))
+ '(mode-line-inactive ((t (:background "#eeeeee" :foreground "#444444" ))))
+ '(mode-line ((t (:background "#bbbbbb" :foreground "#1e1e1e" ))))
+ '(vertical-border ((t (:background "#dddddd" :foreground "#262626" ))))
+ '(region ((t (:background "#dddddd" ))))
+ '(secondary-selection ((t (:background "#e1e1e1" ))))
+ '(font-lock-builtin-face ((t (:foreground "#bf4e1e" ))))
+ '(font-lock-comment-face ((t (:foreground "#888888" ))))
+ '(font-lock-function-name-face ((t (:foreground "#00bccd" ))))
+ '(font-lock-keyword-face ((t (:foreground "#138211" ))))
+ '(font-lock-string-face ((t (:foreground "#a87f00" ))))
+ '(font-lock-type-face ((t (:foreground "#bca600" ))))
+ '(font-lock-constant-face ((t (:foreground "#9158df" ))))
+ '(font-lock-variable-name-face ((t (:foreground "#00bccd" ))))
+ '(minibuffer-prompt ((t (:foreground "#1e1e1e" :bold t ))))
+ '(font-lock-warning-face ((t (:foreground "red" :bold t ))))
+ '(hl-line ((t (:background "#eeeeee"))))
+ '(isearch ((t (:background "#d8d8d8"))))
+
+ '(show-paren-match-face ((t (:foreground "orange"))))
+ )
+
+(provide-theme 'jdkaplan-light)
diff --git a/emacs/themes/jdkaplan-theme.el b/emacs/themes/jdkaplan-theme.el
index 79b4254..c4b5237 100644
--- a/emacs/themes/jdkaplan-theme.el
+++ b/emacs/themes/jdkaplan-theme.el
@@ -13,12 +13,13 @@
  '(font-lock-comment-face ((t (:foreground "#aaaaaa" ))))
  '(font-lock-function-name-face ((t (:foreground "#00c7ff" ))))
  '(font-lock-keyword-face ((t (:foreground "#3cc93a" ))))
- '(font-lock-string-face ((t (:foreground "#d4a102" ))))
+ '(font-lock-string-face ((t (:foreground "#a87f00" ))))
  '(font-lock-type-face ((t (:foreground "#e8cf0e" ))))
  '(font-lock-constant-face ((t (:foreground "#b987ff" ))))
  '(font-lock-variable-name-face ((t (:foreground "#00c7ff" ))))
  '(minibuffer-prompt ((t (:foreground "#c7c7c7" :bold t ))))
  '(font-lock-warning-face ((t (:foreground "red" :bold t ))))
+ '(hl-line ((t (:background "black"))))
 
  '(show-paren-match-face ((t (:foreground "orange" :background "black"))))
  )