site: load recent posts

diff --git a/site.hs b/site.hs
index 5ae89d0..143c983 100644 (file)
--- 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