aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-01-27 18:47:20 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-01-27 18:48:47 +0100
commit5faed06cc47238ffea43145204a90a2bd13b6bf2 (patch)
tree7dd752823de0072285b9aab30cbe286743a66013 /lisp/mastodon-tl.el
parent4548acc7300a4f63c57916c3d5ee033fef5674a3 (diff)
tl--more*: handle calling on last toot in thread view. FIXES #384
for now we funcall tl--thread not on JSON, but on thread parent ID. this will load whole thread, which may be significantly larger than current thread branch view. maybe need more subtlety, later.
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 8c20b77..5133cad 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2758,7 +2758,12 @@ HEADERS is the http headers returned in the response, if any."
(headers (if headers (cdr response) nil))
(link-header (mastodon-tl--get-link-header-from-response headers)))
(goto-char (point-max))
- (funcall (mastodon-tl--get-update-function) json)
+ (if (eq (mastodon-tl--get-buffer-type) 'thread)
+ ;; if thread view, call --thread with parent ID
+ (progn (goto-char (point-min))
+ (mastodon-tl--goto-next-toot)
+ (funcall (mastodon-tl--get-update-function)))
+ (funcall (mastodon-tl--get-update-function) json))
(goto-char point-before)
;; update buffer spec to new link-header:
;; (other values should just remain as they were)