git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: allow "-" in anchors
ce4326aAlexander Krotov
src/Text/Pandoc/Readers/Muse.hs+1−1
compare with master
unifiedsplit
@@ -801,7 +801,7 @@ parseAnchor :: PandocMonad m => MuseParser m String
801parseAnchor = try $ do
801parseAnchor = try $ do
802 getPosition >>= \pos -> guard (sourceColumn pos == 1)
802 getPosition >>= \pos -> guard (sourceColumn pos == 1)
803 char '#'
803 char '#'
804− (:) <$> letter <*> many (letter <|> digit)
804+ (:) <$> letter <*> many (letter <|> digit <|> char '-')
805
805
806anchor :: PandocMonad m => MuseParser m (F Inlines)
806anchor :: PandocMonad m => MuseParser m (F Inlines)
807anchor = try $ do
807anchor = try $ do
test/Tests/Readers/Muse.hs+5
@@ -637,6 +637,11 @@ tests =
637 , "#anchor and ends here."
637 , "#anchor and ends here."
638 ] =?>
638 ] =?>
639 para ("Paragraph starts here\n" <> spanWith ("anchor", [], []) mempty <> "and ends here.")
639 para ("Paragraph starts here\n" <> spanWith ("anchor", [], []) mempty <> "and ends here.")
640+ , "Anchor with \"-\"" =:
641+ T.unlines [ "; A comment to make sure anchor is not parsed as a directive"
642+ , "#anchor-id Target"
643+ ] =?>
644+ para (spanWith ("anchor-id", [], []) mempty <> "Target")
640 ]
645 ]
641 , testGroup "Footnotes"
646 , testGroup "Footnotes"
642 [ "Simple footnote" =:
647 [ "Simple footnote" =: