aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-notifications.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@riseup.net>2024-10-17 15:06:13 +0200
committermarty hiatt <martianhiatus@riseup.net>2024-10-17 15:06:13 +0200
commit3c3ef2e98ff81e94446c6e749759f0422f2aa140 (patch)
tree3e70b566ce771925d1f54a80b1225263b9db20bf /lisp/mastodon-notifications.el
parent3338be8e330c9e904c3bd6d1e603506346a88557 (diff)
notifs: improve insert-note text props. fixes pagination (hack)
Diffstat (limited to 'lisp/mastodon-notifications.el')
-rw-r--r--lisp/mastodon-notifications.el28
1 files changed, 16 insertions, 12 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index f8f093b..14f2be5 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -354,19 +354,23 @@ ACCOUNTS is the notification accounts data."
base-toot group
(if (member type '("follow" "follow_request"))
toot))) ;; account data!
- 'item-type 'toot
- 'item-id (or id ; notification's own id
- (alist-get 'id toot)) ; toot id
- 'base-item-id (mastodon-tl--item-id
- ;; if status is a notif, get id from base-toot
- ;; (-tl--item-id toot) will not work here:
- (or base-toot
- toot)) ; else normal toot with reblog check
- 'item-json toot
- 'base-toot base-toot
- 'cursor-face 'mastodon-cursor-highlight-face
+ 'item-type 'notification
+ 'item-id (or
+ ;; grouped notifications pagination max_id:
+ ;; NB: their min id used for our max id param
+ (alist-get 'page_min_id group)
+ (alist-get 'id toot)) ; toot id
+ 'base-item-id (mastodon-tl--item-id
+ ;; if status is a notif, get id from base-toot
+ ;; (-tl--item-id toot) will not work here:
+ (or base-toot
+ toot)) ; else normal toot with reblog check
+ 'item-json toot
+ 'base-toot base-toot
+ 'cursor-face 'mastodon-cursor-highlight-face
'toot-foldable toot-foldable
- 'toot-folded (and toot-foldable (not unfolded))
+ 'toot-folded (and toot-foldable (not unfolded))
+ ;; grouped notifs data:
'notification-type type
'notification-group group
'notification-accounts accounts)