cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-02 01:06:40 +01:00
Code Issues

- [GUI] refresh stream frame after downloading a gemini stream in background.

Browse Source
This commit is contained in:
cage 2024-10-26 13:57:24 +02:00
parent e073f8e749
commit 95698f0322
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/gui/client/main-window.lisp
View File

@ -128,6 +128,12 @@
(fit-toc-char-width main-window toc-widget-width)))
main-window)))
(defun refresh-stream-frame (main-window)
(ev:with-enqueued-process-and-unblock (program-events:+minimum-event-priority+)
(client-stream-frame::refresh-all-streams
(client-stream-frame::table (stream-frame main-window))
#'client-stream-frame::make-requests-all-rows)))
(defun slurp-gemini-stream (main-window iri stream-wrapper
&key
(use-cache t)
@ -215,10 +221,7 @@
(set-certificate-button-inactive main-window)))
(ev:with-enqueued-process-and-unblock ()
(set-gemlog-toolbar-button-appearance main-window iri))
(ev:with-enqueued-process-and-unblock (program-events:+minimum-event-priority+)
(client-stream-frame::refresh-all-streams
(client-stream-frame::table (stream-frame main-window))
#'client-stream-frame::make-requests-all-rows))))
(refresh-stream-frame main-window)))
(defun set-gemlog-toolbar-button-appearance (main-window iri)
(if (comm:make-request :gemini-gemlog-subscribed-p 1 iri)
@ -1443,7 +1446,8 @@ local file paths."
(let ((background-stream (make-instance 'gemini-stream
:server-stream-handle iri
:status status)))
(push-db-stream background-stream))))
(push-db-stream background-stream)
(refresh-stream-frame main-window))))
(t
(error "Unrecognized stream status for address ~s: ~s" iri status)))))))))