@@ -56,7 +56,7 @@ import qualified Text.Pandoc.Class as P
5656import Text.Pandoc.Definition
5757import Text.Pandoc.Logging
5858import Text.Pandoc.Options (HTMLMathMethod (..), WriterOptions (..), def)
59−import Text.Pandoc.Shared (capitalize, isHeaderBlock, isURI, linesToPara,
59+import Text.Pandoc.Shared (capitalize, isHeaderBlock, isURI,
6060 orderedListMarkers)
6161
6262-- | Data to be written at the end of the document:
@@ -331,7 +331,11 @@ blockToXml b@(RawBlock _ _) = do
331331 return []
332332blockToXml (Div _ bs) = cMapM blockToXml bs
333333blockToXml (BlockQuote bs) = (list . el "cite") <$> cMapM blockToXml bs
334−blockToXml (LineBlock lns) = blockToXml $ linesToPara lns
334+blockToXml (LineBlock lns) =
335+ (list . el "poem") <$> mapM stanza (split null lns)
336+ where
337+ v xs = el "v" <$> cMapM toXml xs
338+ stanza xs = el "stanza" <$> mapM v xs
335339blockToXml (OrderedList a bss) = do
336340 state <- get
337341 let pmrk = parentListMarker state