cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

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

Browse Source
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))) (let ((found (find-db-stream-url last)))
(if found (if found
(db-entry-to-foreground last) (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) (defun view-source (window)
(when-let* ((metadata (message-window:metadata 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 (text (gemini-parser:sexp->text parsed
gemini-client:*gemini-page-theme*))) gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window) (gemini-viewer:maybe-initialize-metadata window)
(gemini-viewer:add-url-to-history window url)
(refresh-gemini-message-window links raw-text text nil) (refresh-gemini-message-window links raw-text text nil)
(windows:draw window))) (windows:draw window)))
(t (t
@ -1057,6 +1058,7 @@
(text (gemini-parser:sexp->text parsed (text (gemini-parser:sexp->text parsed
gemini-client:*gemini-page-theme*))) gemini-client:*gemini-page-theme*)))
(gemini-viewer:maybe-initialize-metadata window) (gemini-viewer:maybe-initialize-metadata window)
(gemini-viewer:add-url-to-history window url)
(refresh-gemini-message-window links file-string text nil) (refresh-gemini-message-window links file-string text nil)
(windows:draw window)))))))) (windows:draw window))))))))