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

Add: (room-defevent "m.room.member") Insert silently

Browse source
This commit is contained in:
Adam Porter 2021-08-10 00:59:02 -05:00
parent 11a48cb14e
commit d752c4a12a
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ement-room.el
View file

@ -945,8 +945,12 @@ the previously oldest event."
(cl-loop for event being the elements of events (cl-loop for event being the elements of events
;; TODO: This should be done in a unified interface. ;; TODO: This should be done in a unified interface.
;; HACK: Only insert certain types of events. ;; HACK: Only insert certain types of events.
;; FIXME: Remove this when the transition to defevent-based handlers is done.
when (pcase (ement-event-type event) when (pcase (ement-event-type event)
("m.reaction" nil) ("m.reaction" nil)
("m.room.member"
;; Membership events now handled with defevent-based handler.
nil)
(_ t)) (_ t))
do (ement-room--insert-event event) do (ement-room--insert-event event)
do (ement-progress-update))) do (ement-progress-update)))
@ -1286,6 +1290,10 @@ function to `ement-room-event-fns', which see."
(with-silent-modifications (with-silent-modifications
(ewoc-set-hf ement-ewoc "" footer)))) (ewoc-set-hf ement-ewoc "" footer))))
(ement-room-defevent "m.room.member"
(with-silent-modifications
(ement-room--insert-event event)))
(ement-room-defevent "m.room.tombstone" (ement-room-defevent "m.room.tombstone"
(pcase-let* (((cl-struct ement-event content) event) (pcase-let* (((cl-struct ement-event content) event)
((map body replacement_room) content) ((map body replacement_room) content)