Convert preferred window-system and tty color themes into 'customize'…

… settings
shipside · Jul 28, 2011 · fc2006e · fc2006e
1 parent 9502556
commit fc2006e
Showing 1 changed file with 11 additions and 8 deletions.
diff --git a/init-themes.el b/init-themes.el
@@ -1,7 +1,10 @@
-(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")
+(defcustom window-system-color-theme 'color-theme-sanityinc-solarized-dark
+  "Color theme to use in window-system frames"
+  :type 'symbol)
+
+(defcustom tty-color-theme 'color-theme-terminal
+  "Color theme to use in TTY frames"
+  :type 'symbol)
 
 
 (require 'color-theme-autoloads)
@@ -21,21 +24,21 @@
   (with-selected-frame frame
     (if window-system
         (preserving-default-font-size
-         (funcall *window-system-color-theme*))
-      (funcall *tty-color-theme*))))
+         (funcall window-system-color-theme))
+      (funcall tty-color-theme))))
 
 (defun reapply-color-themes ()
   (interactive)
   (mapcar 'apply-best-color-theme-for-frame-type (frame-list)))
 
 (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)