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

- [gemini] allowed going back in history also when exploring a local filesystem.

This commit is contained in:
cage 2021-03-27 10:59:10 +01:00
parent 87377914a3
commit 9dd77c549d
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gemini-viewer.lisp
View File

@ -656,7 +656,7 @@
(let ((found (find-db-stream-url last)))
(if found
(db-entry-to-foreground last)
(request last))))) ; this should never happens
(load-gemini-url last))))) ; this happens if navigating in a local tree
(defun view-source (window)
(when-let* ((metadata (message-window:metadata window))

2
src/program-events.lisp
View File

@ -1043,6 +1043,7 @@
(text (gemini-parser:sexp->text parsed
gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window)
(gemini-viewer:add-url-to-history window url)
(refresh-gemini-message-window links raw-text text nil)
(windows:draw window)))
(t
@ -1057,6 +1058,7 @@
(text (gemini-parser:sexp->text parsed
gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window)
(gemini-viewer:add-url-to-history window url)
(refresh-gemini-message-window links file-string text nil)
(windows:draw window))))))))