cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- removed duplicates in url history when printing gemini startpage in gemini full screen mode.

This commit is contained in:
cage 2021-11-12 15:04:19 +01:00
parent 7b8581c5e4
commit f05ca2f300
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ui-goodies.lisp
View File

@ -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