gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Create the magit-find-first-link helper

Browse Source
This commit is contained in:
Gergely Polonkai
2025-03-31 12:50:27 +02:00
parent 2972d3f964
commit 082988c915
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
configuration.org
View File

@@ -709,6 +709,22 @@ From [[http://whattheemacsd.com/file-defuns.el-02.html][whattheemacsd.org]].
(magit-section-goto 1))))) (magit-section-goto 1)))))
#+end_src #+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 * 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. Now that we have package management configured we can set up defaults more easily. This includes every builtin packages, font faces, and the like.