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

Add hub browse fallback for browse-at-remote (WIP)

Browse source
This commit is contained in:
Henrik Lissner 2015-12-29 23:40:30 -05:00
parent 6950a6986f
commit 095051895a
1 changed files with 20 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
core/core-vcs.el
View file

@ -49,16 +49,27 @@
:n [tab] 'vc-annotate-toggle-annotation-visibility
:n "RET" 'vc-annotate-find-revision-at-line))
(evil-define-command narf:git-remote-browse (&optional bang file)
(use-package browse-at-remote
:commands (browse-at-remote/browse browse-at-remote/to-clipboard)
:init
(evil-define-command narf:git-remote-browse (&optional bang)
"Open the website for the current (or specified) version controlled FILE. If BANG,
then use hub to do it."
(interactive "<!><f>")
(let ((url (shell-command-to-string "hub browse -u -- ")))
(interactive "<!>")
(let (url)
(condition-case err
(setq url (browse-at-remote/get-url))
(error
(setq url (shell-command-to-string "hub browse -u --"))
(setq url (if url
(concat (s-trim url) "/" (f-relative (buffer-file-name) (narf/project-root))
(when (use-region-p) (format "#L%s-L%s"
(line-number-at-pos (region-beginning))
(line-number-at-pos (region-end)))))))))
(when url
(setq url (concat (s-trim url) "/" (f-relative (buffer-file-name) (narf/project-root)))))
(if bang
(message "Url copied to clipboard: %s" (kill-new url))
(browse-url url))))
(browse-url url))))))
(provide 'core-vcs)
;;; core-vcs.el ends here