diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-28 14:25:54 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-28 14:25:54 +0100 |
| commit | b6dd92225bfef4bfdbc229791d1c863335d2f403 (patch) | |
| tree | 4de176f7a6257660681cd24010f885fa437721e7 /lisp/mastodon-profile.el | |
| parent | f5985d7c762ca2cffb6c067e83bc4d5b1c678dca (diff) | |
simplify remove from followers
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 36042e7..c2c58f6 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -845,25 +845,7 @@ These include the author, author of reblogged entries and any user mentioned." User may be the current profile page if not your own, or the account ('toot-json) at point if you are on your own profile page (followers)." (interactive) - ;; FIXME: this means you can't choose another account if on a profile page - (let* ((account (unless id - (cond ((and ;; we are on a profile page - mastodon-profile--account - ;; that is not our own: - (not (string= (mastodon-auth--user-acct) - (alist-get 'acct mastodon-profile--account)))) - mastodon-profile--account) - ;; we are on our own profile page: - ((and (string= (mastodon-auth--user-acct) - (alist-get 'acct mastodon-profile--account)) - ;; viewing our followers: - (string= endpoint-type "followers")) - ;; try for a follower at point: - ;; (mastodon-tl--field 'toot-json) - (get-text-property (point) 'toot-json)) - (t - ;; FIXME: do some thing else? - (get-text-property (point) 'toot-json))))) + (let* ((account (unless id (get-text-property (point) 'toot-json))) ;; TODO: read account from list of all followers' handles (id (or id (alist-get 'id account))) (handle (if account |