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

- ensured the focus is on thread window when opening a virtual path fediverse IRI.

This commit is contained in:
cage 2024-05-11 12:53:30 +02:00
parent 6d07aacbe1
commit 11f32bed65
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -102,6 +102,8 @@
((fediverse-virtual-iri-p url)
(multiple-value-bind (timeline folder)
(parse-fediverse-virtual-iri url)
(ui:close-open-message-link-window)
(ui:focus-to-thread-window)
(program-events:push-event (make-instance 'program-events:refresh-thread-windows-event
:new-timeline timeline
:new-folder folder))))

6
src/program-events.lisp
View File

@ -1989,7 +1989,9 @@
(let* ((found-statuses (api-client:find-results payload))
(found-hashtags (get-results-info payload "hashtags" 2 #'tooter:name))
(found-accounts (get-results-info payload "accounts" 1 #'tooter:username))
(link-to-results (gemini-parser:geminize-link (link-to-search-results (query-results-folder-name))))
(link-to-results (gemini-parser:geminize-link
(text-utils:strcat (link-to-search-results (query-results-folder-name))
(_ " Matching posts"))))
(query-page (text-utils:strcat (gemini-parser:geminize-h1 (format nil
(_ "Query results~2%")))
(format nil
@ -1999,7 +2001,7 @@
(length found-statuses)
(query-results-folder-name))
link-to-results
(format nil "~%")
(format nil "~2%")
(gemini-parser:geminize-h2 (format nil
(_ "Query: ~a~2%")
payload))