solarized-emacs

commit 4d2612603ba68ea72a50c356ea28f35697cbd115
parent 4b194573b14867a7c68c55cad25480de4374a855
Author: Thomas Frössman <thomasf@jossystem.se>
Date:   Sun, 22 Apr 2012 01:13:02 +0200

Support for providing a child theme function to create-solarized-theme

Diffstat:
M
solarized-theme.el
 | 
7
+++++--

1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/solarized-theme.el b/solarized-theme.el
@@ -42,7 +42,7 @@
 ;;
 ;;; Code
 
-(defun create-solarized-theme (variant)
+(defun create-solarized-theme (variant &optional childtheme)
   (let* ((class '((class color) (min-colors 89)))
          ;; Solarized palette
          (base03    "#002b36")
@@ -539,7 +539,10 @@
                                              blue magenta cyan solarized-fg])
 
      ;; fill-column-indicator
-     `(fci-rule-color ,solarized-hl))))
+     `(fci-rule-color ,solarized-hl))
+
+    ;; call chained theme function
+    (when childtheme (funcall childtheme))))
 
 ;;;###autoload
 (when load-file-name