aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Muse.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index f70085c54..ab9a51bad 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -39,7 +39,6 @@ TODO:
- Anchors
- Citations and <biblio>
- <play> environment
-- <verbatim> tag
-}
module Text.Pandoc.Readers.Muse (readMuse) where
@@ -537,6 +536,7 @@ inline = choice [ br
, superscriptTag
, subscriptTag
, strikeoutTag
+ , verbatimTag
, link
, code
, codeTag
@@ -613,6 +613,11 @@ subscriptTag = inlineTag B.subscript "sub"
strikeoutTag :: PandocMonad m => MuseParser m (F Inlines)
strikeoutTag = inlineTag B.strikeout "del"
+verbatimTag :: PandocMonad m => MuseParser m (F Inlines)
+verbatimTag = do
+ content <- parseHtmlContent "verbatim" anyChar
+ return $ return $ B.text $ fromEntities content
+
code :: PandocMonad m => MuseParser m (F Inlines)
code = try $ do
pos <- getPosition