match "index.html" compileIndex
match "css/*" compileCss
match "posts/*" compilePosts
+ match (fromList ["about.markdown"]) compilePages
match "templates/*" $ compile templateCompiler
compileIndex :: Rules ()
>>= loadAndApplyTemplate "templates/default.html" postCtx
>>= relativizeUrls
+compilePages :: Rules ()
+compilePages = do
+ route $ setExtension "html"
+ compile $ pandocCompiler
+ >>= loadAndApplyTemplate "templates/default.html" defaultContext
+ >>= relativizeUrls
+
postCtx :: Context String
postCtx = dateField "date" "%B %e, %Y" `mappend` defaultContext