branch: elpa/mastodon
commit 9785650845b3f1d988b080ff14e166bbd390863e
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
docstring and index
---
lisp/mastodon-http.el | 3 ++-
lisp/mastodon-tl.el | 7 +++++--
mastodon-index.org | 2 +-
3 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el
index 47210873c7..60654ff5a6 100644
--- a/lisp/mastodon-http.el
+++ b/lisp/mastodon-http.el
@@ -142,9 +142,10 @@ Used for API form data parameters that take an array."
"POST synchronously to URL, optionally with PARAMS and HEADERS.
Authorization header is included by default unless
UNAUTHENTICATED-P is non-nil.
-
If JSON is :json, encode PARAMS as JSON for
the request data. If it is :raw, just use the plain params."
+ ;; NB: raw is used by `mastodon-tl--unfilter-user-languages'; not sure if
+ ;; there's a way around it?
(mastodon-http--authorized-request "POST"
(let* ((url-request-data
(when params
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 3d33e867f9..67e13b654b 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2103,12 +2103,15 @@ desired language if they are not marked as such (or as
anything)."
(mastodon-tl--follow-user user-handle nil langs))))
(defun mastodon-tl--unfilter-user-languages (user-handle)
- ""
+ "Remove any language filters for USER-HANDLE.
+This means you will receive posts of theirs marked as being in
+any or no language."
(interactive
(list (mastodon-tl--user-handles-get "filter by language")))
(let ((langs "languages[]"))
(mastodon-tl--do-if-item
- ;; we need ("languages[]") as a param, with no "="
+ ;; we need "languages[]" as a param, with no "=" and not json-encoded as
+ ;; a string
(mastodon-tl--follow-user user-handle nil langs nil :raw))))
(defun mastodon-tl--read-filter-langs (&optional langs)
diff --git a/mastodon-index.org b/mastodon-index.org
index 0e0d739f7c..4dd5ae3b24 100644
--- a/mastodon-index.org
+++ b/mastodon-index.org
@@ -140,7 +140,7 @@
| | mastodon-tl--toggle-spoiler-in-thread |
Toggler content warning for all posts in current thread. |
| c | mastodon-tl--toggle-spoiler-text-in-toot |
Toggle the visibility of the spoiler text in the current toot. |
| C-S-b | mastodon-tl--unblock-user | Query
for USER-HANDLE from list of blocked users and unblock that user. |
-| | mastodon-tl--unfilter-user-languages |
|
+| | mastodon-tl--unfilter-user-languages |
Remove any language filters for USER-HANDLE. |
| | mastodon-tl--unfollow-tag |
Prompt for a followed tag, and unfollow it. |
| C-S-w | mastodon-tl--unfollow-user | Query
for USER-HANDLE from current status and unfollow that user. |
| | mastodon-tl--unmute-thread | Mute
the thread displayed in the current buffer. |
