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

Improve error handling in doom/info

Browse source
This commit is contained in:
Henrik Lissner 2018-03-20 20:45:16 -04:00
parent d8f2abbeab
commit afdf2047a7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/autoload/debug.el
View file

@ -98,11 +98,12 @@ 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 https://github.com/hlissner/doom-emacs/commit/%s)\n" "- Doom: %s (%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"
" ```elisp\n" " ```elisp\n"
" uname -a: %s\n"
" modules: %s\n" " modules: %s\n"
" packages: %s\n" " packages: %s\n"
" elc dirs: %s\n" " elc dirs: %s\n"
@ -111,10 +112,19 @@ 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
(vc-git--symbolic-ref "core/core.el") (vc-git-working-revision "core/core.el") (if-let* ((branch (vc-git--symbolic-ref "core/core.el")))
branch
"n/a")
(if-let* ((rev (vc-git-working-revision "core/core.el")))
(format "https://github.com/hlissner/doom-emacs/commit/%s" rev)
"n/a")
(display-graphic-p) (daemonp) (display-graphic-p) (daemonp)
(bound-and-true-p system-configuration-features) (bound-and-true-p system-configuration-features)
;; details ;; details
(with-temp-buffer
(unless (zerop (call-process "uname" nil t nil "-a"))
(insert (format "%s" system-type)))
(string-trim (buffer-string)))
(or (cl-loop with cat = nil (or (cl-loop with cat = nil
for key being the hash-keys of doom-modules for key being the hash-keys of doom-modules
if (or (not cat) (not (eq cat (car key)))) if (or (not cat) (not (eq cat (car key))))