diff options
| author | mousebot <mousebot@riseup.net> | 2022-02-12 10:53:58 +0100 |
|---|---|---|
| committer | mousebot <mousebot@riseup.net> | 2022-02-12 10:53:58 +0100 |
| commit | 449929b5734e34aaca226fe1475fd59a10023535 (patch) | |
| tree | 1c55da16dbfb70f81cc3533a09c0788ed9bb7118 /lisp/mastodon-tl.el | |
| parent | 7b9605fe57b0ca65e48f8d6e8a735833cf6cea57 (diff) | |
add c-ret binding to author-byline help echo
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 11 |
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." |