From c3e1c3403f8a308894f5c335b4a060def85b4d4d Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Tue, 15 Nov 2022 11:28:30 +0100
Subject: add delete and edit lists

---
 lisp/mastodon-http.el | 16 ++++++++++++++++
 lisp/mastodon-tl.el   | 37 +++++++++++++++++++++++++++++++++++++
 2 files changed, 53 insertions(+)

diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el
index 106c76b..843afc1 100644
--- a/lisp/mastodon-http.el
+++ b/lisp/mastodon-http.el
@@ -216,6 +216,22 @@ Callback to `mastodon-http--get-response-async', usually
      (with-temp-buffer
        (mastodon-http--url-retrieve-synchronously url)))))
 
+(defun mastodon-http--put (url &optional args headers)
+  "Make PUT request to URL."
+  (mastodon-http--authorized-request
+   "PUT"
+   (let ((url-request-data
+          (when args
+            (mastodon-http--build-query-string args)))
+         (url-request-extra-headers
+          (append url-request-extra-headers ; auth set in macro
+                  ;; pleroma compat:
+                  (unless (assoc "Content-Type" headers)
+                    '(("Content-Type" . "application/x-www-form-urlencoded")))
+                  headers)))
+     (with-temp-buffer
+       (mastodon-http--url-retrieve-synchronously url)))))
+
 (defun mastodon-http--append-query-string (url params)
   "Append PARAMS to URL as query strings and return it.
 
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index e28da63..f1941a5 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -71,6 +71,8 @@
 (autoload 'mastodon-http--get-response-async "mastodon-http")
 (autoload 'mastodon-url-lookup "mastodon")
 (autoload 'mastodon-auth--get-account-id "mastodon-auth")
+(autoload 'mastodon-http--put "mastodon-http")
+(autoload 'mastodon-http--process-json "mastodon-http")
 (when (require 'mpv nil :no-error)
   (declare-function mpv-start "mpv"))
 (defvar mastodon-instance-url)
@@ -1380,6 +1382,28 @@ ID is that of the toot to view."
          (response (mastodon-http--get-json url)))
     (alist-get 'title response)))
 
+(defun mastodon-tl--edit-list ()
+  "Prompt for a list and edit the name and replies policy."
+  (interactive)
+  (let* ((list-names (mastodon-tl--get-lists-names))
+         (name-old (completing-read "Edit list: "
+                                    list-names))
+         (id (mastodon-tl--get-list-id name-old))
+         (name-choice (read-string "List name: " name-old))
+         (replies-policy (completing-read "Replies policy: " ; give this a proper name
+                                          '("followed" "list" "none")
+                                          nil t nil nil "list"))
+         (url (mastodon-http--api (format "lists/%s" id)))
+         (response (mastodon-http--put url
+                                       `(("title" . ,name-choice)
+                                         ("replies_policy" . ,replies-policy)))))
+    (mastodon-http--triage response
+                           (lambda ()
+                             (with-current-buffer response
+                               (let* ((json (mastodon-http--process-json))
+                                      (name-new (alist-get 'title json)))
+                                 (message "list %s edited to %s!" name-old name-new)))))))
+
 (defun mastodon-tl--view-list-timeline ()
   "Prompt for a list and view its timeline."
   (interactive)
@@ -1408,6 +1432,19 @@ Prompt for name and replies policy."
                            (lambda ()
                              (message "list %s created!" title)))))
 
+(defun mastodon-tl--delete-list ()
+  "Prompt for a list and delete it."
+  (interactive)
+  (let* ((list-names (mastodon-tl--get-lists-names))
+         (name (completing-read "Delete list: "
+                                list-names))
+         (id (mastodon-tl--get-list-id name))
+         (url (mastodon-http--api (format "lists/%s" id)))
+         (response (mastodon-http--delete url)))
+    (mastodon-http--triage response
+                           (lambda ()
+                             (message "list %s deleted!" name)))))
+
 (defun mastodon-tl--get-users-followings ()
   "Return the list of followers of the logged in account."
   (let* ((id (mastodon-auth--get-account-id))
-- 
cgit v1.2.3