From ff99cd50b655beecd94ac77418dbe703aee4a24f Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 27 Mar 2021 11:01:36 +0100 Subject: [PATCH] - [gemini] allowed opening local folder using 'ui:open-gemini-address'. --- src/ui-goodies.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index ce375b2..6fc6e59 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -1778,10 +1778,9 @@ open-message-link-window:open-message-link" (defun open-gemini-address () "Ask for a gemini address and try to load it" (flet ((on-input-complete (url) - (if (gemini-parser:gemini-iri-p url) - (gemini-viewer:load-gemini-url url - :priority program-events:+maximum-event-priority+) - (error-message (_ "This is not a valid gemini address"))))) + (gemini-viewer:load-gemini-url url + :priority program-events:+maximum-event-priority+))) + (let ((prompt (gemini-open-url-prompt))) (ask-string-input #'on-input-complete :prompt prompt