From 082988c915fb094c6f86e9f0362cb721e669f9c5 Mon Sep 17 00:00:00 2001
From: Gergely Polonkai <gergely@polonkai.eu>
Date: Mon, 31 Mar 2025 12:50:27 +0200
Subject: [PATCH] Create the magit-find-first-link helper

---
 configuration.org | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/configuration.org b/configuration.org
index 45311d6..121c88e 100644
--- a/configuration.org
+++ b/configuration.org
@@ -709,6 +709,22 @@ From [[http://whattheemacsd.com/file-defuns.el-02.html][whattheemacsd.org]].
         (magit-section-goto 1)))))
 #+end_src
 
+*** Find the first URL in the current section
+
+#+begin_src emacs-lisp
+(defun gpolonkai/magit-find-first-link ()
+  (interactive)
+  (let ((bos (save-excursion
+               (gpolonkai/magit-goto-beginning-of-section)
+               (point)))
+        (eos (save-excursion
+               (gpolonkai/magit-goto-end-of-section)
+               (point))))
+    (goto-char bos)
+    (when (re-search-forward "https?://" eos t)
+      (goto-char (match-beginning 0)))))
+#+end_src
+
 * Set up the very basics
 
 Now that we have package management configured we can set up defaults more easily.  This includes every builtin packages, font faces, and the like.