diff options
author | Case Duckworth | 2022-01-05 17:12:32 -0600 |
---|---|---|
committer | Case Duckworth | 2022-01-05 17:12:32 -0600 |
commit | 9e46efac61fc4246b810c8b19127248ed7b3080e (patch) | |
tree | 0486104411f0edeabbb340070765b57f3be9133e /early-init.el | |
parent | Break function into library (diff) | |
download | emacs-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.el | 15 |
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 |