about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-12-28 22:14:21 -0600
committerCase Duckworth2021-12-28 22:14:21 -0600
commit4319869f80f21e1fca01a2a2aebd53a5461a4f46 (patch)
treef26233d6ede1f8ccda07d2a5d00487dddc938581
parentIgnore elpa/; sort .gitignore (diff)
downloademacs-4319869f80f21e1fca01a2a2aebd53a5461a4f46.tar.gz
emacs-4319869f80f21e1fca01a2a2aebd53a5461a4f46.zip
Message when loading all libraries
-rw-r--r--early-init.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/early-init.el b/early-init.el index d84525d..1683e54 100644 --- a/early-init.el +++ b/early-init.el
@@ -21,6 +21,11 @@
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
25;; `defadvice', and only because it's cleaner than defining a nonce function.
26(defadvice load (before debug-log activate)
27 (message "Now loading: '%s'" (ad-get-arg 0)))
28
24(push (locate-user-emacs-file "lisp") load-path) 29(push (locate-user-emacs-file "lisp") load-path)
25(add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append) 30(add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append)
26 31
@@ -49,7 +54,7 @@ See `no-littering' for examples.")
49 54
50;; Fonts 55;; Fonts
51(let ((font-name "Go Mono") 56(let ((font-name "Go Mono")
52 (font-size 108) 57 (font-size 105)
53 (variable-font-name "Go") 58 (variable-font-name "Go")
54 (variable-font-size 1.0)) 59 (variable-font-size 1.0))
55 (set-face-attribute 'default nil :family font-name 60 (set-face-attribute 'default nil :family font-name