aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2022-05-13 13:24:06 +0200
committermousebot <mousebot@riseup.net>2022-05-13 13:24:06 +0200
commit4ab5a4bb8d603b189a99cc4a4eea4c42e8f97cf0 (patch)
tree33c56287c2957a0debf29cacc0e37fbb97c67c53 /lisp
parente5ff349d23c71a521db41dcdb1ac9765bac5388f (diff)
tl--more: message before and after appending more toots.
this user feedback prevents hitting 'n' running tl--more again before toots have been appended, when what the user wanted was only to naviagate to the next too after they'd been appended. running tl--more before toots are appended causes a bug of appending the same set of toots twice.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-tl.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 3c96ecc..05eaa63 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1454,6 +1454,7 @@ For use after e.g. deleting a toot."
(defun mastodon-tl--more ()
"Append older toots to timeline, asynchronously."
(interactive)
+ (message "Loading older toots...")
(mastodon-tl--more-json-async (mastodon-tl--get-endpoint) (mastodon-tl--oldest-id)
'mastodon-tl--more* (current-buffer) (point)))
@@ -1466,7 +1467,8 @@ When done, places point at POINT-BEFORE."
(let ((inhibit-read-only t))
(goto-char (point-max))
(funcall (mastodon-tl--get-update-function) json)
- (goto-char point-before)))))
+ (goto-char point-before)
+ (message "Loading older toots... done.")))))
(defun mastodon-tl--find-property-range (property start-point &optional search-backwards)
"Return `nil` if no such range is found.