diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-12 17:41:25 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-12 17:41:25 +0200 |
| commit | 2d905fe0b92745eff1c6ba1c24f614e951bf5e46 (patch) | |
| tree | 874c117b7a914bc88e0383c6081e516d44099bfe /lisp | |
| parent | 0b65ec90bd829530fe8bef843f873c3ecc6c0721 (diff) | |
store metadata fields in a normal alist
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 012e357..38aceae 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -406,11 +406,11 @@ This endpoint only holds a few preferences. For others, see (defun mastodon-profile--fields-get (account) "Fetch the fields vector (aka profile metadata) from profile of ACCOUNT. -Returns a list of lists." +Returns an alist." (let ((fields (mastodon-profile--account-field account 'fields))) (when fields (mapcar (lambda (el) - (list (alist-get 'name el) + (cons (alist-get 'name el) (alist-get 'value el))) fields)))) @@ -424,7 +424,7 @@ Returns a list of lists." (concat (format "_ %s " (car field)) (make-string (- (+ 1 left-width) (length (car field))) ?_) - (format " :: %s" (cadr field))) + (format " :: %s" (cdr field))) field)) ; hack to make links tabstops fields ""))) |