<% USING: io namespaces furnace:onigiri html
math kernel sequences hashtables calendar ; %>
<% "title" key>meta* meta-value [ "an onigiri weblog" ] unless* write %>
url write %>"/>
<% "author" key>meta* meta-value [ "anonymous" ] unless* write %>
<% base-url write "atom" action>url write %>
<% entry get
[ [ entry-created ] 2apply compare-timestamps neg ] sort
dup empty? [ %>
<% dup first entry-created timestamp>rfc3339 write %><% ] unless
[ %>
<% dup entry-title write %>
<% dup entry-stub stub>url dup base-url write write %>
<% over entry-created timestamp>rfc3339 write %>
<% entry-body write-html %>
<% ] each %>