From a1d3feea13416a119b6437b5f2bbeba66fb638a1 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sun, 27 Oct 2024 16:49:05 +0100 Subject: fix severance/mod warning notifs (experimental still) --- lisp/mastodon-notifications.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/mastodon-notifications.el') diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el index f688f2d..3ef8869 100644 --- a/lisp/mastodon-notifications.el +++ b/lisp/mastodon-notifications.el @@ -215,15 +215,15 @@ JSON is a list of alists." "Return a body for a severance notification GROUP." ;; FIXME: actually implement this when we encounter one in the wild! (let-alist (alist-get 'event group) - (concat .description ": " + (concat .type ": " .target_name "\nRelationships affected: " .relationships_count))) (defun mastodon-notifications--mod-warning-body (group) "Return a body for a moderation warning notification GROUP." - (let-alist (alist-get ) - (concat .description ": " + (let-alist (alist-get 'moderation_warning group) + (concat .action ": " .text "\nStatuses: " .status_ids -- cgit v1.2.3