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

feat: add doctor context

Browse source 
Ref: f9201eb218
This commit is contained in:
Henrik Lissner 2023-02-23 01:16:38 -05:00
parent 7cc946a74b
commit 357d10f5a7
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
2 changed files with 37 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/cli/doctor.el
View file

@ -238,6 +238,7 @@ in."
(print! (start "Checking your enabled modules..."))
(advice-add #'require :around #'doom-shut-up-a)
(pcase-dolist (`(,group . ,name) (doom-module-list))
(doom-context-with 'doctor
(let (doom-local-errors
doom-local-warnings)
(let (doom-doctor--errors
@ -272,7 +273,7 @@ in."
(setq doom-local-errors doom-doctor--errors
doom-local-warnings doom-doctor--warnings)))
(appendq! doom-doctor--errors doom-local-errors)
(appendq! doom-doctor--warnings doom-local-warnings)))))
(appendq! doom-doctor--warnings doom-local-warnings))))))
(error
(warn! "Attempt to load DOOM failed\n %s\n"
(or (cdr-safe ex) (car ex)))

2
lisp/doom.el
View file

@ -487,7 +487,7 @@ All valid contexts:
sandbox -- This session was launched from Doom's sandbox.
packages -- when packagedefs are being read
reload -- while reloading doom")
(put 'doom-context 'valid-values '(cli compile eval init modules packages reload sandbox))
(put 'doom-context 'valid-values '(cli compile eval init modules packages reload doctor sandbox))
(put 'doom-context 'risky-local-variable t)
(defun doom-context--check (context)