diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-01 17:24:03 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-01 17:24:03 +0200 |
| commit | 9ac865cb0c418d9a651a3e617e14ca60facc5936 (patch) | |
| tree | faa0967dfd70f8b75f9b79a7705c7f1c3533f337 | |
| parent | 08dc0d1990754a94cf2dc0899c8a579bb485c377 (diff) | |
prefix args for list-followed-tags and followed-tags-timelines
| -rw-r--r-- | lisp/mastodon-tl.el | 18 |
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))) |