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

- [GUI] prevented to transform to an absolute URL an already absolute URL.

This commit is contained in:
cage 2023-09-10 21:47:08 +02:00
parent 8aecf478b4
commit 676cf0759f
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/gui/client/main-window.lisp
View File

@ -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))