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

Fix: (define-widget ement-room-membership) Show displayname

Browse source 
Needed for headerless, IRC-style formatting.
This commit is contained in:
Adam Porter 2021-07-25 14:51:59 -05:00
parent 85f42c45aa
commit 9a733480f2
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ement-room.el
View file

@ -1175,8 +1175,13 @@ For use as a `help-echo' function on `ement-user' headings."
;; hierarchy (using `widget-forward' says "No buttons or fields found"), so we use 'help-echo on the string for now.
;; :help-echo #'ement-room--membership-help-echo
:value-create (lambda (widget)
(insert (propertize (alist-get 'membership (ement-event-content (widget-value widget)))
'help-echo #'ement-room--membership-help-echo))))
(pcase-let* ((event (widget-value widget))
((cl-struct ement-event sender content) event)
((map membership) content)
(displayname (ement-room--user-display-name sender ement-room))
(string (concat membership " (" displayname ")")))
(insert (propertize string
'help-echo #'ement-room--membership-help-echo)))))
;;;; Footer