cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-26 09:27:36 +01:00
Code Issues

- [GUI] removed deadlock when rendering gemtext and the TOC.

Browse Source
This commit is contained in:
cage 2023-03-19 12:21:51 +01:00
parent 89969f1f91
commit d61656e0ad
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -118,9 +118,8 @@
(aborting-function (constantly nil))) (aborting-function (constantly nil)))
(enqueue-request-notify-error :gemini-request 1 iri use-cache) (enqueue-request-notify-error :gemini-request 1 iri use-cache)
(labels ((stream-exausted-p () (labels ((stream-exausted-p ()
(let ((status-completed (cev:enqueue-request-and-wait-results :gemini-stream-completed-p (let ((status-completed (comm:make-request :gemini-stream-completed-p
1 1
ev:+maximum-event-priority+
iri))) iri)))
status-completed)) status-completed))
(loop-fetch (&optional (last-lines-fetched-count 0)) (loop-fetch (&optional (last-lines-fetched-count 0))
@ -146,7 +145,7 @@
(toc-width (parse-integer toc-widget-width)) (toc-width (parse-integer toc-widget-width))
(toc (cev:enqueue-request-and-wait-results :gemini-table-of-contents (toc (cev:enqueue-request-and-wait-results :gemini-table-of-contents
1 1
ev:+maximum-event-priority+ ev:+standard-event-priority+
iri iri
toc-width))) toc-width)))
(misc:dbg "toc ~a" toc-width) (misc:dbg "toc ~a" toc-width)