Compare commits
7 Commits
24a3c71c13
...
9b3578c821
| Author | SHA1 | Date | |
|---|---|---|---|
|
9b3578c821
|
|||
|
5efe2a18e7
|
|||
|
82ef744f1b
|
|||
|
abfd4b71f8
|
|||
|
64e33fd3c1
|
|||
|
c62ad66a4a
|
|||
|
148afa2091
|
42
+org.el
42
+org.el
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user