From a8b5524fcb015952174ecec39d80c2feaf773b0f Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
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