From a8b5524fcb015952174ecec39d80c2feaf773b0f Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 24 Oct 2020 14:05:27 +0200 Subject: [PATCH] - [gemini] use named parameter in recursive requests. --- src/gemini-viewer.lisp | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/src/gemini-viewer.lisp b/src/gemini-viewer.lisp index c02236d..22772d6 100644 --- a/src/gemini-viewer.lisp +++ b/src/gemini-viewer.lisp @@ -413,7 +413,9 @@ (request (gemini-parser:make-gemini-uri host path input - port)))))) + port) + :certificate-key certificate-key + :certificate certificate))))) (ui:ask-string-input #'on-input-complete :hide-input hide-input :prompt (format nil @@ -437,7 +439,9 @@ (quri:uri-port parsed-uri) (quri:uri-path parsed-uri)))) (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 :priority program-events:+minimum-event-priority+ :prompt @@ -515,7 +519,12 @@ (when (ui::boolean-input-accepted-p maybe-accepted) (db-utils:with-ready-database (:connect nil) (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 :prompt (format nil