From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Wed, 17 Jul 2013 18:59:12 +0000 (+0300)
Subject: site: load recent posts
X-Git-Tag: v0.1~41
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=21ef4bfac601366c06971ef90a3d8e944ab72ac1;p=thetarpit.git

site: load recent posts
---

diff --git a/site.hs b/site.hs
index 5ae89d0..143c983 100644
--- a/site.hs
+++ b/site.hs
@@ -13,7 +13,10 @@ compileIndex :: Rules ()
 compileIndex = do
     route idRoute -- TODO: make a "copy to root" route?
     compile $ do
-      let indexCtx = defaultContext
+      posts <- loadAll "posts/*" >>= fmap (take 5) . recentFirst
+      let indexCtx =
+            listField "posts" postCtx (return posts) `mappend`
+            defaultContext
 
       getResourceBody
         >>= applyAsTemplate indexCtx