about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--early-init.el23
1 files changed, 19 insertions, 4 deletions
diff --git a/early-init.el b/early-init.el index 1683e54..7c39f5b 100644 --- a/early-init.el +++ b/early-init.el
@@ -21,10 +21,24 @@
21 21
22;;; Code: 22;;; Code:
23 23
24;; Message when loading a library. This is the only place I'm going to use a 24;; Message when loading a library.
25;; `defadvice', and only because it's cleaner than defining a nonce function. 25(define-advice load (:before (feature &rest _))
26(defadvice load (before debug-log activate) 26 (message "Now loading: '%s'" feature))
27 (message "Now loading: '%s'" (ad-get-arg 0))) 27
28;;; Speed up init
29
30(setq gc-cons-threshold most-positive-fixnum)
31
32(add-hook 'emacs-startup-hook
33 (defun emacs-startup@restore-values ()
34 "Restore values set during early-init for speed."
35 (setq gc-cons-threshold 134217728 ; 128mb
36 ;; I don't do the common `file-name-handler-alist' thing here
37 ;; because of a weirdness where my Emacs doesn't know how to
38 ;; load bookmark.el.gz when initializing.
39 )))
40
41;;; Set up extra load paths and functionality
28 42
29(push (locate-user-emacs-file "lisp") load-path) 43(push (locate-user-emacs-file "lisp") load-path)
30(add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append) 44(add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append)
@@ -53,6 +67,7 @@ See `no-littering' for examples.")
53 (bottom . right))) 67 (bottom . right)))
54 68
55;; Fonts 69;; Fonts
70
56(let ((font-name "Go Mono") 71(let ((font-name "Go Mono")
57 (font-size 105) 72 (font-size 105)
58 (variable-font-name "Go") 73 (variable-font-name "Go")