branch master updated: website: utils: Use poster attribute for video tags.

[Ricardo Wurmus]

This is an automated email from the git hooks/post-receive script.

rekado pushed a commit to branch master
in repository guix-artwork.

The following commit(s) were added to refs/heads/master by this push:
     new d6d017b  website: utils: Use poster attribute for video tags.
d6d017b is described below

commit d6d017bdf133614ae9f35bc477ab7b0a9fa437a8
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Wed Apr 15 16:01:28 2020 +0200

    website: utils: Use poster attribute for video tags.
    
    * website/apps/blog/utils.scm (change-image-to-video): Add poster
    attribute.
---
 website/apps/blog/utils.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/website/apps/blog/utils.scm b/website/apps/blog/utils.scm
index b5d1368..7fd1581 100644
--- a/website/apps/blog/utils.scm
+++ b/website/apps/blog/utils.scm
@@ -138,7 +138,9 @@ tags.  This hack allows one to refer to a video from a 
Markdown document."
            (alt (match (assoc 'alt attributes)
                   ((_ text) text))))
        (if (string-suffix? ".webm" src)
-           `(video (@ (src ,src) (controls "controls"))
+           `(video (@ (src ,src)
+                      (poster ,(string-append src ".poster.png"))
+                      (controls "controls"))
                    (p (a (@ (href ,src) (class "link-subtle"))
                          "Download video.")))
            sxml)))