diff options
| author | mousebot <mousebot@riseup.net> | 2021-05-16 13:05:26 +0200 |
|---|---|---|
| committer | mousebot <mousebot@riseup.net> | 2021-05-16 13:18:19 +0200 |
| commit | e1269b9fbf87013a9909cfced340fa47f43dc33a (patch) | |
| tree | a702894fb21469b49bf5f56f7296e5e317740f3f /lisp/mastodon-profile.el | |
| parent | 508e3faeceb03ad14bb350d0da56552edf33ccc2 (diff) | |
display pinned toots first on a user's profile.
also: profile--relationships-get no longer interactive.
and docstrings for fields insert.
indent "pinned" for pinned toots display
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index ec3dd0f..11ad02e 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -101,8 +101,7 @@ following the current profile." (error "Not in a mastodon profile"))) (defun mastodon-profile--relationships-get (id) - "Fetch info about logged in user's relationship to user with id ID." - (interactive) + "Fetch info about logged-in user's relationship to user with id ID." (let* ((their-id id) (url (mastodon-http--api (format "accounts/relationships?id[]=%s" @@ -110,7 +109,7 @@ following the current profile." (mastodon-http--get-json url))) (defun mastodon-profile--fields-get (account) - "Fetch the fields vector from a profile. + "Fetch the fields vector (a.k.a profile metadata) from a profile. Returns a list of lists." (let ((fields (mastodon-profile--account-field account 'fields))) @@ -123,7 +122,7 @@ Returns a list of lists." fields)))) (defun mastodon-profile--fields-insert (fields) - "Format and insert field pairs in FIELDS." + "Format and insert field pairs (a.k.a profile metadata) in FIELDS." (let* ((car-fields (mapcar 'car fields)) ;; (cdr-fields (mapcar 'cadr fields)) ;; (cdr-fields-rendered |