diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-10-17 15:06:13 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-10-17 15:06:13 +0200 |
| commit | 3c3ef2e98ff81e94446c6e749759f0422f2aa140 (patch) | |
| tree | 3e70b566ce771925d1f54a80b1225263b9db20bf | |
| parent | 3338be8e330c9e904c3bd6d1e603506346a88557 (diff) | |
notifs: improve insert-note text props. fixes pagination (hack)
| -rw-r--r-- | lisp/mastodon-notifications.el | 28 |
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) |