summary refs log tree commit diff stats
path: root/early-init.el
diff options
context:
space:
mode:
authorCase Duckworth2022-01-05 17:12:32 -0600
committerCase Duckworth2022-01-05 17:12:32 -0600
commit9e46efac61fc4246b810c8b19127248ed7b3080e (patch)
tree0486104411f0edeabbb340070765b57f3be9133e /early-init.el
parentBreak function into library (diff)
downloademacs-9e46efac61fc4246b810c8b19127248ed7b3080e.tar.gz
emacs-9e46efac61fc4246b810c8b19127248ed7b3080e.zip
Lots of changes, maybe breaking something
I have to do a big debugging tonight.  Keybinds aren't getting picked up, idk
what's going on.
Diffstat (limited to 'early-init.el')
-rw-r--r--early-init.el15
1 files changed, 9 insertions, 6 deletions
diff --git a/early-init.el b/early-init.el index 17b3844..805bd61 100644 --- a/early-init.el +++ b/early-init.el
@@ -21,13 +21,16 @@
21 21
22;;; Code: 22;;; Code:
23 23
24(define-advice load (:before (feature &rest _)) 24;;(setq debug-on-error t)
25 "Message the user when loading a library." 25(message "Loading early-init.el...")
26 (with-temp-message (format "Now loading: '%s'" feature))) 26
27;; (define-advice load (:before (feature &rest _))
28;; "Message the user when loading a library."
29;; (with-temp-message (format "Now loading: '%s'" feature)))
27 30
28;;; Speed up init 31;;; Speed up init
29 32
30(setq gc-cons-threshold most-positive-fixnum) 33;; (setq gc-cons-threshold most-positive-fixnum)
31 34
32(add-hook 'emacs-startup-hook 35(add-hook 'emacs-startup-hook
33 (defun emacs-startup@restore-values () 36 (defun emacs-startup@restore-values ()
@@ -41,8 +44,6 @@
41;;; Set up extra load paths and functionality 44;;; Set up extra load paths and functionality
42 45
43(push (locate-user-emacs-file "lisp") load-path) 46(push (locate-user-emacs-file "lisp") load-path)
44(add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append)
45
46(require 'acdw) 47(require 'acdw)
47 48
48(+define-dir .etc (locate-user-emacs-file ".etc") 49(+define-dir .etc (locate-user-emacs-file ".etc")
@@ -159,5 +160,7 @@ See `no-littering' for examples.")
159;; is `straight-package-neutering-mode'. 160;; is `straight-package-neutering-mode'.
160(defalias 'straight-ಠ_ಠ-mode nil) 161(defalias 'straight-ಠ_ಠ-mode nil)
161 162
163(message "Loading early-init.el...Done.")
164
162(provide 'early-init) 165(provide 'early-init)
163;;; early-init.el ends here 166;;; early-init.el ends here