cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed regression: searching in links window does not get stuck at the first occurence.

This commit is contained in:
cage 2021-06-16 19:08:41 +02:00
parent 68c250e03c
commit 34284f9a51
2 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/line-oriented-window.lisp
View File

@ -289,15 +289,20 @@ this exact quantity would go beyond the length or rows or zero."
(handler-case
(with-accessors ((row-selected-index row-selected-index)) object
(let* ((scanner (create-scanner regex :case-insensitive-mode t))
(selected-row (selected-row object))
(selected-text (normal-text selected-row))
(actual-row-starting (if (scan scanner selected-text)
(1+ row-selected-index)
row-selected-index))
(position-found (position-if (lambda (a)
(if (selectedp a)
(scan scanner (selected-text a))
(scan scanner (normal-text a))))
(safe-subseq (rows object)
row-selected-index))))
actual-row-starting))))
(when position-found
(unselect-all object)
(select-row object (+ row-selected-index position-found))
(select-row object (+ actual-row-starting position-found))
(when redraw
(draw object))
position-found)))

15
src/open-message-link-window.lisp
View File

@ -176,18 +176,23 @@
(defmethod search-row ((object open-gemini-document-link-window) regex &key (redraw t))
(handler-case
(with-accessors ((row-selected-index row-selected-index)) object
(let* ((saved-selected-index row-selected-index)
(scanner (create-scanner regex :case-insensitive-mode t))
(with-accessors ((row-selected-index row-selected-index)
(links links)) object
(let* ((scanner (create-scanner regex :case-insensitive-mode t))
(selected-link (elt links row-selected-index))
(selected-text (gemini-parser:name selected-link))
(actual-row-starting (if (scan scanner selected-text)
(1+ row-selected-index)
row-selected-index))
(position-header (position-if (lambda (a)
(scan scanner
(gemini-parser:name a)))
(safe-subseq (links object)
row-selected-index))))
actual-row-starting))))
(call-next-method) ; search in urls
(when position-header ; but if an header has been found, it wins
(unselect-all object)
(select-row object (+ saved-selected-index position-header))
(select-row object (+ actual-row-starting position-header))
(when redraw
(draw object)))))
(error ()