mirror of
https://codeberg.org/cage/tinmop/
synced 2025-03-16 12:00:04 +01:00
- allow repeat search on links window's items.
This commit is contained in:
parent
8f27170435
commit
e87fc07e25
@ -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*)
|
||||
|
@ -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))
|
||||
|
@ -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 ()
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user