From 4343f0dbcd941394e1e5bb3eeff1c14dbfbbe3ec Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 5 Jan 2013 18:23:51 -0800 Subject: Implemented --toc-depth (and --toc!) for RTF writer. --- src/Text/Pandoc/Writers/RTF.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Writers/RTF.hs') diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs index 1919eb3f2..619e7086f 100644 --- a/src/Text/Pandoc/Writers/RTF.hs +++ b/src/Text/Pandoc/Writers/RTF.hs @@ -72,13 +72,15 @@ writeRTF options (Pandoc (Meta title authors date) blocks) = datetext = inlineListToRTF date spacer = not $ all null $ titletext : datetext : authorstext body = concatMap (blockToRTF 0 AlignDefault) blocks + isTOCHeader (Header lev _) = lev <= writerTOCDepth options + isTOCHeader _ = False context = writerVariables options ++ [ ("body", body) , ("title", titletext) , ("date", datetext) ] ++ [ ("author", a) | a <- authorstext ] ++ [ ("spacer", "yes") | spacer ] ++ - [ ("toc", tableOfContents $ filter isHeaderBlock blocks) | + [ ("toc", tableOfContents $ filter isTOCHeader blocks) | writerTableOfContents options ] in if writerStandalone options then renderTemplate context $ writerTemplate options -- cgit v1.2.3