steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Pastebin updates

release
Slava Pestov 2007-12-11 15:48:18 -05:00
parent 8853d0ecb1
commit 6afcf0ba2f
3 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/webapps/pastebin/annotation.furnace
View File

@ -3,9 +3,9 @@
<h2>Annotation: <% "summary" get write %></h2> <h2>Annotation: <% "summary" get write %></h2>
<table> <table>
<tr><th>Annotation by:</th><td><% "author" get write %></td></tr> <tr><th align="right">Annotation by:</th><td><% "author" get write %></td></tr>
<tr><th>Channel:</th><td><% "channel" get write %></td></tr> <tr><th align="right">File type:</th><td><% "mode" get write %></td></tr>
<tr><th>Created:</th><td><% "date" get timestamp>string write %></td></tr> <tr><th align="right">Created:</th><td><% "date" get timestamp>string write %></td></tr>
</table> </table>
<% "syntax" render-template %> <% "syntax" render-template %>

16
extra/webapps/pastebin/paste-list.furnace
View File

@ -17,13 +17,15 @@
<% "pastes" get <reversed> [ "paste-summary" render-component ] each %> <% "pastes" get <reversed> [ "paste-summary" render-component ] each %>
</table> </table>
</td> </td>
<td valign="top" width="25%" class="infobox"> <td valign="top" width="25%">
<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>. <div class="infobox">
</p> <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>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> <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> <p>
<% "webapps.pastebin" browse-webapp-source %></p>
</div>
</td> </td>
</tr> </tr>
</table> </table>

2
extra/webapps/pastebin/pastebin.factor
View File

@ -58,7 +58,7 @@ C: <annotation> annotation
paste-n number>string [ show-paste ] curry quot-link ; paste-n number>string [ show-paste ] curry quot-link ;
: paste-feed ( -- entries ) : paste-feed ( -- entries )
get-pastebin pastebin-pastes [ get-pastebin pastebin-pastes <reversed> [
{ {
paste-summary paste-summary
paste-link paste-link