vc-msg
Show Version Control Software (VCS) commit message of current line.
This package is an extended and actively maintained version of the emacs-git-messenger.
Features:
- The correct commit for the user selected text is located by a new algorithm (Git only)
- Support Git/Mercurial/Subversion/Perforce without setup
- Anything is configurable
- Users can easily add support for new VCS
Install
It’s recommended to install from http://melpa.org/.
Usage
You only need run M-x vc-msg-show
and follow the hint.
If Git is used and partial of the line is selected, the correct commit for the selected text is displayed.
Current VCS is detected automatically. If you need force the VCS type (Perforce, for example), it’s only one liner (setq vc-msg-force-vcs "p4")
.
You can add hook to vc-msg-hook
,
(defun vc-msg-hook-setup (vcs-type commit-info)
;; copy commit id to clipboard
(message (format "%s\n%s\n%s\n%s"
(plist-get commit-info :id)
(plist-get commit-info :author)
(plist-get commit-info :author-time)
(plist-get commit-info :author-summary))))
(add-hook 'vc-msg-hook 'vc-msg-hook-setup)
Tips
Perforce
Perforce is detected automatically. You don’t need any manual setup.
But if you use Windows version of Perforce CLI in Cygwin Emacs, we provide the variable vc-msg-p4-file-to-url
to convert file path to ULR so Emacs and Perforce CLI could communicate the file location correctly,
(setq vc-msg-p4-file-to-url '(".*/proj1" "//depot/development/proj1"))
Support third party VCS
Here is sample minimum code:
(defun vc-msg-myvcs-execute (file line-num)
(let* ((cmd (format "myvcs blame %s %s" line-num file))
commit-info)
(plist-put commit-info :id "abde")
(plist-put commit-info :author "Chen Bin")
(plist-put commit-info :author-time "2012-07-04")
(plist-put commit-info :summary "2012-07-04")
commit-info))
(defun vc-msg-myvcs-format (commit-info)
(format "%s\n%s\n%s\n%s"
(plist-get commit-info :id)
(plist-get commit-info :author)
(plist-get commit-info :author-time)
(plist-get commit-info :author-summary)))
(defcustom vc-msg-myvcs-extra nil
"whatever."
:type '(repeat sexp)
:group 'vc-msg)
;; setup plugin matrix
(add-to-list 'vcs-msg-plugins
'(:type "myvcs"
:execute vc-msg-myvcs-execute
:format vc-msg-myvcs-format
:extra vc-msg-myvcs-extra))
;; detect myvcs automatically
(add-to-list 'vc-msg-known-vcs
'("myvcs" . ".myvcs"))
You can also use vc-msg-git.el
as a fully functional sample.
Running hook after commit is displayed
Hook vc-msg-show-code-hook
is a hook after commit is displayed.
Here is sample code:
(defun vc-msg-show-code-setup ()
;; use `ffip-diff-mode' from package find-file-in-project
(ffip-diff-mode))
(add-hook 'vc-msg-show-code-hook 'vc-msg-show-code-setup)
Integration with other Git client (Magit, for example)
You can run vc-msg-show
from magit blame buffer any time and you can trigger any magit command from this program out of the box.
You could also use magit show the code of commit,
Here is configuration to use magit-find-file
and magit-show-commit
,
(eval-after-load 'vc-msg-git
'(progn
;; show code of commit
(setq vc-msg-git-show-commit-function 'magit-show-commit)
;; open file of certain revision
(push '("m"
"[m]agit-find-file"
(lambda ()
(let* ((info vc-msg-previous-commit-info)
(git-dir (locate-dominating-file default-directory ".git")))
(magit-find-file (plist-get info :id )
(concat git-dir (plist-get info :filename))))))
vc-msg-git-extra)))
If vc-msg-git-show-commit-function
is customized by the user, vc-msg-show-code-hook
will be ignored.
You can also customize vc-msg-get-current-file-function
, vc-msg-get-line-num-function
, vc-msg-get-version-function
to before calling vc-msg-show
.
Integration with git-link
git-link provides “Interactive Emacs functions that create URLs for files and commits in GitHub/Bitbucket/GitLab/… repositories.” This package is not dependent on git-link. But if git-link is installed, a new menu item to copy the git link is displayed.