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: (ement-room--format-message) Prism face for %B

Browse source
This commit is contained in:
Adam Porter 2021-07-25 14:45:44 -05:00
parent 5eb3be0c02
commit 85f42c45aa
1 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ement-room.el
View file

@ -950,8 +950,7 @@ Format defaults to `ement-room-message-format-spec', which see."
(ement-user-id (ement-session-user ement-session)))
'ement-room-self-message)
((eq 'both ement-room-prism)
(list :inherit 'default
:foreground (or (ement-user-color sender)
(list :foreground (or (ement-user-color sender)
(setf (ement-user-color sender)
(ement-room--user-color sender)))))
(t 'default))))
@ -965,23 +964,21 @@ Format defaults to `ement-room-message-format-spec', which see."
;; HACK: Reads `ement-session' from current buffer.
(?b (pcase-let*
(((cl-struct ement-event content sender) event)
((map body) content)
(body-face (body-face)))
(add-face-text-property 0 (length body) body-face 'append body)
body))
((map body) content))
(propertize body 'face (body-face))))
(?B (pcase-let*
(((cl-struct ement-event content sender) event)
((map body ('format content-format) ('formatted_body formatted-body)) content)
(body-face (body-face))
(body (if (not formatted-body)
body
;; Copy the string so as not to add face properties to the one in the struct.
(copy-sequence body)
(pcase content-format
("org.matrix.custom.html"
(save-match-data
(ement-room--render-html formatted-body)))
(_ (format "[unknown body format: %s] %s"
content-format body))))))
(add-face-text-property 0 (length body) body-face 'append body)
(add-face-text-property 0 (length body) (body-face) 'append body)
body))
(?i (ement-event-id event))
(?s (propertize (ement-user-id (ement-event-sender event))