Skip to content

Instantly share code, notes, and snippets.

@dleslie

dleslie/override-theme.el

Created October 21, 2014 21:40
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dleslie/c0ec5e05dcbfb2d2a518 to your computer and use it in GitHub Desktop.
Save dleslie/c0ec5e05dcbfb2d2a518 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
override-theme.el
(defun override-theme (arg)
"Disables all enabled themes and then loads the provided theme."
(interactive
(list
(intern (completing-read "Load custom theme: "
(mapcar 'symbol-name (custom-available-themes))))))
(while custom-enabled-themes
(disable-theme (car custom-enabled-themes)))
(load-theme arg t))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment