Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Added support for --toc to RTF writer.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@657 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-07-09 00:51:07 +00:00
parent 489a2bb1d9
commit 56efd6176f
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/Text/Pandoc/Writers/RTF.hs
View file

@ -39,12 +39,30 @@ writeRTF :: WriterOptions -> Pandoc -> String
writeRTF options (Pandoc meta blocks) = writeRTF options (Pandoc meta blocks) =
let head = if writerStandalone options let head = if writerStandalone options
then rtfHeader (writerHeader options) meta then rtfHeader (writerHeader options) meta
else "" else ""
toc = if writerTableOfContents options
then tableOfContents $ filter isHeaderBlock blocks
else ""
foot = if writerStandalone options then "\n}\n" else "" foot = if writerStandalone options then "\n}\n" else ""
body = (writerIncludeBefore options) ++ body = (writerIncludeBefore options) ++
concatMap (blockToRTF 0 AlignDefault) blocks ++ concatMap (blockToRTF 0 AlignDefault) blocks ++
(writerIncludeAfter options) in (writerIncludeAfter options) in
head ++ body ++ foot head ++ toc ++ body ++ foot
-- | Construct table of contents from list of header blocks.
tableOfContents :: [Block] -> String
tableOfContents headers =
let contentsTree = hierarchicalize headers
in concatMap (blockToRTF 0 AlignDefault) $ [Header 1 [Str "Contents"],
BulletList (map elementToListItem contentsTree)]
elementToListItem :: Element -> [Block]
elementToListItem (Blk _) = []
elementToListItem (Sec sectext subsecs) =
[Plain sectext] ++
if null subsecs
then []
else [BulletList (map elementToListItem subsecs)]
-- | Convert unicode characters (> 127) into rich text format representation. -- | Convert unicode characters (> 127) into rich text format representation.
handleUnicode :: String -> String handleUnicode :: String -> String