Narrow roster lookup to subtree

1 files 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."