branch: elpa/mastodon
commit c033fbb37fbd389a1d37e16139b4324c53aeaddd
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
FIX #764
---
lisp/mastodon-tl.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index c22ad2c2e3..749edddf64 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1953,21 +1953,20 @@ TOOT is the data for the quoting toot."
:height 1.8))))
;; TODO: tailor non-disply of quote based on quote 'state'
;; `mastodon-tl--quote-states':
+ ;; FIXME: filtering logic here?
(when (string= "accepted" state)
(propertize
;; quoted text:
(concat
+ "\n" quotemark "\n"
+ ;; author byline without horiz bar/stats:
+ (mastodon-tl--byline-author
+ (alist-get 'quoted_status data) nil :domain :base)
"\n"
(propertize ;; button quoted toot
- (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)))
+ ;; quoted text:
+ (mastodon-tl--render-text content
+ (alist-get 'quoted_status data))
'button t
'keymap mastodon-tl--link-keymap
'help-echo "Load quoted toot"
