diff options
| author | jao <jao@gnu.org> | 2025-10-29 01:32:36 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-10-29 01:32:36 +0000 |
| commit | 402a9c0a1d5c9929f9314d9127eac23ff63e6baf (patch) | |
| tree | ce2ff4607f15af9037b5d79ee209a2fc0120fe31 | |
| parent | e62d9fc29017f63d93d701956b43de4d5ef0c890 (diff) | |
| download | elibs-402a9c0a1d5c9929f9314d9127eac23ff63e6baf.tar.gz elibs-402a9c0a1d5c9929f9314d9127eac23ff63e6baf.tar.bz2 | |
org-focus: non-overlapping minor modes
| -rw-r--r-- | lib/doc/jao-org-focus.el | 9 |
1 files changed, 3 insertions, 6 deletions
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 <https://www.gnu.org/licenses/>. -;;; 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 |