From 165f7622a64908ea9df7b01f2865edd68add1cd6 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 30 Dec 2021 23:08:10 -0600 Subject: [PATCH] Speed up init --- early-init.el | 23 +++++++++++++++++++---- 1 file 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 @@ ;;; Code: -;; Message when loading a library. This is the only place I'm going to use a -;; `defadvice', and only because it's cleaner than defining a nonce function. -(defadvice load (before debug-log activate) - (message "Now loading: '%s'" (ad-get-arg 0))) +;; Message when loading a library. +(define-advice load (:before (feature &rest _)) + (message "Now loading: '%s'" feature)) + +;;; Speed up init + +(setq gc-cons-threshold most-positive-fixnum) + +(add-hook 'emacs-startup-hook + (defun emacs-startup@restore-values () + "Restore values set during early-init for speed." + (setq gc-cons-threshold 134217728 ; 128mb + ;; I don't do the common `file-name-handler-alist' thing here + ;; because of a weirdness where my Emacs doesn't know how to + ;; load bookmark.el.gz when initializing. + ))) + +;;; Set up extra load paths and functionality (push (locate-user-emacs-file "lisp") load-path) (add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append) @@ -53,6 +67,7 @@ See `no-littering' for examples.") (bottom . right))) ;; Fonts + (let ((font-name "Go Mono") (font-size 105) (variable-font-name "Go")