unmaintained/furnace-onigiri/templates/atom.furnace

   1 <?xml version="1.0" encoding="utf-8"?>
   2 <feed xmlns="http://www.w3.org/2005/Atom">
   3     <% USING: io namespaces furnace:onigiri html
   4     math kernel sequences hashtables calendar ; %>
   5     <title><% "title" key>meta* meta-value [ "an onigiri weblog" ] unless* write %></title>
   6     <link rel="self" href="<% base-url write "atom" action>url write %>"/>
   7     <author>
   8         <name><% "author" key>meta* meta-value [ "anonymous" ] unless* write %></name>
   9     </author>
  10     <id><% base-url write "atom" action>url write %></id>
  11     <% entry get
  12     [ [ entry-created ] 2apply compare-timestamps neg ] sort
  13     dup empty? [ %>
  14     <updated><% dup first entry-created timestamp>rfc3339 write %></updated><% ] unless
  15     [ %>
  16     <entry>
  17         <title><% dup entry-title write %></title>
  18         <id><% dup entry-stub stub>url dup base-url write write %></id>
  19         <updated><% over entry-created timestamp>rfc3339 write %></updated>
  20         <link href="<% base-url write write %>"/>
  21         <summary><% entry-body write-html %></summary>
  22     </entry><% ] each %>
  23 </feed>