[nongnu] elpa/mastodon f7ec0268e0 32/52: FIX #502. add "exclusive" param to create/edit lists.

[ELPA Syncer]

branch: elpa/mastodon
commit f7ec0268e0fcf4d9f6f80ae3d246d878d9350cc8
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    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 423f1a151b..a6f319b25d 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)))