Mercurial > urweb
view demo/subforms.ur @ 1862:a3d795fbecb9
Add 'rel' attribute to <a>
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Fri, 09 Aug 2013 16:13:44 -0400 |
parents | be0c4e2e488a |
children |
line wrap: on
line source
fun sub r = let fun sub' ls = case ls of [] => <xml/> | r :: ls => <xml> <li>{[r.Num]} = {[r.Text]}</li> {sub' ls} </xml> in return <xml><body> {sub' r.Lines} </body></xml> end fun subfrms n = if n <= 0 then <xml/> else <xml> <entry> <hidden{#Num} value={show n}/> <li>{[n]}: <textbox{#Text}/></li> </entry> {subfrms (n - 1)} </xml> fun form n = return <xml><body> <form> <subforms{#Lines}> {subfrms n} </subforms> <submit action={sub}/> </form> <a link={form (n + 1)}>One more blank</a><br/> {if n > 0 then <xml><a link={form (n - 1)}>One fewer blank</a></xml> else <xml/>} </body></xml> fun main () = form 1