From 1bb072bb2d142c41b65d512466a637f19905b7a2 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Wed, 5 Apr 2023 13:10:40 +0200
Subject: remove stray multi-accounts code

---
 lisp/mastodon-views.el | 1 -
 1 file changed, 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 38344b3..de498f3 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -817,7 +817,6 @@ INSTANCE is the instance were are working with."
           (mastodon-views--print-json-keys response)
           ;; (mastodon-mode) ; breaks our 'q' binding that avoids leaving
           ;; split window
-          (setq mastodon-account--data account)
           (mastodon-tl--set-buffer-spec (buffer-name buf)
                                         "instance"
                                         nil)
-- 
cgit v1.2.3


From b6e07b0a9559fb4fb9dcdeed1057085ed7a650eb Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
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(-)

(limited to 'lisp')

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


From e54deed13f3ccf3dc14d9a77417ee0688dc30987 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Wed, 12 Apr 2023 10:05:02 +0200
Subject: discover typo

---
 lisp/mastodon-discover.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-discover.el b/lisp/mastodon-discover.el
index c06de1f..57c4bd1 100644
--- a/lisp/mastodon-discover.el
+++ b/lisp/mastodon-discover.el
@@ -79,7 +79,7 @@
         ("Views"
          ("h/?" "View mode help/keybindings" describe-mode)
          ("#" "Tag search" mastodon-tl--get-tag-timeline)
-         (";" "List followed tags" mastodon-tl--list-followed-tags)
+         (":" "List followed tags" mastodon-tl--list-followed-tags)
          ("F" "Federated" mastodon-tl--get-federated-timeline)
          ("H" "Home" mastodon-tl--get-home-timeline)
          ("L" "Local" mastodon-tl--get-local-timeline)
-- 
cgit v1.2.3