|
- ;;; package --- themes
- ;;; Commentary:
- ;;; Code:
-
- (when (< emacs-major-version 24)
- (require-package 'color-theme))
-
- ;;(require-package 'color-theme-sanityinc-solarized)
- ;;(require-package 'color-theme-sanityinc-tomorrow)
- (require-package 'base16-theme)
-
- (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
-
- ;; (load-theme 'tron-legacy t)
- (load-theme 'base16-tomorrow t)
- ;; (load-theme 'base16-tomorrow-night t)
-
- ;; If you don't customize it, this is the theme you get.
- ;;(setq-default custom-enabled-themes '(sanityinc-solarized-light))
-
- ;; Ensure that themes will be applied even if they have not been customized
- (defun reapply-themes ()
- "Forcibly load the themes listed in `custom-enabled-themes'."
- (dolist (theme custom-enabled-themes)
- (unless (custom-theme-p theme)
- (load-theme theme)))
- (custom-set-variables `(custom-enabled-themes (quote ,custom-enabled-themes))))
-
- (add-hook 'after-init-hook 'reapply-themes)
-
- ;;------------------------------------------------------------------------------
- ;; Toggle between light and dark
- ;;------------------------------------------------------------------------------
- (defun light ()
- "Activate a light color theme."
- (interactive)
- (color-theme-sanityinc-solarized-light))
-
- (defun dark ()
- "Activate a dark color theme."
- (interactive)
- (color-theme-sanityinc-solarized-dark))
-
-
- (provide 'init-themes)
|