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

- quit the program if user choose to keeps statuses marked for deletion.

This commit is contained in:
cage 2020-12-08 19:05:04 +01:00
parent fe16fc7c1c
commit cf90c07c4e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ui-goodies.lisp
View File

@ -57,8 +57,8 @@
(flet ((on-input-complete (maybe-accepted) (flet ((on-input-complete (maybe-accepted)
(when (boolean-input-accepted-p maybe-accepted) (when (boolean-input-accepted-p maybe-accepted)
(let ((delete-event (make-instance 'delete-all-status-event))) (let ((delete-event (make-instance 'delete-all-status-event)))
(push-event delete-event) (push-event delete-event)))
(clean-temporary-files))))) (clean-temporary-files)))
(let ((delete-count (db:count-status-marked-to-delete)) (let ((delete-count (db:count-status-marked-to-delete))
(stop-download-event (make-instance 'gemini-abort-all-downloading-event (stop-download-event (make-instance 'gemini-abort-all-downloading-event
:priority +maximum-event-priority+))) :priority +maximum-event-priority+)))