Muse writer: escape semicolons and markers after line break
commitb379a2903a07fc6a7389d1fed40565b3551fecc5
authorAlexander Krotov <ilabdsf@gmail.com>
dateWed 28 Mar 2018, 13:17 (9 years ago)
parentc24ecf9
src/Text/Pandoc/Writers/Muse.hs+1−1
@@ -382,7 +382,7 @@ renderInlineList True [] = pure "<verbatim></verbatim>"
382382renderInlineList False [] = pure ""
383383renderInlineList start (x:xs) = do r <- inlineToMuse x
384384 opts <- gets stOptions
385− lst' <- renderInlineList (x == SoftBreak && writerWrapText opts == WrapPreserve) xs
385+ lst' <- renderInlineList ((x == SoftBreak && writerWrapText opts == WrapPreserve) || x == LineBreak) xs
386386 if start && fixOrEscape x
387387 then pure (text "<verbatim></verbatim>" <> r <> lst')
388388 else pure (r <> lst')
test/Tests/Writers/Muse.hs+1
@@ -323,6 +323,7 @@ tests = [ testGroup "block elements"
323323 ]
324324 , "escape ; to avoid accidental comments" =: text "; foo" =?> "<verbatim></verbatim>; foo"
325325 , "escape ; after softbreak" =: text "foo" <> softbreak <> text "; bar" =?> "foo\n<verbatim></verbatim>; bar"
326+ , "escape ; after linebreak" =: text "foo" <> linebreak <> text "; bar" =?> "foo<br>\n<verbatim></verbatim>; bar"
326327 ]
327328 , testGroup "emphasis"
328329 [ "emph" =: emph (text "foo") =?> "<em>foo</em>"
test/writer.muse+1−1
@@ -42,7 +42,7 @@ item.
4242Here’s one with a bullet. <verbatim>*</verbatim> criminey.
4343
4444There should be a hard line break<br>
45−here.
45+<verbatim></verbatim>here.
4646
4747----
4848