2 files changed, 37 insertions, 6 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
 
@@ -665,12 +665,6 @@ ARGS."
   (custom-set-faces '(fringe
                       ((t (:foreground "dim gray"))))))
 
-(defun acdw/require-private ()
-  "Load \"~/.emacs.d/private.el\".
-It's called 'require-private' for historical reasons."
-  (load (expand-file-name "private.el" user-emacs-directory)
-        :noerror :nomessage))
-
 
 ;;; Recentf renaming with dired
 ;; from ... somewhere.  'rjs', apparently?