Mercurial > urweb

view tests/url.ur @ 2134:752e5efe9da9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use hyperref in manual This allows the table of contents to show up properly in PDF readers.
author Julian Squires <julian@cipht.net>
date Fri, 24 Apr 2015 07:43:22 -0400
parents c125df6fabfc
children
line wrap: on
line source
fun readersChoice r = return <xml><body>
  {case checkUrl r.Url of
       None => <xml>I can't do that, Dave.</xml>
     | Some url => <xml><a href={url}>Your pick, boss</a></xml>}
</body></xml>

fun main () : transaction page = return <xml><body>
  <a href="http://en.wikipedia.org/wiki/Wikipedia:About">Learn</a>
  <br/>

  <form><textbox{#Url}/> <submit action={readersChoice}/></form>
</body></xml>