diff options
| -rw-r--r-- | lisp/mastodon-http.el | 3 | ||||
| -rw-r--r-- | lisp/mastodon-tl.el | 7 | ||||
| -rw-r--r-- | mastodon-index.org | 2 |
3 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 4721087..60654ff 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 3d33e86..67e13b6 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 0e0d739..4dd5ae3 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. | |