From 21ef4bfac601366c06971ef90a3d8e944ab72ac1 Mon Sep 17 00:00:00 2001
From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Wed, 17 Jul 2013 21:59:12 +0300
Subject: [PATCH] site: load recent posts

---
 site.hs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4