Links source


namespace lists = "http://example.com/links/list.links";

fun todo(items) client {
  <html>
   <body>
    <h1>Items to do</h1>
    <form l:action="{todo( [next] :: items)}" method="POST">
      <input l:name="next" type="text" size="40"/>
      <input type="submit" value="add new item"/>
    </form>
    <table>{
      for item <- items xin
         <tr><td>{item}</td>
              <td><form l:action="{todo(lists:remove(item, items))}" method="POST">
                     <input type="submit" value="done"/>
                  </form>
             </td>
         </tr>
    }</table>
   </body>
  </html>
}

todo([])