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

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

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

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

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