Mercurial > urweb

comparison demo/subforms.ur @ 1833:be0c4e2e488a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow any FFI module to declare new HTML tags
author Adam Chlipala <adam@chlipala.net>
date Wed, 28 Nov 2012 16:56:45 -0500
parents 0084af7af35a
children
comparison
equal deleted inserted replaced
1832:373e2c3f03b2 1833:be0c4e2e488a
11 return <xml><body> 11 return <xml><body>
12 {sub' r.Lines} 12 {sub' r.Lines}
13 </body></xml> 13 </body></xml>
14 end 14 end
15 15
16 fun subforms n = 16 fun subfrms n =
17 if n <= 0 then 17 if n <= 0 then
18 <xml/> 18 <xml/>
19 else 19 else
20 <xml> 20 <xml>
21 <entry> 21 <entry>
22 <hidden{#Num} value={show n}/> 22 <hidden{#Num} value={show n}/>
23 <li>{[n]}: <textbox{#Text}/></li> 23 <li>{[n]}: <textbox{#Text}/></li>
24 </entry> 24 </entry>
25 {subforms (n - 1)} 25 {subfrms (n - 1)}
26 </xml> 26 </xml>
27 27
28 fun form n = return <xml><body> 28 fun form n = return <xml><body>
29 <form> 29 <form>
30 <subforms{#Lines}> 30 <subforms{#Lines}>
31 {subforms n} 31 {subfrms n}
32 </subforms> 32 </subforms>
33 <submit action={sub}/> 33 <submit action={sub}/>
34 </form> 34 </form>
35 35
36 <a link={form (n + 1)}>One more blank</a><br/> 36 <a link={form (n + 1)}>One more blank</a><br/>