awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

emacs/vc: if prefix ARG, open region/line on master branch

Browse Source
This commit is contained in:
Henrik Lissner
2019-10-25 16:12:38 -04:00
parent 467bd53b70
commit d8ea65b968
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/emacs/vc/autoload/vc.el
View File

@ -15,14 +15,17 @@
(defvar git-link-use-commit)
;;;###autoload
(defun +vc/git-browse-region-or-line (&optional arg)
"Open the website for the current version controlled file. Fallback to
repository root."
"Open the website for the current line of this version controlled file.
Uses the currently checked out branch. If prefix ARG, then use 'master' branch.
If an url can't be ascertained, opens the repository's root."
(interactive "P")
(require 'git-link)
(let (git-link-use-commit)
(let ((git-link-default-branch (if arg "master" git-link-default-branch))
current-prefix-arg ; don't propagate to `git-link'
git-link-use-commit)
(cl-destructuring-bind (beg end)
(if buffer-file-name (git-link--get-region))
(let ((git-link-open-in-browser (not arg)))
(let ((git-link-open-in-browser t))
(git-link (git-link--select-remote) beg end)))))
;;;###autoload