emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tweak(cli): be verbose about site files in debug mode

Browse source 
More information for hapless debuggers like me!

Ref: #6473
This commit is contained in:
Henrik Lissner 2022-06-20 13:13:50 +02:00
parent eb7329d912
commit d1472c191e
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/core-cli.el
View file

@ -49,23 +49,22 @@ This exists so external tools or Doom binscripts can inspect each other.")
;; HACK Load `cl' and site files manually to prevent polluting logs and stdout ;; HACK Load `cl' and site files manually to prevent polluting logs and stdout
;; with deprecation and/or file load messages. ;; with deprecation and/or file load messages.
(let ((inhibit-message t)) (let ((inhibit-message (not (or (getenv "DEBUG") init-file-debug))))
(require 'cl) (require 'cl)
(unless site-run-file (unless site-run-file
(let ((site-run-file "site-start") (let ((site-run-file "site-start")
(verbose (or (getenv "DEBUG") init-file-debug))
(tail load-path) (tail load-path)
(lispdir (expand-file-name "../lisp" data-directory)) (lispdir (expand-file-name "../lisp" data-directory))
dir) dir)
(while tail (while tail
(setq dir (car tail)) (setq dir (car tail))
(let ((default-directory dir)) (let ((default-directory dir))
(load (expand-file-name "subdirs.el") t (not verbose) t)) (load (expand-file-name "subdirs.el") t inhibit-message t))
(or (string-prefix-p lispdir dir) (or (string-prefix-p lispdir dir)
(let ((default-directory dir)) (let ((default-directory dir))
(load (expand-file-name "leim-list.el") t (not verbose) t))) (load (expand-file-name "leim-list.el") t inhibit-message t)))
(setq tail (cdr tail))) (setq tail (cdr tail)))
(load site-run-file t (not verbose))))) (load site-run-file t inhibit-message))))
;; Just the... bear necessities~ ;; Just the... bear necessities~
(require 'core (expand-file-name "core" (file-name-directory load-file-name))) (require 'core (expand-file-name "core" (file-name-directory load-file-name)))