From d5907b3034994c98d9ea534574b36942717bb241 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 31 Dec 2009 01:14:35 +0000 Subject: Made renderTemplate polymorphic; added TemplateTarget class. Now renderTemplate can return an Html, a Doc, a ByteString, or a String. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1712 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/HTML.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Writers/HTML.hs') diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index a544ad781..cae2bb021 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -89,7 +89,7 @@ writeHtml opts d = let (tit, auths, date, toc, body', newvars) = evalState (pandocToHtml opts d) defaultWriterState in if writerStandalone opts - then primHtml $ inTemplate opts tit auths date toc body' newvars + then inTemplate opts tit auths date toc body' newvars else body' -- result is (title, authors, date, toc, body, new variables) @@ -135,14 +135,15 @@ pandocToHtml opts (Pandoc (Meta title' authors' date') blocks) = do [("math", renderHtmlFragment math) | stMath st] return (tit, auths, date, toc, thebody, newvars) -inTemplate :: WriterOptions +inTemplate :: TemplateTarget a + => WriterOptions -> Html -> [Html] -> Html -> Html -> Html -> [(String,String)] - -> String + -> a inTemplate opts tit auths date toc body' newvars = let renderedTit = showHtmlFragment tit topTitle' = stripTags renderedTit -- cgit v1.2.3