aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/mastodon-media.el3
-rw-r--r--lisp/mastodon-notifications.el4
-rw-r--r--lisp/mastodon-tl.el3
3 files changed, 7 insertions, 3 deletions
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el
index 383e062..e5a1111 100644
--- a/lisp/mastodon-media.el
+++ b/lisp/mastodon-media.el
@@ -310,7 +310,8 @@ Replace them with the referenced image."
(defun mastodon-media--get-media-link-rendering (media-url &optional full-remote-url type caption)
"Return the string to be written that renders the image at MEDIA-URL.
FULL-REMOTE-URL is used for `shr-browse-image'.
-TYPE is the attachment's type field on the server."
+TYPE is the attachment's type field on the server.
+CAPTION is the image caption if provided."
(let* ((help-echo-base "RET/i: load full image (prefix: copy URL), +/-: zoom, r: rotate, o: save preview")
(help-echo (if caption
(concat help-echo-base
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index 6b253ec..5de7354 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -233,7 +233,9 @@ such as boosting favouriting and following to the byline. It also
takes a single function. By default it is
`mastodon-tl--byline-boosted'.
-ID is the notification's own id, which is attached as a property."
+ID is the notification's own id, which is attached as a property.
+If the status is a favourite or a boost, PARENT-TOOT is the JSON
+of the toot responded to."
(when toot ; handle rare blank notif server bug
(mastodon-tl--insert-status toot body author-byline action-byline id parent-toot)))
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 40cbcae..3c96ecc 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -865,7 +865,8 @@ takes a single function. By default it is
`mastodon-tl--byline-boosted'.
ID is that of the toot, which is attached as a property if it is
-a notification."
+a notification. If the status is a favourite or a boost,
+PARENT-TOOT is the JSON of the toot responded to."
(let ((start-pos (point)))
(insert
(propertize