69 lines
3.1 KiB
EmacsLisp
69 lines
3.1 KiB
EmacsLisp
;;; early-init.el -*- lexical-binding: t; -*-
|
|
|
|
;; Emacs 27.1 introduced early-init.el, which is run before init.el, before
|
|
;; package and UI initialization happens, and before site files are loaded.
|
|
|
|
;; A big contributor to startup times is garbage collection. We up the gc
|
|
;; threshold to temporarily prevent it from running, then reset it later by
|
|
;; enabling `gcmh-mode'. Not resetting it will cause stuttering/freezes.
|
|
(setq gc-cons-threshold most-positive-fixnum)
|
|
|
|
;; Prevent unwanted runtime compilation for gccemacs (native-comp) users;
|
|
;; packages are compiled ahead-of-time when they are installed and site files
|
|
;; are compiled when gccemacs is installed.
|
|
(setq native-comp-deferred-compilation nil)
|
|
|
|
;; In Emacs 27+, package initialization occurs before `user-init-file' is
|
|
;; loaded, but after `early-init-file'. Doom handles package initialization, so
|
|
;; we must prevent Emacs from doing it early!
|
|
(setq package-enable-at-startup nil)
|
|
|
|
;; In noninteractive sessions, prioritize non-byte-compiled source files to
|
|
;; prevent the use of stale byte-code. Otherwise, it saves us a little IO time
|
|
;; to skip the mtime checks on every *.elc file.
|
|
(setq load-prefer-newer noninteractive)
|
|
|
|
(unless (or (daemonp) noninteractive)
|
|
(let ((old-file-name-handler-alist file-name-handler-alist))
|
|
;; `file-name-handler-alist' is consulted on each `require', `load' and
|
|
;; various path/io functions. You get a minor speed up by unsetting this.
|
|
;; Some warning, however: this could cause problems on builds of Emacs where
|
|
;; its site lisp files aren't byte-compiled and we're forced to load the
|
|
;; *.el.gz files (e.g. on Alpine).
|
|
(setq-default file-name-handler-alist nil)
|
|
;; ...but restore `file-name-handler-alist' later, because it is needed for
|
|
;; handling encrypted or compressed files, among other things.
|
|
(defun doom-reset-file-handler-alist-h ()
|
|
(setq file-name-handler-alist
|
|
;; Merge instead of overwrite because there may have bene changes to
|
|
;; `file-name-handler-alist' since startup we want to preserve.
|
|
(delete-dups (append file-name-handler-alist
|
|
old-file-name-handler-alist))))
|
|
(add-hook 'emacs-startup-hook #'doom-reset-file-handler-alist-h 101))
|
|
|
|
;; Emacs really shouldn't be displaying anything until it has fully started
|
|
;; up. This saves a bit of time.
|
|
(setq-default inhibit-redisplay t
|
|
inhibit-message t)
|
|
(add-hook 'window-setup-hook
|
|
(lambda ()
|
|
(setq-default inhibit-redisplay nil
|
|
inhibit-message nil)
|
|
(redisplay))))
|
|
|
|
|
|
;;
|
|
;;; Bootstrap
|
|
|
|
;; Contrary to what many Emacs users have in their configs, you don't need
|
|
;; more than this to make UTF-8 the default coding system:
|
|
(set-language-environment "UTF-8")
|
|
|
|
;; set-language-enviornment sets default-input-method, which is unwanted
|
|
(setq default-input-method nil)
|
|
|
|
;; Ensure Doom is running out of this file's directory
|
|
(setq user-emacs-directory (file-name-directory load-file-name))
|
|
|
|
;; Load the heart of Doom Emacs
|
|
(load (concat user-emacs-directory "core/core") nil 'nomessage)
|