summaryrefslogtreecommitdiff
path: root/lisp/net/shr.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2021-11-10 02:31:54 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2021-11-10 02:31:54 +0100
commit18ebe6c4da30857d864e54ecd1944c102593624d (patch)
treec837ad02b80d40623fd3bee21c33fb481448cd67 /lisp/net/shr.el
parent63fa896cb0bacd8bbf2fb7755bb3deca5b907103 (diff)
downloademacs-18ebe6c4da30857d864e54ecd1944c102593624d.tar.gz
Fix the look of the <video> elements in shr
* lisp/net/shr.el (shr-tag-video): Tweak the look of the video element.
Diffstat (limited to 'lisp/net/shr.el')
-rw-r--r--lisp/net/shr.el2
1 files changed, 1 insertions, 1 deletions
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)