From 402a9c0a1d5c9929f9314d9127eac23ff63e6baf Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 29 Oct 2025 01:32:36 +0000 Subject: org-focus: non-overlapping minor modes --- lib/doc/jao-org-focus.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'lib/doc/jao-org-focus.el') diff --git a/lib/doc/jao-org-focus.el b/lib/doc/jao-org-focus.el index 13f1201..e9d6ed2 100644 --- a/lib/doc/jao-org-focus.el +++ b/lib/doc/jao-org-focus.el @@ -18,16 +18,12 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . -;;; Commentary: - -;; Miscellanous utilities for working with org files - (require 'org) -;;; focus on subtree (defvar-local jao-org-focus--parent nil) (defvar-local jao-org-focus--section nil) +;;; focus on subtree (defun jao-org-focus () "Pop creatingly to an indirect buffer focused on the encloing subtree. @@ -46,6 +42,7 @@ When invoked on an indirect buffer, pops back to its base." (if-let* ((b (get-buffer bname))) (pop-to-buffer b) (clone-indirect-buffer bname t) + (org-focus-mode -1) (org-focus-child-mode) (setq jao-org-focus--parent parent jao-org-focus--section title) @@ -117,4 +114,4 @@ With arg, offer to switch to all children, regardless of their parent." :keymap org-focus-mode-map) (provide 'jao-org-focus) -;;; jao-org.el ends here +;;; jao-org-focus.el ends here -- cgit v1.2.3