Fix pastebin Atom feed
parent
7f337c2085
commit
fc556d9352
|
@ -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>
|
<tr>
|
||||||
<td>
|
<td>
|
||||||
|
@ -7,5 +8,5 @@
|
||||||
</a>
|
</a>
|
||||||
</td>
|
</td>
|
||||||
<td><% "author" get write %></td>
|
<td><% "author" get write %></td>
|
||||||
<td><% "date" get print %></td>
|
<td><% "date" get timestamp>string print %></td>
|
||||||
</tr>
|
</tr>
|
||||||
|
|
|
@ -60,7 +60,7 @@ SYMBOL: store
|
||||||
paste-summary
|
paste-summary
|
||||||
paste-link
|
paste-link
|
||||||
paste-date
|
paste-date
|
||||||
} get-slots "" swap <entry>
|
} get-slots timestamp>rfc3339 f swap <entry>
|
||||||
] map ;
|
] map ;
|
||||||
|
|
||||||
: feed.xml ( -- )
|
: feed.xml ( -- )
|
||||||
|
@ -75,7 +75,7 @@ SYMBOL: store
|
||||||
store get-global save-store ;
|
store get-global save-store ;
|
||||||
|
|
||||||
: add-paste ( paste pastebin -- )
|
: 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 ;
|
pastebin-pastes 2dup length swap set-paste-n push ;
|
||||||
|
|
||||||
: submit-paste ( summary author channel mode contents -- )
|
: submit-paste ( summary author channel mode contents -- )
|
||||||
|
|
|
@ -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
|
"Paste: " "summary" get append "title" set
|
||||||
|
@ -8,7 +8,7 @@
|
||||||
<table>
|
<table>
|
||||||
<tr><th>Paste by:</th><td><% "author" get write %></td></tr>
|
<tr><th>Paste by:</th><td><% "author" get write %></td></tr>
|
||||||
<tr><th>Channel:</th><td><% "channel" 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>
|
<tr><th>File type:</th><td><% "mode" get write %></td></tr>
|
||||||
</table>
|
</table>
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue