From f05ca2f300161f102f27ff6a6870c0aa5e4b791c Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Fri, 12 Nov 2021 15:04:19 +0100
Subject: [PATCH] - removed duplicates in url history when printing gemini
 startpage in gemini full screen mode.

---
 src/ui-goodies.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 367c298..dd15d85 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -2262,7 +2262,8 @@ gemini page the program is rendering."
     (push-event event)))
 
 (defun generate-latest-visited-url ()
-  (let ((history (db:history-prompt->values (gemini-open-url-prompt))))
+  (let ((history (remove-duplicates (db:history-prompt->values (gemini-open-url-prompt))
+                                    :test #'string=)))
     (with-output-to-string (stream)
       (format stream (gemini-parser:geminize-h1 (_ "Latest visited addresses~2%")))
       (loop for iri in history when (gemini-client:absolute-gemini-url-p iri) do