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

Native writer: eliminated empty spaces in brackets.

Browse source
This commit is contained in:
John MacFarlane 2011-01-20 20:48:06 -08:00
parent 6b50778b2a
commit 8011d079c8
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Writers/Native.hs
View file

@ -37,7 +37,7 @@ import Text.Pandoc.Pretty
prettyList :: [Doc] -> Doc prettyList :: [Doc] -> Doc
prettyList ds = prettyList ds =
"[ " <> (cat $ intersperse (cr <> ", ") $ map (nest 2) ds) <> " ]" "[" <> (cat $ intersperse (cr <> ",") $ map (nest 1) ds) <> "]"
-- | Prettyprint Pandoc block element. -- | Prettyprint Pandoc block element.
prettyBlock :: Block -> Doc prettyBlock :: Block -> Doc
@ -55,7 +55,8 @@ prettyBlock (DefinitionList items) = "DefinitionList" $$
nest 1 (prettyList $ map (prettyList . map prettyBlock) defs) <> ")" nest 1 (prettyList $ map (prettyList . map prettyBlock) defs) <> ")"
prettyBlock (Table caption aligns widths header rows) = prettyBlock (Table caption aligns widths header rows) =
"Table " <> text (show caption) <> " " <> text (show aligns) <> " " <> "Table " <> text (show caption) <> " " <> text (show aligns) <> " " <>
text (show widths) $$ nest 2 (prettyRow header) <> text (show widths) $$
prettyRow header $$
prettyList (map prettyRow rows) prettyList (map prettyRow rows)
where prettyRow cols = prettyList (map (prettyList . map prettyBlock) cols) where prettyRow cols = prettyList (map (prettyList . map prettyBlock) cols)
prettyBlock block = text $ show block prettyBlock block = text $ show block