From f7ec0268e0fcf4d9f6f80ae3d246d878d9350cc8 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 24 Oct 2023 13:48:19 +0200 Subject: FIX #502. add "exclusive" param to create/edit lists. --- lisp/mastodon-views.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 423f1a1..a6f319b 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -290,10 +290,13 @@ If ID is provided, use that list." (replies-policy (completing-read "Replies policy: " ; give this a proper name '("followed" "list" "none") nil t nil nil "list")) + (exclusive (when (y-or-n-p "Exclude items from home timeline? ") + "true")) (url (mastodon-http--api (format "lists/%s" id))) (response (mastodon-http--put url `(("title" . ,name-choice) - ("replies_policy" . ,replies-policy))))) + ("replies_policy" . ,replies-policy) + ("exclusive" . ,exclusive))))) (mastodon-http--triage response (lambda () (with-current-buffer response @@ -332,10 +335,12 @@ Prompt for name and replies policy." (replies-policy (completing-read "Replies policy: " ; give this a proper name '("followed" "list" "none") nil t nil nil "list")) ; default + (exclusive (when (y-or-n-p "Exclude items from home timeline? ") + "true")) (response (mastodon-http--post (mastodon-http--api "lists") `(("title" . ,title) - ("replies_policy" . ,replies-policy)) - nil))) + ("replies_policy" . ,replies-policy) + ("exclusive" . ,exclusive))))) (mastodon-views--list-action-triage response "list %s created!" title))) -- cgit v1.2.3