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