aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-04-15 20:38:04 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-04-15 20:38:57 +0200
commit597d3a1f6e62df80f67fcb378342d2e2fdfeb96a (patch)
treeab2b612c1220a92371b090eeb495d27d53a282ff /lisp
parentaa635a3a389b184e54fc26270bc6037632ad596c (diff)
docstring + actual request for report-to-mods
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-tl.el15
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index aa016cf..3ebcec1 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2103,7 +2103,8 @@ Prefix is sent to `mastodon-tl--show-tag-timeline', which see."
(mastodon-http--get-json url nil :silent)))
(defun mastodon-tl--report-to-mods ()
- ""
+ "Report the author of the toot at point to your instance moderators.
+Optionally report the toot at point, optionally add a comment, optionally cite rules that have been broken, optionally forward the report to the remove admin, optionally report the account for spam."
(interactive)
(when (y-or-n-p (format "report author of toot at point?"))
(let* ((url (mastodon-http--api "reports"))
@@ -2136,13 +2137,11 @@ Prefix is sent to `mastodon-tl--show-tag-timeline', which see."
alist)))
;; FIXME: the above approach adds nils to your params.
(setq params (delete nil params))
- (message "%s" (prin1-to-string params))
- (let ((response ;; (mastodon-http--post-async url params)))
- ;; (mastodon-http--triage response
- ;; (lambda (response)
- ;; (message "User %s reported!" handle)))
- ;; )))
- ))))))
+ ;; (message "%s" (prin1-to-string params))
+ (let ((response (mastodon-http--post-async url params)))
+ (mastodon-http--triage response
+ (lambda (response)
+ (message "User %s reported!" handle)))))))
(defun mastodon-tl--read-rules-ids ()
"Prompt for a list of instance rules and return a list of selected ids."