diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2023-10-24 13:48:19 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2023-10-24 13:48:19 +0200 |
| commit | f7ec0268e0fcf4d9f6f80ae3d246d878d9350cc8 (patch) | |
| tree | 2df57441ea58de85820457dd308f9f6cc9a32c09 /lisp/mastodon-views.el | |
| parent | e954ae162cb559f35373e1203f0225a470f65c98 (diff) | |
FIX #502. add "exclusive" param to create/edit lists.
Diffstat (limited to 'lisp/mastodon-views.el')
| -rw-r--r-- | lisp/mastodon-views.el | 11 |
1 files 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))) |