          (str (format
                (concat "### System Information\n"
                        "- OS: %s (%s)\n"
-                       "- Emacs: %s\n"
+                       "- Emacs: %s (%s)\n"
                        "- Doom: %s (%s https://github.com/hlissner/doom-emacs/commit/%s)\n"
                        "- Graphic display: %s (daemon: %s)\n"
                        "- System features: %s\n"

                       "  ```elisp\n"
                       "  modules:   %s\n"
                       "  packages:  %s\n"
                       "  elc files: %s\n"
                       "  exec-path: %s\n"
                       "  ```\n")
               system-type
               emacs-version (format-time-string "%b %d, %Y" emacs-build-time)
               doom-version
               (vc-git--symbolic-ref "core/core.el") (vc-git-working-revision "core/core.el")


;;;###autoload
(defun doom/info ()
  "Collects some debug information about your Emacs session, formats it into
markdown and copies it to your clipboard, ready to be pasted into bug reports!"
  (declare (interactive-only t))
  (interactive)
  (message "Generating Doom info...")
