diff options
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index bb92378..d271243 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -42,6 +42,9 @@ (autoload 'mastodon-profile--account-from-id "mastodon.el-profile.el") (autoload 'mastodon-profile--make-author-buffer "mastodon-profile.el") (autoload 'mastodon-profile--search-account-by-handle "mastodon.el-profile.el") +;; try an autoload for new follow fun +(autoload 'mastodon-profile--toot-json "mastodon-profile.el") +(autoload 'mastodon-profile--account-field "mastodon-profile.el") (defvar mastodon-instance-url) (defvar mastodon-toot-timestamp-format) (defvar shr-use-fonts) ;; need to declare it since Emacs24 didn't have this @@ -795,6 +798,20 @@ webapp" (lambda () (message "Toot deleted! There may be a delay before it disappears from your profile.")))))) +;; follow user at point: +;; try to make it work only for toot user id first, then try to allow mentions/boosts +(defun mastodon-tl--follow-user () + "Follow author OR BOOSTER! of toot at point synchronously." + (interactive) + (let* ((account + (cdr (assoc 'account (mastodon-profile--toot-json)))) ; acc data from toot + (user-id (mastodon-profile--account-field account 'id)) ; id from acc + (url (mastodon-http--api (format "accounts/%s/follow" user-id)))) + (let ((response (mastodon-http--post url nil nil))) + (mastodon-http--triage response + (lambda () + (message "User ID %s followed!" user-id)))))) ; TODO: use handle + (defun mastodon-tl--more () "Append older toots to timeline." (interactive) |