about summary refs log tree commit diff
path: root/users/fcuny/notes/content/blog
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2021-09-09 17:28:29 -0700
committerFranck Cuny <franck@fcuny.net>2021-09-09 17:28:29 -0700
commite628fad646c6c23e568e0e29945e75bb058921d2 (patch)
tree3e8b0c872859028f0a784f37a762b71a1effe243 /users/fcuny/notes/content/blog
parentstatic: add profile picture (diff)
downloadworld-e628fad646c6c23e568e0e29945e75bb058921d2.tar.gz
blog: update elisp for git/sourcegraph
Diffstat (limited to 'users/fcuny/notes/content/blog')
-rw-r--r--users/fcuny/notes/content/blog/git-link-and-sourcegraph.org15
1 files changed, 12 insertions, 3 deletions
diff --git a/users/fcuny/notes/content/blog/git-link-and-sourcegraph.org b/users/fcuny/notes/content/blog/git-link-and-sourcegraph.org
index 034f8da..3ab5f4b 100644
--- a/users/fcuny/notes/content/blog/git-link-and-sourcegraph.org
+++ b/users/fcuny/notes/content/blog/git-link-and-sourcegraph.org
@@ -15,13 +15,22 @@ The next time you run =M-x git-link= in a buffer, it will use the URL associated
 #+begin_src elisp
 (use-package git-link
   :ensure t
+  :after magit
+  :bind (("C-c g l" . git-link)
+         ("C-c g a" . git-link-commit))
   :config
   (defun fcuny/get-sg-remote-from-hostname (hostname)
     (format "sourcegraph.<$domain>.<$tld>/%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)))
+  (defun fcuny/git-link-work-sourcegraph (hostname 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)))