emacs-theme-switcher

(if (>= emacs-major-version 24)
  (progn

    (add-to-list 'custom-theme-load-path "~/.emacs.d/themes")

    (setq my-color-themes (list
               'cyberpunk
                   'zenburn
                   'solarized-dark
               'solarized-light
               'comidia
               'late-night
                   ;; 'MechanicalTurq
                   ;; 'DeepBlueDay
               'tango-dark
                   ))

    (defun my-theme-set-default ()
      (interactive)
      (setq theme-current my-color-themes)
      (load-theme (car theme-current) t)
      ;; (set-default-font font-default) ;; restore default font
      )
    ;; TODO: add reverse funcitonnality
    (defun my-theme-cycle ()
      (interactive)
      (disable-theme (car theme-current))
      (setq theme-current (cdr theme-current))
      (if (null theme-current)
          (setq theme-current my-color-themes))
      (load-theme (car theme-current) t)
      ;; (set-default-font font-default) ;; restore default font
      )

      (my-theme-set-default)
      (global-set-key [f12] 'my-theme-cycle)
    )
  ;; else
  (progn
      (require 'color-theme)
      ;; (require 'color-theme-solarized) ;; doesn't work w/ emacsclient 23 on linux
      (setq my-color-themes (list
                 ;; 'color-theme-solarized-light
                 ;; 'color-theme-solarized-dark
                 'color-theme-comidia
                 ;;             'color-theme-midnight
                 'color-theme-aalto-light
                 'color-theme-late-night
                 ;;             'color-theme-kingsajz
                 ;;             'color-theme-simple-1
                 ))
      (setq fav-color-themes-d (list 'color-theme-comidia
                     'color-theme-late-night
                     'color-theme-simple-1
                     'color-theme-midnight
                     'color-theme-hober
                     ))
      (setq fav-color-themes-l (list 'color-theme-aalto-light
                     'color-theme-kingsajz
                     ))
      (defun my-theme-set-default ()
    (interactive)
    (setq theme-current my-color-themes)
    (funcall (car theme-current)))
      (defun my-theme-cycle ()
    (interactive)
    (setq theme-current (cdr theme-current))
    (if (null theme-current)
        (setq theme-current my-color-themes))
    (funcall (car theme-current))
    (message "%S" (car theme-current)))

      (setq theme-current my-color-themes)
      (eval-after-load "color-theme"
    '(progn
       (color-theme-initialize)
       (my-theme-set-default)))
      (setq
       color-theme-is-global   t
       color-theme-is-cumulative t)
      (global-set-key [f12] 'my-theme-cycle)
      )
  )