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

- [kami] prevented crash when downloading fails, notify an error instead.

This commit is contained in:
cage 2022-02-17 19:17:52 +01:00
parent 283930efef
commit 444f7939ce
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ui-goodies.lisp
View File

@ -2525,7 +2525,10 @@ printed, on the main window."
(notify t))
"Download a file"
(when-let* ((win *filesystem-explorer-window*))
(flet ((on-input-complete (destination-file)
(labels ((%download (win path destination-file)
(with-notify-errors
(fstree:download-path win path destination-file)))
(on-input-complete (destination-file)
(when (string-not-empty-p destination-file)
(with-enqueued-process ()
(when (not (fs:file-exists-p destination-file))
@ -2534,9 +2537,9 @@ printed, on the main window."
(with-blocking-notify-procedure
((format nil (_ "Starting download of ~a") path)
(format nil (_ "Download completed in ~a") destination-file))
(fstree:download-path win path destination-file)
(%download win path destination-file)
(info-message destination-file))
(fstree:download-path win path destination-file))))))
(%download win path destination-file))))))
(if force
(on-input-complete output-file)
(ask-string-input #'on-input-complete
@ -2856,6 +2859,7 @@ Note: existing file will be overwritten."
(local-dir (fs:maybe-append-directory-separator (os-utils:pwd))))
(labels ((on-input-complete (root-directory)
(with-enqueued-process ()
(info-message (_"Preparing for download…"))
(when (and (string-not-empty-p root-directory)
(string-not-empty-p remote-dir))
(if (not (fs:directory-exists-p root-directory))