256 lines
12 KiB
EmacsLisp
256 lines
12 KiB
EmacsLisp
;;; core-themes-support.el --- Spacemacs Core File
|
|
;;
|
|
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(defconst emacs-built-in-themes (cons 'default (custom-available-themes))
|
|
"List of emacs built-in themes")
|
|
|
|
(defface org-kbd
|
|
'((t (:background "LemonChiffon1" :foreground "black" :box
|
|
(:line-width 2 :color nil :style released-button))))
|
|
"Face for displaying key bindings in Spacemacs documents."
|
|
:group 'org-faces)
|
|
|
|
(defconst spacemacs-theme-name-to-package
|
|
'(
|
|
(alect-black-alt . alect-themes)
|
|
(alect-black . alect-themes)
|
|
(alect-dark-alt . alect-themes)
|
|
(alect-dark . alect-themes)
|
|
(alect-light-alt . alect-themes)
|
|
(alect-light . alect-themes)
|
|
(ample-light . ample-theme)
|
|
(ample-flat . ample-theme)
|
|
(apropospriate-light . apropospriate-theme)
|
|
(apropospriate-dark . apropospriate-theme)
|
|
(base16-3024 . base16-theme)
|
|
(base16-apathy . base16-theme)
|
|
(base16-ashes . base16-theme)
|
|
(base16-atelier-cave-light . base16-theme)
|
|
(base16-atelier-cave . base16-theme)
|
|
(base16-atelier-dune-light . base16-theme)
|
|
(base16-atelier-dune . base16-theme)
|
|
(base16-atelier-estuary-light . base16-theme)
|
|
(base16-atelier-estuary . base16-theme)
|
|
(base16-atelier-forest-light . base16-theme)
|
|
(base16-atelier-forest . base16-theme)
|
|
(base16-atelier-heath-light . base16-theme)
|
|
(base16-atelier-heath . base16-theme)
|
|
(base16-atelier-lakeside-light . base16-theme)
|
|
(base16-atelier-lakeside . base16-theme)
|
|
(base16-atelier-plateau-light . base16-theme)
|
|
(base16-atelier-plateau . base16-theme)
|
|
(base16-atelier-savanna-light . base16-theme)
|
|
(base16-atelier-savanna . base16-theme)
|
|
(base16-atelier-seaside-light . base16-theme)
|
|
(base16-atelier-seaside . base16-theme)
|
|
(base16-atelier-sulphurpool-light . base16-theme)
|
|
(base16-atelier-sulphurpool . base16-theme)
|
|
(base16-bespin . base16-theme)
|
|
(base16-brewer . base16-theme)
|
|
(base16-bright . base16-theme)
|
|
(base16-chalk . base16-theme)
|
|
(base16-codeschool . base16-theme)
|
|
(base16-cupcake . base16-theme)
|
|
(base16-darktooth . base16-theme)
|
|
(base16-default-dark . base16-theme)
|
|
(base16-default-light . base16-theme)
|
|
(base16-dracula . base16-theme)
|
|
(base16-eighties . base16-theme)
|
|
(base16-embers . base16-theme)
|
|
(base16-flat . base16-theme)
|
|
(base16-github . base16-theme)
|
|
(base16-google-dark . base16-theme)
|
|
(base16-google-light . base16-theme)
|
|
(base16-grayscale-dark . base16-theme)
|
|
(base16-grayscale-light . base16-theme)
|
|
(base16-green-screen . base16-theme)
|
|
(base16-harmonic16-dark . base16-theme)
|
|
(base16-harmonic16-light . base16-theme)
|
|
(base16-hopscotch . base16-theme)
|
|
(base16-ir-black . base16-theme)
|
|
(base16-isotope . base16-theme)
|
|
(base16-london-tube . base16-theme)
|
|
(base16-macintosh . base16-theme)
|
|
(base16-marrakesh . base16-theme)
|
|
(base16-materia . base16-theme)
|
|
(base16-mexico-light . base16-theme)
|
|
(base16-mocha . base16-theme)
|
|
(base16-monokai . base16-theme)
|
|
(base16-ocean . base16-theme)
|
|
(base16-oceanicnext . base16-theme)
|
|
(base16-onedark . base16-theme)
|
|
(base16-paraiso . base16-theme)
|
|
(base16-phd . base16-theme)
|
|
(base16-pico . base16-theme)
|
|
(base16-pop . base16-theme)
|
|
(base16-railscasts . base16-theme)
|
|
(base16-rebecca . base16-theme)
|
|
(base16-seti . base16-theme)
|
|
(base16-seti-ui . base16-theme)
|
|
(base16-shapeshifter . base16-theme)
|
|
(base16-solar-flare . base16-theme)
|
|
(base16-solarized-dark . base16-theme)
|
|
(base16-solarized-light . base16-theme)
|
|
(base16-spacemacs . base16-theme)
|
|
(base16-summerfruit-dark . base16-theme)
|
|
(base16-summerfruit-light . base16-theme)
|
|
(base16-tomorrow-night . base16-theme)
|
|
(base16-tomorrow . base16-theme)
|
|
(base16-tube . base16-theme)
|
|
(base16-twilight . base16-theme)
|
|
(base16-unikitty-dark . base16-theme)
|
|
(base16-unikitty-light . base16-theme)
|
|
(base16-woodland . base16-theme)
|
|
(sanityinc-solarized-dark . color-theme-sanityinc-solarized)
|
|
(sanityinc-solarized-light . color-theme-sanityinc-solarized)
|
|
(sanityinc-tomorrow-blue . color-theme-sanityinc-tomorrow)
|
|
(sanityinc-tomorrow-bright . color-theme-sanityinc-tomorrow)
|
|
(sanityinc-tomorrow-day . color-theme-sanityinc-tomorrow)
|
|
(sanityinc-tomorrow-eighties . color-theme-sanityinc-tomorrow)
|
|
(sanityinc-tomorrow-night . color-theme-sanityinc-tomorrow)
|
|
(doom-one . doom-themes)
|
|
(doom-molokai . doom-themes)
|
|
(solarized-light . solarized-theme)
|
|
(solarized-dark . solarized-theme)
|
|
(spacemacs-light . spacemacs-theme)
|
|
(spacemacs-dark . spacemacs-theme)
|
|
(colorsarenice-dark . colorsarenice-theme)
|
|
(colorsarenice-light . colorsarenice-theme)
|
|
(hemisu-dark . hemisu-theme)
|
|
(hemisu-light . hemisu-theme)
|
|
(majapahit-dark . majapahit-theme)
|
|
(majapahit-light . majapahit-theme)
|
|
(material-light . material-theme)
|
|
(minimal-light . minimal-theme)
|
|
(moe-dark . moe-theme)
|
|
(moe-light . moe-theme)
|
|
(stekene-dark . stekene-theme)
|
|
(stekene-light . stekene-theme)
|
|
(brin . sublime-themes)
|
|
(dorsey . sublime-themes)
|
|
(fogus . sublime-themes)
|
|
(graham . sublime-themes)
|
|
(granger . sublime-themes)
|
|
(hickey . sublime-themes)
|
|
(junio . sublime-themes)
|
|
(mccarthy . sublime-themes)
|
|
(odersky . sublime-themes)
|
|
(omtose-darker . omtose-phellack-theme)
|
|
(omtose-softer . omtose-phellack-theme)
|
|
(ritchie . sublime-themes)
|
|
(spolsky . sublime-themes)
|
|
(wilson . sublime-themes)
|
|
(zonokai-blue . zonokai-theme)
|
|
(zonokai-red . zonokai-theme)
|
|
(tao-yin . tao-theme)
|
|
(tao-yang . tao-theme)
|
|
(farmhouse-light . farmhouse-theme)
|
|
(farmhouse-dark . farmhouse-theme)
|
|
)
|
|
"alist matching a theme name with its package name, required when
|
|
package name does not match theme name + `-theme' suffix.")
|
|
|
|
(defvar spacemacs-post-theme-change-hook nil
|
|
"Hook run after theme has changed.")
|
|
|
|
(defun spacemacs//get-theme-package (theme)
|
|
"Returns the package theme for the given THEME name."
|
|
(cond
|
|
;; built-in
|
|
((memq theme emacs-built-in-themes) nil)
|
|
;; from explicit alist
|
|
((assq theme spacemacs-theme-name-to-package)
|
|
(cdr (assq theme spacemacs-theme-name-to-package)))
|
|
;; fallback to <name>-theme
|
|
(t (intern (format "%S-theme" theme)))))
|
|
|
|
(defun spacemacs/load-theme (theme)
|
|
"Load THEME."
|
|
;; Required dependencies for some themes
|
|
(condition-case-unless-debug err
|
|
(progn
|
|
(when (or (memq theme '(zonokai-blue
|
|
zonokai-red
|
|
solarized-light
|
|
solarized-dark
|
|
doom-one
|
|
doom-molokai)))
|
|
(configuration-layer/load-or-install-package 'dash))
|
|
;; Unless Emacs stock themes
|
|
(unless (or (memq theme (custom-available-themes))
|
|
(eq 'default theme))
|
|
(cond
|
|
;; themes with explicitly declared package names
|
|
((assq theme spacemacs-theme-name-to-package)
|
|
(let* ((pkg (spacemacs//get-theme-package theme))
|
|
(pkg-dir (configuration-layer/load-or-install-package pkg)))
|
|
(when (or (eq 'moe-light theme)
|
|
(eq 'moe-dark theme))
|
|
(load-file (concat pkg-dir "moe-light-theme.el"))
|
|
(load-file (concat pkg-dir "moe-dark-theme.el")))
|
|
(add-to-list 'custom-theme-load-path pkg-dir)))
|
|
(t
|
|
;; other themes
|
|
;; we assume that the package name is suffixed with `-theme'
|
|
;; if not we will handle the special themes as we get issues
|
|
;; in the tracker.
|
|
(let ((pkg (spacemacs//get-theme-package theme)))
|
|
(configuration-layer/load-or-install-package pkg))))))
|
|
('error
|
|
(setq theme 'default)
|
|
(display-warning 'spacemacs
|
|
(format (concat "An error occurred while retrieving the "
|
|
"theme, using default theme. (error: %s)")
|
|
err)
|
|
:warning)))
|
|
(mapc 'disable-theme custom-enabled-themes)
|
|
(if (eq 'default theme)
|
|
(progn
|
|
(setq spacemacs--cur-theme 'default)
|
|
(spacemacs/post-theme-init 'default))
|
|
(load-theme theme t)
|
|
;; explicitly reload the theme for the first GUI client
|
|
(eval `(spacemacs|do-after-display-system-init
|
|
(load-theme ',theme t)))))
|
|
|
|
(defun spacemacs/cycle-spacemacs-theme ()
|
|
"Cycle through themes defined in `dotspacemacs-themes.'"
|
|
(interactive)
|
|
(when spacemacs--cur-theme
|
|
(disable-theme spacemacs--cur-theme)
|
|
;; if current theme isn't in cycleable themes, start over
|
|
(setq spacemacs--cycle-themes
|
|
(or (cdr (memq spacemacs--cur-theme dotspacemacs-themes))
|
|
dotspacemacs-themes)))
|
|
(setq spacemacs--cur-theme (pop spacemacs--cycle-themes))
|
|
(let ((progress-reporter
|
|
(make-progress-reporter
|
|
(format "Loading theme %s..." spacemacs--cur-theme))))
|
|
(spacemacs/load-theme spacemacs--cur-theme)
|
|
(progress-reporter-done progress-reporter)))
|
|
|
|
(defadvice load-theme (after spacemacs/load-theme-adv activate)
|
|
"Perform post load processing."
|
|
(let ((theme (ad-get-arg 0)))
|
|
;; Without this a popup is raised every time emacs25 starts up for
|
|
;; assignment to a free variable
|
|
(with-no-warnings
|
|
(setq spacemacs--cur-theme theme))
|
|
(spacemacs/post-theme-init theme)))
|
|
|
|
(defun spacemacs/post-theme-init (theme)
|
|
"Some processing that needs to be done when the current theme
|
|
has been changed to THEME."
|
|
(interactive)
|
|
(run-hooks 'spacemacs-post-theme-change-hook))
|
|
|
|
(provide 'core-themes-support)
|