From 108360fa6fe195757d7e1b95e551ed6cc50c6fbd Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Fri, 26 Aug 2022 11:49:54 +1200 Subject: [PATCH] Advance point through group headings when moving to next review note --- lisp/org-roam-review.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/org-roam-review.el b/lisp/org-roam-review.el index 81e0965..213b1fd 100644 --- a/lisp/org-roam-review.el +++ b/lisp/org-roam-review.el @@ -618,6 +618,11 @@ them as reviewed with `org-roam-review-accept', (found)) (while (not stop) (magit-section-forward-sibling) + ;; Skip over group headlines + (magit-section-case + (org-roam-review-grouping-section + (magit-section-forward))) + (setq found (not (equal 'font-lock-comment-face (get-text-property (point) 'face)))) (let ((unchanged (equal (magit-current-section) section))) (setq stop (or found unchanged))))