branch: elpa/mastodon
commit 71a119fcae65c7c60485bbbe68c676f8d60c5748
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
unfuck dd202e9, insert quoted toot as link. #760
---
lisp/mastodon-tl.el | 35 +++++++++++++----------------------
1 file changed, 13 insertions(+), 22 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 5e702b3216..2d7dbb773e 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1955,30 +1955,21 @@ TOOT is the data for the quoting toot."
;; `mastodon-tl--quote-states':
(when (string= "accepted" state)
(propertize
- (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:
+ (concat
+ "\n\n"
+ (mastodon-tl--buttonify-link
+ (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:
- (concat
- "\n\n"
- (mastodon-tl--buttonify-link
- (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)))
- 'help-echo "Load quoted toot"
- 'mouse-face '(:inherit '(highlight link) :underline nil))))
+ (mastodon-tl--render-text content
+ (alist-get 'quoted_status data)))
+ 'help-echo "Load quoted toot"
+ 'mouse-face '(:inherit '(highlight link) :underline nil)))
'line-prefix bar
'wrap-prefix bar
'quote-url url
