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

Tidy: (ement-room--format-member-event)

Browse source
This commit is contained in:
Adam Porter 2021-08-24 00:37:34 -05:00
parent bac2a306fd
commit 4c609c2ef3
1 changed files with 81 additions and 95 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

90
ement-room.el
View file

@ -2680,103 +2680,89 @@ a copy of the local keymap, and sets `header-line-format'."
('displayname prev-displayname))))))
event)
(sender-name (ement-room--user-display-name sender ement-room)))
(cl-macrolet ((sender-name-id-string
() `(propertize sender-name
'help-echo (ement-user-id sender)))
(new-displayname-state-key-string
() `(propertize (or new-displayname state-key)
'help-echo state-key))
(sender-name-state-key-string
() `(propertize sender-name
'help-echo state-key))
(prev-displayname-id-string
() `(propertize (or prev-displayname sender-name)
'help-echo (ement-user-id sender))))
(pcase-exhaustive new-membership
("invite"
(pcase prev-membership
((or "leave" 'nil)
(format "%s invited %s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)))
(sender-name-id-string)
(new-displayname-state-key-string)))
(_ (format "%s sent unrecognized invite event for %s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)))))
(sender-name-id-string)
(new-displayname-state-key-string)))))
("join"
(pcase prev-membership
("invite"
(format "%s accepted invitation to join"
(propertize sender-name
'help-echo state-key)))
(sender-name-state-key-string)))
("join"
(format "%s changed name/avatar"
(propertize sender-name
'help-echo state-key)))
(sender-name-state-key-string)))
("leave"
(format "%s rejoined"
(propertize sender-name
'help-echo state-key)))
(sender-name-state-key-string)))
('nil
(format "%s joined"
(propertize sender-name
'help-echo state-key)))
(sender-name-state-key-string)))
(_ (format "%s sent unrecognized join event for %s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)))))
(sender-name-id-string)
(new-displayname-state-key-string)))))
("leave"
(pcase prev-membership
("invite"
(pcase state-key
((pred (equal (ement-user-id sender)))
(format "%s rejected invitation"
(propertize sender-name
'help-echo (ement-user-id sender))))
(sender-name-id-string)))
(_ (format "%s revoked %s's invitation"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)))))
(sender-name-id-string)
(new-displayname-state-key-string)))))
("join"
(pcase state-key
((pred (equal (ement-user-id sender)))
(format "%s left%s"
(propertize (or prev-displayname sender-name)
'help-echo (ement-user-id sender))
(prev-displayname-id-string)
(if reason
(format " (%s)" reason)
"")))
(_ (format "%s kicked %s%s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)
(sender-name-id-string)
(new-displayname-state-key-string)
(if reason
(format " (%s)" reason)
"")))))
("ban"
(format "%s unbanned %s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)))
(sender-name-id-string)
(new-displayname-state-key-string)))
(_ (format "%s sent unrecognized leave event for %s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)))))
(sender-name-id-string)
(new-displayname-state-key-string)))))
("ban"
(pcase prev-membership
((or "invite" "leave")
(format "%s banned %s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)))
(sender-name-id-string)
(new-displayname-state-key-string)))
("join"
(format "%s kicked and banned %s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key)))
(sender-name-id-string)
(new-displayname-state-key-string)))
(_ (format "%s sent unrecognized ban event for %s"
(propertize sender-name
'help-echo (ement-user-id sender))
(propertize (or new-displayname state-key)
'help-echo state-key))))))))
(sender-name-id-string)
(new-displayname-state-key-string)))))))))
;;;;; Images