cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-25 00:00:54 +01:00
Code Issues

- prevented block of software when opening a kami address with the filesystem explorer window opened.

Browse Source
This commit is contained in:
cage 2022-02-06 10:21:00 +01:00
parent 096ea44a6b
commit cb3b10e846
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ui-goodies.lisp
View File

@ -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