Mercurial > urweb
annotate tests/html5_forms.ur @ 2075:fde864eacd47
Make 'required' and 'autofocus' attributes Boolean; add a syntax extension for parsing their usual HTML syntax
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 16 Nov 2014 14:02:17 -0500 |
parents | |
children | 855d7746a084 |
rev | line source |
---|---|
adam@2075 | 1 fun handler r = return <xml><body> |
adam@2075 | 2 </body></xml> |
adam@2075 | 3 |
adam@2075 | 4 fun main () = |
adam@2075 | 5 return <xml><body> |
adam@2075 | 6 <form> |
adam@2075 | 7 <textbox{#A} required placeholder="bobby"/> |
adam@2075 | 8 <textbox{#B} placeholder="soggy" autofocus/> |
adam@2075 | 9 |
adam@2075 | 10 <submit action={handler}/> |
adam@2075 | 11 </form> |
adam@2075 | 12 </body></xml> |