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