branch: elpa/mastodon
commit e1f603b826b3b9b5c3f514515293c9ff20efaef6
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
tiny improvements to render quoted posts.
---
lisp/mastodon-tl.el | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 3e699acf8bd..8a4476d4054 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1893,10 +1893,18 @@ Runs `mastodon-tl--render-text' and fetches poll or
media."
(defun mastodon-tl--insert-quoted (data)
"Propertize quoted status DATA for insertion."
(let ((bar (concat " " (mastodon-tl--symbol 'reply-bar)))
- (content (map-nested-elt data '(quoted_status content))))
+ (content (map-nested-elt data '(quoted_status content)))
+ ;; quote symbol hack:
+ (quotemark (propertize "“" 'face
+ '(t :inherit success :weight bold
+ :height 1.8))))
(propertize
- (concat
- (mastodon-tl--byline (alist-get 'quoted_status data))
+ (concat quotemark "\n"
+ ;; author byline without horiz bar and toot stats:
+ (mastodon-tl--byline-author
+ (alist-get 'quoted_status data) nil :domain :base)
+ "\n"
+ ;; quoted text:
(mastodon-tl--render-text content
(alist-get 'quoted_status data)))
'line-prefix bar
