acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
early-init.el
View File

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