Mercurial > urweb

view tests/dlist.ur @ 2119:5439b35c5d0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add 'download' attribute to <a/>, part of HTML5
author Sergey Mironov <grrwlf@gmail.com>
date Sun, 26 Oct 2014 14:07:07 +0000
parents 20c083327364
children
line wrap: on
line source
datatype dlist = Nil | Cons of string * source dlist

fun delist dl =
    case dl of
        Nil => <xml>[]</xml>
      | Cons (x, s) => <xml>{[x]} :: ({delistSource s})</xml>

and delistSource s = <xml><dyn signal={dl <- signal s; return (delist dl)}/></xml>

fun main () : transaction page =
    ns <- source Nil;
    s <- source ns;
    tb <- source "";
    return <xml><body>
      <dyn signal={s <- signal s; return (delistSource s)}/><br/>
      <br/>
      <ctextbox source={tb}/>
      <button value="Add" onclick={hd <- get tb;
                                   tl <- get s;
                                   s' <- source (Cons (hd, tl));
                                   set s s'}/>
      <button value="Reset" onclick={set s ns}/>
    </body></xml>