From 6afc7b87d289265f464f9ad191c2245caf1a3223 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sun, 30 Apr 2023 16:47:55 +0200 Subject: add play symbol after videos in tl. --- lisp/mastodon-media.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lisp/mastodon-media.el') diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index fd5bb77..1e4d8b1 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -174,7 +174,12 @@ with the image." ;; it; we already have set a default image when we ;; added the tag. (put-text-property marker (+ marker region-length) - 'display image)) + 'display image) + (when (not (equal "image" + (get-text-property marker 'mastodon-media-type))) + (let ((ov (make-overlay marker (+ marker region-length) + (marker-buffer marker)))) + (overlay-put ov 'after-string " ▶")))) ;; We are done with the marker; release it: (set-marker marker nil))) (kill-buffer url-buffer))))))) -- cgit v1.2.3