@@ -178,8 +178,12 @@ blockToConTeXt (Para lst) = do
178178 contents <- inlineListToConTeXt lst
179179 return $ contents <> blankline
180180blockToConTeXt (LineBlock lns) = do
181− doclines <- nowrap . vcat <$> mapM inlineListToConTeXt lns
182− return $ "\\startlines" $$ doclines $$ "\\stoplines" <> blankline
181+ let emptyToBlankline doc = if isEmpty doc
182+ then blankline
183+ else doc
184+ doclines <- mapM inlineListToConTeXt lns
185+ let contextLines = vcat . map emptyToBlankline $ doclines
186+ return $ "\\startlines" $$ contextLines $$ "\\stoplines" <> blankline
183187blockToConTeXt (BlockQuote lst) = do
184188 contents <- blockListToConTeXt lst
185189 return $ "\\startblockquote" $$ nest 0 contents $$ "\\stopblockquote" <> blankline