emacs: use default branch for sourcegraph

Don't use the current branch when building a link to sourcegraph, as we
might be on a feature branch that is not available on the remote.

1 files changed, 9 insertions, 2 deletions

diff --git a/emacs/custom/fcuny-git.el b/emacs/custom/fcuny-git.el
index 4c6409a..9761309 100644
--- a/emacs/custom/fcuny-git.el
+++ b/emacs/custom/fcuny-git.el
@@ -86,6 +86,7 @@
 
 (use-package git-link
   :ensure t
+  :after magit
   :bind (("C-c g l" . git-link)
          ("C-c g a" . git-link-commit))
   :config
@@ -93,8 +94,14 @@
     (format "sourcegraph.twitter.biz/%s" hostname))
 
   (defun fcuny/git-link-work-sourcegraph (hostname dirname filename _branch commit start end)
-    (let ((sg-base-url (fcuny/get-sg-remote-from-hostname hostname)))
-      (git-link-sourcegraph sg-base-url dirname filename _branch commit start end)))
+    ;;; For a given repository, build the proper link for sourcegraph.
+    ;;; Use the default branch of the repository instead of the
+    ;;; current one (we might be on a feature branch that is not
+    ;;; available on the remote).
+    (require 'magit-branch)
+    (let ((sg-base-url (fcuny/get-sg-remote-from-hostname hostname))
+          (main-branch (magit-main-branch)))
+      (git-link-sourcegraph sg-base-url dirname filename main-branch commit start end)))
 
   (defun fcuny/git-link-commit-work-sourcegraph (hostname dirname commit)
     (let ((sg-base-url (fcuny/get-sg-remote-from-hostname hostname)))