83 lines
3.4 KiB
EmacsLisp
83 lines
3.4 KiB
EmacsLisp
;;; bootstrap.el
|
|
|
|
(defalias '! 'eval-when-compile)
|
|
;; For benchmarking
|
|
(defconst emacs-start-time (current-time))
|
|
;; Global constants
|
|
(defconst doom-default-theme 'wombat)
|
|
(defconst doom-terminal-theme 'wombat)
|
|
(defconst doom-default-font nil)
|
|
|
|
(defconst doom-emacs-dir (! (expand-file-name "." user-emacs-directory)))
|
|
(defconst doom-core-dir (! (concat doom-emacs-dir "/core")))
|
|
(defconst doom-modules-dir (! (concat doom-emacs-dir "/modules")))
|
|
(defconst doom-private-dir (! (concat doom-emacs-dir "/private")))
|
|
(defconst doom-packages-dir (! (concat doom-emacs-dir "/.cask/" emacs-version "/elpa")))
|
|
(defconst doom-script-dir (! (concat doom-emacs-dir "/scripts")))
|
|
(defconst doom-ext-dir (! (concat doom-emacs-dir "/ext")))
|
|
(defconst doom-snippet-dirs (! (list (concat doom-private-dir "/snippets")
|
|
(concat doom-private-dir "/templates"))))
|
|
;; Hostname and emacs version-based elisp temp directories
|
|
(defconst doom-temp-dir (! (format "%s/cache/%s/%s.%s"
|
|
doom-private-dir (system-name)
|
|
emacs-major-version emacs-minor-version)))
|
|
|
|
(defconst IS-MAC (! (eq system-type 'darwin)))
|
|
(defconst IS-LINUX (! (eq system-type 'gnu/linux)))
|
|
(defconst IS-WINDOWS (! (eq system-type 'windows-nt)))
|
|
|
|
(defvar doom--load-path load-path)
|
|
;; Helper for traversing subdirectories recursively
|
|
(defun --subdirs (path &optional include-self)
|
|
(let ((result (if include-self (list path) (list))))
|
|
(dolist (file (ignore-errors (directory-files path t "^[^.]" t)))
|
|
(when (file-directory-p file)
|
|
(push file result)))
|
|
result))
|
|
|
|
|
|
;;
|
|
;; Bootstrap
|
|
;;
|
|
|
|
;; Shut up byte-compiler!
|
|
(defvar doom-current-theme)
|
|
(defvar doom-current-font)
|
|
|
|
(defmacro doom (_ default-theme _ term-theme _ font &rest packages)
|
|
"Bootstrap DOOM emacs and initialize PACKAGES"
|
|
`(progn
|
|
(setq doom-default-theme ',default-theme
|
|
doom-terminal-theme ',term-theme
|
|
doom-default-font (font-spec :family ,(nth 0 font) :size ,(nth 1 font) :antialias ,(not (nth 2 font))))
|
|
(setq-default gc-cons-threshold 4388608
|
|
gc-cons-percentage 0.4)
|
|
;; prematurely optimize for faster startup
|
|
(let ((gc-cons-threshold 339430400)
|
|
(gc-cons-percentage 0.6)
|
|
file-name-handler-alist)
|
|
;; Scan various folders to populate the load-paths
|
|
(setq load-path
|
|
',(append (list doom-private-dir)
|
|
(--subdirs doom-core-dir t)
|
|
(--subdirs doom-modules-dir t)
|
|
(--subdirs doom-packages-dir)
|
|
(--subdirs (expand-file-name "../bootstrap" doom-packages-dir))
|
|
doom--load-path)
|
|
custom-theme-load-path
|
|
',(append (list (expand-file-name "themes/" doom-private-dir))
|
|
custom-theme-load-path))
|
|
(load "~/.emacs.local.el" t t)
|
|
(setq doom-current-theme (if (display-graphic-p) doom-default-theme doom-terminal-theme)
|
|
doom-current-font doom-default-font)
|
|
,@(mapcar (lambda (pkg) `(require ',pkg)) packages)
|
|
(when (display-graphic-p)
|
|
(require 'server)
|
|
(unless (server-running-p)
|
|
(server-start)))
|
|
;; Prevent any auto-displayed text + benchmarking
|
|
(advice-add 'display-startup-echo-area-message :override 'ignore)
|
|
(message ""))))
|
|
|
|
;;; bootstrap.el ends here
|