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

Muse writer: Indent tables with one space (#3649)

Browse source 
It is required to trigger Muse table rendering.
This commit is contained in:
Alexander Krotov 2017-05-07 22:41:38 +03:00 • committed by John MacFarlane
parent 6b086acae8
commit 69110cde81
3 changed files with 37 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Muse.hs
View file

@ -216,7 +216,7 @@ blockToMuse (Table caption _ _ headers rows) = do
let hpipeBlocks sep blocks = hcat $ intersperse sep' blocks
where h = maximum (1 : map height blocks)
sep' = lblock (length sep) $ vcat (map text $ replicate h sep)
let makeRow sep = hpipeBlocks sep . zipWith lblock widthsInChars
let makeRow sep = (" " <>) . (hpipeBlocks sep . zipWith lblock widthsInChars)
let head' = makeRow " || " headers'
let rowSeparator = if noHeaders then " | " else " | "
rows'' <- mapM (\row -> do cols <- mapM blockListToMuse row