TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
spacemacs/core/core-themes-support.el

229 lines
8.9 KiB
EmacsLisp
Raw Normal View History

Prefix all core files with `core-`
2015-01-27 03:51:47 +00:00
;;; core-themes-support.el --- Spacemacs Core File
Update CONTRIBUTE.md and add file headers Also add default file header to layer templates.
2015-01-14 04:12:56 +00:00
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 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
Don't consider used themes as orphans if they don't belong to a layer Now it is not required to use the themes-megapack layer or define a private layer to use a theme that is not in the spacemacs layer.
2015-04-14 19:50:29 +00:00
(defconst emacs-built-in-themes (custom-available-themes)
"List of emacs built-in themes")
Enhance viewing Spacemacs documents in Org - Use `~` marker to represent key bindings. The `~` and `=` markers are equivalent in Emacs: `=` uses `org-verbatim verbatim` faces, while `~` uses `org-code verbatim)`, but both `org-verbatim` and `org-code` is inherited from `shadow` face. So we can use `~` marker for this purpose. `~` marker is also displayed properly on Github, since it's part of standard Emacs, so no web functionality is broken. - Add org-kbd face for displaying key bindings. - Update CHANGELOG.org: use the proper `~` marker for key bindings. - Update VIMUSERS.org: use the proper `~` marker for key bindings.
2015-06-09 05:31:29 +00:00
(defface org-kbd
'((t (:background "LemonChiffon1" :foreground "black" :box
Update title for Helm Spacemacs Documentation - Don't need to add "Helm". - Add some info to quickhelp. - Increase the line-width of org-kbd to 2 to make it more visible as a button.
2015-06-10 05:32:44 +00:00
(:line-width 2 :color nil :style released-button))))
Enhance viewing Spacemacs documents in Org - Use `~` marker to represent key bindings. The `~` and `=` markers are equivalent in Emacs: `=` uses `org-verbatim verbatim` faces, while `~` uses `org-code verbatim)`, but both `org-verbatim` and `org-code` is inherited from `shadow` face. So we can use `~` marker for this purpose. `~` marker is also displayed properly on Github, since it's part of standard Emacs, so no web functionality is broken. - Add org-kbd face for displaying key bindings. - Update CHANGELOG.org: use the proper `~` marker for key bindings. - Update VIMUSERS.org: use the proper `~` marker for key bindings.
2015-06-09 05:31:29 +00:00
"Face for displaying key bindings in Spacemacs documents."
:group 'org-faces)
dotspacemacs-default-theme --> dotspacemacs-themes It is not possible to declare several themes in .spacemacs with the variable `dotspacemacs-themes` Cycle through these themes with `<SPC> T n` Resolves #472
2015-01-24 03:02:08 +00:00
(defconst spacemacs-theme-name-to-package
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
'(
Update spacemacs-theme-name-to-package
2015-01-27 01:18:46 +00:00
(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)
Add support for apropospriate-theme [apropospriate-theme](https://github.com/waymondo/apropospriate-theme)
2015-04-25 12:12:18 +00:00
(apropospriate-light . apropospriate-theme)
(apropospriate-dark . apropospriate-theme)
Update theme-to-package rules for base16
2015-04-30 00:49:00 +00:00
(base16-3024-dark . base16-theme)
(base16-3024-light . base16-theme)
(base16-apathy-dark . base16-theme)
(base16-apathy-light . base16-theme)
(base16-ashes-dark . base16-theme)
(base16-ashes-light . base16-theme)
(base16-atelierdune-dark . base16-theme)
(base16-atelierdune-light . base16-theme)
(base16-atelierforest-dark . base16-theme)
(base16-atelierforest-light . base16-theme)
(base16-atelierheath-dark . base16-theme)
(base16-atelierheath-light . base16-theme)
(base16-atelierlakeside-dark . base16-theme)
(base16-atelierlakeside-light . base16-theme)
(base16-atelierseaside-dark . base16-theme)
(base16-atelierseaside-light . base16-theme)
(base16-bespin-dark . base16-theme)
(base16-bespin-light . base16-theme)
(base16-brewer-dark . base16-theme)
(base16-brewer-light . base16-theme)
(base16-bright-dark . base16-theme)
(base16-bright-light . base16-theme)
(base16-chalk-dark . base16-theme)
(base16-chalk-light . base16-theme)
(base16-codeschool-dark . base16-theme)
(base16-codeschool-light . base16-theme)
(base16-colors-dark . base16-theme)
(base16-colors-light . base16-theme)
(base16-default-dark . base16-theme)
(base16-default-light . base16-theme)
(base16-eighties-dark . base16-theme)
(base16-eighties-light . base16-theme)
(base16-embers-dark . base16-theme)
(base16-embers-light . base16-theme)
(base16-flat-dark . base16-theme)
(base16-flat-light . base16-theme)
(base16-google-dark . base16-theme)
(base16-google-light . base16-theme)
(base16-grayscale-dark . base16-theme)
(base16-grayscale-light . base16-theme)
(base16-greenscreen-dark . base16-theme)
(base16-greenscreen-light . base16-theme)
(base16-harmonic16-dark . base16-theme)
(base16-harmonic16-light . base16-theme)
(base16-hopscotch-dark . base16-theme)
(base16-hopscotch-light . base16-theme)
(base16-isotope-dark . base16-theme)
(base16-isotope-light . base16-theme)
(base16-londontube-dark . base16-theme)
(base16-londontube-light . base16-theme)
(base16-marrakesh-dark . base16-theme)
(base16-marrakesh-light . base16-theme)
(base16-mocha-dark . base16-theme)
(base16-mocha-light . base16-theme)
(base16-monokai-dark . base16-theme)
(base16-monokai-light . base16-theme)
(base16-ocean-dark . base16-theme)
(base16-ocean-light . base16-theme)
(base16-paraiso-dark . base16-theme)
(base16-paraiso-light . base16-theme)
(base16-pop-dark . base16-theme)
(base16-pop-light . base16-theme)
(base16-railscasts-dark . base16-theme)
(base16-railscasts-light . base16-theme)
(base16-shapeshifter-dark . base16-theme)
(base16-shapeshifter-light . base16-theme)
(base16-solarized-dark . base16-theme)
(base16-solarized-light . base16-theme)
(base16-summerfruit-dark . base16-theme)
(base16-summerfruit-light . base16-theme)
(base16-tomorrow-dark . base16-theme)
(base16-tomorrow-light . base16-theme)
(base16-twilight-dark . base16-theme)
(base16-twilight-light . base16-theme)
Update spacemacs-theme-name-to-package
2015-01-27 01:18:46 +00:00
(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)
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
(sanityinc-tomorrow-eighties . color-theme-sanityinc-tomorrow)
Update spacemacs-theme-name-to-package
2015-01-27 01:18:46 +00:00
(sanityinc-tomorrow-night . color-theme-sanityinc-tomorrow)
Don't consider used themes as orphans if they don't belong to a layer Now it is not required to use the themes-megapack layer or define a private layer to use a theme that is not in the spacemacs layer.
2015-04-14 19:50:29 +00:00
(solarized-light . solarized-theme)
(solarized-dark . solarized-theme)
Make spacemacs-theme the default theme (dark variant) Remove the spacemacs-theme extension from spacemacs layer Add spacemacs support to the core
2015-07-04 10:57:27 +00:00
(spacemacs-light . spacemacs-theme)
(spacemacs-dark . spacemacs-theme)
Update spacemacs-theme-name-to-package
2015-01-27 01:18:46 +00:00
(colorsarenice-dark . colorsarenice-theme)
(colorsarenice-light . colorsarenice-theme)
(hemisu-dark . hemisu-theme)
(hemisu-light . hemisu-theme)
add material-light support
2015-06-13 18:31:57 +00:00
(material-light . material-theme)
Update spacemacs-theme-name-to-package
2015-01-27 01:18:46 +00:00
(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)
(ritchie . sublime-themes)
(spolsky . sublime-themes)
(wilson . sublime-themes)
(zonokai-blue . zonokai-theme)
(zonokai-red . zonokai-theme)
Added tao theme
2015-06-27 04:28:47 +00:00
(tao-yin . tao-theme)
(tao-yang . tao-theme)
Add farmhouse-theme
2015-11-07 03:12:39 +00:00
(farmhouse-light . farmhouse-theme)
(farmhouse-dark . farmhouse-theme)
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
)
dotspacemacs-default-theme --> dotspacemacs-themes It is not possible to declare several themes in .spacemacs with the variable `dotspacemacs-themes` Cycle through these themes with `<SPC> T n` Resolves #472
2015-01-24 03:02:08 +00:00
"alist matching a theme name with its package name, required when
package name does not match theme name + `-theme' suffix.")
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
Don't consider used themes as orphans if they don't belong to a layer Now it is not required to use the themes-megapack layer or define a private layer to use a theme that is not in the spacemacs layer.
2015-04-14 19:50:29 +00:00
(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)))))
dotspacemacs-default-theme --> dotspacemacs-themes It is not possible to declare several themes in .spacemacs with the variable `dotspacemacs-themes` Cycle through these themes with `<SPC> T n` Resolves #472
2015-01-24 03:02:08 +00:00
(defun spacemacs/load-theme (theme)
"Load THEME."
Don't consider used themes as orphans if they don't belong to a layer Now it is not required to use the themes-megapack layer or define a private layer to use a theme that is not in the spacemacs layer.
2015-04-14 19:50:29 +00:00
;; Required dependencies for some themes
Add support for zonokai themes resolves #485
2015-02-13 03:35:14 +00:00
(when (or (eq 'zonokai-blue theme)
(eq 'zonokai-red theme)
(eq 'solarized-light theme)
(eq 'solarized-dark theme))
(spacemacs/load-or-install-package 'dash))
Don't consider used themes as orphans if they don't belong to a layer Now it is not required to use the themes-megapack layer or define a private layer to use a theme that is not in the spacemacs layer.
2015-04-14 19:50:29 +00:00
;; Unless Emacs stock themes
dotspacemacs-default-theme --> dotspacemacs-themes It is not possible to declare several themes in .spacemacs with the variable `dotspacemacs-themes` Cycle through these themes with `<SPC> T n` Resolves #472
2015-01-24 03:02:08 +00:00
(unless (memq theme (custom-available-themes))
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
(cond
dotspacemacs-default-theme --> dotspacemacs-themes It is not possible to declare several themes in .spacemacs with the variable `dotspacemacs-themes` Cycle through these themes with `<SPC> T n` Resolves #472
2015-01-24 03:02:08 +00:00
;; themes with explicitly declared package names
((assq theme spacemacs-theme-name-to-package)
Don't consider used themes as orphans if they don't belong to a layer Now it is not required to use the themes-megapack layer or define a private layer to use a theme that is not in the spacemacs layer.
2015-04-14 19:50:29 +00:00
(let* ((pkg (spacemacs//get-theme-package theme))
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
(pkg-dir (spacemacs/load-or-install-package pkg)))
Add support for moe-theme resolves #487
2015-02-13 04:58:47 +00:00
(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")))
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
(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.
Don't consider used themes as orphans if they don't belong to a layer Now it is not required to use the themes-megapack layer or define a private layer to use a theme that is not in the spacemacs layer.
2015-04-14 19:50:29 +00:00
(let ((pkg (spacemacs//get-theme-package theme)))
(spacemacs/load-or-install-package pkg)))))
dotspacemacs-default-theme --> dotspacemacs-themes It is not possible to declare several themes in .spacemacs with the variable `dotspacemacs-themes` Cycle through these themes with `<SPC> T n` Resolves #472
2015-01-24 03:02:08 +00:00
(load-theme theme t))
(defun spacemacs/cycle-spacemacs-theme ()
"Cycle through themes defined in `dotspacemacs-themes.'"
(interactive)
Re-enter theme cycle in right place after SPC T h
2015-10-29 18:38:52 +00:00
(when spacemacs--cur-theme
Add support for zonokai themes resolves #485
2015-02-13 03:35:14 +00:00
(disable-theme spacemacs--cur-theme)
Fixes #1217, SPC T n after SPC T h broken If we select a theme after spacemacs' startup, then `spacemacs--cycle-themes` doesn't have the first theme from `dotspacemacs-themes` so we start over.
2015-10-25 23:42:21 +00:00
;; if current theme isn't in cycleable themes, start over
Re-enter theme cycle in right place after SPC T h
2015-10-29 18:38:52 +00:00
(setq spacemacs--cycle-themes
(or (cdr (memq spacemacs--cur-theme dotspacemacs-themes))
dotspacemacs-themes)))
(setq spacemacs--cur-theme (pop spacemacs--cycle-themes))
dotspacemacs-default-theme --> dotspacemacs-themes It is not possible to declare several themes in .spacemacs with the variable `dotspacemacs-themes` Cycle through these themes with `<SPC> T n` Resolves #472
2015-01-24 03:02:08 +00:00
(message "Loading theme %s..." spacemacs--cur-theme)
(spacemacs/load-theme spacemacs--cur-theme))
(defadvice load-theme (after spacemacs/load-theme-adv activate)
"Perform post load processing."
(let ((theme (ad-get-arg 0)))
(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)
Add powerline face tweak to spacemacs/post-theme-init
2015-05-08 04:33:30 +00:00
(when (fboundp 'spacemacs/set-state-faces)
(spacemacs/set-state-faces))
(when (fboundp 'spacemacs/set-flycheck-mode-line-faces)
(spacemacs/set-flycheck-mode-line-faces))
(when (fboundp 'spacemacs/set-new-version-lighter-mode-line-faces)
(spacemacs/set-new-version-lighter-mode-line-faces))
One / instead of two for functions used in spacemacs/post-theme-init
2015-05-14 01:59:59 +00:00
(when (fboundp 'spacemacs/defface-micro-state-faces)
(spacemacs/defface-micro-state-faces))
(when (fboundp 'spacemacs/customize-powerline-faces)
(spacemacs/customize-powerline-faces))
Add powerline face tweak to spacemacs/post-theme-init
2015-05-08 04:33:30 +00:00
(when (fboundp 'powerline-reset)
Fix evil-highlight-persist face (again!) - Change the theme on :init. - Re-apply when change theme with `SPC T h`.
2015-05-13 04:06:53 +00:00
(powerline-reset))
(when (fboundp 'spacemacs/adaptive-evil-highlight-persist-face)
(spacemacs/adaptive-evil-highlight-persist-face)))
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
Prefix all core files with `core-`
2015-01-27 03:51:47 +00:00
(provide 'core-themes-support)