From 7800c16bf9cf28cc60fc8c8bd2dbe858fe6f290f Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 16 Oct 2024 12:57:28 +0200 Subject: notifs: action symbol for action byline str --- lisp/mastodon-notifications.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'lisp') 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")) -- cgit v1.2.3