From 18ebe6c4da30857d864e54ecd1944c102593624d Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 10 Nov 2021 02:31:54 +0100
Subject: [PATCH] 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 9b00ff6aa30..71c18ff9947 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)
-- 
2.39.5