diff options
| author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-18 10:33:24 -0400 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-18 10:44:40 -0400 |
| commit | 27d152d85d9e26dc3080dfabb155980b22405c3f (patch) | |
| tree | 283c4a047287ac5fa7830bea6459aa301a282607 /lisp/mastodon-tl.el | |
| parent | 35a896aaf700e68f92883e93ce4cc4c3d1196ae6 (diff) | |
Show boosted state with (B) marker in byline
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index a76aa1a..7139761 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -107,9 +107,14 @@ (mastodon-tl--byline-author reblog))))) (defun mastodon-tl--byline (toot) - (let ((id (cdr (assoc 'id toot)))) + (let ((id (cdr (assoc 'id toot))) + (boosted (or (cdr (assoc 'reblogged toot)) + (cdr (assoc 'reblogged + (cdr (assoc 'reblog toot))))))) (propertize (concat (propertize "\n | " 'face 'default) + (when boosted + (format "(%s) " (propertize "B" 'face 'success))) (mastodon-tl--byline-author toot) (mastodon-tl--byline-boosted toot) (propertize "\n ------------" 'face 'default)) |