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

AsciiDoc writer: Handle multiblock table cells.

Browse source 
Closes #1246.
This commit is contained in:
John MacFarlane 2014-05-03 21:31:53 -07:00
parent 41c89d51c7
commit 96c0c950ca
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/AsciiDoc.hs
View file

@ -218,7 +218,8 @@ blockToAsciiDoc opts (Table caption aligns widths headers rows) = do
return $ text "|" <> chomp d return $ text "|" <> chomp d
makeCell [Para x] = makeCell [Plain x] makeCell [Para x] = makeCell [Plain x]
makeCell [] = return $ text "|" 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 let makeRow cells = hsep `fmap` mapM makeCell cells
rows' <- mapM makeRow rows rows' <- mapM makeRow rows
head' <- makeRow headers head' <- makeRow headers