@@ -56,7 +56,8 @@ pandocToLaTeX options (Pandoc (Meta title authors date) blocks) = do
56 titletext <- if null title
56 titletext <- if null title
57 then return ""
57 then return ""
58 else liftM render $ inlineListToLaTeX title
58 else liftM render $ inlineListToLaTeX title
59+ let context = writerVariables options ++
59− let context = [ ("before", writerIncludeBefore options)
60+ [ ("before", writerIncludeBefore options)
60 , ("after", writerIncludeAfter options)
61 , ("after", writerIncludeAfter options)
61 , ("toc", if writerTableOfContents options then "yes" else "")
62 , ("toc", if writerTableOfContents options then "yes" else "")
62 , ("body", main)
63 , ("body", main)