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

- [GUI] save in history only gemtext link.

This commit is contained in:
cage 2023-05-30 19:17:25 +02:00
parent 9c72284b1d
commit 2e0b1a6086
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -398,8 +398,6 @@
(absolutize-link iri meta))))
(slurp-iri redirect-iri main-window))))
((gemini-client:header-success-p status-code)
(ev:with-enqueued-process-and-unblock ()
(comm:make-request :gemini-save-url-db-history 1 iri))
(slurp-non-text-data main-window iri :try-to-open nil))))))
(defun inline-image-p (link-value)
@ -894,12 +892,12 @@
(absolutize-link iri meta))))
(start-stream-iri redirect-iri main-window use-cache status))))
((gemini-client:header-success-p status-code)
(ev:with-enqueued-process-and-unblock ()
(comm:make-request :gemini-save-url-db-history 1 iri))
(cond
((eq status +stream-status-streaming+)
(cond
((gemini-client:gemini-file-stream-p meta)
(ev:with-enqueued-process-and-unblock ()
(comm:make-request :gemini-save-url-db-history 1 iri))
(maybe-stop-steaming-stream-thread)
(clean-gemtext main-window)
(initialize-ir-lines main-window)