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

Fix paste order

db4
Slava Pestov 2008-09-23 14:06:49 -05:00
parent a2a1a51765
commit bb9d24c18a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces assocs sorting sequences kernel accessors USING: namespaces assocs sorting sequences kernel accessors
hashtables sequences.lib db.types db.tuples db combinators hashtables sequences.lib db.types db.tuples db combinators
calendar calendar.format math.parser syndication urls xml.writer calendar calendar.format math.parser math.order syndication urls
xmode.catalog validators xml.writer xmode.catalog validators
html.forms html.forms
html.components html.components
html.templates.chloe html.templates.chloe
@ -58,7 +58,9 @@ TUPLE: paste < entity annotations ;
swap >>id ; swap >>id ;
: pastes ( -- pastes ) : pastes ( -- pastes )
f <paste> select-tuples ; f <paste> select-tuples
[ [ date>> ] compare ] sort
reverse ;
TUPLE: annotation < entity parent ; TUPLE: annotation < entity parent ;
@ -111,7 +113,7 @@ M: annotation entity-url
<feed-action> <feed-action>
[ pastebin-url ] >>url [ pastebin-url ] >>url
[ "Factor Pastebin" ] >>title [ "Factor Pastebin" ] >>title
[ pastes <reversed> ] >>entries ; [ pastes ] >>entries ;
! ! ! ! ! !
! PASTES ! PASTES