diff --git a/collects/web-server/template/examples/basic.html b/collects/web-server/template/examples/basic.html index e90c8dd09d..c8104be091 100644 --- a/collects/web-server/template/examples/basic.html +++ b/collects/web-server/template/examples/basic.html @@ -3,7 +3,7 @@ @in[c @clients]{ - @t{ + @list{ diff --git a/collects/web-server/template/examples/if.html b/collects/web-server/template/examples/if.html index a5a7fa3cb4..df0af05025 100644 --- a/collects/web-server/template/examples/if.html +++ b/collects/web-server/template/examples/if.html @@ -1,5 +1,5 @@ @(if (@monkeys . > . @monkey-limit) - @t{

There are too many monkeys!

} + @list{

There are too many monkeys!

} @(if (@monkeys . < . @monkey-minimum) - @t{

There aren't enough monkeys!

} - @t{

There are just enough monkeys!

})) + @list{

There aren't enough monkeys!

} + @list{

There are just enough monkeys!

})) diff --git a/collects/web-server/template/examples/run.ss b/collects/web-server/template/examples/run.ss index 98b7919883..79ec4e4f5a 100644 --- a/collects/web-server/template/examples/run.ss +++ b/collects/web-server/template/examples/run.ss @@ -1,5 +1,6 @@ #lang scheme -(require scribble/text +(require xml + scribble/text scheme/port) (define-syntax include-template @@ -9,7 +10,17 @@ (lambda () (output (include/text p))))])) -(define t list) +(define-syntax include-template/xexpr + (syntax-rules () + [(_ p) + (string->xexpr (include-template p))])) + +(define (string->xexpr s) + (with-input-from-string + s + (lambda () + (xml->xexpr (document-element (read-xml)))))) + (define-syntax in (syntax-rules () [(_ x xs e ...)
@(client-surname c), @(client-firstname c) @(client-email c)