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

bin/doctor: add current commit SHA

Browse source
This commit is contained in:
Henrik Lissner 2017-06-12 14:56:47 +02:00
parent 01dc170e5b
commit 709d6c4676
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
bin/doctor
View file

@ -86,9 +86,12 @@
;; --- start a'doctorin' -------------------------------------- ;; --- start a'doctorin' --------------------------------------
(msg! "%s\nRunning Emacs v%s" (msg! "%s\nRunning Emacs v%s, commit %s"
(color 1 "DOOM Doctor") (color 1 "DOOM Doctor")
(color 1 emacs-version)) (color 1 emacs-version)
(if (executable-find "git")
(shell-command-to-string "git rev-parse HEAD")
"n/a"))
(when (boundp 'system-configuration-features) (when (boundp 'system-configuration-features)
(msg! "Compiled with:\n%s" (indented 2 (autofill system-configuration-features)))) (msg! "Compiled with:\n%s" (indented 2 (autofill system-configuration-features))))
(msg! "uname -a:\n%s" (indented 2 (autofill (shell-command-to-string "uname -a")))) (msg! "uname -a:\n%s" (indented 2 (autofill (shell-command-to-string "uname -a"))))
@ -184,11 +187,6 @@
(t (t
(error! "Nope!"))) (error! "Nope!")))
;; git
(check! (not (executable-find "git"))
(error! "Important: couldn't find git"))
;; windows? windows ;; windows? windows
(check! (memq system-type '(windows-nt ms-dos cygwin)) (check! (memq system-type '(windows-nt ms-dos cygwin))
(warn! "Warning: Windows detected") (warn! "Warning: Windows detected")