branch: elpa/mastodon
commit 5e7e38a81a99e110ec62c0ccc622eb3c4b476cbc
Author: marty hiatt <martianhia...@riseup.net>
Commit: marty hiatt <martianhia...@riseup.net>
boxed face for "pinned" in profile view
---
lisp/mastodon-profile.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index b96caa0327..069334a23d 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -573,7 +573,11 @@ FIELDS means provide a fields vector fetched by other
means."
(defun mastodon-profile--insert-statuses-pinned (pinned-statuses)
"Insert each of the PINNED-STATUSES for a given account."
(mapc (lambda (pinned-status)
- (insert (mastodon-tl--set-face " :pinned: " 'success))
+ (insert
+ (concat " "
+ (propertize " pinned "
+ 'face '(:inherit success :box t))
+ " "))
(mastodon-tl--toot pinned-status))
pinned-statuses))
