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

Add GNUTLS feature detection to doom doctor #175

Browse source
This commit is contained in:
Henrik Lissner 2017-09-13 00:11:02 +02:00
parent 5f26399ff2
commit 4e7d3c6c06
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
bin/doom-doctor
View file

@ -210,7 +210,19 @@
"or just about anyone who knows more about computers than you do!")))) "or just about anyone who knows more about computers than you do!"))))
(log! "test-tls") (log! "test-tls")
(cond ((or (executable-find "gnutls-cli") (cond ((not (string-match-p "\\_<GNUTLS\\_>" system-configuration-features))
(warn! "Warning: You didn't install Emacs with gnutls support")
(explain!
"This may cause 'pecular error' errors with the Doom doctor, and is likely to "
"interfere with package management. Your mileage may vary."
(when (eq system-type 'darwin)
(concat "\nMacOS users are advised to install Emacs via homebrew with one of the following:\n"
" brew install emacs --with-gnutls"
" or"
" brew tap d12frosted/emacs-plus"
" brew install emacs-plus"))))
((or (executable-find "gnutls-cli")
(executable-find "openssl")) (executable-find "openssl"))
(let ((tls-checktrust t) (let ((tls-checktrust t)
(gnutls-verify-error t)) (gnutls-verify-error t))
@ -247,6 +259,7 @@
(when (getenv "DEBUG") (when (getenv "DEBUG")
(success! "Rejected %s (a good thing!)" url) (success! "Rejected %s (a good thing!)" url)
(explain! (pp-to-string ex)))))))) (explain! (pp-to-string ex))))))))
(t (t
(error! "Nope!"))) (error! "Nope!")))