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