Reformat doctor output & add DOOMDIR check
- Will now warn you if both .doom.d and .config/doom exists. - Include branch and last commit date in doctor/info, next to Doom version. - Issues in Doom core are now indented.
This commit is contained in:
parent
f37b1342a2
commit
20a63a35ab
3 changed files with 13 additions and 6 deletions
|
@ -114,7 +114,7 @@
|
||||||
"???")
|
"???")
|
||||||
(if (and (executable-find "git")
|
(if (and (executable-find "git")
|
||||||
(file-directory-p (expand-file-name ".git" user-emacs-directory)))
|
(file-directory-p (expand-file-name ".git" user-emacs-directory)))
|
||||||
(substring (sh "git rev-parse HEAD") 0 8)
|
(sh "git log -1 --format=\"%D %h %ci\"")
|
||||||
"n/a"))
|
"n/a"))
|
||||||
(msg! "shell: %s%s"
|
(msg! "shell: %s%s"
|
||||||
(getenv "SHELL")
|
(getenv "SHELL")
|
||||||
|
@ -300,7 +300,8 @@
|
||||||
(setq doom-modules nil)))
|
(setq doom-modules nil)))
|
||||||
|
|
||||||
(section! "Checking Doom core for irregularities...")
|
(section! "Checking Doom core for irregularities...")
|
||||||
(load (expand-file-name "doctor.el" doom-core-dir) nil 'nomessage)
|
(let ((indent 4))
|
||||||
|
(load (expand-file-name "doctor.el" doom-core-dir) nil 'nomessage))
|
||||||
|
|
||||||
(when (bound-and-true-p doom-modules)
|
(when (bound-and-true-p doom-modules)
|
||||||
(section! "Checking your enabled modules...")
|
(section! "Checking your enabled modules...")
|
||||||
|
|
|
@ -16,7 +16,7 @@ ready to be pasted in a bug report on github."
|
||||||
(format
|
(format
|
||||||
(concat "- OS: %s (%s)\n"
|
(concat "- OS: %s (%s)\n"
|
||||||
"- Emacs: %s (%s)\n"
|
"- Emacs: %s (%s)\n"
|
||||||
"- Doom: %s (%s %s)\n"
|
"- Doom: %s (%s)\n"
|
||||||
"- Graphic display: %s (daemon: %s)\n"
|
"- Graphic display: %s (daemon: %s)\n"
|
||||||
"- System features: %s\n"
|
"- System features: %s\n"
|
||||||
"- Details:\n"
|
"- Details:\n"
|
||||||
|
@ -31,9 +31,7 @@ ready to be pasted in a bug report on github."
|
||||||
system-type system-configuration
|
system-type system-configuration
|
||||||
emacs-version (format-time-string "%b %d, %Y" emacs-build-time)
|
emacs-version (format-time-string "%b %d, %Y" emacs-build-time)
|
||||||
doom-version
|
doom-version
|
||||||
(or (vc-git--symbolic-ref "core/core.el")
|
(or (string-trim (shell-command-to-string "git log -1 --format=\"%D %h %ci\""))
|
||||||
"n/a")
|
|
||||||
(or (vc-git-working-revision "core/core.el")
|
|
||||||
"n/a")
|
"n/a")
|
||||||
(display-graphic-p) (daemonp)
|
(display-graphic-p) (daemonp)
|
||||||
(bound-and-true-p system-configuration-features)
|
(bound-and-true-p system-configuration-features)
|
||||||
|
|
|
@ -27,3 +27,11 @@
|
||||||
(warn! "Your $HOME is recognized as a project root")
|
(warn! "Your $HOME is recognized as a project root")
|
||||||
(explain! "Doom will disable bottom-up root search, which may reduce the accuracy of project\n"
|
(explain! "Doom will disable bottom-up root search, which may reduce the accuracy of project\n"
|
||||||
"detection.")))
|
"detection.")))
|
||||||
|
|
||||||
|
;; There should only be one
|
||||||
|
(when! (and (file-equal-p doom-private-dir "~/.config/doom")
|
||||||
|
(file-directory-p "~/.doom.d"))
|
||||||
|
(warn! "Both %S and '~/.doom.d' exist on your system"
|
||||||
|
(abbreviate-file-name doom-private-dir))
|
||||||
|
(explain! "Doom will only load one of these (~/.config/doom takes precedence). Since\n"
|
||||||
|
"it is rarely intentional that you have both, ~/.doom.d should be removed."))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue