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 | |
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.
-rw-r--r-- | website/www/shared.scm | 5 | ||||
-rw-r--r-- | website/www/utils.scm | 4 |
2 files changed, 7 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")) diff --git a/website/www/utils.scm b/website/www/utils.scm index 96ccb5f..029951f 100644 --- a/website/www/utils.scm +++ b/website/www/utils.scm @@ -28,6 +28,7 @@ guix-url static-base-url css-url + js-url image-url thumb-url screenshot-url @@ -66,6 +67,9 @@ (define (css-url file) (string-append (static-base-url) "css/" file)) +(define (js-url file) + (string-append (static-base-url) "js/" file)) + (define (image-url file) (string-append (static-base-url) "img/" file)) |