Pastebin RSS feed: limit number of posts

2008-01-09 01:33:51 -05:00 · 2008-01-09 01:33:51 -05:00 · 2e19bdae2d
parent 028e0075d8
commit 2e19bdae2d
1 changed files with 4 additions and 1 deletions
--- a/extra/webapps/pastebin/pastebin.factor
+++ b/extra/webapps/pastebin/pastebin.factor
@ -57,8 +57,11 @@ C: <annotation> annotation
 : paste-link ( paste -- link )
    paste-n number>string [ show-paste ] curry quot-link ;

+: safe-head ( seq n -- seq' )
+    over length min head ;
+
 : paste-feed ( -- entries )
-    get-pastebin pastebin-pastes <reversed> [
+    get-pastebin pastebin-pastes <reversed> 20 safe-head [
        {
            paste-summary
            paste-link