Pastebin updates

diff --git a/extra/webapps/pastebin/annotation.furnace b/extra/webapps/pastebin/annotation.furnace
index 791905197eed832b4b71f1a83355ae3d57363479..e59db32484153e9f5919942444197a5b9536a76c 100755 (executable)
--- 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 da2d1add9ccbc510e29120ca5e59dbbd0cc3af0a..51813ecf97ad930e1d1b0159b655558edc1445ed 100644 (file)
--- 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 7ea98b8ba10d2b91b9184b58c44d2faa8910d15a..9aefe15bca6478adc0a2c8d18c13a6576f1827a7 100755 (executable)
--- 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