Compare commits
7 Commits
24a3c71c13
...
9b3578c821
Author | SHA1 | Date |
---|---|---|
coolneng | 9b3578c821 | |
coolneng | 5efe2a18e7 | |
coolneng | 82ef744f1b | |
coolneng | abfd4b71f8 | |
coolneng | 64e33fd3c1 | |
coolneng | c62ad66a4a | |
coolneng | 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)
|
||||
|
|
Loading…
Reference in New Issue