From d8121e7447bf30767cd91523e12429a7a934a2c9 Mon Sep 17 00:00:00 2001
From: mousebot <mousebot@riseup.net>
Date: Tue, 25 May 2021 11:22:26 +0200
Subject: pin/unpin now toggle fun, and moved copy/delete to mastodon-toot.

---
 lisp/mastodon-tl.el | 66 -----------------------------------------------------
 1 file changed, 66 deletions(-)

(limited to 'lisp/mastodon-tl.el')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 85f5641..5bc07e0 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -814,72 +814,6 @@ webapp"
                                     (cdr (assoc 'descendants context))))))
       (message "No Thread!")));)
 
-(defun mastodon-tl--copy-toot-url ()
-  "Copy URL of toot at point."
-  (interactive)
-  (let* ((toot (mastodon-tl--property 'toot-json))
-         (url (if (mastodon-tl--field 'reblog toot)
-                  (cdr (assoc 'url (cdr (assoc 'reblog toot))))
-                (cdr (assoc 'url toot)))))
-    (kill-new url)
-    (message "Toot URL copied to the clipboard.")))
-
-;; TODO redraw buffer on success?
-(defun mastodon-tl--delete-toot ()
-  "Delete user's toot at point synchronously."
-  (interactive)
-  (let* ((toot (mastodon-tl--property 'toot-json))
-         (id (mastodon-tl--as-string (mastodon-tl--toot-id toot)))
-         (url (mastodon-http--api (format "statuses/%s" id))))
-    (if (or (cdr (assoc 'reblog toot))
-            (not (equal (cdr (assoc 'acct
-                                    (cdr (assoc 'account toot))))
-                        (mastodon-auth--user-acct))))
-        (message "You can only delete your own toots.")
-      (if (y-or-n-p (format "Delete this toot? "))
-          (let ((response (mastodon-http--delete url)))
-            (mastodon-http--triage response
-                                   (lambda ()
-                                     (message "Toot deleted!"))))))))
-
-;; TODO: rewrite pin/unpin as toggle functions
-(defun mastodon-tl--pin-toot ()
-  "Pin user's toot at point synchronously."
-  (interactive)
-  (let* ((toot (mastodon-tl--property 'toot-json))
-         (id (mastodon-tl--as-string (mastodon-tl--toot-id toot)))
-         (url (mastodon-http--api (format "statuses/%s/pin" id)))
-         (pinnable-p (and
-                      (not (cdr (assoc 'reblog toot)))
-                      (equal (cdr (assoc 'acct
-                                         (cdr (assoc 'account toot))))
-                             (mastodon-auth--user-acct))))
-         (pinned-p (equal (cdr (assoc 'pinned toot)) t)))
-    (if (not pinnable-p)
-        (message "You can only pin your own toots.")
-      (if pinned-p
-          (message "Looks like toot is already pinned.")
-        (if (y-or-n-p (format "Pin this toot to your profile? "))
-            (let ((response (mastodon-http--post url nil nil)))
-              (mastodon-http--triage response
-                                     (lambda ()
-                                       (message "Toot pinned!")))))))))
-
-(defun mastodon-tl--unpin-toot ()
-  "Unpin user's toot at point synchronously."
-  (interactive)
-  (let* ((toot (mastodon-tl--property 'toot-json))
-         (id (mastodon-tl--as-string (mastodon-tl--toot-id toot)))
-         (url (mastodon-http--api (format "statuses/%s/unpin" id)))
-         (pinned-p (equal (cdr (assoc 'pinned toot)) t)))
-    (if (not pinned-p)
-        (message "No pinned toot to unpin here.")
-      (if (y-or-n-p (format "Unpin this toot? "))
-          (let ((response (mastodon-http--post url nil nil)))
-            (mastodon-http--triage response
-                                   (lambda ()
-                                     (message "Toot unpinned!"))))))))
-
 (defun mastodon-tl--follow-user (user-handle)
   "Query for USER-HANDLE from current status and follow that user."
   (interactive
-- 
cgit v1.2.3