diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-01-30 08:30:14 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-01-30 08:30:14 -0500 |
| commit | 749b8e902437388a66c9fd8329e3b07bc139ce7f (patch) | |
| tree | 93eac74b8b8eebd974e0d15076f820f4b2e3e928 | |
| parent | 1a190832c44700a89fb1d55d2de1ca423089ae76 (diff) | |
view: html: Rename script-tag to render-javascript.
* guix-web/view/html.scm (script-tag): Rename to...
(render-javascript): ...this.
(all-packages): Use new procedure name.
| -rw-r--r-- | guix-web/view/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-web/view/html.scm b/guix-web/view/html.scm index 7016ba8..6f9e72f 100644 --- a/guix-web/view/html.scm +++ b/guix-web/view/html.scm @@ -57,11 +57,11 @@ (javascript "/js/controller/generations.js" agpl3+) (javascript "/js/routes.js" agpl3+))) -(define (script-tag javascript) (define stylesheets (list "/css/bootstrap.css" "/css/guix.css")) +(define (render-javascript javascript) `(script (@ (type "text/javascript") (src ,(javascript-source-uri javascript))) ;; hack to ensure closing </script> tag @@ -97,7 +97,7 @@ (else "")))) (define (all-packages) - (main-layout "Packages" (map script-tag javascripts))) + (main-layout "Packages" (map render-javascript javascripts))) ;; This should be moved client-side and the server should just serve ;; the relevant JSON. |