1 <% USING: namespaces io kernel sequences furnace:onigiri html
4 <p><% "stub" get [ "true" entry-edit ] curry "Edit with Wiky" render-link %></p>
6 <form method="post" action="entry-update">
7 <% "stub" get [ %><input type="hidden" name="stub" value="<% "stub" get write %>"/><% ] when %>
8 <table><tr><td>Title:</td><td><input type="text" name="title" value="<% "title" get write %>"/></td></tr>
9 <tr><td>Body:</td><td><textarea id="body" rows="10" cols="60" name="body" onKeyUp="$('preview').innerHTML=$('body').value;"><% "body" get write %></textarea></td></tr>
10 <tr><td></td><td><input type="submit" name="post" value="<% "stub" get "update" "post" ? write %>"/>
12 <% "stub" get [ [ entry-delete ] curry "Delete" render-link ] when* %>(preview below)</td></tr>
13 <tr><td></td><td><div id="preview"></div></td></tr>
18 $('preview').innerHTML=$('body').value;