hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-05 09:21:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change: Hide progress reporter when unnecessary

Browse source
This commit is contained in:
Adam Porter 2021-07-21 14:03:52 -05:00
parent d76d3d713a
commit 37d3ea8202
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ement.el
View file

@ -342,7 +342,8 @@ Runs `ement-sync-callback-hook' with SESSION."
(num-events (cl-loop for (_id . room) in joined-rooms
sum (length (map-nested-elt room '(state events)))
sum (length (map-nested-elt room '(timeline events)))))
(ement-progress-reporter (make-progress-reporter "Ement: Reading events..." 0 num-events))
(ement-progress-reporter (when (ement--sync-messages-p session)
(make-progress-reporter "Ement: Reading events..." 0 num-events)))
(ement-progress-value 0))
(mapc (apply-partially #'ement--push-joined-room-events session) joined-rooms)
(setf (ement-session-next-batch session) next-batch)
@ -408,7 +409,8 @@ To be called in `ement-sync-callback-hook'."
(cl-loop for event across (alist-get 'events ,type)
for event-struct = (ement--make-event event)
do (push event-struct (,accessor room))
(progress-reporter-update ement-progress-reporter (cl-incf ement-progress-value))
(when (ement--sync-messages-p session)
(progress-reporter-update ement-progress-reporter (cl-incf ement-progress-value)))
(when (> (ement-event-origin-server-ts event-struct) ts)
(setf ts (ement-event-origin-server-ts event-struct))))
;; One would think that one should use `maximizing' here, but, completely