summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--early-init.el134
1 files changed, 67 insertions, 67 deletions
diff --git a/early-init.el b/early-init.el index c67eadb..5fd600f 100644 --- a/early-init.el +++ b/early-init.el
@@ -1,67 +1,67 @@
1;;; early-init.el ~ acdw -*- lexical-binding: t; coding: utf-8; fill-column: 85 -*- 1;;; early-init.el ~ acdw -*- lexical-binding: t; coding: utf-8; fill-column: 85 -*-
2 2
3;;; Commentary: 3;;; Commentary:
4;; `early-init.el' is new as of Emacs 27.1. It contains ... /early initiation/. 4;; `early-init.el' is new as of Emacs 27.1. It contains ... /early initiation/.
5;; What does that mean? Who knows. What I /do know/ is that it runs /before/ 5;; What does that mean? Who knows. What I /do know/ is that it runs /before/
6;; `package.el' is loaded, so I can stop it from loading, since I use `straight.el'. 6;; `package.el' is loaded, so I can stop it from loading, since I use `straight.el'.
7;; Other than that, there's some other init stuff that needs to happen as early 7;; Other than that, there's some other init stuff that needs to happen as early
8;; as possible -- think bootstrap-level. 8;; as possible -- think bootstrap-level.
9 9
10;;; Speed up startup 10;;; Speed up startup
11(setq gc-cons-threshold most-positive-fixnum) 11(setq gc-cons-threshold most-positive-fixnum)
12 12
13(defvar file-name-handler-alist-old file-name-handler-alist) 13(defvar file-name-handler-alist-old file-name-handler-alist)
14(setq file-name-handler-alist nil) 14(setq file-name-handler-alist nil)
15 15
16(setq message-log-max 16384) 16(setq message-log-max 16384)
17(setq byte-compile-warnings 17(setq byte-compile-warnings
18 '(not free-vars unresolved noruntime lexical make-local)) 18 '(not free-vars unresolved noruntime lexical make-local))
19 19
20;;; Restore stuff after startup 20;;; Restore stuff after startup
21(add-hook 'after-init-hook 21(add-hook 'after-init-hook
22 (lambda () 22 (lambda ()
23 (setq file-name-handler-alist file-name-handler-alist-old) 23 (setq file-name-handler-alist file-name-handler-alist-old)
24 (setq gc-cons-threshold (* 32 1024 1024)) 24 (setq gc-cons-threshold (* 32 1024 1024))
25 (garbage-collect)) 25 (garbage-collect))
26 t) 26 t)
27 27
28;; (setq debug-on-error t) 28;; (setq debug-on-error t)
29 29
30;;; Define the platforms I work on 30;;; Define the platforms I work on
31(defconst *acdw/at-work* (eq system-type 'windows-nt)) 31(defconst *acdw/at-work* (eq system-type 'windows-nt))
32(defconst *acdw/at-larry* (string= (system-name) "larry")) 32(defconst *acdw/at-larry* (string= (system-name) "larry"))
33(defconst *acdw/at-bax* (string= (system-name) "bax")) 33(defconst *acdw/at-bax* (string= (system-name) "bax"))
34(defconst *acdw/at-home* (or *acdw/at-larry* *acdw/at-bax*)) 34(defconst *acdw/at-home* (or *acdw/at-larry* *acdw/at-bax*))
35 35
36;;;; When at work, I have to use Portable Git. 36;;;; When at work, I have to use Portable Git.
37(when *acdw/at-work* 37(when *acdw/at-work*
38 (add-to-list 'exec-path "~/bin") 38 (add-to-list 'exec-path "~/bin")
39 (add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin")) 39 (add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin"))
40 40
41;;; `straight.el' ~ github.com/raxod502/straight.el 41;;; `straight.el' ~ github.com/raxod502/straight.el
42 42
43;;;; Bootstrap 43;;;; Bootstrap
44;; NOTE: this doesn't work on Windows (download straight directly) 44;; NOTE: this doesn't work on Windows (download straight directly)
45(defvar bootstrap-version) 45(defvar bootstrap-version)
46(let ((bootstrap-file 46(let ((bootstrap-file
47 (expand-file-name "straight/repos/straight.el/bootstrap.el" 47 (expand-file-name "straight/repos/straight.el/bootstrap.el"
48 user-emacs-directory)) 48 user-emacs-directory))
49 (bootstrap-version 5)) 49 (bootstrap-version 5))
50 (unless (file-exists-p bootstrap-file) 50 (unless (file-exists-p bootstrap-file)
51 (with-current-buffer 51 (with-current-buffer
52 (url-retrieve-synchronously 52 (url-retrieve-synchronously
53 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" 53 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
54 'silent 'inhibit-cookies) 54 'silent 'inhibit-cookies)
55 (goto-char (point-max)) 55 (goto-char (point-max))
56 (eval-print-last-sexp))) 56 (eval-print-last-sexp)))
57 (load bootstrap-file nil 'nomessage)) 57 (load bootstrap-file nil 'nomessage))
58 58
59;;; Bootstrap `use-package' 59;;; Bootstrap `use-package'
60(setq-default use-package-verbose nil 60(setq-default use-package-verbose nil
61 use-package-expand-minimally t 61 use-package-expand-minimally t
62 use-package-enable-imenu-support t 62 use-package-enable-imenu-support t
63 use-package-hook-name-suffix nil) 63 use-package-hook-name-suffix nil)
64 64
65(straight-use-package 'use-package) 65(straight-use-package 'use-package)
66 66
67(setq straight-use-package-by-default t) 67(setq straight-use-package-by-default t)