diff options
Diffstat (limited to 'config.org')
| -rw-r--r-- | config.org | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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." |