yogsototh/doom-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

fix(cli): verbose output in debug mode

Browse source
This commit is contained in:
Henrik Lissner 2022-07-28 17:26:10 +02:00
parent 314463bd49
commit 743b740e79
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bin/doom
View file

@ -215,7 +215,7 @@ SEE ALSO:
(let (omit) (let (omit)
(when debug? (when debug?
(setenv "DEBUG" "1") (setenv "DEBUG" "1")
(print! (item "Debug mode enabled")) (setq init-file-debug t)
(push "--debug" omit)) (push "--debug" omit))
(when profile (when profile
(setenv "DOOMPROFILE" profile) (setenv "DOOMPROFILE" profile)

5
core/core-cli.el
View file

@ -38,6 +38,9 @@
;; Ensure errors are sufficiently detailed from this point on. ;; Ensure errors are sufficiently detailed from this point on.
(setq debug-on-error t) (setq debug-on-error t)
;; Be more verbose if debug mode is on.
(when (setq init-file-debug (getenv "DEBUG"))
(message "Debug mode enabled"))
;;; Initialize profile ;;; Initialize profile
(let ((profile (getenv "DOOMPROFILE"))) (let ((profile (getenv "DOOMPROFILE")))
@ -55,7 +58,7 @@
;; 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 (not (or (getenv "DEBUG") init-file-debug)))) (let ((inhibit-message (not 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")