aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-04-01 17:24:03 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-04-01 17:24:03 +0200
commit9ac865cb0c418d9a651a3e617e14ca60facc5936 (patch)
treefaa0967dfd70f8b75f9b79a7705c7f1c3533f337 /lisp
parent08dc0d1990754a94cf2dc0899c8a579bb485c377 (diff)
prefix args for list-followed-tags and followed-tags-timelines
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-tl.el18
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 46ea5da..794b198 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2074,22 +2074,24 @@ If TAG is provided, unfollow it."
(lambda ()
(message "tag #%s unfollowed!" tag)))))
-(defun mastodon-tl--list-followed-tags ()
- "List followed tags. View timeline of tag user choses."
- (interactive)
+(defun mastodon-tl--list-followed-tags (&optional prefix)
+ "List followed tags. View timeline of tag user choses.
+Prefix is sent to `mastodon-tl--get-tag-timeline', which see."
+ (interactive "p")
(let* ((followed-tags-json (mastodon-tl--followed-tags))
(tags (mastodon-tl--map-alist 'name followed-tags-json))
(tag (completing-read "Tag: " tags nil)))
(if (null tag)
(message "You have to follow some tags first.")
- (mastodon-tl--get-tag-timeline nil tag))))
+ (mastodon-tl--get-tag-timeline prefix tag))))
-(defun mastodon-tl--followed-tags-timeline ()
- "Open a timeline of all your followed tags."
- (interactive)
+(defun mastodon-tl--followed-tags-timeline (&optional prefix)
+ "Open a timeline of all your followed tags.
+Prefix is sent to `mastodon-tl--show-tag-timeline', which see."
+ (interactive "p")
(let* ((followed-tags-json (mastodon-tl--followed-tags))
(tags (mastodon-tl--map-alist 'name followed-tags-json)))
- (mastodon-tl--show-tag-timeline nil tags)))
+ (mastodon-tl--show-tag-timeline prefix tags)))