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

- made expanding thread command non blocking.

This commit is contained in:
cage 2020-06-12 18:44:22 +02:00
parent de1ce6321b
commit a192595439
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/ui-goodies.lisp
View File

@ -561,19 +561,21 @@ Starting from the oldest toot and going back."
"Check and download a thread "Check and download a thread
Force the checking for new message in the thread the selected message belong." 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*)) (flet ((update ()
(timeline (thread-window:timeline-type specials:*thread-window*)) (when-let* ((selected-message
(folder (thread-window:timeline-folder specials:*thread-window*)) (line-oriented-window:selected-row-fields specials:*thread-window*))
(status-id (db:row-message-status-id selected-message)) (timeline (thread-window:timeline-type specials:*thread-window*))
(expand-event (make-instance 'expand-thread-event (folder (thread-window:timeline-folder specials:*thread-window*))
:new-folder folder (status-id (db:row-message-status-id selected-message))
:new-timeline timeline (expand-event (make-instance 'expand-thread-event
:status-id status-id)) :new-folder folder
(refresh-event (make-instance 'refresh-thread-windows-event :new-timeline timeline
:priority +minimum-event-priority+))) :status-id status-id))
(with-blocking-notify-procedure ((_ "Expanding thread")) (refresh-event (make-instance 'refresh-thread-windows-event
(push-event expand-event) :priority +minimum-event-priority+)))
(push-event refresh-event)))) (push-event expand-event)
(push-event refresh-event))))
(notify-procedure #'update (_ "Expanding thread"))))
(defun refresh-tags () (defun refresh-tags ()
"Update messages for subscribed tags" "Update messages for subscribed tags"