feature/version-control: replace browse-at-remote with git-link

modules/feature/version-control/+git.el

@@ -13,6 +13,7 @@
   :commands git-gutter-mode
   :init
   (defun +version-control|git-gutter-maybe ()
+    "Enable `git-gutter-mode' in non-remote buffers."
     (when (and (buffer-file-name)
                (not (file-remote-p (buffer-file-name))))
       (git-gutter-mode +1)))
@@ -28,15 +29,11 @@
     (advice-add #'evil-force-normal-state :after #'git-gutter)))
 
 
-(def-package! browse-at-remote
-  :commands (browse-at-remote browse-at-remote-get-url))
-
-
 (def-package! git-timemachine
   :commands (git-timemachine git-timemachine-toggle)
   :config
   (require 'magit-blame)
-  
+
   ;; Sometimes I forget `git-timemachine' is enabled in a buffer, so instead of
   ;; showing revision details in the minibuffer, show them in
   ;; `header-line-format', which is always visible.
@@ -86,6 +83,10 @@
         :nv "C-k" nil))
 
 
+(def-package! git-link
+  :commands (git-link git-link-commit git-link-homepage))
+
+
 (def-package! evil-magit
   :when (featurep! :feature evil)
   :after magit)

modules/feature/version-control/autoload.el

@@ -3,29 +3,20 @@
 ;;;###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))))
+  (let ((remote (git-link--select-remote)))
+    (if (git-link--remote-host remote)
+        (format "https://%s/%s"
+                (git-link--remote-host remote)
+                (git-link--remote-dir remote))
+      (error  "Remote `%s' is unknown or contains an unsupported URL" remote))))
 
 ;;;###autoload
 (defun +vcs/git-browse ()
   "Open the website for the current 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) "/blob/"
-                             (or (car (vc-git-branches)) "master") "/"
-                             (file-relative-name (file-truename (buffer-file-name))
-                                                 (file-truename (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))))
+  (let ((git-link-open-in-browser t))
+    (call-interactively 'git-link)))
 
 ;;;###autoload
 (defun +vcs/git-browse-issues ()

modules/feature/version-control/packages.el

@@ -5,8 +5,8 @@
 ;; n/a
 
 ;;; +git
-(package! browse-at-remote)
 (package! git-gutter-fringe)
+(package! git-link)
 (package! git-timemachine)
 (package! gitconfig-mode)
 (package! gitignore-mode)