suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Templates

Browse Source 
svn: r12500
This commit is contained in:
Jay McCarthy 2008-11-18 22:03:44 +00:00
parent cb68faa140
commit a01728e63a
3 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/template/examples/basic.html
View File

@ -3,7 +3,7 @@
<body> <body>
<table> <table>
@in[c @clients]{ @in[c @clients]{
@t{ @list{
<tr> <tr>
<td>@(client-surname c), @(client-firstname c)</td> <td>@(client-surname c), @(client-firstname c)</td>
<td><a href="mailto:@(client-email c)">@(client-email c)</a></td> <td><a href="mailto:@(client-email c)">@(client-email c)</a></td>

6
collects/web-server/template/examples/if.html
View File

@ -1,5 +1,5 @@
@(if (@monkeys . > . @monkey-limit) @(if (@monkeys . > . @monkey-limit)
@t{<p>There are too many monkeys!</p>} @list{<p>There are too many monkeys!</p>}
@(if (@monkeys . < . @monkey-minimum) @(if (@monkeys . < . @monkey-minimum)
@t{<p>There aren't enough monkeys!</p>} @list{<p>There aren't enough monkeys!</p>}
@t{<p>There are just enough monkeys!</p>})) @list{<p>There are just enough monkeys!</p>}))

15
collects/web-server/template/examples/run.ss
View File

@ -1,5 +1,6 @@
#lang scheme #lang scheme
(require scribble/text (require xml
scribble/text
scheme/port) scheme/port)
(define-syntax include-template (define-syntax include-template
@ -9,7 +10,17 @@
(lambda () (lambda ()
(output (include/text p))))])) (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 (define-syntax in
(syntax-rules () (syntax-rules ()
[(_ x xs e ...) [(_ x xs e ...)