From 6afcf0ba2fb07abcc7f43a4f3a0bdbb5a8fee966 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Tue, 11 Dec 2007 15:48:18 -0500
Subject: [PATCH] Pastebin updates

---
 extra/webapps/pastebin/annotation.furnace |  6 +++---
 extra/webapps/pastebin/paste-list.furnace | 16 +++++++++-------
 extra/webapps/pastebin/pastebin.factor    |  2 +-
 3 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/extra/webapps/pastebin/annotation.furnace b/extra/webapps/pastebin/annotation.furnace
index 791905197e..e59db32484 100755
--- a/extra/webapps/pastebin/annotation.furnace
+++ b/extra/webapps/pastebin/annotation.furnace
@@ -3,9 +3,9 @@
 <h2>Annotation: <% "summary" get write %></h2>
 
 <table>
-<tr><th>Annotation 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 timestamp>string write %></td></tr>
+<tr><th align="right">Annotation by:</th><td><% "author" get write %></td></tr>
+<tr><th align="right">File type:</th><td><% "mode" get write %></td></tr>
+<tr><th align="right">Created:</th><td><% "date" get timestamp>string write %></td></tr>
 </table>
 
 <% "syntax" render-template %>
diff --git a/extra/webapps/pastebin/paste-list.furnace b/extra/webapps/pastebin/paste-list.furnace
index da2d1add9c..51813ecf97 100644
--- a/extra/webapps/pastebin/paste-list.furnace
+++ b/extra/webapps/pastebin/paste-list.furnace
@@ -17,13 +17,15 @@
                 <% "pastes" get <reversed> [ "paste-summary" render-component ] each %>
             </table>
         </td>
-        <td valign="top" width="25%" class="infobox">
-            <p>This pastebin is written in <a href="http://factorcode.org/">Factor</a>. It is inspired by <a href="http://paste.lisp.org">lisppaste</a>.
-            </p>
-            <p>It can be used for collaborative development over IRC. You can post code for review, and annotate other people's code. Syntax highlighting for over a hundred file types is supported.
-            </p>
-            <p>
-            <% "webapps.pastebin" browse-webapp-source %></p>
+        <td valign="top" width="25%">
+            <div class="infobox">
+                <p>This pastebin is written in <a href="http://factorcode.org/">Factor</a>. It is inspired by <a href="http://paste.lisp.org">lisppaste</a>.
+                </p>
+                <p>It can be used for collaborative development over IRC. You can post code for review, and annotate other people's code. Syntax highlighting for over a hundred file types is supported.
+                </p>
+                <p>
+                <% "webapps.pastebin" browse-webapp-source %></p>
+            </div>
         </td>
     </tr>
 </table>
diff --git a/extra/webapps/pastebin/pastebin.factor b/extra/webapps/pastebin/pastebin.factor
index 7ea98b8ba1..9aefe15bca 100755
--- a/extra/webapps/pastebin/pastebin.factor
+++ b/extra/webapps/pastebin/pastebin.factor
@@ -58,7 +58,7 @@ C: <annotation> annotation
     paste-n number>string [ show-paste ] curry quot-link ;
 
 : paste-feed ( -- entries )
-    get-pastebin pastebin-pastes [
+    get-pastebin pastebin-pastes <reversed> [
         {
             paste-summary
             paste-link