 
 (defun light ()
   (interactive)
-  (setq *window-system-color-theme* 'color-theme-sanityinc-solarized-light)
+  (setq window-system-color-theme 'color-theme-sanityinc-solarized-light)
   (reapply-color-themes))
 
 (defun dark ()
   (interactive)
-  (setq *window-system-color-theme* 'color-theme-sanityinc-solarized-dark)
+  (setq window-system-color-theme 'color-theme-sanityinc-solarized-dark)
   (reapply-color-themes))
 
 (set-variable 'color-theme-is-global nil)

(defvar *window-system-color-theme* 'color-theme-sanityinc-solarized-dark
  "Color theme to use in window-system frames")
(defvar *tty-color-theme* 'color-theme-terminal
  "Color theme to use in TTY frames")


(require 'color-theme-autoloads)

  (with-selected-frame frame
    (if window-system
        (preserving-default-font-size
         (funcall window-system-color-theme))
      (funcall tty-color-theme))))

(defun reapply-color-themes ()
  (interactive)
