diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-05-03 21:31:53 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-05-03 21:31:53 -0700 |
| commit | 96c0c950cab8b42d5d6b8b1a6f1fb20f7f4a5aae (patch) | |
| tree | f7020db3f2118e1ee0485ce17b5b968b33d8946f /src/Text/Pandoc | |
| parent | 41c89d51c7b3d0099e72c0693bfd413bb4498de9 (diff) | |
| download | pandoc-96c0c950cab8b42d5d6b8b1a6f1fb20f7f4a5aae.tar.gz | |
AsciiDoc writer: Handle multiblock table cells.
Closes #1246.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/AsciiDoc.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs index e5868172e..15579cba2 100644 --- a/src/Text/Pandoc/Writers/AsciiDoc.hs +++ b/src/Text/Pandoc/Writers/AsciiDoc.hs @@ -218,7 +218,8 @@ blockToAsciiDoc opts (Table caption aligns widths headers rows) = do return $ text "|" <> chomp d makeCell [Para x] = makeCell [Plain x] makeCell [] = return $ text "|" - makeCell _ = return $ text "|" <> "[multiblock cell omitted]" + makeCell bs = do d <- blockListToAsciiDoc opts bs + return $ text "a|" $$ d let makeRow cells = hsep `fmap` mapM makeCell cells rows' <- mapM makeRow rows head' <- makeRow headers |