git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: require that comment semicolons are in the first column
6be0139Alexander Krotov
src/Text/Pandoc/Readers/Muse.hs+1
compare with master
unifiedsplit
@@ -348,6 +348,7 @@ blockElements = do
348-- | Parse a line comment, starting with @;@ in the first column.
348-- | Parse a line comment, starting with @;@ in the first column.
349comment :: PandocMonad m => MuseParser m (F Blocks)
349comment :: PandocMonad m => MuseParser m (F Blocks)
350comment = try $ do
350comment = try $ do
351+ getPosition >>= \pos -> guard (sourceColumn pos == 1)
351 char ';'
352 char ';'
352 optional (spaceChar >> many (noneOf "\n"))
353 optional (spaceChar >> many (noneOf "\n"))
353 eol
354 eol
test/Tests/Readers/Muse.hs+1
@@ -521,6 +521,7 @@ tests =
521 , "Text after empty comment" =: ";\nfoo" =?> para "foo" -- Make sure we don't consume newline while looking for whitespace
521 , "Text after empty comment" =: ";\nfoo" =?> para "foo" -- Make sure we don't consume newline while looking for whitespace
522 , "Not a comment (does not start with a semicolon)" =: " ; Not a comment" =?> para (text "; Not a comment")
522 , "Not a comment (does not start with a semicolon)" =: " ; Not a comment" =?> para (text "; Not a comment")
523 , "Not a comment (has no space after semicolon)" =: ";Not a comment" =?> para (text ";Not a comment")
523 , "Not a comment (has no space after semicolon)" =: ";Not a comment" =?> para (text ";Not a comment")
524+ , "Not a comment (semicolon not in the first column)" =: " - ; foo" =?> bulletList [para "; foo"]
524 ]
525 ]
525 , testGroup "Headers"
526 , testGroup "Headers"
526 [ "Part" =:
527 [ "Part" =: