Compare commits

..

7 Commits

1 changed files with 21 additions and 21 deletions

42
+org.el
View File

@ -183,25 +183,25 @@
(use-package! org-capture-ref)
;; HACK Fix search folded sections
(after! org-fold-core
(defun org-show-current-heading-tidily ()
(interactive) ;Inteactive
"Show next entry, keeping other entries closed."
(if (save-excursion (end-of-line) (outline-invisible-p))
(progn (org-show-entry) (show-children))
(setq-local my:current_line (line-number-at-pos))
(outline-back-to-heading)
(unless (and (bolp) (org-on-heading-p))
(org-up-heading-safe)
(hide-subtree)
(error "Boundary reached"))
(org-overview)
(org-reveal t)
(org-show-entry)
(show-children)
(goto-line my:current_line)))
(defun qw/search-buffer ()
(interactive)
(org-fold-show-all)
(+default/search-buffer)
(org-show-current-heading-tidily)))
(defun org-show-current-heading-tidily ()
(interactive) ;Inteactive
"Show next entry, keeping other entries closed."
(if (save-excursion (end-of-line) (outline-invisible-p))
(progn (org-show-entry) (show-children))
(setq-local my:current_line (line-number-at-pos))
(outline-back-to-heading)
(unless (and (bolp) (org-on-heading-p))
(org-up-heading-safe)
(hide-subtree)
(error "Boundary reached"))
(org-overview)
(org-reveal t)
(org-show-entry)
(show-children)
(goto-line my:current_line)))
(defun qw/search-buffer ()
(interactive)
(org-fold-show-all)
(+default/search-buffer)
(org-show-current-heading-tidily)))
(map! :leader :n "s s" #'qw/search-buffer)