diff options
| author | marty hiatt <martianhiatus@disroot.org> | 2024-10-30 09:15:12 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus@disroot.org> | 2024-10-30 09:28:22 +0100 |
| commit | 14e3fa36cb2e36a36e13005ac5b54cd2aed3f512 (patch) | |
| tree | da7f797972817fbf6d7e67aca2e35e51bf8e6221 /lisp | |
| parent | bfb17cdf91845b4ba49c99d14d439a8c16003d53 (diff) | |
start on pagination for v1 notifs. #610
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-tl.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index beb74f4..6c043ac 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -98,6 +98,7 @@ (defvar mastodon-toot-mode) (defvar mastodon-active-user) (defvar mastodon-images-in-notifs) +(defvar mastodon-group-notifications) (when (require 'mpv nil :no-error) (declare-function mpv-start "mpv")) @@ -2240,8 +2241,9 @@ If we are in a notifications view, return `notifications-min-id'." (save-excursion (goto-char (point-max)) (mastodon-tl--property - (if (member (mastodon-tl--get-buffer-type) - '(mentions notifications)) + (if (and mastodon-group-notifications + (member (mastodon-tl--get-buffer-type) + '(mentions notifications))) 'notifications-min-id 'item-id) nil :backward))) @@ -2865,7 +2867,8 @@ the current view." (args (append args params)) (url (mastodon-http--api endpoint - (when (or (string= endpoint "notifications") + (when (or (and mastodon-group-notifications + (string= endpoint "notifications")) (string-suffix-p "search" endpoint)) "v2")))) (apply #'mastodon-http--get-json-async url args callback cbargs))) |