TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/core/core-themes-support.el

320 lines
14 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
;;
Bump year in copyright headers Happy New Year 2017!
2017-01-06 03:51:13 +00:00
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
Update CONTRIBUTE.md and add file headers Also add default file header to layer templates.
2015-01-14 04:12:56 +00:00
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
Enhance theme handling - Restrict default theme code to spaceacs/load-theme - Don't download package for default - Explicitly call post-theme-init for default - Explicitly disable existing themes when loading
2016-01-23 13:40:24 +00:00
(defconst emacs-built-in-themes (cons 'default (custom-available-themes))
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
"List of emacs built-in themes")
core: import spacemacs-theme into libs Distribute spacemacs-theme with Spacemacs so we don't need to download the package of the theme at startup. It was delaying the display of the home buffer. Now Spacemacs fallback to spacemacs-dark theme if the user theme cannot be applied. Spacemacs then tries to install and reapply the user theme. If successful, at the subsequent startups the user theme is applied right away instead of spacemacs-dark. If the installation failed then we display a warning informing the user and suggesting some actions. There is now no package left to be installed manually at the start of Spacemacs.
2017-01-25 05:30:31 +00:00
(defvar spacemacs--fallback-theme 'spacemacs-dark
"Fallback theme if user theme cannot be applied.")
core: improve theme application Add all theme packages defined in dotspacemacs-themes to the variable dotspacemacs-additional-packages and delay the application of user theme at the end of startup (only when user theme cannot be applied at the very beginning of Emacs startup). This has nice properties: - we leverage the layer system to handle the theme packages installation and cleanup. - theme packages are automatically owned by the dotfile preventing them from being garbage collected. - the protected package mechanism is now obsolete since themes were the last packages using it. This mechanism may be removed in a near future. Thanks to TheBB for the initial idea.
2017-01-26 04:30:25 +00:00
(defvar spacemacs--delayed-user-theme nil
core: import spacemacs-theme into libs Distribute spacemacs-theme with Spacemacs so we don't need to download the package of the theme at startup. It was delaying the display of the home buffer. Now Spacemacs fallback to spacemacs-dark theme if the user theme cannot be applied. Spacemacs then tries to install and reapply the user theme. If successful, at the subsequent startups the user theme is applied right away instead of spacemacs-dark. If the installation failed then we display a warning informing the user and suggesting some actions. There is now no package left to be installed manually at the start of Spacemacs.
2017-01-25 05:30:31 +00:00
"Internal variable storing user theme to be installed.")
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
'(
align list of supported themes
2017-01-04 20:12:14 +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)
(apropospriate-light . apropospriate-theme)
(apropospriate-dark . apropospriate-theme)
Add missing base16 themes
2017-01-01 00:02:56 +00:00
(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)
align list of supported themes
2017-01-04 20:12:14 +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)
(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)
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
Fix possibly calling bad code after theme change
2016-07-15 07:14:58 +00:00
(defvar spacemacs-post-theme-change-hook nil
"Hook run after theme has changed.")
core: fix theme application Force theme do be disabled when applying them at the end of loading. Fix computation of theme package directory when theme is a symbol. Fixes #8319
2017-02-11 22:19:41 +00:00
(defun spacemacs/get-theme-package-name (theme-name)
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
"Returns the package theme for the given THEME name."
(cond
;; built-in
core: fix theme application Force theme do be disabled when applying them at the end of loading. Fix computation of theme package directory when theme is a symbol. Fixes #8319
2017-02-11 22:19:41 +00:00
((memq theme-name emacs-built-in-themes) nil)
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
;; from explicit alist
core: fix theme application Force theme do be disabled when applying them at the end of loading. Fix computation of theme package directory when theme is a symbol. Fixes #8319
2017-02-11 22:19:41 +00:00
((assq theme-name spacemacs-theme-name-to-package)
(cdr (assq theme-name 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
;; fallback to <name>-theme
core: fix theme application Force theme do be disabled when applying them at the end of loading. Fix computation of theme package directory when theme is a symbol. Fixes #8319
2017-02-11 22:19:41 +00:00
(t (intern (format "%S-theme" theme-name)))))
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
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(defun spacemacs//get-theme-name (theme)
"Return the name of THEME."
(if (listp theme)
(car theme)
theme))
core: add support for :location keyword in dotspacemacs-themes New functions: - configuration-layer/get-location-directory which return the location on disk given a location - spacemacs//get-theme-directory which returns the location on disk of the theme Add note in documentation to warn about the directory name when :location local is used, the directory name is the package name not the theme name.
2017-02-06 04:01:50 +00:00
(defun spacemacs//get-theme-package-directory (theme)
"Return the THEME location on disk."
(let* ((theme-name (spacemacs//get-theme-name theme))
(pkg-name (spacemacs/get-theme-package-name theme-name))
core: fix theme application Force theme do be disabled when applying them at the end of loading. Fix computation of theme package directory when theme is a symbol. Fixes #8319
2017-02-11 22:19:41 +00:00
(dir (when (listp theme)
(configuration-layer/get-location-directory
pkg-name
(plist-get (cdr theme) :location)
'dotfile))))
core: add support for :location keyword in dotspacemacs-themes New functions: - configuration-layer/get-location-directory which return the location on disk given a location - spacemacs//get-theme-directory which returns the location on disk of the theme Add note in documentation to warn about the directory name when :location local is used, the directory name is the package name not the theme name.
2017-02-06 04:01:50 +00:00
(unless dir
;; fallback to elpa directory
(setq dir (configuration-layer/get-elpa-package-install-directory
pkg-name)))
dir))
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(defun spacemacs/load-default-theme (&optional fallback-theme)
"Load default theme.
Default theme is the car of `dotspacemacs-themes'.
If FALLBACK-THEME is non-nil it must be a package name which will be loaded if
THEME cannot be applied."
(spacemacs/load-theme (car dotspacemacs-themes) fallback-theme))
core: improve theme application Add all theme packages defined in dotspacemacs-themes to the variable dotspacemacs-additional-packages and delay the application of user theme at the end of startup (only when user theme cannot be applied at the very beginning of Emacs startup). This has nice properties: - we leverage the layer system to handle the theme packages installation and cleanup. - theme packages are automatically owned by the dotfile preventing them from being garbage collected. - the protected package mechanism is now obsolete since themes were the last packages using it. This mechanism may be removed in a near future. Thanks to TheBB for the initial idea.
2017-01-26 04:30:25 +00:00
(defun spacemacs/load-theme (theme &optional fallback-theme disable)
"Apply user theme.
If FALLBACK-THEME is non-nil it must be a package name which will be loaded if
THEME cannot be applied.
If DISABLE is non-nil then disable all previously applied themes before applying
THEME."
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(let ((theme-name (spacemacs//get-theme-name theme)))
(condition-case err
(progn
;; Load theme
(unless (or (memq theme-name (custom-available-themes))
(eq 'default theme-name))
core: add support for :location keyword in dotspacemacs-themes New functions: - configuration-layer/get-location-directory which return the location on disk given a location - spacemacs//get-theme-directory which returns the location on disk of the theme Add note in documentation to warn about the directory name when :location local is used, the directory name is the package name not the theme name.
2017-02-06 04:01:50 +00:00
(let ((pkg-dir (spacemacs//get-theme-package-directory theme)))
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(when pkg-dir
(add-to-list 'custom-theme-load-path pkg-dir)
core: fix loading of some themes Fix loading of some themes like sanityinc-tomorrow-night
2017-02-02 23:25:00 +00:00
(add-to-list 'load-path pkg-dir)
core: add support for :location keyword in dotspacemacs-themes New functions: - configuration-layer/get-location-directory which return the location on disk given a location - spacemacs//get-theme-directory which returns the location on disk of the theme Add note in documentation to warn about the directory name when :location local is used, the directory name is the package name not the theme name.
2017-02-06 04:01:50 +00:00
;; do we still need this particual case for moe theme?
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(when (or (eq 'moe-light theme-name)
(eq 'moe-dark theme-name))
(load-file (concat pkg-dir "moe-light-theme.el"))
(load-file (concat pkg-dir "moe-dark-theme.el"))))))
(when disable
(mapc 'disable-theme custom-enabled-themes))
core: fix broken theme application in terminal Fixes #8252
2017-02-02 04:26:22 +00:00
(load-theme theme-name t)
(unless (display-graphic-p)
(eval `(spacemacs|do-after-display-system-init
(load-theme ',theme-name t))))
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(setq-default spacemacs--cur-theme theme-name)
(setq-default spacemacs--cycle-themes (cdr dotspacemacs-themes)))
('error
core: fix theme application Force theme do be disabled when applying them at the end of loading. Fix computation of theme package directory when theme is a symbol. Fixes #8319
2017-02-11 22:19:41 +00:00
(message "error: %s" err)
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(if fallback-theme
;; fallback to Spacemacs default theme
(progn
(setq spacemacs--delayed-user-theme theme-name)
(spacemacs/load-fallback-theme fallback-theme disable))
;; no fallback theme was specified, so we log explicit warning
(spacemacs-buffer/warning
(concat "An error occurred while applying "
"the theme \"%s\", fallback on theme \"%s\". \n"
"Error was: %s")
theme-name spacemacs--fallback-theme err)
(spacemacs-buffer/warning
(concat "Please check the value of \"dotspacemacs-themes\" in your "
"dotfile or open an issue \n"
"so we can add support for the theme \"%s\".")
theme-name))))))
core: improve theme application Add all theme packages defined in dotspacemacs-themes to the variable dotspacemacs-additional-packages and delay the application of user theme at the end of startup (only when user theme cannot be applied at the very beginning of Emacs startup). This has nice properties: - we leverage the layer system to handle the theme packages installation and cleanup. - theme packages are automatically owned by the dotfile preventing them from being garbage collected. - the protected package mechanism is now obsolete since themes were the last packages using it. This mechanism may be removed in a near future. Thanks to TheBB for the initial idea.
2017-01-26 04:30:25 +00:00
(defun spacemacs/load-fallback-theme (theme &optional disable)
"Apply the fallback theme.
If DISABLE is non-nil then disable all previously applied themes before applying
THEME."
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(let ((theme-name (spacemacs//get-theme-name theme)))
;; pop up fallback theme to the top of the list
(setq spacemacs--cur-theme theme-name)
(setq dotspacemacs-themes (delq theme-name dotspacemacs-themes))
(add-to-list 'dotspacemacs-themes theme-name)
(when disable
(mapc 'disable-theme custom-enabled-themes))
core: fix broken theme application in terminal Fixes #8252
2017-02-02 04:26:22 +00:00
(load-theme theme-name t)
(unless (display-graphic-p)
(eval `(spacemacs|do-after-display-system-init
(load-theme ',theme-name t))))))
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/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))
Display 'done' after a theme is loaded
2016-11-01 13:16:39 +00:00
(let ((progress-reporter
(make-progress-reporter
(format "Loading theme %s..." spacemacs--cur-theme))))
(spacemacs/load-theme spacemacs--cur-theme)
(progress-reporter-done progress-reporter)))
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
(defadvice load-theme (after spacemacs/load-theme-adv activate)
"Perform post load processing."
(let ((theme (ad-get-arg 0)))
core: add comment
2015-12-01 06:21:03 +00:00
;; Without this a popup is raised every time emacs25 starts up for
;; assignment to a free variable
themes: Silence free variable warning Without this a popup is raised every time emacs25 starts up for assignment to a free variable
2015-11-30 22:03:15 +00:00
(with-no-warnings
(setq spacemacs--cur-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
(spacemacs/post-theme-init theme)))
(defun spacemacs/post-theme-init (theme)
Fix possibly calling bad code after theme change
2016-07-15 07:14:58 +00:00
"Some processing that needs to be done when the current theme
has been changed to 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
(interactive)
Fix possibly calling bad code after theme change
2016-07-15 07:14:58 +00:00
(run-hooks 'spacemacs-post-theme-change-hook))
Better theme support, easier to maintain Resolves #388 #367
2015-01-14 03:14:48 +00:00
core: dotspacemacs-themes entries now accept package properties It is now possible to use package properties like :location in dotspacemacs-themes. Added hooks ran at the beginning and end of configuration-layer/sync: - configuration-layer-pre-sync-hook - configuration-layer-post-sync-hook configuration-layer-pre-sync-hook is used to hook the new function spacemacs//add-theme-packages-to-additional-packages. This new function updates dotspacemacs--additional-theme-packages variables. Update documentation to mention the new feature.
2017-02-02 03:59:03 +00:00
(defun spacemacs//add-theme-packages-to-additional-packages ()
"Add all theme packages from `dotspacemacs-themes' to packages to install."
(setq dotspacemacs--additional-theme-packages nil)
(dolist (theme dotspacemacs-themes)
(let* ((theme-name (spacemacs//get-theme-name theme))
(pkg-name (spacemacs/get-theme-package-name theme-name))
(theme2 (copy-tree theme)))
(when pkg-name
(if (listp theme2)
(setcar theme2 pkg-name)
(setq theme2 pkg-name))
(add-to-list 'dotspacemacs--additional-theme-packages theme2)))))
(add-hook 'configuration-layer-pre-sync-hook
'spacemacs//add-theme-packages-to-additional-packages)
core: improve theme application Add all theme packages defined in dotspacemacs-themes to the variable dotspacemacs-additional-packages and delay the application of user theme at the end of startup (only when user theme cannot be applied at the very beginning of Emacs startup). This has nice properties: - we leverage the layer system to handle the theme packages installation and cleanup. - theme packages are automatically owned by the dotfile preventing them from being garbage collected. - the protected package mechanism is now obsolete since themes were the last packages using it. This mechanism may be removed in a near future. Thanks to TheBB for the initial idea.
2017-01-26 04:30:25 +00:00
Prefix all core files with `core-`
2015-01-27 03:51:47 +00:00
(provide 'core-themes-support)
Reference in a new issue Copy permalink