From 5e7e38a81a99e110ec62c0ccc622eb3c4b476cbc Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Mon, 3 Jun 2024 16:36:07 +0200 Subject: boxed face for "pinned" in profile view --- lisp/mastodon-profile.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/mastodon-profile.el') diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index b96caa0..069334a 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)) -- cgit v1.2.3