<% 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 %>