From fc556d9352d110ed987e96d0bc4b2ba115b3c2d2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 8 Dec 2007 17:18:25 -0500
Subject: [PATCH] Fix pastebin Atom feed

---
 extra/webapps/pastebin/paste-summary.furnace | 5 +++--
 extra/webapps/pastebin/pastebin.factor       | 4 ++--
 extra/webapps/pastebin/show-paste.furnace    | 4 ++--
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/extra/webapps/pastebin/paste-summary.furnace b/extra/webapps/pastebin/paste-summary.furnace
index a50f0ca140..f8938eabca 100644
--- a/extra/webapps/pastebin/paste-summary.furnace
+++ b/extra/webapps/pastebin/paste-summary.furnace
@@ -1,4 +1,5 @@
-<% USING: continuations namespaces io kernel math math.parser furnace webapps.pastebin ; %>
+<% USING: continuations namespaces io kernel math math.parser
+furnace webapps.pastebin calendar ; %>
 
 <tr>
     <td>
@@ -7,5 +8,5 @@
         </a>
     </td>
     <td><% "author" get write %></td>
-    <td><% "date" get print %></td>
+    <td><% "date" get timestamp>string print %></td>
 </tr>
diff --git a/extra/webapps/pastebin/pastebin.factor b/extra/webapps/pastebin/pastebin.factor
index 555670e7fa..48154fef85 100755
--- a/extra/webapps/pastebin/pastebin.factor
+++ b/extra/webapps/pastebin/pastebin.factor
@@ -60,7 +60,7 @@ SYMBOL: store
             paste-summary
             paste-link
             paste-date
-        } get-slots "" swap <entry>
+        } get-slots timestamp>rfc3339 f swap <entry>
     ] map ;
 
 : feed.xml ( -- )
@@ -75,7 +75,7 @@ SYMBOL: store
     store get-global save-store ;
 
 : add-paste ( paste pastebin -- )
-    >r now timestamp>http-string over set-paste-date r>
+    >r now over set-paste-date r>
     pastebin-pastes 2dup length swap set-paste-n push ;
 
 : submit-paste ( summary author channel mode contents -- )
diff --git a/extra/webapps/pastebin/show-paste.furnace b/extra/webapps/pastebin/show-paste.furnace
index 56255dcd95..6a78135343 100755
--- a/extra/webapps/pastebin/show-paste.furnace
+++ b/extra/webapps/pastebin/show-paste.furnace
@@ -1,4 +1,4 @@
-<% USING: namespaces io furnace sequences xmode.code2html ; %>
+<% USING: namespaces io furnace sequences xmode.code2html calendar ; %>
 
 <%
     "Paste: " "summary" get append "title" set
@@ -8,7 +8,7 @@
 <table>
 <tr><th>Paste by:</th><td><% "author" get write %></td></tr>
 <tr><th>Channel:</th><td><% "channel" get write %></td></tr>
-<tr><th>Created:</th><td><% "date" get write %></td></tr>
+<tr><th>Created:</th><td><% "date" get timestamp>string write %></td></tr>
 <tr><th>File type:</th><td><% "mode" get write %></td></tr>
 </table>