diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-01-02 23:59:11 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-01-03 00:00:57 +0100 |
| commit | c3a00c1fdcbd4988792e94ea23ad024a252627aa (patch) | |
| tree | 16e7cb1f44c4ff7f7e59af003c547cf5ef776d54 /src/Text/Pandoc/Writers/Org.hs | |
| parent | 2c1a911bc19bdc4069a2abd84b3c1954d0877cce (diff) | |
| download | pandoc-c3a00c1fdcbd4988792e94ea23ad024a252627aa.tar.gz | |
Org writer: remove extra spaces from table cells
Closes: #6024
Diffstat (limited to 'src/Text/Pandoc/Writers/Org.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index e21d3f8c2..2774a98bd 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -195,7 +195,7 @@ blockToOrg (Table caption' _ _ headers rows) = do let numChars = maximum . map offset -- FIXME: width is not being used. let widthsInChars = - map ((+2) . numChars) $ transpose (headers' : rawRows) + map numChars $ transpose (headers' : rawRows) -- FIXME: Org doesn't allow blocks with height more than 1. let hpipeBlocks blocks = hcat [beg, middle, end] where sep' = vfill " | " |