diff --git a/core/autoload/help.el b/core/autoload/help.el index 3dd025fb8..4e61a056b 100644 --- a/core/autoload/help.el +++ b/core/autoload/help.el @@ -113,3 +113,18 @@ in, or d) the module associated with the current major mode (see (fill-region (point-min) (point-max))) (quiet! (indent-region (point-min) (point-max)))) (string-trim (buffer-string)))) + +;;;###autoload +(defun doom/version () + "Display the current version of Doom & Emacs, including the current Doom +branch and commit." + (interactive) + (message "Doom v%s (Emacs v%s). Branch: %s. Commit: %s." + doom-version + emacs-version + (if-let* ((branch (vc-git--symbolic-ref "core/core.el"))) + branch + "n/a") + (if-let* ((rev (vc-git-working-revision "core/core.el"))) + rev + "n/a"))) diff --git a/modules/config/default/+bindings.el b/modules/config/default/+bindings.el index 4c282bd8c..c8ab4f626 100644 --- a/modules/config/default/+bindings.el +++ b/modules/config/default/+bindings.el @@ -230,6 +230,7 @@ :desc "Reload theme" :n "R" #'doom//reload-theme :desc "Describe DOOM setting" :n "s" #'doom/describe-setting :desc "Describe variable" :n "v" #'describe-variable + :desc "Print Doom version" :n "V" #'doom/version :desc "Describe at point" :n "." #'helpful-at-point :desc "What face" :n "'" #'doom/what-face :desc "What minor modes" :n ";" #'doom/what-minor-mode)