git-browse-remote.el

(require 'vc-git)

(defun git-browse-remote-at-point (rev)
  (interactive "P")
  (let* ((root (vc-git-root buffer-file-name))
         (default-directory root)
         (line (if (use-region-p)
                   (format "%d,%d"
                           (line-number-at-pos (region-beginning))
                           (line-number-at-pos (region-end)))
                 (format "%d" (line-number-at-pos))))
         (relative-file-name (file-relative-name
                buffer-file-name
                (vc-git-root buffer-file-name))))
    (when root
      (apply #'start-process
       `("GIT-BROWSE-REMOTE" nil "git-browse-remote"
         "-L" ,line ,@(if rev (list "--rev") (list))
         "--" ,relative-file-name)))))

(defun git-browse-remote-rev-at-point ()
  (interactive)
  (git-browse-remote-at-point t))