diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-13 22:29:27 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-13 22:29:27 +0200 |
| commit | b01797b70227c01d63a593abda281fae720a56c9 (patch) | |
| tree | 6ced6b12a9f9b623da69324cb69a37bbc83c74c4 /lisp/mastodon-tl.el | |
| parent | a623a6dc667d018729befa298c1144dff0f2769f (diff) | |
work on tl--more*: msg if no more results, or if load full thread
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 9209026..7814a69 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2403,17 +2403,21 @@ HEADERS is the http headers returned in the response, if any." ;; if thread view, call --thread with parent ID (progn (goto-char (point-min)) (mastodon-tl--goto-next-toot) - (funcall (mastodon-tl--update-function))) - (funcall (mastodon-tl--update-function) json)) - (goto-char point-before) - ;; update buffer spec to new link-header: - ;; (other values should just remain as they were) - (when headers - (mastodon-tl--set-buffer-spec (mastodon-tl--buffer-name) - (mastodon-tl--endpoint) - (mastodon-tl--update-function) - link-header)) - (message "Loading older toots... done."))))) + (funcall (mastodon-tl--update-function)) + (goto-char point-before) + (message "Loaded full thread.")) + (if (not json) + (message "No more results.") + (funcall (mastodon-tl--update-function) json) + (goto-char point-before) + ;; update buffer spec to new link-header: + ;; (other values should just remain as they were) + (when headers + (mastodon-tl--set-buffer-spec (mastodon-tl--buffer-name) + (mastodon-tl--endpoint) + (mastodon-tl--update-function) + link-header)) + (message "Loading older toots... done."))))))) (defun mastodon-tl--find-property-range (property start-point &optional search-backwards) |