@@ -39,7 +39,6 @@ TODO:
3939- Anchors
4040- Citations and <biblio>
4141- <play> environment
42−- <verbatim> tag
4342-}
4443module Text.Pandoc.Readers.Muse (readMuse) where
4544
@@ -537,6 +536,7 @@ inline = choice [ br
537536 , superscriptTag
538537 , subscriptTag
539538 , strikeoutTag
539+ , verbatimTag
540540 , link
541541 , code
542542 , codeTag
@@ -613,6 +613,11 @@ subscriptTag = inlineTag B.subscript "sub"
613613strikeoutTag :: PandocMonad m => MuseParser m (F Inlines)
614614strikeoutTag = inlineTag B.strikeout "del"
615615
616+verbatimTag :: PandocMonad m => MuseParser m (F Inlines)
617+verbatimTag = do
618+ content <- parseHtmlContent "verbatim" anyChar
619+ return $ return $ B.text $ fromEntities content
620+
616621code :: PandocMonad m => MuseParser m (F Inlines)
617622code = try $ do
618623 pos <- getPosition