c899b4e · typeable/pandoc

git.iko.soy/typeable/pandoc

Muse writer: escape list markers in the beginning of notes

commitc899b4e89dcd61f91f7383e2a81a13ef0da080b8 authorAlexander Krotov <ilabdsf@gmail.com> dateTue 11 Sep 2018, 03:50 (8 years ago) parentce6042f

2 files changed+10−1

unifiedsplit

src/Text/Pandoc/Writers/Muse.hs+4−1

@@ -292,7 +292,10 @@ noteToMuse :: PandocMonad m

292292 -> [Block]

293293 -> Muse m Doc

294294noteToMuse num note =

295− hang (length marker) (text marker) <$> blockListToMuse note

295+ hang (length marker) (text marker) <$>

296+ (local (\env -> env { envInlineStart = True

297+ , envAfterSpace = True

298+ }) $ blockListToMuse note)

296299 where

297300 marker = "[" ++ show num ++ "] "

298301

test/Tests/Writers/Muse.hs+6

@@ -348,6 +348,12 @@ tests = [ testGroup "block elements"

348348 , ""

349349 , " <verbatim></verbatim>- bar"

350350 ]

351+ , "escape - inside a note" =:

352+ note (para (text "- foo")) =?>

353+ unlines [ "[1]"

354+ , ""

355+ , "[1] <verbatim></verbatim>- foo"

356+ ]

351357 , "escape ; to avoid accidental comments" =: text "; foo" =?> "<verbatim></verbatim>; foo"

352358 , "escape ; after softbreak" =: text "foo" <> softbreak <> text "; bar" =?> "foo\n<verbatim></verbatim>; bar"

353359 , "escape ; after linebreak" =: text "foo" <> linebreak <> text "; bar" =?> "foo<br>\n<verbatim></verbatim>; bar"