Skip to content

Allow unfolding in isearch #8

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
gunther-bachmann wants to merge 3 commits into
base: master
Choose a base branch
from
Open

Allow unfolding in isearch #8

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
76d082e
add overlays to allow for incremental unfolding on isearch
gunther-bachmann Feb 5, 2026
3b5d939
ensure folding markers are temporarily removed and restored
gunther-bachmann Feb 21, 2026
a180d10
remove obsolete isearch advice
gunther-bachmann Feb 22, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
48 changes: 29 additions & 19 deletions yafolding.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -122,21 +122,43 @@ If given, toggle all entries that start at INDENT-LEVEL."
"Hide region between BEG and END."
(when (> end beg)
(yafolding-show-region beg end)
(let ((before-string
(concat
(and yafolding-show-fringe-marks
(propertize " " 'display '(left-fringe right-triangle)))
(yafolding-ellipsis)))
(new-overlay (make-overlay beg end)))
(let ((new-overlay (make-overlay beg end)))
(overlay-put new-overlay 'isearch-open-invisible #'yafolding--on-change)
(overlay-put new-overlay 'isearch-open-invisible-temporary #'yafolding--open-invisible-temporary)
(overlay-put new-overlay 'invisible t)
(overlay-put new-overlay 'intangible t)
(overlay-put new-overlay 'evaporate t)
(overlay-put new-overlay 'modification-hooks
(list (lambda (overlay &rest _)
(delete-overlay overlay))))
(overlay-put new-overlay 'before-string before-string)
(overlay-put new-overlay 'before-string (yafolding--before-string))
(overlay-put new-overlay 'category 'yafolding))))

(defun yafolding--open-invisible-temporary (ov hide-p)
"Temporary show/hide OV depends on HIDE-P flag."
(if hide-p (yafolding--hide-ov ov)
(yafolding--show-ov ov)))

(defun yafolding--on-change (ov &rest _)
"Open overlay OV during content is changed."
(delete-overlay ov))

(defun yafolding--show-ov (ov &rest _)
"Show the OV."
(overlay-put ov 'invisible nil)
(overlay-put ov 'before-string nil))

(defun yafolding--hide-ov (ov &rest _)
"Hide the OV."
(overlay-put ov 'invisible t)
(overlay-put ov 'before-string (yafolding--before-string)))

(defun yafolding--before-string ()
(concat
(and yafolding-show-fringe-marks
(propertize " " 'display '(left-fringe right-triangle)))
(yafolding-ellipsis)))

(defun yafolding-debug ()
"Show yafolding information of the current position."
(interactive)
Expand Down Expand Up @@ -185,18 +207,6 @@ element-region: %d - %d, (L%d - L%d)"
(yafolding-show-element)
(yafolding-hide-element)))

(add-hook 'isearch-mode-hook
(lambda ()
(mapcar (lambda (overlay)
(overlay-put overlay 'invisible nil))
(yafolding-get-overlays (point-min) (point-max)))))

(add-hook 'isearch-mode-end-hook
(lambda ()
(mapcar (lambda (overlay)
(overlay-put overlay 'invisible t))
(yafolding-get-overlays (point-min) (point-max)))))

(defun yafolding-go-parent-element ()
"Go back to parent element."
(interactive)
Expand Down