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

- prevented a crash when the user typed an invalid URL in the address bar.

This commit is contained in:
cage 2024-05-25 13:04:10 +02:00
parent 16d3595ea7
commit 6db875ad99
1 changed files with 36 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1033,9 +1033,9 @@ local file paths."
(render-line rendered-line))))))))))))
(defun open-iri (iri main-window use-cache &key (status +stream-status-streaming+))
(let ((actual-iri (remove-standard-port iri)))
(handler-case
(let ((parsed-iri (iri:iri-parse actual-iri)))
(let* ((actual-iri (remove-standard-port iri))
(parsed-iri (iri:iri-parse actual-iri)))
(cond
((string= (uri:scheme parsed-iri) +internal-scheme-view-source+)
(setf (uri:scheme parsed-iri) gemini-constants:+gemini-scheme+)
@ -1066,8 +1066,11 @@ local file paths."
(open-local-path (uri:path parsed-iri) main-window))
(t
(client-os-utils:open-resource-with-external-program main-window actual-iri))))
(esrap:esrap-parse-error (e)
(declare (ignore e))
(gui-goodies:notify-request-error (format nil (_ "Invalid address: ~s") iri)))
(error (e)
(gui-goodies:notify-request-error e)))))
(gui-goodies:notify-request-error e))))
(defun get-user-request-query (iri meta main-window &key (sensitive nil))
(let* ((parsed-iri (iri:iri-parse iri))