- [GUI] saved visited links in the history kept in the database.

src/gui/client/main-window.lisp

@@ -364,7 +364,9 @@
                                    (absolutize-link iri meta))))
              (slurp-iri redirect-iri main-window))))
         ((gemini-client:header-success-p status-code)
-         (slurp-non-text-data main-window iri :try-to-open nil))))))
+         (ev:with-enqueued-process-and-unblock ()
+           (comm:make-request :gemini-save-url-db-history 1 iri)
+           (slurp-non-text-data main-window iri :try-to-open nil)))))))
 
 (defun contextual-menu-link-clrs (link-name link-value main-window line-count)
   (labels ((add-to-tour-callback ()
@@ -783,6 +785,8 @@
                                    (absolutize-link iri meta))))
              (start-stream-iri redirect-iri main-window use-cache status))))
         ((gemini-client:header-success-p status-code)
+         (ev:with-enqueued-process-and-unblock ()
+           (comm:make-request :gemini-save-url-db-history 1 iri))
          (cond
            ((eq status +stream-status-streaming+)
             (cond

src/gui/server/public-api-gemini-stream.lisp

@@ -517,3 +517,6 @@
                       (write-sequence (format nil "Error connecting to: ~a:~2%" iri) stream)
                       (write-sequence (format nil "~a~%" meta) stream))))
     (gemini-parse-string gemtext)))
+
+(defun gemini-save-url-db-history (iri)
+  (db:insert-in-history (ui:open-url-prompt) iri))

src/gui/server/public-api.lisp

@@ -68,6 +68,9 @@
               "iri" 0)
      (gen-rpc "gemini-current-url"          'gemini-current-url)
      (gen-rpc "gemini-pop-url-from-history" 'gemini-pop-url-from-history)
+     (gen-rpc "gemini-save-url-db-history"
+              'gemini-save-url-db-history
+              "iri" 0)
      (gen-rpc "gemini-certificates"         'gemini-certificates)
      (gen-rpc "gemini-delete-certificate"
               'gemini-delete-certificate