        (interactive)
        ;; `dark-theme' is set to `t' if `dark' value is `'dark'
        (setq dark-theme (equal ,dark 'dark))
-       (my/disable-all-themes)
+       (my/disable-enabled-themes)
        (when (not (equal ',theme-name 'default))
          (load-theme ',theme-name t))
        (when (featurep 'defuns)

                      (default         'light "gray")) ; default emacs theme
  "Alist of themes I tend to switch to frequently.")

(defun my/disable-all-themes ()
  "Disable all of my themes."
  (interactive)
  (dolist (theme my/themes)
    (when (not (equal (car theme) 'default))
      (disable-theme (car theme)))))

;; How can I create multiple defuns by looping through a list?
;; http://emacs.stackexchange.com/a/10122/115

;; Time-stamp: <2015-03-27 10:49:05 kmodi>

;; Set up the looks of emacs

