From 2972d3f964b0139d5a1e12e584d2ff5461fdd2c8 Mon Sep 17 00:00:00 2001 From: Gergely Polonkai Date: Mon, 31 Mar 2025 12:49:37 +0200 Subject: [PATCH] Create the magit-goto-end-of-section helper --- configuration.org | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/configuration.org b/configuration.org index d1e724c..45311d6 100644 --- a/configuration.org +++ b/configuration.org @@ -686,6 +686,29 @@ From [[http://whattheemacsd.com/file-defuns.el-02.html][whattheemacsd.org]]. (magit-section-goto section))) #+end_src +*** Go to the end of the current section + +#+begin_src emacs-lisp + +(defun gpolonkai/magit-goto-end-of-section () + "Move to the beginning of the next visible section." + (interactive) + (unless (eobp) + (let ((section (magit-current-section))) + (if (oref section parent) + (let ((next (and (not (oref section hidden)) + (not (= (oref section end) + (1+ (point)))) + (car (oref section children))))) + (while (and section (not next)) + (unless (setq next (car (magit-section-siblings section 'next))) + (setq section (oref section parent)))) + (if next + (magit-section-goto next) + (end-of-buffer))) + (magit-section-goto 1))))) +#+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.