solarized-emacs

commit a29f55b66b36831952edfa91479b1ba1bc1face0
parent fea1a1db1997e6b259aa50a79e1243384c3ff1eb
Author: Thomas Frössman <thomasf@jossystem.se>
Date:   Mon, 13 Apr 2015 23:34:35 +0200

Revert "Remove the child-theme support"

This reverts commit dbbade9e77a1445b950f0d414233553001a5ccdc.

Diffstat:
M
solarized.el
 | 
10
+++++++---

1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/solarized.el b/solarized.el
@@ -148,8 +148,11 @@ Alpha should be a float between 0 and 1."
 
 ;;; Setup Start
 
-(defun create-solarized-theme (variant theme-name)
-  "Create a VARIANT of the theme named THEME-NAME."
+(defun create-solarized-theme (variant theme-name &optional childtheme)
+  "Create a VARIANT of the theme named THEME-NAME.
+
+When optional argument CHILDTHEME function is supplied it's invoked to further
+customize the resulting theme."
 ;;; Color palette
   (let* ((class '((class color) (min-colors 89)))
          (s-base03    "#002b36")
@@ -2048,7 +2051,8 @@ Alpha should be a float between 0 and 1."
      `(xterm-color-names-bright [,base03 ,orange ,base01 ,base00
                                          ,base0 ,violet ,base1 ,base3])
 ;;; Setup End
-
+     (when childtheme
+       (funcall childtheme))
      ) ; END custom-theme-set-variables
   )    ; END defun create-solarized-theme