aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2022-03-10 13:09:47 +0100
committermousebot <mousebot@riseup.net>2022-03-10 13:09:47 +0100
commita14ecfce170e82ae610247b8ed1854077deed8c0 (patch)
tree110797b752882328b1c8b52b1988a7adf9677505 /lisp/mastodon-tl.el
parentd90c104299636f2525f8b77001b4374e5b0df72a (diff)
display image caption in help echo
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 7a346c1..6cd3ff0 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -817,10 +817,11 @@ message is a link which unhides/hides the main body."
(or (alist-get 'remote_url media-attachement)
;; fallback b/c notifications don't have remote_url
(alist-get 'url media-attachement)))
- (type (alist-get 'type media-attachement)))
+ (type (alist-get 'type media-attachement))
+ (caption (alist-get 'description media-attachement)))
(if mastodon-tl--display-media-p
(mastodon-media--get-media-link-rendering
- preview-url remote-url type) ; 2nd arg for shr-browse-url
+ preview-url remote-url type caption) ; 2nd arg for shr-browse-url
(concat "Media::" preview-url "\n"))))
media-attachements "")))
(if (not (and mastodon-tl--display-media-p