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 /website/www/shared.scm | |
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".
Diffstat (limited to 'website/www/shared.scm')
-rw-r--r-- | website/www/shared.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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")))) |