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))) (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))
(ev:with-enqueued-process-and-unblock () (ev:with-enqueued-process-and-unblock ()
@ -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)