Message when loading all libraries

This commit is contained in:
Case Duckworth 2021-12-28 22:14:21 -06:00
parent b8bcd94c0f
commit 4319869f80
1 changed files with 6 additions and 1 deletions

View File

@ -21,6 +21,11 @@
;;; 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)))
(push (locate-user-emacs-file "lisp") load-path)
(add-to-list 'load-path (locate-user-emacs-file "lisp/compat") :append)
@ -49,7 +54,7 @@ See `no-littering' for examples.")
;; Fonts
(let ((font-name "Go Mono")
(font-size 108)
(font-size 105)
(variable-font-name "Go")
(variable-font-size 1.0))
(set-face-attribute 'default nil :family font-name