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

Fix: (ement-room--direct-p) Invited rooms

Browse source
This commit is contained in:
Adam Porter 2021-08-24 19:25:28 -05:00
parent 10d6b83ecc
commit c3c1387ec8
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
ement-room.el
View file

@ -1457,9 +1457,14 @@ DATA is an unsent message event's data alist."
thereis (seq-contains room-ids room-id)))) thereis (seq-contains room-ids room-id))))
(pcase-let* (((cl-struct ement-session account-data) session) (pcase-let* (((cl-struct ement-session account-data) session)
((cl-struct ement-room id) room)) ((cl-struct ement-room id) room))
(cl-loop for event in account-data (or (cl-loop for event in account-data
when (equal "m.direct" (alist-get 'type event)) when (equal "m.direct" (alist-get 'type event))
thereis (content-contains-room-id (alist-get 'content event) id))))) thereis (content-contains-room-id (alist-get 'content event) id))
(cl-loop
;; Invited rooms have no account-data yet, and their
;; directness flag is in invite-state events.
for event in (ement-room-invite-state room)
thereis (alist-get 'is_direct (ement-event-content event)))))))
(define-derived-mode ement-room-mode fundamental-mode "Ement-Room" (define-derived-mode ement-room-mode fundamental-mode "Ement-Room"
"Major mode for Ement room buffers. "Major mode for Ement room buffers.