1 files changed, 25 insertions, 17 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 05189a2..96f8f10 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -348,33 +348,41 @@ Used on initializing a timeline or thread."
 
 ;;; TIMELINES
 
-(defun mastodon-tl--get-federated-timeline ()
-  "Opens federated timeline."
+(defun mastodon-tl--get-federated-timeline (&optional local)
+  "Open federated timeline.
+If LOCAL, get only local timeline.
+With a single prefix arg (C-u), hide-replies.
+With a double prefix arg (C-u C-u), only show posts with media."
   (interactive)
   (message "Loading federated timeline...")
   (mastodon-tl--init
-   "federated" "timelines/public" 'mastodon-tl--timeline nil
-   `(("limit" . ,mastodon-tl--timeline-posts-count))
-   (when current-prefix-arg t)))
+   (if local "local" "federated")
+   "timelines/public" 'mastodon-tl--timeline nil
+   `(("limit" . ,mastodon-tl--timeline-posts-count)
+     ,(when (eq (car current-prefix-arg) 16)
+        '("only_media" . "true"))
+     ,(when local
+        '("local" . "true")))
+   (when (eq (car current-prefix-arg) 4) t)))
 
 (defun mastodon-tl--get-home-timeline ()
-  "Opens home timeline."
+  "Open home timeline.
+With a single prefix arg (C-u), hide-replies."
   (interactive)
-  (message "Loading home timeline...")
-  (mastodon-tl--init
-   "home" "timelines/home" 'mastodon-tl--timeline nil
-   `(("limit" . ,mastodon-tl--timeline-posts-count))
-   (when current-prefix-arg t)))
+  (let ((params ))
+    (message "Loading home timeline...")
+    (mastodon-tl--init
+     "home" "timelines/home" 'mastodon-tl--timeline nil
+     `(("limit" . ,mastodon-tl--timeline-posts-count))
+     (when (eq (car current-prefix-arg) 4) t))))
 
 (defun mastodon-tl--get-local-timeline ()
-  "Opens local timeline."
+  "Open local timeline.
+With a single prefix arg (C-u), hide-replies.
+With a double prefix arg (C-u C-u), only show posts with media."
   (interactive)
   (message "Loading local timeline...")
-  (mastodon-tl--init
-   "local" "timelines/public" 'mastodon-tl--timeline
-   nil `(("local" . "true")
-         ("limit" . ,mastodon-tl--timeline-posts-count))
-   (when current-prefix-arg t)))
+  (mastodon-tl--get-federated-timeline :local))
 
 (defun mastodon-tl--get-tag-timeline (&optional tag)
   "Prompt for tag and opens its timeline.