diff options
| author | mousebot <mousebot@riseup.net> | 2022-01-15 17:40:17 +0100 |
|---|---|---|
| committer | mousebot <mousebot@riseup.net> | 2022-01-15 17:40:17 +0100 |
| commit | cc5e11851daa8979521520a1912a83e6ced26a00 (patch) | |
| tree | bccbcbf1973bf6d2e729c525a2841cafc2e78a31 | |
| parent | c8a1f4e982c31de97ab2c333513ca9f84ed16991 (diff) | |
disable moving image overlay
due to the bug the displays it before (point-min) if you load a timeline more
than once :/
| -rw-r--r-- | lisp/mastodon-media.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index 3789d5d..54d5430 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -271,21 +271,21 @@ Replace them with the referenced image." ;; proceed to load this image asynchronously (put-text-property start end 'media-state 'loading) (mastodon-media--load-image-from-url - image-url media-type start (- end start)) - (mastodon-media--moving-image-overlay start end))))))) + image-url media-type start (- end start)))))))) + ;; (mastodon-media--moving-image-overlay start end))))))) -(defun mastodon-media--moving-image-overlay (start end) - "Add play symbol overlay to moving image media items." - (let ((ov (make-overlay start end)) - (type (get-text-property start 'mastodon-media-type))) - (when (or (equal type "gifv") - (equal type "video")) - (overlay-put - ov - 'after-string - (propertize " " - 'face - '((:height 1.5 :inherit 'font-lock-comment-face))))))) +;; (defun mastodon-media--moving-image-overlay (start end) +;; "Add play symbol overlay to moving image media items." +;; (let ((ov (make-overlay start end)) +;; (type (get-text-property start 'mastodon-media-type))) +;; (when (or (equal type "gifv") +;; (equal type "video")) +;; (overlay-put +;; ov +;; 'after-string +;; (propertize " " +;; 'face +;; '((:height 1.5 :inherit 'font-lock-comment-face))))))) (defun mastodon-media--get-avatar-rendering (avatar-url) "Return the string to be written that renders the avatar at AVATAR-URL." |