aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-tl.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 3b3b692..cfab15d 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -120,8 +120,7 @@ If nil `(point-min)' is used instead.")
(defun mastodon-tl--get-media-types (toot)
"Return a list of the media attachment types of the TOOT at point."
- (let* (;(toot (mastodon-tl--property 'toot-json))
- (medias (or (alist-get 'media_attachments
+ (let* ((medias (or (alist-get 'media_attachments
(alist-get 'reblog toot))
(alist-get 'media_attachments toot))))
(mapcar (lambda (x)
@@ -350,8 +349,12 @@ i.e. where `mastodon-tl--goto-next-toot' leaves point."
(alist-get 'replies_count toot-to-count)))
(format-media (when media-types
(format " | media: %s"
- (mapconcat #'identity media-types " ")))))
- (format "%s" (concat format-faves format-media))))
+ (mapconcat #'identity media-types " "))))
+ (format-media-binding (when (or
+ (member "video" media-types)
+ (member "gifv" media-types))
+ (format " | C-RET to view with mpv"))))
+ (format "%s" (concat format-faves format-media format-media-binding))))
(defun mastodon-tl--get-attachments-for-byline (toot)
"Return a list of attachment URLs and types for TOOT."