1 files changed, 37 insertions, 0 deletions

@@ -471,6 +471,43 @@ probably abandon it at some point for a better solution (see:
       (org-narrow-to-subtree))))
 
 
+;;; Hide everything but the current headline
+;; https://stackoverflow.com/questions/25161792/
+
+(defun acdw-org/show-next-heading-tidily ()
+  "Show next entry, keeping other entries closed."
+  (interactive)
+  (if (save-excursion (end-of-line) (outline-invisible-p))
+      (progn (org-show-entry) (outline-show-children))
+    (outline-next-heading)
+    (unless (and (bolp) (org-at-heading-p))
+      (org-up-heading-safe)
+      (outline-hide-subtree)
+      (error "Boundary reached"))
+    (org-overview)
+    (org-reveal t)
+    (org-show-entry)
+    (recenter-top-bottom)
+    (outline-show-children)
+    (recenter-top-bottom)))
+
+(defun acdw-org/show-previous-heading-tidily ()
+  "Show previous entry, keeping other entries closed."
+  (interactive)
+  (let ((pos (point)))
+    (outline-previous-heading)
+    (unless (and (< (point) pos) (bolp) (org-at-heading-p))
+      (goto-char pos)
+      (outline-hide-subtree)
+      (error "Boundary reached"))
+    (org-overview)
+    (org-reveal t)
+    (org-show-entry)
+    (recenter-top-bottom)
+    (outline-show-children)
+    (recenter-top-bottom)))
+
+
 (provide 'acdw-org)
 ;;; acdw-org.el ends here