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

refactor(lib): tidy up doom/version

Browse source
This commit is contained in:
Henrik Lissner 2022-06-19 01:31:32 +02:00
parent 498d88ba9b
commit 23678c52fe
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 22 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

41
core/autoload/debug.el
View file

@ -323,25 +323,28 @@ ready to be pasted in a bug report on github."
(defun doom/version ()
"Display the running version of Doom core, module sources, and Emacs."
(interactive)
(print! "%-13s v%-15s %s"
"GNU Emacs"
emacs-version
emacs-repository-version)
(let ((default-directory doom-emacs-dir))
(print! "%-13s v%-15s %s"
"Doom core"
doom-version
(or (cdr (doom-call-process "git" "log" "-1" "--format=%D %h %ci"))
"n/a")))
;; NOTE This is a placeholder. Our modules will be moved to its own repo
;; eventually, and Doom core will later be capable of managing them like
;; package sources.
(let ((default-directory doom-modules-dir))
(print! "%-13s v%-15s %s"
"Doom modules"
doom-modules-version
(or (cdr (doom-call-process "git" "log" "-1" "--format=%D %h %ci"))
"n/a"))))
(print! "%s\n%s\n%s"
(format "%-13s v%-15s %s"
"GNU Emacs"
emacs-version
emacs-repository-version)
(format "%-13s v%-15s %s"
"Doom core"
doom-version
(or (cdr (doom-call-process
"git" "-C" doom-emacs-dir
"log" "-1" "--format=%D %h %ci"))
"n/a"))
;; NOTE This is a placeholder. Our modules will be moved to its own
;; repo eventually, and Doom core will later be capable of managing
;; them like package sources.
(format "%-13s v%-15s %s"
"Doom modules"
doom-modules-version
(or (cdr (doom-call-process
"git" "-C" doom-modules-dir
"log" "-1" "--format=%D %h %ci"))
"n/a"))))
;;;###autoload
(defun doom/info ()