This commit is contained in:
Adam Porter 2020-11-30 13:45:57 -06:00
parent 7b234d039c
commit 2d492fd839
2 changed files with 3 additions and 2 deletions

View file

@ -138,7 +138,8 @@ To be used as the pretty-printer for `ewoc-create'."
(_ 'default)))
(string (propertize (pcase type
("m.room.message" body)
("m.room.member" (alist-get 'membership content)))
("m.room.member" (alist-get 'membership content))
(_ (concat "EVENT-TYPE: " type)))
'face body-face)))
(concat timestamp string)))

View file

@ -163,7 +163,7 @@ SINCE may be such a token."
(pcase-let* (((map rooms) data)
((map ('join joined-rooms)) rooms)
;; FIXME: Only counts events in joined-rooms list.
(num-events (cl-loop for room in joined-rooms
(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))