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

- [GUI] fixed test for checking if a stream is exhausted; 

- [RPC] force a maximum width for the TOC entry.
This commit is contained in:
cage 2023-03-17 12:27:46 +01:00
parent 1d09d25082
commit 82de38f891
2 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -118,24 +118,25 @@
(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 (enqueue-request-notify-error :gemini-stream-completed-p (let ((status-completed (cev:enqueue-request-and-wait-results :gemini-stream-completed-p
1 1
iri))) ev:+maximum-event-priority+
iri)))
status-completed)) status-completed))
(loop-fetch (&optional (last-lines-fetched-count 0)) (loop-fetch (&optional (last-lines-fetched-count 0))
(when (not (or (funcall aborting-function) (ev:with-enqueued-process-and-unblock ()
(stream-exausted-p))) (with-notify-errors
(ev:with-enqueued-process-and-unblock () (let* ((last-lines-fetched (comm:make-request :gemini-stream-parsed-line-slice
(with-notify-errors 1
(let* ((last-lines-fetched (comm:make-request :gemini-stream-parsed-line-slice iri
1 last-lines-fetched-count
iri nil))
last-lines-fetched-count (next-start-fetching (length last-lines-fetched)))
nil)) (when last-lines-fetched
(next-start-fetching (length last-lines-fetched))) (funcall process-function stream-wrapper last-lines-fetched))
(when last-lines-fetched (when (not (or (funcall aborting-function)
(funcall process-function stream-wrapper last-lines-fetched)) (and (stream-exausted-p)
next-start-fetching)))
(loop-fetch (+ last-lines-fetched-count (loop-fetch (+ last-lines-fetched-count
next-start-fetching)))))))) next-start-fetching))))))))
(loop-fetch))) (loop-fetch)))

9
src/gui/server/public-api-gemini-stream.lisp
View File

@ -408,7 +408,7 @@
(let ((status (gemini-stream-status iri))) (let ((status (gemini-stream-status iri)))
(eq status :completed))) (eq status :completed)))
(defun build-gemini-toc (iri) (defun build-gemini-toc (iri width)
(a:when-let* ((ordered-headers-tag '(:h1 :h2 :h3)) (a:when-let* ((ordered-headers-tag '(:h1 :h2 :h3))
(stream-wrapper (gw:find-db-stream-url iri)) (stream-wrapper (gw:find-db-stream-url iri))
(parsed-lines (gw:parsed-lines stream-wrapper)) (parsed-lines (gw:parsed-lines stream-wrapper))
@ -464,7 +464,7 @@
for text in toc-entries-text for text in toc-entries-text
collect collect
(list :header-group-id (getf toc-entry :group-id) (list :header-group-id (getf toc-entry :group-id)
:text text)) :text (ellipsize text width)))
toc))))) toc)))))
(defclass gemini-toc (box) ()) (defclass gemini-toc (box) ())
@ -478,8 +478,9 @@
(loop for element in list do (loop for element in list do
(json:encode-array-element element)))))) (json:encode-array-element element))))))
(defun gemini-table-of-contents (iri) (defun gemini-table-of-contents (iri width)
(make-instance 'gemini-toc :contents (build-gemini-toc iri))) (make-instance 'gemini-toc
:contents (build-gemini-toc iri width)))
(defmethod yason:encode ((object gemini-toc) &optional (stream *standard-output*)) (defmethod yason:encode ((object gemini-toc) &optional (stream *standard-output*))
(encode-flat-array-of-plists (unbox object) stream)) (encode-flat-array-of-plists (unbox object) stream))