From 121a09f5986dff508d713b772a54a4c8b4d446c4 Mon Sep 17 00:00:00 2001 From: mousebot Date: Wed, 16 Feb 2022 10:37:48 +0100 Subject: run goto-first-item in tl--init, unless profile view - remove call to goto-next-item from view filters and view foll suggests tweak init-sync goto-first-item behaviour remove call to goto-next-toot on profile load --- lisp/mastodon-profile.el | 1 - lisp/mastodon-tl.el | 31 +++++++++++++++---------------- 2 files changed, 15 insertions(+), 17 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 0119a36..7e78fd7 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -378,7 +378,6 @@ Returns a list of lists." (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)))) (defun mastodon-profile--get-toot-author () diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 2c2c6ec..fef8a98 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1175,8 +1175,7 @@ Prompt for a context, must be a list containting at least one of \"home\", (mastodon-tl--init-sync "filters" "filters" 'mastodon-tl--insert-filters) - (use-local-map mastodon-tl--view-filters-keymap) - (mastodon-tl--goto-next-item)) + (use-local-map mastodon-tl--view-filters-keymap)) (defun mastodon-tl--insert-filters (json) "Insert the user's current filters. @@ -1236,8 +1235,7 @@ JSON is what is returned by by the server." (mastodon-tl--init-sync "follow-suggestions" "suggestions" 'mastodon-tl--insert-follow-suggestions) - (use-local-map mastodon-tl--follow-suggestions-map) - (mastodon-tl--goto-next-item)) + (use-local-map mastodon-tl--follow-suggestions-map)) (defun mastodon-tl--insert-follow-suggestions (response) "Insert follow suggestions into buffer. @@ -1624,11 +1622,14 @@ JSON is the data returned from the server." #'mastodon-tl--update-timestamps-callback (current-buffer) nil))) - (when (or (equal endpoint "notifications") - (string-prefix-p "timelines" endpoint) - (string-prefix-p "favourites" endpoint) - (string-prefix-p "statuses" endpoint)) - (mastodon-tl--goto-first-item)))) + (unless + ;; for everything save profiles: + (string-prefix-p "accounts" endpoint)) + ;;(or (equal endpoint "notifications") + ;; (string-prefix-p "timelines" endpoint) + ;; (string-prefix-p "favourites" endpoint) + ;; (string-prefix-p "statuses" endpoint)) + (mastodon-tl--goto-first-item))) (defun mastodon-tl--init-sync (buffer-name endpoint update-function) "Initialize BUFFER-NAME with timeline targeted by ENDPOINT. @@ -1661,13 +1662,11 @@ Runs synchronously." #'mastodon-tl--update-timestamps-callback (current-buffer) nil))) - (when (and (not (equal json '[])) - (or (equal endpoint "notifications") - (string-prefix-p "timelines" endpoint) - (string-prefix-p "favourites" endpoint) - (string-prefix-p "statuses" endpoint)) - (mastodon-tl--goto-first-item)))) - buffer)) + (when ;(and (not (equal json '[])) + ;; for everything save profiles: + (not (string-prefix-p "accounts" endpoint)) + (mastodon-tl--goto-first-item))) + buffer)) (provide 'mastodon-tl) ;;; mastodon-tl.el ends here -- cgit v1.2.3