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

- [gemini] use named parameter in recursive requests.

This commit is contained in:
cage 2020-10-24 14:05:27 +02:00
parent 269a08718c
commit a8b5524fcb
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/gemini-viewer.lisp
View File

@ -413,7 +413,9 @@
(request (gemini-parser:make-gemini-uri host (request (gemini-parser:make-gemini-uri host
path path
input input
port)))))) port)
:certificate-key certificate-key
:certificate certificate)))))
(ui:ask-string-input #'on-input-complete (ui:ask-string-input #'on-input-complete
:hide-input hide-input :hide-input hide-input
:prompt (format nil :prompt (format nil
@ -437,7 +439,9 @@
(quri:uri-port parsed-uri) (quri:uri-port parsed-uri)
(quri:uri-path parsed-uri)))) (quri:uri-path parsed-uri))))
(db-utils:with-ready-database (:connect nil) (db-utils:with-ready-database (:connect nil)
(request new-url)))))) (request new-url
:certificate-key certificate-key
:certificate certificate))))))
(ui:ask-string-input #'on-input-complete (ui:ask-string-input #'on-input-complete
:priority program-events:+minimum-event-priority+ :priority program-events:+minimum-event-priority+
:prompt :prompt
@ -515,7 +519,12 @@
(when (ui::boolean-input-accepted-p maybe-accepted) (when (ui::boolean-input-accepted-p maybe-accepted)
(db-utils:with-ready-database (:connect nil) (db-utils:with-ready-database (:connect nil)
(db:tofu-delete host) (db:tofu-delete host)
(request url))))) (request url
:enqueue enqueue
:certificate certificate
:certificate-key certificate-key
:do-nothing-if-exists-in-db
do-nothing-if-exists-in-db)))))
(ui:ask-string-input #'on-input-complete (ui:ask-string-input #'on-input-complete
:prompt :prompt
(format nil (format nil