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

bin/doom-doctor: minor refactor

Browse source 
Also allow Doom init errors to be debugged.
This commit is contained in:
Henrik Lissner 2019-03-28 02:01:38 -04:00
parent 5cdc2127be
commit ddfcc4299c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
bin/doom-doctor
View file

@ -213,8 +213,8 @@
;; are certificates validated properly? ;; are certificates validated properly?
(section! "Testing your root certificates...") (section! "Testing your root certificates...")
(cond ((not (string-match-p "\\_<GNUTLS\\_>" system-configuration-features)) (cond ((not (ignore-errors (gnutls-available-p)))
(warn! "Warning: You didn't install Emacs with gnutls support") (warn! "Warning: Emacs wasn't installed with gnutls support")
(explain! (explain!
"This may cause 'pecular error' errors with the Doom doctor, and is likely to " "This may cause 'pecular error' errors with the Doom doctor, and is likely to "
"interfere with package management. Your mileage may vary." "interfere with package management. Your mileage may vary."
@ -226,7 +226,7 @@
" brew install emacs-plus")))) " brew install emacs-plus"))))
((not (fboundp 'url-retrieve-synchronously)) ((not (fboundp 'url-retrieve-synchronously))
(error! "Can't find url-retrieve-synchronously function. Are you running Emacs 24+?")) (error! "Can't find url-retrieve-synchronously function. Are you sure you're on Emacs 24+?"))
((or (executable-find "gnutls-cli") ((or (executable-find "gnutls-cli")
(executable-find "openssl")) (executable-find "openssl"))
@ -282,7 +282,7 @@
;; --- are your modules set up properly? ---------------------- ;; --- are your modules set up properly? ----------------------
(condition-case ex (condition-case-unless-debug ex
(let ((inhibit-message t) (let ((inhibit-message t)
(after-init-time (current-time)) (after-init-time (current-time))
noninteractive) noninteractive)