diff options
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 51abb6e..0fcb3a3 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -3393,6 +3393,18 @@ NO-BYLINE means just insert toot body, used for announcements." (unless (mastodon-tl--profile-buffer-p) (mastodon-tl--goto-first-item))) +(defun mastodon-tl--remote-suspended-p (domain) + (ignore-errors + (alist-get 'suspended + (mastodon-http--get-json + (format "https://%s/api/v1/accounts/lookup" + domain ) + `(("acct" . ,(format "%s@%s" + mastodon-active-user + (url-host + (url-generic-parse-url mastodon-instance-url))))) + t)))) + ;;; BOOKMARKS (require 'bookmark) |