diff options
| -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")))) |