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

- [gemini] fixed command 'open-next-visible-link'.

This commit is contained in:
cage 2021-11-26 15:38:09 +01:00
parent 1fbdab1443
commit 2cf53e76b9
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/open-message-link-window.lisp
View File

@ -88,7 +88,8 @@
:enqueue enqueue
:use-cached-file-if-exists t))
((fs:dirp decoded-path)
(gemini-viewer:load-gemini-url decoded-path :give-focus-to-message-window nil))
(gemini-viewer:load-gemini-url decoded-path
:give-focus-to-message-window nil))
(t
(os-utils:open-resource-with-external-program decoded-path nil)))))

11
src/ui-goodies.lisp
View File

@ -1220,8 +1220,15 @@ Browse and optionally open the links the text of the message window contains."
(link-line (message-window:row-find-original-object visible-rows
'gemini-parser:link-line))
(link-object (message-window:extract-original-object link-line))
(uri (gemini-parser::link-value link-object)))
(open-message-link-window:open-message-link uri nil)))
(uri (gemini-parser::link-value link-object))
(current-url (iri:iri-parse (gemini-viewer:current-gemini-url)))
(absolute-uri (if (iri:absolute-url-p uri)
uri
(gemini-parser:absolutize-link uri
(uri:host current-url)
(uri:port current-url)
nil))))
(open-message-link-window:open-message-link absolute-uri nil)))
(defun go-to-next-link ()
(when-let* ((win *message-window*)