diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-29 05:09:10 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-29 05:12:25 +0300 |
| commit | 7751391fce9a51066e02ecbe3677e69224c2161d (patch) | |
| tree | ff8cc2269cbc37554cfc11fed31cd880b94d64a6 | |
| parent | 0105a3c2930675971ea83da3b987c6b62f97ce26 (diff) | |
| download | pandoc-7751391fce9a51066e02ecbe3677e69224c2161d.tar.gz | |
Muse reader: correctly remove indentation from notes
Exactly one space is required and considered to be part of the marker.
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 4 | ||||
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 8 |
2 files changed, 10 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 794ca7385..f10a2172f 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -318,8 +318,8 @@ amuseNoteBlock :: PandocMonad m => MuseParser m (F Blocks) amuseNoteBlock = try $ do guardEnabled Ext_amuse pos <- getPosition - ref <- noteMarker <* skipSpaces - content <- listItemContents $ 2 + length ref + ref <- noteMarker <* spaceChar + content <- listItemContents $ 3 + length ref oldnotes <- stateNotes' <$> getState case M.lookup ref oldnotes of Just _ -> logMessage $ DuplicateNoteReference ref pos diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 0cccb50e6..c0da48586 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -385,6 +385,14 @@ tests = , " </example>" ] =?> definitionList [ ("term", [codeBlock "foo" <> para "bar" <> codeBlock "baz"]) ] + , "Example inside note" =: + T.unlines [ "Foo[1]" + , "" + , "[1] <example>" + , " bar" + , " </example>" + ] =?> + para ("Foo" <> note (codeBlock "bar")) ] , testGroup "Literal blocks" [ test emacsMuse "Literal block" |