From a19259543961d6368e76273b60e3987e00d4092b Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 12 Jun 2020 18:44:22 +0200 Subject: [PATCH] - made expanding thread command non blocking. --- src/ui-goodies.lisp | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index 768dc1b..24ac6fa 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -561,19 +561,21 @@ Starting from the oldest toot and going back." "Check and download a thread Force the checking for new message in the thread the selected message belong." - (when-let* ((selected-message (line-oriented-window:selected-row-fields specials:*thread-window*)) - (timeline (thread-window:timeline-type specials:*thread-window*)) - (folder (thread-window:timeline-folder specials:*thread-window*)) - (status-id (db:row-message-status-id selected-message)) - (expand-event (make-instance 'expand-thread-event - :new-folder folder - :new-timeline timeline - :status-id status-id)) - (refresh-event (make-instance 'refresh-thread-windows-event - :priority +minimum-event-priority+))) - (with-blocking-notify-procedure ((_ "Expanding thread")) - (push-event expand-event) - (push-event refresh-event)))) + (flet ((update () + (when-let* ((selected-message + (line-oriented-window:selected-row-fields specials:*thread-window*)) + (timeline (thread-window:timeline-type specials:*thread-window*)) + (folder (thread-window:timeline-folder specials:*thread-window*)) + (status-id (db:row-message-status-id selected-message)) + (expand-event (make-instance 'expand-thread-event + :new-folder folder + :new-timeline timeline + :status-id status-id)) + (refresh-event (make-instance 'refresh-thread-windows-event + :priority +minimum-event-priority+))) + (push-event expand-event) + (push-event refresh-event)))) + (notify-procedure #'update (_ "Expanding thread")))) (defun refresh-tags () "Update messages for subscribed tags"