cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-25 09:17:45 +01:00
Code Issues

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

Browse Source
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

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

@ -338,6 +338,8 @@
(to-s copy))) (to-s copy)))
(defun absolutize-link (request-iri link-value) (defun absolutize-link (request-iri link-value)
(if (iri:absolute-url-p link-value)
link-value
(let ((parsed-request-iri (iri:iri-parse request-iri))) (let ((parsed-request-iri (iri:iri-parse request-iri)))
(multiple-value-bind (x host path query port y w z) (multiple-value-bind (x host path query port y w z)
(gemini-client:displace-iri parsed-request-iri) (gemini-client:displace-iri parsed-request-iri)
@ -346,7 +348,7 @@
host host
port port
path path
query)))) query)))))
(defun slurp-iri (main-window iri) (defun slurp-iri (main-window iri)
(if (not (iri:absolute-url-p iri)) (if (not (iri:absolute-url-p iri))