diff options
author | mousebot <mousebot@riseup.net> | 2021-10-04 12:24:34 +0200 |
---|---|---|
committer | mousebot <mousebot@riseup.net> | 2021-10-04 12:24:34 +0200 |
commit | 4dd84c9d5214369ea6c51cad04148aa067b69f8f (patch) | |
tree | a6219a4c84c8a4edaba19066ee06273337a476e2 /lisp | |
parent | 88bcf746aaa10f6e9dbefbd79594ef1def7f6a69 (diff) |
make updating new toots inserts them after any pinned toots
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mastodon-profile.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 98d11f7..28f2e46 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -111,7 +111,7 @@ extra keybindings." (mastodon-tl--property 'toot-json)) (defun mastodon-profile--make-author-buffer (account) - "Take a ACCOUNT and insert a user account into a new buffer." + "Take an ACCOUNT json and insert a user account into a new buffer." (mastodon-profile--make-profile-buffer-for account "statuses" #'mastodon-tl--timeline)) @@ -369,8 +369,9 @@ Returns a list of lists." (setq mastodon-tl--update-point (point)) (mastodon-media--inline-images (point-min) (point)) ;; insert pinned toots first - (if (and pinned (equal endpoint-type "statuses")) - (mastodon-profile--insert-statuses-pinned pinned)) + (when (and pinned (equal endpoint-type "statuses")) + (mastodon-profile--insert-statuses-pinned pinned) + (setq mastodon-tl--update-point (point))) ;updates to follow pinned toots (funcall update-function json))) ;;(mastodon-tl--goto-next-toot) (goto-char (point-min)))) |