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 [tab] 'vc-annotate-toggle-annotation-visibility
:n "RET" 'vc-annotate-find-revision-at-line)) :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, "Open the website for the current (or specified) version controlled FILE. If BANG,
then use hub to do it." then use hub to do it."
(interactive "<!><f>") (interactive "<!>")
(let ((url (shell-command-to-string "hub browse -u -- "))) (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 (when url
(setq url (concat (s-trim url) "/" (f-relative (buffer-file-name) (narf/project-root)))))
(if bang (if bang
(message "Url copied to clipboard: %s" (kill-new url)) (message "Url copied to clipboard: %s" (kill-new url))
(browse-url url)))) (browse-url url))))))
(provide 'core-vcs) (provide 'core-vcs)
;;; core-vcs.el ends here ;;; core-vcs.el ends here