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

Pastebin RSS feed: limit number of posts

db4
Slava Pestov 2008-01-09 01:33:51 -05:00
parent 028e0075d8
commit 2e19bdae2d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,8 +57,11 @@ C: <annotation> annotation
: paste-link ( paste -- link ) : paste-link ( paste -- link )
paste-n number>string [ show-paste ] curry quot-link ; paste-n number>string [ show-paste ] curry quot-link ;
: safe-head ( seq n -- seq' )
over length min head ;
: paste-feed ( -- entries ) : paste-feed ( -- entries )
get-pastebin pastebin-pastes <reversed> [ get-pastebin pastebin-pastes <reversed> 20 safe-head [
{ {
paste-summary paste-summary
paste-link paste-link