diff options
-rw-r--r-- | lisp/mastodon-notifications.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el index aa38302..c969c8e 100644 --- a/lisp/mastodon-notifications.el +++ b/lisp/mastodon-notifications.el @@ -62,6 +62,7 @@ (autoload 'mastodon-http--get-json "mastodon-http") (autoload 'mastodon-media--get-avatar-rendering "mastodon-media") (autoload 'mastodon-tl--image-trans-check "mastodon-tl") +(autoload 'mastodon-tl--symbol "mastodon-tl") (defgroup mastodon-tl nil "Nofications in mastodon.el." @@ -123,7 +124,16 @@ make them unweildy." (defun mastodon-notifications--byline-concat (message) "Add byline for TOOT with MESSAGE." - (concat "\n " (propertize message 'face 'highlight) + (concat "\n " + (mastodon-tl--symbol + (cond ((string= message "Favourited") + 'favourite) + ((string= message "Boosted") + 'boost) + ((string= message "Edited") + 'edited))) + " " + (propertize message 'face 'highlight) " " (cdr (assoc message mastodon-notifications--response-alist)) "\n")) |