emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

defvar -> defconst for dir vars

Browse source
This commit is contained in:
Henrik Lissner 2018-06-12 01:48:09 +02:00
parent 4c40195d40
commit 4425fdfca4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
core/core.el
View file

@ -5,11 +5,15 @@
(error "Detected Emacs %s. Doom only supports Emacs 25.1 and higher" (error "Detected Emacs %s. Doom only supports Emacs 25.1 and higher"
emacs-version))) emacs-version)))
;; ;;
(defvar doom-version "2.0.9" ;; Constants
;;
(defconst doom-version "2.0.9"
"Current version of DOOM emacs.") "Current version of DOOM emacs.")
(defvar doom-debug-mode (or (getenv "DEBUG") init-file-debug) (defconst doom-debug-mode (or (getenv "DEBUG") init-file-debug)
"If non-nil, all doom functions will be verbose. Set DEBUG=1 in the command "If non-nil, all doom functions will be verbose. Set DEBUG=1 in the command
line or use --debug-init to enable this.") line or use --debug-init to enable this.")
@ -17,42 +21,43 @@ line or use --debug-init to enable this.")
(eval-when-compile (not (version< emacs-version "26")))) (eval-when-compile (not (version< emacs-version "26"))))
(defconst EMACS27+ (defconst EMACS27+
(eval-when-compile (not (version< emacs-version "27")))) (eval-when-compile (not (version< emacs-version "27"))))
(defconst IS-MAC (eq system-type 'darwin)) (defconst IS-MAC (eq system-type 'darwin))
(defconst IS-LINUX (eq system-type 'gnu/linux)) (defconst IS-LINUX (eq system-type 'gnu/linux))
(defconst IS-WINDOWS (memq system-type '(cygwin windows-nt ms-dos))) (defconst IS-WINDOWS (memq system-type '(cygwin windows-nt ms-dos)))
;; ;;
(defvar doom-emacs-dir (defconst doom-emacs-dir
(eval-when-compile (file-truename user-emacs-directory)) (eval-when-compile (file-truename user-emacs-directory))
"The path to this emacs.d directory. Must end in a slash.") "The path to this emacs.d directory. Must end in a slash.")
(defvar doom-core-dir (concat doom-emacs-dir "core/") (defconst doom-core-dir (concat doom-emacs-dir "core/")
"Where essential files are stored.") "Where essential files are stored.")
(defvar doom-modules-dir (concat doom-emacs-dir "modules/") (defconst doom-modules-dir (concat doom-emacs-dir "modules/")
"The main directory where Doom modules are stored.") "The main directory where Doom modules are stored.")
(defvar doom-local-dir (concat doom-emacs-dir ".local/") (defconst doom-local-dir (concat doom-emacs-dir ".local/")
"Root directory for local Emacs files. Use this as permanent storage for files "Root directory for local Emacs files. Use this as permanent storage for files
that are safe to share across systems (if this config is symlinked across that are safe to share across systems (if this config is symlinked across
several computers).") several computers).")
(defvar doom-etc-dir (concat doom-local-dir "etc/") (defconst doom-etc-dir (concat doom-local-dir "etc/")
"Directory for non-volatile storage. "Directory for non-volatile storage.
Use this for files that don't change much, like servers binaries, external Use this for files that don't change much, like servers binaries, external
dependencies or long-term shared data.") dependencies or long-term shared data.")
(defvar doom-cache-dir (concat doom-local-dir "cache/") (defconst doom-cache-dir (concat doom-local-dir "cache/")
"Directory for volatile storage. "Directory for volatile storage.
Use this for files that change often, like cache files.") Use this for files that change often, like cache files.")
(defvar doom-packages-dir (concat doom-local-dir "packages/") (defconst doom-packages-dir (concat doom-local-dir "packages/")
"Where package.el and quelpa plugins (and their caches) are stored.") "Where package.el and quelpa plugins (and their caches) are stored.")
(defvar doom-private-dir (defconst doom-private-dir
(eval-when-compile (eval-when-compile
(or (getenv "DOOMDIR") (or (getenv "DOOMDIR")
(let ((xdg-path (let ((xdg-path