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: Show reason for membership events

Browse source
This commit is contained in:
Adam Porter 2021-08-04 04:10:59 -05:00
parent 97c55557d1
commit 407f164cca
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ement-room.el
View file

@ -1800,9 +1800,10 @@ For use as a `help-echo' function on `ement-user' headings."
:value-create (lambda (widget) :value-create (lambda (widget)
(pcase-let* ((event (widget-value widget)) (pcase-let* ((event (widget-value widget))
((cl-struct ement-event sender content) event) ((cl-struct ement-event sender content) event)
((map membership) content) ((map membership reason) content)
(displayname (ement-room--user-display-name sender ement-room)) (displayname (ement-room--user-display-name sender ement-room))
(string (concat membership " (" displayname ")"))) (reason-string (if reason (concat ": " reason) ""))
(string (format "%s (%s%s)" membership displayname reason-string)))
(insert (propertize string (insert (propertize string
'help-echo #'ement-room--membership-help-echo))))) 'help-echo #'ement-room--membership-help-echo)))))