diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-30 16:47:55 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-11 09:54:24 +0200 |
commit | 6afc7b87d289265f464f9ad191c2245caf1a3223 (patch) | |
tree | 75f1e965399c73d3526e95a2157a149d5f6f3c12 | |
parent | c7779e8e8ad172be64aa98ee62a83b54185e3bce (diff) |
add play symbol after videos in tl.
-rw-r--r-- | lisp/mastodon-media.el | 7 |
1 files changed, 6 insertions, 1 deletions
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))))))) |