From 749b8e902437388a66c9fd8329e3b07bc139ce7f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 30 Jan 2015 08:30:14 -0500 Subject: 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. --- guix-web/view/html.scm | 4 ++-- 1 file 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 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. -- cgit v1.2.3