diff options
author | defanor <defanor@uberspace.net> | 2017-12-01 13:16:15 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-12-01 13:16:15 +0300 |
commit | c794a79a2aa8062017884f1b04c731281e7b2023 (patch) | |
tree | d3713be1da18d25d2beaaf0ca53c75f1513a1cca /Pancake/Rendering.hs | |
parent | 57228505d0f6e0acd739c39246de6342b2f33915 (diff) |
Skip empty table headers
Pandoc adds them even when they are undefined, no need to add an
additional horizontal rule in such a case.
Diffstat (limited to 'Pancake/Rendering.hs')
-rw-r--r-- | Pancake/Rendering.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index 55aabd6..0149655 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -438,7 +438,8 @@ renderBlock (P.Table caption aligns widths headers rows) = do (mapM (fmap (length . unstyled . concat . rLines) . renderCell 80)) rows pure $ map (\l -> fromIntegral l / fromIntegral (sum lens) * 0.7 + 1 / fromIntegral (length lens) * 0.3) lens - mapM_ (\r -> renderBlock P.HorizontalRule >> tableRow ws r) (headers : rows) + let withHead = if all null headers then id else (headers :) + mapM_ (\r -> renderBlock P.HorizontalRule >> tableRow ws r) (withHead rows) renderBlock P.HorizontalRule where renderCell :: Int -> [P.Block] -> Renderer [RendererOutput] |