[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: website: Fix self-closing video element.
From: |
Luis Felipe López Acevedo |
Subject: |
01/01: website: Fix self-closing video element. |
Date: |
Mon, 25 May 2015 03:08:29 +0000 |
felipelopez pushed a commit to branch master
in repository guix-artwork.
commit e0192f2e27bbf8c27bb423f36e3a8cf3eb6bb3c6
Author: Felipe López <address@hidden>
Date: Sun May 24 22:08:54 2015 -0500
website: Fix self-closing video element.
---
website/www.scm | 15 +++++++++------
1 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/website/www.scm b/website/www.scm
index c1777c8..09b9f5c 100644
--- a/website/www.scm
+++ b/website/www.scm
@@ -71,6 +71,9 @@
(map (cut string->date <> "~Y-~m-~d") updated)
author content))))
+(define %video-url
+
"http://audio-video.gnu.org/video/misc/2015-01__GNU_Guix__The_Emacs_of_Distros.webm")
+
(define (sxml->string* tree)
"Flatten tree by dismissing tags and attributes, and return the resulting
string."
@@ -181,15 +184,15 @@ domain-specific languages (EDSLs) to "
(div (@ (id "discovery-box"))
(h2 "Discover GuixSD")
(div (@ (class "info-box text-center"))
- (video (@ (src
"http://audio-video.gnu.org/video/misc/2015-01__GNU_Guix__The_Emacs_of_Distros.webm")
+ (video (@ (src ,%video-url)
(poster
,(image-url "the-emacs-of-distros.png"))
(controls "controls")
- (class "video-preview")))
- (p "January 2015, The Emacs of Distros (48 minutes)")
- (p (a (@ (href ,(base-url "help/#talks"))
- (class "hlink-more-light"))
- "Check all talks")))
+ (class "video-preview"))
+ (p "Video: "
+ (a (@ (href ,%video-url)
+ (class "hlink-more-light"))
+ "The Emacs of Distros (48 minutes)"))))
(div (@ (class "info-box text-left"))
(p (a (@ (href ,(guix-url "manual"))
(class "hlink-yellow"))