cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-24 12:50:02 +01:00
Code Issues

- allow repeat search on links window's items.

Browse Source
This commit is contained in:
cage 2020-12-30 12:38:31 +01:00
parent 8f27170435
commit e87fc07e25
4 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/init.lisp
View File

@ -407,6 +407,8 @@
(define-key "/" #'search-link-window *open-message-link-keymap*)
(define-key "N" #'repeat-search *open-message-link-keymap*)
;; chats list window
(define-key "r" #'refresh-chat-messages *chats-list-keymap*)

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

@ -248,9 +248,9 @@ this exact quantity wold go beyond the length or rows or zero."
(scan scanner (selected-text a))
(scan scanner (normal-text a))))
(safe-subseq (rows object)
row-selected-index))))
(1+ row-selected-index)))))
(unselect-all object)
(select-row object (+ row-selected-index position-found))
(select-row object (+ 1 row-selected-index position-found))
(when redraw
(draw object))
position-found))

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

@ -172,11 +172,11 @@
(scan scanner
(gemini-parser:name a)))
(safe-subseq (links object)
row-selected-index))))
(1+ row-selected-index)))))
(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 (+ 1 saved-selected-index position-header))
(when redraw
(draw object)))))
(error ()

2
src/program-events.lisp
View File

@ -1227,7 +1227,7 @@
:chat-id (api-pleroma:chat-id chat)
:label chat-label)))))
(defclass search-link-event (program-event)
(defclass search-link-event (search-event)
((window
:initform nil
:initarg :window