From cb3b10e846c0e197f27afa687d0dfbe0c6259e4a Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 6 Feb 2022 10:21:00 +0100 Subject: [PATCH] - prevented block of software when opening a kami address with the filesystem explorer window opened. --- src/ui-goodies.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index 5b00cda..5435e82 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -1929,7 +1929,9 @@ Currently the only recognized protocols are gemini and kami." (flet ((on-input-complete (url) (let ((trimmed-url (trim-blanks url))) (if (text-utils:string-starts-with-p kami:+kami-scheme+ trimmed-url) - (open-kami-address trimmed-url) + (progn + (file-explorer-close-window) + (open-kami-address trimmed-url)) (open-gemini-address trimmed-url))))) (if (null address) (let ((prompt (open-url-prompt))) @@ -2729,8 +2731,9 @@ Note: existing file will be overwritten." (line-oriented-window-scroll-end *filesystem-explorer-window*)) (defun file-explorer-close-window () - (fstree:close-connection *filesystem-explorer-window*) - (close-window-and-return-to-message *filesystem-explorer-window*)) + (when *filesystem-explorer-window* + (fstree:close-connection *filesystem-explorer-window*) + (close-window-and-return-to-message *filesystem-explorer-window*))) (defun file-explorer-open-node () "Download in a temporary file and open the eselected file, or expand