diff options
| author | Henrik Tramberend <henrik@tramberend.de> | 2016-01-20 13:21:26 +0100 |
|---|---|---|
| committer | Henrik Tramberend <henrik@tramberend.de> | 2016-01-20 13:21:26 +0100 |
| commit | 7a18879a36740c097811a3d446d195adb7319f46 (patch) | |
| tree | 6063f334500a925742697ad0656b828d499ba2fe /src/Text/Pandoc/Writers/LaTeX.hs | |
| parent | f2c0974a26b7de7d39168268de7c6257f14c56be (diff) | |
| download | pandoc-7a18879a36740c097811a3d446d195adb7319f46.tar.gz | |
LaTeX writer: Allow more flexible table alignment
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 2dcbf62bf..e4e882b8c 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -591,7 +591,7 @@ blockToLaTeX (Table caption aligns widths heads rows) = do rows' <- mapM (tableRowToLaTeX False aligns widths) rows let colDescriptors = text $ concat $ map toColDescriptor aligns modify $ \s -> s{ stTable = True } - return $ "\\begin{longtable}[c]" <> + return $ "\\begin{longtable}[]" <> braces ("@{}" <> colDescriptors <> "@{}") -- the @{} removes extra space at beginning and end $$ capt |