diff options
-rw-r--r-- | early-init.el | 23 |
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") |