diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index d3537a0..9eb60bb 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -1177,6 +1177,8 @@ local file paths." :status status) (client-stream-frame::refresh-all-streams (client-stream-frame::table stream-frame)))) + ((iri:absolute-url-p iri) + (client-os-utils:open-resource-with-external-program main-window iri)) ((or (fs:file-exists-p actual-iri) (fs:directory-exists-p actual-iri)) (initialize-ir-lines main-window) diff --git a/src/html-utils.lisp b/src/html-utils.lisp index b804eff..9d5d0ad 100644 --- a/src/html-utils.lisp +++ b/src/html-utils.lisp @@ -121,7 +121,7 @@ (quote-prefix "> ") (list-item-prefix "* ")) "Transform html to text, note that if `add-link-footnotes` is non nil footnotes that marks html link in the text are added aftere the body of the message -This function uses a library that transform html5 text into s-expressions um the form +This function uses a library that transform html5 text into s-expressions in the form '(name (attributes) children*)