01/03: website: Restore per-page CSS files.

[Ludovic Courtès]

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

commit c04001848bb61e1a2878b07ef8013f5ccf184f17
Author: Ludovic Courtès <address@hidden>
Date:   Tue May 12 21:33:46 2015 +0200

    website: Restore per-page CSS files.
    
    This was inadvertently broken in 342ffb8.
    Reported by Luis Felipe López Acevedo <address@hidden>.
    
    * 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".
---
 website/www.scm          |    2 +-
 website/www/download.scm |    2 +-
 website/www/help.scm     |    2 +-
 website/www/shared.scm   |    4 ++--
 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"))))