diff options
| author | mousebot <mousebot@riseup.net> | 2021-10-21 20:23:12 +0200 |
|---|---|---|
| committer | mousebot <mousebot@riseup.net> | 2021-10-21 20:23:48 +0200 |
| commit | 56330f7a073c3cb50119debd74338b2c858e1308 (patch) | |
| tree | 7782fc49924fcbc3ab428604ea7177d3c37cd68a | |
| parent | a3fd610b172ccad89a463709120ddf4aa27469b6 (diff) | |
icon displays for message visibility - direct, or private
| -rw-r--r-- | lisp/mastodon-tl.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 48237d9..904d850 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -389,7 +389,8 @@ favouriting and following to the byline. It also takes a single function. By default it is `mastodon-tl--byline-boosted'" (let ((parsed-time (date-to-time (mastodon-tl--field 'created_at toot))) (faved (equal 't (mastodon-tl--field 'favourited toot))) - (boosted (equal 't (mastodon-tl--field 'reblogged toot)))) + (boosted (equal 't (mastodon-tl--field 'reblogged toot))) + (visibility (mastodon-tl--field 'visibility toot))) (concat ;; (propertize "\n | " 'face 'default) (propertize @@ -400,6 +401,14 @@ By default it is `mastodon-tl--byline-boosted'" (format "(%s) " (propertize "F" 'face 'mastodon-boost-fave-face))) (funcall author-byline toot) + (cond ((equal visibility "direct") + (if (fontp (char-displayable-p #10r128274)) + " 🔒" + " [direct]")) + ((equal visibility "private") + (if (fontp (char-displayable-p #10r9993)) + " ✉" + " [followers]"))) (funcall action-byline toot) " " ;; TODO: Once we have a view for toot (responses etc.) make |