aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-01-14 09:16:02 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-01-14 09:16:02 +0100
commitc1731fda740af4850109531b2fd1ebd9dee3a07d (patch)
tree4552acf7a1c0092017662478a02396e1e8d00f73 /lisp/mastodon-tl.el
parent69dcaa6136a31553674f85fc6f1536a2167e1307 (diff)
add fun --timeline-proper-p
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el7
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))))