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

Fix pastebin Atom feed

release
Slava Pestov 2007-12-08 17:18:25 -05:00
parent 7f337c2085
commit fc556d9352
3 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/webapps/pastebin/paste-summary.furnace
View File

@ -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>

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

@ -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 -- )

4
extra/webapps/pastebin/show-paste.furnace
View File

@ -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>