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

Change: (ement-room--format-membership-events) Format event in help-echo

Browse source
This commit is contained in:
Adam Porter 2022-05-09 15:31:03 -05:00
parent 39751e8d70
commit b98843a82d
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
ement-room.el
View file

@ -3685,9 +3685,11 @@ STRUCT should be an `ement-room-membership-events' struct."
event)) event))
(cons prev-membership new-membership))) (cons prev-membership new-membership)))
(event-user (event-user
(event) (if-let (user (gethash (ement-event-state-key event) ement-users)) (event) (propertize (if-let (user (gethash (ement-event-state-key event) ement-users))
(ement-room--user-display-name user room) (ement-room--user-display-name user room)
(ement-event-state-key event)))) (ement-event-state-key event))
'help-echo (concat (ement-room--format-member-event event)
" <" (ement-event-state-key event) ">"))))
(pcase-let* (((cl-struct ement-room-membership-events events) struct)) (pcase-let* (((cl-struct ement-room-membership-events events) struct))
(pcase (length events) (pcase (length events)
(0 (warn "No events in `ement-room-membership-events' struct")) (0 (warn "No events in `ement-room-membership-events' struct"))
@ -3727,7 +3729,9 @@ STRUCT should be an `ement-room-membership-events' struct."
"left" left-events "left" left-events
"invited" invite-events "invited" invite-events
"banned" ban-events) "banned" ban-events)
for users = (delete-dups (mapcar #'event-user events)) for users = (mapcar #'event-user
(cl-delete-duplicates
events :key #'ement-event-sender))
for number = (length users) for number = (length users)
when events when events
collect (format "%s %s (%s)" number type (string-join users ", "))) collect (format "%s %s (%s)" number type (string-join users ", ")))