diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-03-10 17:45:00 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-03-10 17:45:00 +0000 |
| commit | 0ce965f34c0caf70e9a6a7b88508beec1e617fbb (patch) | |
| tree | 4ada3882b72339835099ee1ca4c66b1ab8b17caa /src/Text/Pandoc | |
| parent | 68cd976838c52db771731dac032f3b634d2b73ff (diff) | |
| download | pandoc-0ce965f34c0caf70e9a6a7b88508beec1e617fbb.tar.gz | |
Modified prettyPandoc to handle DefinitionList elements.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@565 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 55e093ee7..6ecb31757 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -190,6 +190,10 @@ prettyBlock (OrderedList blockLists) = prettyBlock (BulletList blockLists) = "BulletList\n" ++ indentBy 2 0 ("[ " ++ (joinWithSep ", " (map (\blocks -> prettyBlockList 2 blocks) blockLists))) ++ " ]" +prettyBlock (DefinitionList blockLists) = "DefinitionList\n" ++ + indentBy 2 0 ("[ " ++ (joinWithSep ", " + (map (\(term, blocks) -> "(" ++ show term ++ ",\n" ++ + indentBy 1 2 (prettyBlockList 2 blocks) ++ ")") blockLists))) ++ " ]" prettyBlock block = show block -- | Prettyprint Pandoc document. |