From 1554b7893c4ffc133470696b90fed27b5adf7765 Mon Sep 17 00:00:00 2001 From: Szymon Szukalski Date: Tue, 7 Apr 2026 12:00:49 +1000 Subject: Narrow roster lookup to subtree --- config.org | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/config.org b/config.org index 27bc979..d94ce18 100644 --- a/config.org +++ b/config.org @@ -501,14 +501,16 @@ reports. (add-hook 'after-save-hook #'ss/people-roster-reload nil t))) (defun ss/people-roster-open-entry (entry) - "Open the roster file and jump to ENTRY." + "Open the roster file, jump to ENTRY, and narrow to its subtree." (find-file (ss/people-roster--ensure-file)) + (widen) (let ((position (org-find-exact-headline-in-buffer (ss/people-roster--entry-name entry)))) (unless position (user-error "No roster heading for %s" (ss/people-roster--entry-name entry))) (goto-char position)) - (org-show-entry)) + (org-show-entry) + (org-narrow-to-subtree)) (defun ss/people-find () "Find and open a roster entry." -- cgit v1.2.3