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

- [gemini viewer] fixed history navigation.

This commit is contained in:
cage 2020-06-29 12:29:11 +02:00
parent 4308f9d7cf
commit 1f3ed228a3
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/gemini-viewer.lisp
View File

@ -22,10 +22,13 @@
(history))
(defun add-url-to-history (window url)
(let* ((metadata (message-window:metadata window))
(history (reverse (gemini-metadata-history metadata))))
(setf (gemini-metadata-history metadata)
(reverse (push url history)))))
(let* ((metadata (message-window:metadata window))
(history (reverse (gemini-metadata-history metadata)))
(last-entry (safe-last-elt (gemini-metadata-history metadata))))
(when (string/= last-entry
url)
(setf (gemini-metadata-history metadata)
(reverse (push url history))))))
(defun maybe-initialize-metadata (window)
(when (not (gemini-metadata-p (message-window:metadata window)))
@ -130,5 +133,6 @@
(history (misc:safe-all-but-last-elt (gemini-metadata-history metadata)))
(last (last-elt history)))
(setf (gemini-metadata-history metadata)
(misc:all-but-last-elt history))
history)
(ui:info-message (format nil (_ "Going back to: ~a") last))
(request last)))