diff options
| -rw-r--r-- | lisp/mastodon-tl.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 3167f9c..ec9c033 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -303,6 +303,12 @@ Optionally start from POS." (mastodon-tl--goto-toot-pos 'next-single-property-change 'mastodon-tl--more)) +(defun mastodon-tl--goto-prev-toot () + "Jump to last toot header." + (interactive) + (mastodon-tl--goto-toot-pos 'previous-single-property-change + 'mastodon-tl--update)) + (defun mastodon-tl--goto-first-toot () "Jump to first toot or item in buffer. Used on initializing a timeline or thread." @@ -312,11 +318,17 @@ Used on initializing a timeline or thread." (mastodon-tl--goto-toot-pos 'next-single-property-change 'next-line)) ;dummy function as we need to feed it something -(defun mastodon-tl--goto-prev-toot () - "Jump to last toot header." +(defun mastodon-tl--goto-next-item () + "Jump to next item, e.g. filter or follow request." + (interactive) + (mastodon-tl--goto-toot-pos 'next-single-property-change + 'next-line)) + +(defun mastodon-tl--goto-prev-item () + "Jump to previous item, e.g. filter or follow request." (interactive) (mastodon-tl--goto-toot-pos 'previous-single-property-change - 'mastodon-tl--update)) + 'previous-line)) (defun mastodon-tl--remove-html (toot) "Remove unrendered tags from TOOT." @@ -1223,18 +1235,6 @@ JSON is what is returned by by the server." (mastodon-tl--view-filters) (message "Filter for \"%s\" deleted!" phrase))))))) -(defun mastodon-tl--goto-next-item () - "Jump to next item, e.g. filter or follow request." - (interactive) - (mastodon-tl--goto-toot-pos 'next-single-property-change - 'next-line)) - -(defun mastodon-tl--goto-prev-item () - "Jump to previous item, e.g. filter or follow request." - (interactive) - (mastodon-tl--goto-toot-pos 'previous-single-property-change - 'previous-line)) - (defun mastodon-tl--get-follow-suggestions () "Display a buffer of suggested accounts to follow." (interactive) |