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

feature/version-control: fix +vcs/git-browse{,-issues} commands

Browse source
This commit is contained in:
Henrik Lissner 2017-04-22 21:27:54 -04:00
parent 369ab487e9
commit 0e8ee249ac
3 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/feature/version-control/autoload.el
View file

@ -8,18 +8,19 @@
;;;###autoload
(defun +vcs/git-browse ()
"Open the website for the current (or specified) version controlled FILE.
Fallback to repository root."
"Open the website for the current version controlled file. Fallback to
repository root."
(interactive)
(let (url)
(condition-case err
(setq url (browse-at-remote-get-url))
(error
('error
(setq url (shell-command-to-string "hub browse -u --"))
(setq url (if url
(concat (string-trim url) "/"
(file-relative-name (buffer-file-name)
(doom-project-root))
(concat (string-trim url) "/blob/"
(or (car (vc-git-branches)) "master") "/"
(file-relative-name (file-truename (buffer-file-name))
(file-truename (doom-project-root)))
(when (use-region-p)
(format "#L%s-L%s"
(line-number-at-pos (region-beginning))