branch: externals/ement
commit 0c94dcc3e4ad0c3bc53eb0a8b867a1957a8261f0
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Add: ement-room-quote face
---
README.org | 4 +++-
ement-room.el | 7 +++++++
2 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/README.org b/README.org
index 525f58694c..eb6f35d929 100644
--- a/README.org
+++ b/README.org
@@ -294,7 +294,9 @@ Ement.el doesn't support encrypted rooms natively, but it
can be used transparen
** 0.12-pre
-Nothing new yet.
+*Additions*
+
++ Face ~ement-room-quote~, applied to quoted parts of replies.
** 0.11
diff --git a/ement-room.el b/ement-room.el
index 7d2d89a0a4..84dcbd26ee 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -277,6 +277,11 @@ normal text.")
'((t (:inherit italic)))
"Emote message bodies.")
+(defface ement-room-quote
+ '((t (:height 0.9)))
+ "Quoted parts of messages.
+Anything wrapped by HTML BLOCKQUOTE tag.")
+
(defface ement-room-redacted
'((t (:strike-through t)))
"Redacted messages.")
@@ -3474,6 +3479,8 @@ HTML is rendered to Emacs text using
`shr-insert-document'."
(add-text-properties beg (point-max)
'(wrap-prefix " "
line-prefix "
"))))))
+ ;; NOTE: We use our own gv, `ement-text-property'; very
convenient.
+ (add-face-text-property beg (point-max)
'ement-room-quote 'append)))))
(shr-insert-document
(libxml-parse-html-region (point-min) (point-max))))))
(string-trim (buffer-substring (point) (point-max)))))
