35 lines
1.3 KiB
EmacsLisp
35 lines
1.3 KiB
EmacsLisp
;;; feature/version-control/autoload.el
|
|
|
|
;;;###autoload
|
|
(defun +vcs-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 (string-trim url) "/"
|
|
(file-relative-name (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-root))
|
|
(browse-url (concat root "/issues"))
|
|
(user-error "No git root found!")))
|