Mercurial > urweb
view tests/nextid.ur @ 2140:2b0f6b7ebf4f
Add urweb-mode command to close current XML tag
Bound to "C-c /" by default to match nxml-mode's nxml-finish-element
command.
author | Julian Squires <julian@cipht.net> |
---|---|
date | Mon, 04 May 2015 16:15:01 -0400 |
parents | e1f5d9c4cc20 |
children |
line wrap: on
line source
fun main () : transaction page = id1 <- fresh; id2 <- fresh; id3 <- fresh; idS <- source id3; return <xml><body> <span id={id1}>Hi</span> <span id={id2}>there!</span><br/><br/> <dyn signal={idS <- signal idS; return <xml><span id={idS}>Whoa-hoa!</span></xml>}/> <button onclick={id <- fresh; set idS id}/> Source: <dyn signal={idS <- signal idS; return (txt (<xml><span id={idS}>Whoa-hoa!</span></xml> : xbody))}/> </body></xml>