69 lines
3.6 KiB
EmacsLisp
69 lines
3.6 KiB
EmacsLisp
;;; init.el -*- lexical-binding: t; -*-
|
|
;;
|
|
;; Author: Henrik Lissner <henrik@lissner.net>
|
|
;; URL: https://github.com/hlissner/doom-emacs
|
|
;;
|
|
;; ================= =============== =============== ======== ========
|
|
;; \\ . . . . . . .\\ //. . . . . . .\\ //. . . . . . .\\ \\. . .\\// . . //
|
|
;; ||. . ._____. . .|| ||. . ._____. . .|| ||. . ._____. . .|| || . . .\/ . . .||
|
|
;; || . .|| ||. . || || . .|| ||. . || || . .|| ||. . || ||. . . . . . . ||
|
|
;; ||. . || || . .|| ||. . || || . .|| ||. . || || . .|| || . | . . . . .||
|
|
;; || . .|| ||. _-|| ||-_ .|| ||. . || || . .|| ||. _-|| ||-_.|\ . . . . ||
|
|
;; ||. . || ||-' || || `-|| || . .|| ||. . || ||-' || || `|\_ . .|. .||
|
|
;; || . _|| || || || || ||_ . || || . _|| || || || |\ `-_/| . ||
|
|
;; ||_-' || .|/ || || \|. || `-_|| ||_-' || .|/ || || | \ / |-_.||
|
|
;; || ||_-' || || `-_|| || || ||_-' || || | \ / | `||
|
|
;; || `' || || `' || || `' || || | \ / | ||
|
|
;; || .===' `===. .==='.`===. .===' /==. | \/ | ||
|
|
;; || .==' \_|-_ `===. .===' _|_ `===. .===' _-|/ `== \/ | ||
|
|
;; || .==' _-' `-_ `=' _-' `-_ `=' _-' `-_ /| \/ | ||
|
|
;; || .==' _-' '-__\._-' '-_./__-' `' |. /| | ||
|
|
;; ||.==' _-' `' | /==.||
|
|
;; ==' _-' \/ `==
|
|
;; \ _-' `-_ /
|
|
;; `'' ``'
|
|
;;
|
|
;; These demons are not part of GNU Emacs.
|
|
;;
|
|
;;; License: MIT
|
|
|
|
(when (< emacs-major-version 26)
|
|
(error "Detected Emacs v%s. Doom only supports Emacs 26 and newer"
|
|
emacs-version))
|
|
|
|
;; 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)
|
|
|
|
;; 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)
|
|
|
|
;; `file-name-handler-alist' is consulted on every `require', `load' and various
|
|
;; path/io functions. You get a minor speed up by nooping this. However, this
|
|
;; may 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)
|
|
(unless (daemonp)
|
|
(defvar doom--initial-file-name-handler-alist file-name-handler-alist)
|
|
(setq file-name-handler-alist nil)
|
|
;; 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 ()
|
|
;; Re-add rather than `setq', because changes to `file-name-handler-alist'
|
|
;; since startup ought to be preserved.
|
|
(dolist (handler file-name-handler-alist)
|
|
(add-to-list 'doom--initial-file-name-handler-alist handler))
|
|
(setq file-name-handler-alist doom--initial-file-name-handler-alist))
|
|
(add-hook 'emacs-startup-hook #'doom-reset-file-handler-alist-h))
|
|
|
|
;; 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)
|
|
|
|
;; And let 'er rip!
|
|
(doom-initialize)
|