From 5c8ec25bea01223aa37f5291bad560c0c2e6f806 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Fri, 19 Aug 2022 10:19:05 +0200
Subject: use bookmark emoji if possible

---
 lisp/mastodon-tl.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 378b98c..d5a893d 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -547,7 +547,10 @@ By default it is `mastodon-tl--byline-boosted'"
              (when faved
                (mastodon-tl--format-faved-or-boosted-byline "F"))
              (when bookmarked
-               (mastodon-tl--format-faved-or-boosted-byline "K")))
+               (mastodon-tl--format-faved-or-boosted-byline
+                (if (fontp (char-displayable-p #10r128278))
+                    "🔖"
+                  "K"))))
      (propertize
       (concat
        ;; we propertize help-echo format faves for author name
@@ -583,10 +586,11 @@ LETTER is a string, F for favourited, B for boosted, or K for bookmarked."
                             "favourited")
                            ((equal letter "B")
                             "boosted")
-                           ((equal letter "K")
+                           ((equal letter (or "🔖" "K"))
                             "bookmarked"))))
     (format "(%s) "
             (propertize letter 'face 'mastodon-boost-fave-face
+                        ;; emojify breaks this for 🔖:
                         'help-echo (format "You have %s this status."
                                            help-string)))))
 
-- 
cgit v1.2.3