diff options
| -rw-r--r-- | lisp/mastodon-profile.el | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 42fea39..225b3ee 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -754,19 +754,23 @@ MAX-ID is a flag to include the max_id pagination parameter." (or (mastodon-profile--current-view-type endpoint-type no-reblogs no-replies only-media) (plist-get mastodon-profile--views-plist :default))) - (insert "\n\n") + (insert "\n\n"))) + ;; split insert of items from insert of profile: + (with-current-buffer buffer + (let* ((inhibit-read-only t)) ;; insert pinned toots first (when (and pinned (string= endpoint-type "statuses")) (mastodon-profile--insert-statuses-pinned pinned) (setq mastodon-tl--update-point (point))) ; updates after pinned toots - (funcall update-function json)) - (goto-char (point-min)) - (message - (substitute-command-keys - ;; "\\[mastodon-profile--account-view-cycle]" ; not always bound? - "\\`C-c C-c' to cycle profile views: toots, no replies, no boosts,\ + ;; insert items + (funcall update-function json) + (goto-char (point-min)) + (message + (substitute-command-keys + ;; "\\[mastodon-profile--account-view-cycle]" ; not always bound? + "\\`C-c C-c' to cycle profile views: toots, no replies, no boosts,\ only media, followers, following. -\\`C-c C-s' to search user's toots, \\`C-c \#' to search user's posts for a hashtag.")))))) +\\`C-c C-s' to search user's toots, \\`C-c \#' to search user's posts for a hashtag."))))))) (defun mastodon-profile--current-view-type (type no-reblogs no-replies only-media) "Return the type of current profile view. |