[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: website: utils: Use poster attribute for video ta
From: |
Ricardo Wurmus |
Subject: |
branch master updated: website: utils: Use poster attribute for video tags. |
Date: |
Wed, 15 Apr 2020 10:02:18 -0400 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: website: utils: Use poster attribute for video tags.,
Ricardo Wurmus <=