diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-12 21:33:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-12 21:33:46 +0200 |
| commit | c04001848bb61e1a2878b07ef8013f5ccf184f17 (patch) | |
| tree | e155a4fbd188659dab4de396aa2d80d5ec8f0d27 | |
| parent | beb4f739765146ba42b240473ab696ac6cfdc45d (diff) | |
| download | guix-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.scm | 2 | ||||
| -rw-r--r-- | website/www/download.scm | 2 | ||||
| -rw-r--r-- | website/www/help.scm | 2 | ||||
| -rw-r--r-- | 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")))) |