From 119bca6c441ef5fbed95ed8000a76ec8f7612796 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Thu, 10 Oct 2024 19:48:33 +0200
Subject: add mastodon-notifications--action-alist, use reblog in
notifications.el
---
lisp/mastodon-notifications.el | 35 +++++++++++++++--------------------
1 file changed, 15 insertions(+), 20 deletions(-)
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index 0c56cbb..db8b842 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -180,7 +180,7 @@ Can be called in notifications view or in follow-requests view."
(defun mastodon-notifications--reblog (note)
"Format for a `boost' NOTE."
- (mastodon-notifications--format-note note 'boost))
+ (mastodon-notifications--format-note note 'reblog))
(defun mastodon-notifications--status (note)
"Format for a `status' NOTE.
@@ -208,6 +208,16 @@ Status notifications are given when
'(face (font-lock-comment-face shr-text)))))
(buffer-string)))
+(defvar mastodon-notifications--action-alist
+ '((reblog . "Boosted")
+ (favourite . "Favourited")
+ (follow-request . "Requested to follow")
+ (follow . "Followed")
+ (mention . "Mentioned")
+ (status . "Posted")
+ (poll . "Posted a poll")
+ (edit . "Edited")))
+
(defun mastodon-notifications--format-note (note type)
"Format for a NOTE of TYPE."
;; FIXME: apply/refactor filtering as per/with `mastodon-tl--toot'
@@ -238,7 +248,7 @@ Status notifications are given when
;; reblogs/faves use 'note' to process their own json
;; not the toot's. this ensures following etc. work on such notifs
((or (eq type 'favourite)
- (eq type 'boost))
+ (eq type 'reblog))
note)
(t
status))
@@ -266,7 +276,7 @@ Status notifications are given when
":\n"
(mastodon-notifications--comment-note-text body))))))
((or (eq type 'favourite)
- (eq type 'boost))
+ (eq type 'reblog))
(mastodon-notifications--comment-note-text body))
(t body)))
;; author-byline
@@ -279,26 +289,11 @@ Status notifications are given when
;; action-byline
(lambda (_status)
(mastodon-notifications--byline-concat
- (cond ((eq type 'boost)
- "Boosted")
- ((eq type 'favourite)
- "Favourited")
- ((eq type 'follow-request)
- "Requested to follow")
- ((eq type 'follow)
- "Followed")
- ((eq type 'mention)
- "Mentioned")
- ((eq type 'status)
- "Posted")
- ((eq type 'poll)
- "Posted a poll")
- ((eq type 'edit)
- "Edited"))))
+ (alist-get type mastodon-notifications--action-alist)))
id
;; base toot
(when (or (eq type 'favourite)
- (eq type 'boost))
+ (eq type 'reblog))
status)))))
(defun mastodon-notifications--by-type (note)
--
cgit v1.2.3