diff options
| author | Mathieu Lirzin <mthl@openmailbox.org> | 2015-06-14 20:06:40 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@openmailbox.org> | 2015-06-17 21:25:21 +0200 |
| commit | 199408ed97d99b9606a9f1ee18af1e166b0d1be1 (patch) | |
| tree | 732f9fa2309430e631cfd94844503752ee58efb9 /website/www/shared.scm | |
| parent | e0d2375f2e826f1893d7d348649d4cd30733b16e (diff) | |
| download | guix-artwork-199408ed97d99b9606a9f1ee18af1e166b0d1be1.tar guix-artwork-199408ed97d99b9606a9f1ee18af1e166b0d1be1.tar.gz | |
website: Allow inclusion of Javascript.
* website/www/utils.scm (js-url): New procedure.
* website/www/shared.scm (html-page-header): Use it. Add #:js parameter.
Diffstat (limited to 'website/www/shared.scm')
| -rw-r--r-- | website/www/shared.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/website/www/shared.scm b/website/www/shared.scm index 88dad4e..773fcc0 100644 --- a/website/www/shared.scm +++ b/website/www/shared.scm @@ -30,7 +30,7 @@ (define latest-guix-version (make-parameter "0.8.2")) -(define* (html-page-header title #:key (css "article.css")) +(define* (html-page-header title #:key (css "article.css") js) `(head (meta (@ (charset "utf-8"))) (meta (@ (name "author") (content "GuixSD Contributors"))) @@ -58,7 +58,8 @@ Functional package management,"))) (rel "icon") (href ,(image-url "favicon.png")))) (link (@ (rel "license") (href "Pending..."))) - (title ,(string-append title " — GuixSD")))) + (title ,(string-append title " — GuixSD")) + ,(if js `(script (@ (src ,(js-url js))) "") ""))) (define (html-page-description) `(div (@ (class "message-box msg-info")) |