33 lines
1.2 KiB
EmacsLisp
33 lines
1.2 KiB
EmacsLisp
|
;;; feature/version-control/autoload.el
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +vcs-git-root ()
|
||
|
|
"Get git url root."
|
||
|
|
(-when-let (url (car-safe (browse-at-remote--remote-ref buffer-file-name)))
|
||
|
|
(cdr (browse-at-remote--get-url-from-remote url))))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +vcs/git-browse ()
|
||
|
|
"Open the website for the current (or specified) version controlled FILE.
|
||
|
|
Fallback to repository root."
|
||
|
|
(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) (doom-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 (browse-url url))))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +vcs/git-browse-issues ()
|
||
|
|
"Open the github issues page for current repo."
|
||
|
|
(interactive)
|
||
|
|
(if-let (root (+vcs-git-root))
|
||
|
|
(browse-url (concat root "/issues"))
|
||
|
|
(user-error "No git root found!")))
|