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

-[gemini] added urls to history if document is loaded from cached content too.

This commit is contained in:
cage 2021-01-03 11:28:54 +01:00
parent b846dff5ba
commit edd1aba2fe
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gemini-viewer-metadata.lisp
View File

@ -34,7 +34,8 @@
(defmethod append-metadata-source ((object gemini-metadata) source-file) (defmethod append-metadata-source ((object gemini-metadata) source-file)
(setf (gemini-metadata-source-file object) (setf (gemini-metadata-source-file object)
(strcat (gemini-metadata-source-file object) (strcat (gemini-metadata-source-file object)
source-file))) source-file))
object)
(defun add-url-to-history (window url) (defun add-url-to-history (window url)
(let* ((metadata (message-window:metadata window)) (let* ((metadata (message-window:metadata window))
@ -43,7 +44,8 @@
(when (string/= last-entry (when (string/= last-entry
url) url)
(setf (gemini-metadata-history metadata) (setf (gemini-metadata-history metadata)
(reverse (push url history)))))) (reverse (push url history))))
window))
(defun maybe-initialize-metadata (window) (defun maybe-initialize-metadata (window)
(when (not (gemini-metadata-p (message-window:metadata window))) (when (not (gemini-metadata-p (message-window:metadata window)))

4
src/gemini-viewer.lisp
View File

@ -442,7 +442,9 @@
(multiple-value-bind (actual-iri host path query port fragment) (multiple-value-bind (actual-iri host path query port fragment)
(displace-iri parsed-iri) (displace-iri parsed-iri)
(if (find-db-stream-url actual-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 (request (gemini-parser:make-gemini-iri host
path path
:query query :query query