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

- [gemini] encoded the input string before making the request.

This commit is contained in:
cage 2021-02-02 20:57:30 +01:00
parent b37c590265
commit d0a9b6583a
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/gemini-viewer.lisp
View File

@ -512,13 +512,15 @@
(flet ((on-input-complete (input)
(when (string-not-empty-p input)
(db-utils:with-ready-database (:connect nil)
(request (gemini-parser:make-gemini-iri host
path
:query input
:port port
:fragment fragment)
:certificate-key certificate-key
:certificate certificate)))))
(let ((encoded-input (maybe-percent-encode input)))
(request (gemini-parser:make-gemini-iri host
path
:query
encoded-input
:port port
:fragment fragment)
:certificate-key certificate-key
:certificate certificate))))))
(ui:ask-string-input #'on-input-complete
:hide-input hide-input
:prompt (format nil