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

- [GUI] prevented the server to open with an exernal program a file downloaded; 

- [RPC] considered non gemini text streams the same as binary stream to prevent an endless loop.
This commit is contained in:
cage 2023-06-17 16:49:34 +02:00
parent 5c8bc72712
commit f0e21d6e7b
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gemini-viewer.lisp
View File

@ -373,7 +373,9 @@
(defun request-stream-gemini-document-thread (wrapper-object host
port path query fragment favicon
gemini-format-p
&key (notify t))
&key
(notify t)
(open-with-external-program t))
(with-accessors ((download-socket download-socket)
(download-stream download-stream)
(octect-count octect-count)
@ -502,7 +504,7 @@
:priority priority
:payload regex)))
(program-events:push-event event))))
(t
(open-with-external-program
(os-utils:open-resource-with-external-program support-file nil)))
;; (allow-downloading wrapper-object)
(gemini-client:close-ssl-socket download-socket))))))))

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

@ -111,7 +111,9 @@
query
fragment
favicon
gemini-format-p)))
gemini-format-p
:notify nil
:open-with-external-program nil)))
(gemini-viewer:push-db-stream gemini-stream)
(gemini-viewer::downloading-start-thread gemini-stream
thread-fn
@ -129,13 +131,6 @@
(gemini-client:description gemini-client:+success+)
meta
actual-iri))
((gemini-client:text-file-stream-p meta)
(gemini-client:debug-gemini "response is a text stream")
(make-text-based-stream nil)
(make-gemini-response (gemini-client:code gemini-client:+success+)
(gemini-client:description gemini-client:+success+)
meta
actual-iri))
(t
(let* ((starting-status :streaming)
(gemini-stream (make-instance 'gemini-viewer::gemini-others-data-stream