diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 1a15adf7a..f5003de0d 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -271,7 +271,8 @@ blockToLaTeX (Header level lst) = do blockToLaTeX (Table caption aligns widths heads rows) = do headers <- if all null heads then return empty - else liftM ($$ "\\hline") $ (tableRowToLaTeX widths) heads + else liftM ($$ "\\hline\\noalign{\\smallskip}") + $ (tableRowToLaTeX widths) heads captionText <- inlineListToLaTeX $ deVerb caption rows' <- mapM (tableRowToLaTeX widths) rows let colDescriptors = concat $ zipWith toColDescriptor widths aligns @@ -306,10 +307,10 @@ tableRowToLaTeX :: [Double] -> [[Block]] -> State WriterState Doc tableRowToLaTeX widths cols = do renderedCells <- mapM blockListToLaTeX cols let toCell 0 c = c - toCell w c = "\\parbox{" <> text (printf "%.2f" w) <> + toCell w c = "\\parbox[t]{" <> text (printf "%.2f" w) <> "\\columnwidth}{" <> c <> cr <> "}" let cells = zipWith toCell widths renderedCells - return $ (hcat $ intersperse (" & ") cells) <> "\\\\" + return $ (hcat $ intersperse (" & ") cells) <> "\\\\\\noalign{\\medskip}" listItemToLaTeX :: [Block] -> State WriterState Doc listItemToLaTeX lst = blockListToLaTeX lst >>= return . (text "\\item" $$) . |