diff options
| author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-18 10:58:12 -0400 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-18 11:16:43 -0400 |
| commit | d619ea51ef8f29be33d55938147feff42afce0d3 (patch) | |
| tree | ae3040ab8ef59edc12023794355cf0d89a6f7eb0 /lisp | |
| parent | 1e5ef7931bfcf00902b88bf433fed853966b32d8 (diff) | |
Display favourited status in byline
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-tl.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 7139761..6358c72 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -108,6 +108,9 @@ (defun mastodon-tl--byline (toot) (let ((id (cdr (assoc 'id toot))) + (faved (or (cdr (assoc 'favourited toot)) + (cdr (assoc 'favourited + (cdr (assoc 'reblog toot)))))) (boosted (or (cdr (assoc 'reblogged toot)) (cdr (assoc 'reblogged (cdr (assoc 'reblog toot))))))) @@ -115,6 +118,8 @@ (concat (propertize "\n | " 'face 'default) (when boosted (format "(%s) " (propertize "B" 'face 'success))) + (when faved + (format "(%s) " (propertize "F" 'face 'success))) (mastodon-tl--byline-author toot) (mastodon-tl--byline-boosted toot) (propertize "\n ------------" 'face 'default)) |