From 676cf0759f1f0016c1bfc10b4a8e4bd63d748905 Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 10 Sep 2023 21:47:08 +0200 Subject: [PATCH] - [GUI] prevented to transform to an absolute URL an already absolute URL. --- src/gui/client/main-window.lisp | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index 3e9f202..07483f2 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -338,15 +338,17 @@ (to-s copy))) (defun absolutize-link (request-iri link-value) - (let ((parsed-request-iri (iri:iri-parse request-iri))) - (multiple-value-bind (x host path query port y w z) - (gemini-client:displace-iri parsed-request-iri) - (declare (ignore x y w z)) - (gemini-parser:absolutize-link link-value - host - port - path - query)))) + (if (iri:absolute-url-p link-value) + link-value + (let ((parsed-request-iri (iri:iri-parse request-iri))) + (multiple-value-bind (x host path query port y w z) + (gemini-client:displace-iri parsed-request-iri) + (declare (ignore x y w z)) + (gemini-parser:absolutize-link link-value + host + port + path + query))))) (defun slurp-iri (main-window iri) (if (not (iri:absolute-url-p iri))