diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-09 01:14:35 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-09 01:14:35 +0000 |
commit | ad7bb70cce7c54e18e09f4c1e2ea8d5c37b2ce4b (patch) | |
tree | 35211592b4a13a51d610fe3b5340db579ed9046c /src/Text | |
parent | 56efd6176f0b9ed4df366116e69c3712fdfa36db (diff) | |
download | pandoc-ad7bb70cce7c54e18e09f4c1e2ea8d5c37b2ce4b.tar.gz |
Added --toc support to Markdown writer.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@658 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 32 |
1 files changed, 26 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 7b4562fb7..a62988b20 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -59,13 +59,17 @@ pandocToMarkdown opts (Pandoc meta blocks) = do let head = if (writerStandalone opts) then metaBlock $$ text (writerHeader opts) else empty + let headerBlocks = filter isHeaderBlock blocks + let toc = if writerTableOfContents opts + then tableOfContents opts headerBlocks + else empty body <- blockListToMarkdown opts blocks (notes, _) <- get notes' <- notesToMarkdown opts (reverse notes) (_, refs) <- get -- note that the notes may contain refs refs' <- keyTableToMarkdown opts (reverse refs) - return $ head <> (before' $$ body <> text "\n" $$ - notes' <> text "\n" $$ refs' $$ after') + return $ head $$ before' $$ toc $$ body $$ text "" $$ + notes' $$ text "" $$ refs' $$ after' -- | Return markdown representation of reference key table. keyTableToMarkdown :: WriterOptions -> KeyTable -> State WriterState Doc @@ -118,22 +122,38 @@ metaToMarkdown opts (Meta title authors date) = do title' <- titleToMarkdown opts title authors' <- authorsToMarkdown authors date' <- dateToMarkdown date - return $ title' <> authors' <> date' + return $ title' $$ authors' $$ date' titleToMarkdown :: WriterOptions -> [Inline] -> State WriterState Doc titleToMarkdown opts [] = return empty titleToMarkdown opts lst = do contents <- inlineListToMarkdown opts lst - return $ text "% " <> contents <> text "\n" + return $ text "% " <> contents authorsToMarkdown :: [String] -> State WriterState Doc authorsToMarkdown [] = return empty authorsToMarkdown lst = return $ - text "% " <> text (joinWithSep ", " (map escapeString lst)) <> text "\n" + text "% " <> text (joinWithSep ", " (map escapeString lst)) dateToMarkdown :: String -> State WriterState Doc dateToMarkdown [] = return empty -dateToMarkdown str = return $ text "% " <> text (escapeString str) <> text "\n" +dateToMarkdown str = return $ text "% " <> text (escapeString str) + +-- | Construct table of contents from list of header blocks. +tableOfContents :: WriterOptions -> [Block] -> Doc +tableOfContents opts headers = + let opts' = opts { writerIgnoreNotes = True } + contents = BulletList $ map elementToListItem $ hierarchicalize headers + in evalState (blockToMarkdown opts' contents) ([],[]) + +-- | Converts an Element to a list item for a table of contents, +elementToListItem :: Element -> [Block] +elementToListItem (Blk _) = [] +elementToListItem (Sec headerText subsecs) = + [Plain headerText] ++ + if null subsecs + then [] + else [BulletList $ map elementToListItem subsecs] -- | Convert Pandoc block element to markdown. blockToMarkdown :: WriterOptions -- ^ Options |