diff options
Diffstat (limited to 'Pancake/Rendering.hs')
| -rw-r--r-- | Pancake/Rendering.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index 0794616..b1b5350 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -316,7 +316,7 @@ readInlines i = pure . concat <$> mapM readInline i -- | Renders a block element. renderBlock :: P.Block -> Renderer () renderBlock (P.Plain i) = indented =<< readInlines i -renderBlock (P.Para i) = (indented =<< readInlines i) >> storeLines [[""]] +renderBlock (P.Para i) = indented =<< readInlines i renderBlock (P.LineBlock i) = indented =<< concat <$> mapM (mapM readInline) i renderBlock (P.CodeBlock attr s) = do @@ -393,9 +393,13 @@ renderBlock (P.Div attr b) = do renderBlocks b renderBlock P.Null = pure () +-- | Renders a block element followed by an empy line. +renderBlockLn :: P.Block -> Renderer () +renderBlockLn b = renderBlock b >> storeLines [[]] + -- | Renders multiple block elements. renderBlocks :: [P.Block] -> Renderer () -renderBlocks b = withIndent $ mapM_ renderBlock b +renderBlocks b = withIndent $ mapM_ renderBlockLn b -- | Renders a document. renderDoc :: Int @@ -405,4 +409,4 @@ renderDoc :: Int -> [RendererOutput] -- ^ Rendered document. renderDoc cols (P.Pandoc _ blocks) = - runRenderer cols 0 1 $ mapM_ renderBlock blocks + runRenderer cols 0 1 $ mapM_ renderBlockLn blocks |