From ce4326a4f12180844532febf93261f098cd6c5aa Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Thu, 19 Apr 2018 14:17:59 +0300
Subject: [PATCH] Muse reader: allow "-" in anchors
---
src/Text/Pandoc/Readers/Muse.hs | 2 +-
test/Tests/Readers/Muse.hs | 5 +++++
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 98c1a9d55..43c835edb 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -801,7 +801,7 @@ parseAnchor :: PandocMonad m => MuseParser m String
parseAnchor = try $ do
getPosition >>= \pos -> guard (sourceColumn pos == 1)
char '#'
- (:) <$> letter <*> many (letter <|> digit)
+ (:) <$> letter <*> many (letter <|> digit <|> char '-')
anchor :: PandocMonad m => MuseParser m (F Inlines)
anchor = try $ do
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 8474b2509..a7eb9d0eb 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -637,6 +637,11 @@ tests =
, "#anchor and ends here."
] =?>
para ("Paragraph starts here\n" <> spanWith ("anchor", [], []) mempty <> "and ends here.")
+ , "Anchor with \"-\"" =:
+ T.unlines [ "; A comment to make sure anchor is not parsed as a directive"
+ , "#anchor-id Target"
+ ] =?>
+ para (spanWith ("anchor-id", [], []) mempty <> "Target")
]
, testGroup "Footnotes"
[ "Simple footnote" =: