cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- [GUI] refactored a test.

Browse Source
This commit is contained in:
cage 2023-03-15 17:24:32 +01:00
parent ad67612478
commit 26f843d2bd
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

@ -490,6 +490,12 @@
:completed)
(client-os-utils:open-resource-with-external-program main-window support-file)
(wait-enough-data)))
(buffer-filled-enough--to-open-p (buffer-size read-so-far)
(let ((filled-configuration-threshold (and buffer-size
(> read-so-far buffer-size))))
(or filled-configuration-threshold
(> read-so-far
swconf:+buffer-minimum-size-to-open+))))
(wait-enough-data ()
(let* ((stream-info
(cev:enqueue-request-and-wait-results :gemini-stream-info
@ -505,11 +511,9 @@
(if wait-for-download
(maybe-open-if-completed stream-info support-file)
(let ((buffer-size (swconf:link-regex->program-to-use-buffer-size support-file)))
(if (or (and buffer-size
(> read-so-far buffer-size))
(> read-so-far
swconf:+buffer-minimum-size-to-open+))
(client-os-utils:open-resource-with-external-program main-window support-file)
(if (buffer-filled-enough--to-open-p buffer-size read-so-far)
(client-os-utils:open-resource-with-external-program main-window
support-file)
(wait-enough-data))))
(maybe-open-if-completed stream-info support-file))))))
(wait-enough-data)))