From b6e07b0a9559fb4fb9dcdeed1057085ed7a650eb Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 11 Apr 2023 15:40:09 +0200 Subject: add some-followed-tags-timeline --- lisp/mastodon-tl.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 794b198..e90be9a 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -414,7 +414,9 @@ With a double PREFIX arg, limit results to your own instance." (let ((list (mastodon-http--build-array-params-alist "any[]" (cdr tag)))) (while list (push (pop list) params)))) - (mastodon-tl--init (concat "tag-" (if (listp tag) "followed-tags" tag)) + (mastodon-tl--init (if (listp tag) + "tags-multiple" + (concat "tag-" tag)) (concat "timelines/tag/" (if (listp tag) ;; endpoint needs to be /tag/:sometag (car tag) tag)) @@ -2093,6 +2095,16 @@ Prefix is sent to `mastodon-tl--show-tag-timeline', which see." (tags (mastodon-tl--map-alist 'name followed-tags-json))) (mastodon-tl--show-tag-timeline prefix tags))) +(defun mastodon-tl--some-followed-tags-timeline (&optional prefix) + "Prompt for some tags, and open a timeline for them. +The suggestions are from followed tags, but any other tags are also allowed." + (interactive "p") + (let* ((followed-tags-json (mastodon-tl--followed-tags)) + (tags (mastodon-tl--map-alist 'name followed-tags-json)) + (selection (completing-read-multiple + "Tags' timelines to view [TAB to view, comma to separate]: " + tags))) + (mastodon-tl--show-tag-timeline prefix selection))) ;;; UPDATING, etc. -- cgit v1.2.3