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

refactor(lib): add Emacs version to doom/version

Browse source
This commit is contained in:
Henrik Lissner 2022-01-23 22:48:34 +01:00
parent 1f27a68ae6
commit 2d7e0c90ba
1 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
core/autoload/debug.el
View file

@ -222,16 +222,22 @@ ready to be pasted in a bug report on github."
;;;###autoload ;;;###autoload
(defun doom/version () (defun doom/version ()
"Display the current version and ocmit of Doom & Emacs." "Display the running version of Doom core, module sources, and Emacs."
(interactive) (interactive)
(let ((default-directory doom-emacs-dir)) (print! "%-13s v%-15s %s"
(print! "Doom emacs\tv%-15s %s" "GNU Emacs"
doom-version emacs-version
emacs-repository-version)
(let ((default-directory doom-core-dir))
(print! "%-13s v%-15s %s"
"Doom core"
doom-core-version
(or (cdr (doom-call-process "git" "log" "-1" "--format=%D %h %ci")) (or (cdr (doom-call-process "git" "log" "-1" "--format=%D %h %ci"))
"n/a"))) "n/a")))
(let ((default-directory doom-core-dir)) (let ((default-directory doom-emacs-dir))
(print! "Doom core\tv%-15s %s" (print! "%-13s v%-15s %s"
doom-core-version "Doom modules"
doom-version
(or (cdr (doom-call-process "git" "log" "-1" "--format=%D %h %ci")) (or (cdr (doom-call-process "git" "log" "-1" "--format=%D %h %ci"))
"n/a")))) "n/a"))))