summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-05-12 21:33:46 +0200
committerLudovic Courtès <ludo@gnu.org>2015-05-12 21:33:46 +0200
commitc04001848bb61e1a2878b07ef8013f5ccf184f17 (patch)
treee155a4fbd188659dab4de396aa2d80d5ec8f0d27
parentbeb4f739765146ba42b240473ab696ac6cfdc45d (diff)
downloadguix-artwork-c04001848bb61e1a2878b07ef8013f5ccf184f17.tar
guix-artwork-c04001848bb61e1a2878b07ef8013f5ccf184f17.tar.gz
website: Restore per-page CSS files.
This was inadvertently broken in 342ffb8. Reported by Luis Felipe López Acevedo <felipe.lopez@openmailbox.org>. * website/www/shared.scm (html-page-header): Add #:css parameter, and use it. * website/www.scm (main-page): Pass "index.css" to 'html-page-header'. * website/www/download.scm (download-page): Pass "download.css". * website/www/help.scm (help-page): Pass "help.css".
-rw-r--r--website/www.scm2
-rw-r--r--website/www/download.scm2
-rw-r--r--website/www/help.scm2
-rw-r--r--website/www/shared.scm4
4 files changed, 5 insertions, 5 deletions
diff --git a/website/www.scm b/website/www.scm
index a6399bc..c045246 100644
--- a/website/www.scm
+++ b/website/www.scm
@@ -17,7 +17,7 @@
(define main-page
`(html (@ (lang "en"))
- ,(html-page-header "Home")
+ ,(html-page-header "Home" #:css "index.css")
(body
,(html-page-description)
,(html-page-links)
diff --git a/website/www/download.scm b/website/www/download.scm
index c67eb74..e2e83fa 100644
--- a/website/www/download.scm
+++ b/website/www/download.scm
@@ -5,7 +5,7 @@
(define download-page
`(html (@ (lang "en"))
- ,(html-page-header "Download")
+ ,(html-page-header "Download" #:css "download.css")
(body
,(html-page-description)
,(html-page-links)
diff --git a/website/www/help.scm b/website/www/help.scm
index 3c42b9e..c88f726 100644
--- a/website/www/help.scm
+++ b/website/www/help.scm
@@ -5,7 +5,7 @@
(define help-page
`(html (@ (lang "en"))
- ,(html-page-header "Help")
+ ,(html-page-header "Help" #:css "help.css")
(body
,(html-page-description)
,(html-page-links)
diff --git a/website/www/shared.scm b/website/www/shared.scm
index 37c2c99..f079f3a 100644
--- a/website/www/shared.scm
+++ b/website/www/shared.scm
@@ -5,7 +5,7 @@
html-page-links
html-page-footer))
-(define (html-page-header title)
+(define* (html-page-header title #:key (css "article.css"))
`(head (meta (@ (charset "utf-8")))
(meta (@ (name "author")
(content "GuixSD Contributors")))
@@ -27,7 +27,7 @@ GUix Package Manager, Guile Scheme, Functional package management")))
(href ,(css-url "base.css"))))
(link (@ (type "text/css")
(rel "stylesheet")
- (href ,(css-url "index.css"))))
+ (href ,(css-url css))))
(link (@ (type "image/png")
(rel "icon")
(href ,(image-url "favicon.png"))))