mirror of https://codeberg.org/cage/tinmop/
- [GUI] used the correct stream for rendering the IRI.
This commit is contained in:
parent
44c499db76
commit
eb14b342df
|
@ -597,7 +597,8 @@ local file paths."
|
||||||
(let ((parsed (iri:iri-parse (get-address-bar-text main-window))))
|
(let ((parsed (iri:iri-parse (get-address-bar-text main-window))))
|
||||||
(setf (uri:path parsed)
|
(setf (uri:path parsed)
|
||||||
(fs:normalize-path link-value))
|
(fs:normalize-path link-value))
|
||||||
(enqueue-add-link-to-tour (iri:render-iri parsed)
|
(enqueue-add-link-to-tour (with-output-to-string (stream)
|
||||||
|
(iri:render-iri parsed stream))
|
||||||
link-name))))))
|
link-name))))))
|
||||||
(lambda (e)
|
(lambda (e)
|
||||||
(declare (ignore e))
|
(declare (ignore e))
|
||||||
|
|
Loading…
Reference in New Issue