awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

refactor(lib): doom-debug-mode: make verbosity selective

Browse Source 
Now `doom-debug-mode` manipulates `doom-log-level` if you activate it
with a prefix arg, setting it to 1 by default, reducing its verbosity
and cutting down on noise in the logs.
This commit is contained in:
Henrik Lissner
2025-04-10 21:35:19 -04:00
parent c233aada0b
commit fb0dc4cc85
10 changed files with 96 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/doom-lib.el
View File

@ -246,7 +246,7 @@ unreadable. Returns the names of envvars that were changed."
(defun doom-run-hook (hook)
"Run HOOK (a hook function) with better error handling.
Meant to be used with `run-hook-wrapped'."
(doom-log "hook:%s: run %s" (or doom--hook '*) hook)
(doom-log 2 "hook:%s: run %s" (or doom--hook '*) hook)
(condition-case-unless-debug e
(funcall hook)
(error
@ -313,7 +313,7 @@ TRIGGER-HOOK is a list of quoted hooks and/or sharp-quoted functions."
(with-memoization (get 'doom-compile-function 'timer)
(run-with-idle-timer
1.5 t (fn! (when-let (fn (pop fns))
(doom-log "compile-functions: %s" fn)
(doom-log 3 "compile-functions: %s" fn)
(or (if (featurep 'native-compile)
(or (subr-native-elisp-p (indirect-function fn))
(ignore-errors (native-compile fn))))
@ -1170,7 +1170,7 @@ Never set this variable directly, use `with-doom-module'.")
(if key
(doom-module-context key)
(make-doom-module-context)))))
(doom-log ":context:module: =%s" doom-module-context)
(doom-log 2 ":context:module: =%s" doom-module-context)
,@body))
(defun doom-module-context (key)