Set up posts again

site/app/site.hs

@@ -32,16 +32,40 @@ main = hakyllWith defaultConfiguration{ignoreFile = ignore} $ do
     route   idRoute
     compile compressCssCompiler
 
+  match "posts/*" $ do
+    route $ setExtension "html"
+    compile $ pandocCompiler
+      >>= loadAndApplyTemplate "templates/post.html" postContext
+      >>= loadAndApplyTemplate "templates/default.html" defaultContext
+      >>= relativizeUrls
+
+
   match (fromList ["index.markdown", "contact.markdown"]) $ do
     route   $ setExtension "html"
     compile $ pandocCompiler
       >>= loadAndApplyTemplate "templates/default.html" defaultContext
       >>= relativizeUrls
 
+  create ["posts.html"] $ do
+    route idRoute
+    compile $ do
+      let postsContext =
+               listField "posts" postContext posts
+            <> constField "title" "Posts"
+            <> defaultContext
+          posts = recentFirst =<< loadAll "posts/*"
+      makeItem ""
+        >>= loadAndApplyTemplate "templates/post-list.html" postsContext
+        >>= loadAndApplyTemplate "templates/default.html" postsContext
+        >>= relativizeUrls
+
 
 
   match "templates/*" $ compile templateBodyCompiler
   where
+    postContext :: Context String
+    postContext = dateField "date" "%B %e, %Y" <> defaultContext
+    ignore :: FilePath -> Bool
     ignore path = any ($ takeFileName path)
       [ ("." `isPrefixOf`)
       , ("#" `isPrefixOf`)