diff options
author | Case Duckworth | 2021-12-28 22:14:21 -0600 |
---|---|---|
committer | Case Duckworth | 2021-12-28 22:14:21 -0600 |
commit | 4319869f80f21e1fca01a2a2aebd53a5461a4f46 (patch) | |
tree | f26233d6ede1f8ccda07d2a5d00487dddc938581 | |
parent | Ignore elpa/; sort .gitignore (diff) | |
download | emacs-4319869f80f21e1fca01a2a2aebd53a5461a4f46.tar.gz emacs-4319869f80f21e1fca01a2a2aebd53a5461a4f46.zip |
Message when loading all libraries
-rw-r--r-- | early-init.el | 7 |
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 |