solarized-emacs

commit 5cdca73fd52fb0ddd18651aca01db2219219bb97
parent 4d2612603ba68ea72a50c356ea28f35697cbd115
Author: Thomas Frössman <thomasf@jossystem.se>
Date:   Sun, 22 Apr 2012 03:31:18 +0200

Theme name is now an argument

Diffstat:
M
solarized-dark-theme.el
 | 
2
+-
M
solarized-light-theme.el
 | 
2
+-
M
solarized-theme.el
 | 
6
+++---

3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/solarized-dark-theme.el b/solarized-dark-theme.el
@@ -2,6 +2,6 @@
 
 (deftheme solarized-dark "The dark variant of the Solarized colour theme")
 
-(create-solarized-theme 'dark)
+(create-solarized-theme 'dark 'solarized-dark)
 
 (provide-theme 'solarized-dark)
diff --git a/solarized-light-theme.el b/solarized-light-theme.el
@@ -2,6 +2,6 @@
 
 (deftheme solarized-light "The light variant of the Solarized colour theme")
 
-(create-solarized-theme 'light)
+(create-solarized-theme 'light 'solarized-light)
 
 (provide-theme 'solarized-light)
diff --git a/solarized-theme.el b/solarized-theme.el
@@ -42,7 +42,7 @@
 ;;
 ;;; Code
 
-(defun create-solarized-theme (variant &optional childtheme)
+(defun create-solarized-theme (variant theme-name &optional childtheme)
   (let* ((class '((class color) (min-colors 89)))
          ;; Solarized palette
          (base03    "#002b36")
@@ -114,7 +114,7 @@
          (green-hc (if (eq variant 'light) green-d green-l))
          (green-lc (if (eq variant 'light) green-l green-d)))
     (custom-theme-set-faces
-     (if (eq variant 'light) 'solarized-light 'solarized-dark)
+     theme-name
      '(button ((t (:underline t))))
      `(link ((,class (:foreground ,yellow :underline t :weight bold))))
      `(link-visited ((,class (:foreground ,yellow :underline t :weight normal))))
@@ -534,7 +534,7 @@
 
 
     (custom-theme-set-variables
-     (if (eq variant 'light) 'solarized-light 'solarized-dark)
+     theme-name
      '(ansi-color-names-vector [solarized-bg red green yellow
                                              blue magenta cyan solarized-fg])