gistfile1.hs

match "posts/*.md" $ do
	route $ metadataRoute (\m ->
		constRoute $
			(fromMaybe "year" $ Data.Map.lookup "year" m) ++
			"/" ++
			(fromMaybe "title" $ Data.Map.lookup "title" m) ++
			".html")
	compile $ pandocCompiler
		>>= loadAndApplyTemplate "templates/default.html" postCtx
		>>= relativizeUrls