;;; core-load-paths.el --- Spacemacs Core File -*- no-byte-compile: t -*- ;; ;; Copyright (c) 2012-2021 Sylvain Benner & Contributors ;; ;; Author: Sylvain Benner ;; URL: https://github.com/syl20bnr/spacemacs ;; ;; This file is not part of GNU Emacs. ;; ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . (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-private-directory (expand-file-name (concat spacemacs-start-directory "private/")) "Spacemacs private 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-gplv3-official-png (expand-file-name (concat spacemacs-banner-directory "img/gplv3.png")) "GPLv3 official badge image.") (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 "libs/forks/") ;; ,(concat spacemacs-core-directory "aprilfool/") )) ;; themes (add-to-list 'custom-theme-load-path (concat spacemacs-core-directory "libs/spacemacs-theme/"))