9ac779a2e4
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.
83 lines
3.1 KiB
EmacsLisp
83 lines
3.1 KiB
EmacsLisp
;;; core-load-paths.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
|
|
(defun add-to-load-path (dir) (add-to-list 'load-path dir))
|
|
|
|
(defun add-to-load-path-if-exists (dir)
|
|
"If DIR exists in the file system, add it to `load-path'."
|
|
(when (file-exists-p dir)
|
|
(add-to-load-path dir)))
|
|
|
|
;; paths
|
|
(defvar spacemacs-start-directory
|
|
user-emacs-directory
|
|
"Spacemacs start directory.")
|
|
(defconst spacemacs-core-directory
|
|
(expand-file-name (concat spacemacs-start-directory "core/"))
|
|
"Spacemacs core directory.")
|
|
(defconst spacemacs-info-directory
|
|
(expand-file-name (concat spacemacs-core-directory "info/"))
|
|
"Spacemacs info files directory")
|
|
(defconst spacemacs-release-notes-directory
|
|
(expand-file-name (concat spacemacs-info-directory "release-notes/"))
|
|
"Spacemacs release notes directory")
|
|
(defconst spacemacs-banner-directory
|
|
(expand-file-name (concat spacemacs-core-directory "banners/"))
|
|
"Spacemacs banners directory.")
|
|
(defconst spacemacs-banner-official-png
|
|
(expand-file-name (concat spacemacs-banner-directory "img/spacemacs.png"))
|
|
"Spacemacs official banner image.")
|
|
(defconst spacemacs-badge-official-png
|
|
(expand-file-name (concat spacemacs-banner-directory
|
|
"img/spacemacs-badge.png"))
|
|
"Spacemacs official badge image.")
|
|
(defconst spacemacs-purple-heart-png
|
|
(expand-file-name (concat spacemacs-banner-directory "img/heart.png"))
|
|
"Purple heart emoji.")
|
|
(defconst spacemacs-cache-directory
|
|
(expand-file-name (concat user-emacs-directory ".cache/"))
|
|
"Spacemacs storage area for persistent files")
|
|
(defconst spacemacs-auto-save-directory
|
|
(expand-file-name (concat spacemacs-cache-directory "auto-save/"))
|
|
"Spacemacs auto-save directory")
|
|
(defconst spacemacs-docs-directory
|
|
(expand-file-name (concat spacemacs-start-directory "doc/"))
|
|
"Spacemacs documentation directory.")
|
|
(defconst spacemacs-news-directory
|
|
(expand-file-name (concat spacemacs-start-directory "news/"))
|
|
"Spacemacs News directory.")
|
|
(defconst spacemacs-assets-directory
|
|
(expand-file-name (concat spacemacs-start-directory "assets/"))
|
|
"Spacemacs assets directory.")
|
|
(defconst spacemacs-test-directory
|
|
(expand-file-name (concat spacemacs-start-directory "tests/"))
|
|
"Spacemacs tests directory.")
|
|
|
|
(defconst user-home-directory
|
|
(expand-file-name "~/")
|
|
"User home directory (~/).")
|
|
(defconst pcache-directory
|
|
(concat spacemacs-cache-directory "pcache/"))
|
|
(unless (file-exists-p spacemacs-cache-directory)
|
|
(make-directory spacemacs-cache-directory))
|
|
|
|
;; load paths
|
|
(mapc 'add-to-load-path
|
|
`(
|
|
,spacemacs-core-directory
|
|
,(concat spacemacs-core-directory "libs/")
|
|
,(concat spacemacs-core-directory "libs/spacemacs-theme/")
|
|
;; ,(concat spacemacs-core-directory "aprilfool/")
|
|
))
|
|
|
|
;; themes
|
|
(add-to-list 'custom-theme-load-path (concat spacemacs-core-directory
|
|
"libs/spacemacs-theme/"))
|
|
|