diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-10-16 12:57:28 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-10-16 12:57:28 +0200 |
| commit | 7800c16bf9cf28cc60fc8c8bd2dbe858fe6f290f (patch) | |
| tree | d80070e0d4cf21be375ee61e0f0a06a7f9af5195 /lisp | |
| parent | 03f308c695452e1d831d50e542f4760e2c29bbb5 (diff) | |
notifs: action symbol for action byline str
Diffstat (limited to 'lisp')
| -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")) |