unmaintained/scaffold/crud-templates/show.furnace

   1 <% USING: namespaces io kernel words generic sequences
   2 prettyprint furnace parser ; %>
   3
   4 <% "model" get [ %>
   5
   6 <% dup tuple-slots over class dup
   7     word-vocabulary use+ "slot-names" word-prop %>
   8
   9 <table>
  10
  11 <% [ %><tr><td><% write %>:</td><td><% write %></td></tr><% ] 2each %>
  12
  13 </table>
  14
  15 <% dup crud-index swap class dup "crud-index" word-prop swap unparse %>
  16 <p><a href="<% 3dup write %>-edit?<% write %>=<% write %>">Edit</a> |
  17     <a href="<% [ write %>-delete?<% write %>=<% write  ] keep %>">Delete</a> |
  18     <a href="<% dup write %>-new">New</a> | <a href="<% write %>-list">List</a></p>
  19
  20 <% ] [ %><p>No such tuple</p><% ] if* %>