Color Theme Cycler

color-theme-cycler.el

(require 'color-theme)
(setq color-theme-is-global t)
(load "zenburn.el")

(setq color-theme-list 
      '(color-theme-calm-forest color-theme-zenburn color-theme-billw color-theme-calm-forest color-theme-goldenrod color-theme-dark-blue2 color-theme-robin-hood color-theme-gray30 color-theme-shaman color-theme-gnome2 color-theme-charcoal-black))

(defun cycle-color-theme-list ()
  (setq color-theme-list (append (cdr color-theme-list) (list (car color-theme-list)))))

(defun toggle-color-theme ()
  (interactive)
  (cycle-color-theme-list)
  (funcall (car color-theme-list))
  (custom-set-faces 
   '(font-lock-brace-face ((t (:inherit font-lock-brace-face :height 0.75))))
   '(font-lock-builtin-face ((t (:inherit font-lock-builtin-face :height 1.5))))
   '(font-lock-function-name-face ((t (:inherit font-lock-function-name-face :height 1.5))))
   '(font-lock-keyword-face ((t (:inherit font-lock-keyword-face :height 1.5))))
   '(font-lock-preprocessor-face ((t (:inherit font-lock-preprocessor :height 1.5)))))
  (message "Using %s" (car color-theme-list)))

(global-set-key (kbd "<f12>") 'toggle-color-theme)