diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-18 14:13:53 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-18 15:28:56 +0100 |
| commit | 70ad53998f0042c194fb28d09afc0398ac5aaad6 (patch) | |
| tree | 637bfe71c8d91c9415aed6dad6c6ae75cc1ff4bd /lisp | |
| parent | 945bedc26c358dc20d34a4546ac6fc9f0641e2ee (diff) | |
profile.el: autoload and docstring
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 668a82f..29ed077 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -82,6 +82,7 @@ (autoload 'mastodon-tl--profile-buffer-p "mastodon tl") (autoload 'mastodon-tl--buffer-type-eq "mastodon tl") (autoload 'mastodon-toot--count-toot-chars "mastodon-toot") +(autoload 'mastodon-tl--interactive-user-handles-get "mastodon-tl") (defvar mastodon-instance-url) (defvar mastodon-tl--buffer-spec) @@ -764,7 +765,7 @@ If toot is a boost, opens the profile of the booster." (defun mastodon-profile--image-from-account (account img-type) "Return a avatar image from ACCOUNT. -IMG_TYPE is the JSON key from the account data." +IMG-TYPE is the JSON key from the account data." (let ((img (alist-get img-type account))) (unless (equal img "/avatars/original/missing.png") (mastodon-media--get-media-link-rendering img)))) @@ -958,7 +959,8 @@ Send an empty note to clear an existing one." "add a note to")) (defun mastodon-profile--post-private-note-to-account (id handle note-old) - "POST a private note onto an account ID with user HANDLE on the server." + "POST a private note onto an account ID with user HANDLE on the server. +NOTE-OLD is the text of any existing note." (let* ((note (read-string (format "Add private note to account %s: " handle) note-old)) (params `(("comment" . ,note))) |