diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-10-30 11:53:19 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-10-30 11:53:46 +0100 |
| commit | 31b42363969ac5fbcba444c59c32dd142054bbd9 (patch) | |
| tree | aab149f2bfd20616c176a43f38c4d78ae63fa8b0 /lisp | |
| parent | 075f1f9ba41100a0fb3161598065a55bf09aaedd (diff) | |
docstrings
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 33c4181..505dbc4 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -366,7 +366,8 @@ Current settings are fetched from the server." (mastodon-profile--edit-string-value 'display_name)) (defun mastodon-profile--make-meta-fields-params (fields) - "Construct a parameter query string from metadata alist FIELDS." + "Construct a parameter query string from metadata alist FIELDS. +Returns an alist." (let ((keys (cl-loop for count from 1 to 5 collect (cons (format "fields_attributes[%s][name]" count) (format "fields_attributes[%s][value]" count))))) @@ -392,7 +393,8 @@ Current settings are fetched from the server." "metadata fields" fields-updated))))) (defun mastodon-profile--update-meta-fields-alist () - "Prompt for new metadata fields information." + "Prompt for new metadata fields information. +Returns the results as an alist." (let ((fields-old (mastodon-profile--fields-get nil ;; we must fetch the plaintext version: |