From edd1aba2feb961e2035c1d849296ef2fdce6f9bc Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Sun, 3 Jan 2021 11:28:54 +0100
Subject: [PATCH] -[gemini] added urls to history if document is loaded from
 cached content too.

---
 src/gemini-viewer-metadata.lisp | 6 ++++--
 src/gemini-viewer.lisp          | 4 +++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/gemini-viewer-metadata.lisp b/src/gemini-viewer-metadata.lisp
index 5b2910d..0251170 100644
--- a/src/gemini-viewer-metadata.lisp
+++ b/src/gemini-viewer-metadata.lisp
@@ -34,7 +34,8 @@
 (defmethod append-metadata-source ((object gemini-metadata) source-file)
   (setf (gemini-metadata-source-file object)
         (strcat (gemini-metadata-source-file object)
-                source-file)))
+                source-file))
+  object)
 
 (defun add-url-to-history (window url)
   (let* ((metadata   (message-window:metadata window))
@@ -43,7 +44,8 @@
     (when (string/= last-entry
                     url)
       (setf (gemini-metadata-history metadata)
-            (reverse (push url history))))))
+            (reverse (push url history))))
+    window))
 
 (defun maybe-initialize-metadata (window)
   (when (not (gemini-metadata-p (message-window:metadata window)))
diff --git a/src/gemini-viewer.lisp b/src/gemini-viewer.lisp
index f48eeb8..8a522eb 100644
--- a/src/gemini-viewer.lisp
+++ b/src/gemini-viewer.lisp
@@ -442,7 +442,9 @@
        (multiple-value-bind (actual-iri host path query port fragment)
            (displace-iri parsed-iri)
          (if (find-db-stream-url actual-iri)
-             (db-entry-to-foreground actual-iri)
+             (progn
+               (add-url-to-history specials:*message-window* actual-iri)
+               (db-entry-to-foreground actual-iri))
              (request (gemini-parser:make-gemini-iri host
                                                      path
                                                      :query    query