Emacs personal configuration
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.

46 lines
1.3KB

  1. ;;; package --- themes
  2. ;;; Commentary:
  3. ;;; Code:
  4. (when (< emacs-major-version 24)
  5. (require-package 'color-theme))
  6. ;;(require-package 'color-theme-sanityinc-solarized)
  7. ;;(require-package 'color-theme-sanityinc-tomorrow)
  8. (require-package 'base16-theme)
  9. (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
  10. ;; (load-theme 'tron-legacy t)
  11. (load-theme 'base16-tomorrow t)
  12. ;; (load-theme 'base16-tomorrow-night t)
  13. ;; If you don't customize it, this is the theme you get.
  14. ;;(setq-default custom-enabled-themes '(sanityinc-solarized-light))
  15. ;; Ensure that themes will be applied even if they have not been customized
  16. (defun reapply-themes ()
  17. "Forcibly load the themes listed in `custom-enabled-themes'."
  18. (dolist (theme custom-enabled-themes)
  19. (unless (custom-theme-p theme)
  20. (load-theme theme)))
  21. (custom-set-variables `(custom-enabled-themes (quote ,custom-enabled-themes))))
  22. (add-hook 'after-init-hook 'reapply-themes)
  23. ;;------------------------------------------------------------------------------
  24. ;; Toggle between light and dark
  25. ;;------------------------------------------------------------------------------
  26. (defun light ()
  27. "Activate a light color theme."
  28. (interactive)
  29. (color-theme-sanityinc-solarized-light))
  30. (defun dark ()
  31. "Activate a dark color theme."
  32. (interactive)
  33. (color-theme-sanityinc-solarized-dark))
  34. (provide 'init-themes)