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

- prevented non local links to be in tour mode when opening a gempub.

This commit is contained in:
cage 2021-08-27 14:30:28 +02:00
parent 4a81fad940
commit d8d5b9c100
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/program-events.lisp
View File

@ -1156,6 +1156,12 @@
nil
parent-dir
:comes-from-local-file t))
(local-links (remove-if (lambda (link)
(let ((target (gemini-parser:target link)))
(if target
(uri:scheme (iri:iri-parse target))
t)))
links))
(event (make-instance 'gemini-display-data-page
:local-path parent-dir
:window window
@ -1163,7 +1169,7 @@
(let ((*process-events-immediately* t))
(push-event event))
(ui:clean-all-tour)
(ui:add-links-to-tour links)
(ui:add-links-to-tour local-links)
(gemini-viewer:push-url-to-history window local-path)))
(t
(let* ((file-string (fs:slurp-file local-path))