master 18ebe6c: Fix the look of the <video> elements in shr

[Lars Ingebrigtsen]

branch: master
commit 18ebe6c4da30857d864e54ecd1944c102593624d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix the look of the <video> elements in shr
    
    * lisp/net/shr.el (shr-tag-video): Tweak the look of the video element.
---
 lisp/net/shr.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 9b00ff6..71c18ff 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1696,7 +1696,7 @@ The preference is a float determined from 
`shr-prefer-media-type'."
             (xwidget-webkit-execute-script
              widget (format "document.body.innerHTML = %S;"
                             (format
-                             "<video autoplay loop muted><source src=%S 
type='video/mp4\'></source></video>"
+                             "<style>body { margin: 0px; }</style><div 
style='background: black; height: 100%%; display: flex; align-items: center; 
justify-content: center;'><video autoplay loop muted controls style='max-width: 
100%%; max-height: 100%%;'><source src=%S 
type='video/mp4\'></source></video></div>"
                              url)))))
       ;; No xwidgets.
       (if (> (length image) 0)