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

- [GUI] fixed starting index for rendering; 

- [RPC] removed a stale stream coming form a cache item that must be invalidated.
This commit is contained in:
cage 2023-06-30 17:17:09 +02:00
parent 6335419058
commit 199ea81ad5
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -731,7 +731,7 @@
(vector-push-extend raw-line ir-rendered-lines))) (vector-push-extend raw-line ir-rendered-lines)))
(collect-link (line) (collect-link (line)
(vector-push-extend (linkify line) ir-rendered-lines))) (vector-push-extend (linkify line) ir-rendered-lines)))
(let ((starting-index (if (not (vector-empty-p ir-lines)) (let ((starting-index (if (vector-empty-p ir-lines)
0 0
(length ir-lines)))) (length ir-lines))))
(loop for line in lines do (loop for line in lines do

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

@ -250,7 +250,10 @@
:do-nothing-if-exists-in-db :do-nothing-if-exists-in-db
do-nothing-if-exists-in-db)))) do-nothing-if-exists-in-db))))
(progn (progn
(debug-gemini-gui "ignoring cache") (debug-gemini-gui "ignoring cache for ~a" actual-iri)
(a:when-let ((found (gemini-viewer:find-db-stream-url actual-iri)))
(gemini-viewer:remove-db-stream found))
(gemini-client:request-dispatch url (gemini-client:request-dispatch url
gemini-client::dispatch-table gemini-client::dispatch-table
:certificate certificate :certificate certificate