diff --git a/.emacs.d/include/priime-vc.el b/.emacs.d/include/priime-vc.el
index 1ba6f20..8cbd563 100644
--- a/.emacs.d/include/priime-vc.el
+++ b/.emacs.d/include/priime-vc.el
@@ -11,6 +11,19 @@
          ("C-x g" . magit-status)))
 (use-package forge :straight t
   :after (magit))
+(use-package git-link :straight t)
+
+(defun git-link-with-commit ()
+  "Create a URL representing the current selection for the current commit."
+  (interactive)
+  (let* ((link-region (git-link--get-region))
+         (old-link (git-link (git-link--remote) (car link-region) (cadr link-region)))
+         (branch (git-link--branch))
+         (commit (git-link--commit))
+         (new-link (s-replace branch commit old-link)))
+    (kill-new new-link)
+    (message new-link)
+    new-link))
 
 (provide 'priime-vc)