diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-08 20:01:28 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-08 20:01:28 +0200 |
| commit | fed797d5ea7ade8c4fdbfd6dbba783d8c67105fb (patch) | |
| tree | affe5dd84ae54325482b7cc1c5fcc15c0d8d86ff /lisp | |
| parent | f3298f6d51b78cd904f144d54f3b229a7bb70c6b (diff) | |
audit some more profile.el
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index bd59bac..139301f 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -507,8 +507,7 @@ This endpoint only holds a few preferences. For others, see "Fetch the fields vector (aka profile metadata) from profile of ACCOUNT. Returns an alist. FIELDS means provide a fields vector fetched by other means." - (let ((fields (or fields - (alist-get 'fields account)))) + (let ((fields (or fields (alist-get 'fields account)))) (when fields (mastodon-tl--map-alist-vals-to-alist 'name 'value fields)))) @@ -725,7 +724,7 @@ Used to view a user's followers and those they're following." (insert "\n" (propertize (mastodon-tl--render-text (alist-get 'note toot) nil) - 'toot-json toot) ' + 'toot-json toot) "\n"))) tootv)))) @@ -736,13 +735,12 @@ If the handle does not match a search return then retun NIL." (substring handle 1 (length handle)) handle)) (args `(("q" . ,handle))) - (matching-account - (seq-remove - (lambda (x) - (not (string= (alist-get 'acct x) handle))) - (mastodon-http--get-json - (mastodon-http--api "accounts/search") - args)))) + (matching-account (seq-remove + (lambda (x) + (not (string= (alist-get 'acct x) handle))) + (mastodon-http--get-json + (mastodon-http--api "accounts/search") + args)))) (when (equal 1 (length matching-account)) (elt matching-account 0)))) |