diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-01-14 09:16:02 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-01-14 09:16:02 +0100 |
| commit | c1731fda740af4850109531b2fd1ebd9dee3a07d (patch) | |
| tree | 4552acf7a1c0092017662478a02396e1e8d00f73 /lisp | |
| parent | 69dcaa6136a31553674f85fc6f1536a2167e1307 (diff) | |
add fun --timeline-proper-p
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-tl.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 732e1c0..a240f67 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1485,6 +1485,13 @@ presume we are in a timline of toots or similar elements, such as ;; profile-followers profile following (member (mastodon-tl--get-buffer-type) toot-buffers))) +(defun mastodon-tl--timeline-proper-p () + "Return non-nil if the current buffer is a 'proper' timeline. +A proper timeline excludes notifications, threads, and other toot +buffers that aren't strictly mastodon timelines." + (let ((timeline-buffers '(home federated local tag-timeline profile-statuses))) + (member (mastodon-tl--get-buffer-type) timeline-buffers))) + (defun mastodon-tl--more-json (endpoint id) "Return JSON for timeline ENDPOINT before ID." (let* ((args `(("max_id" . ,(mastodon-tl--as-string id)))) |