From 27cccfac849d644e1f722314cefa1ae212227d18 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 11 Sep 2017 12:13:09 +0300
Subject: Muse reader: parse verbatim tag

---
 src/Text/Pandoc/Readers/Muse.hs | 7 ++++++-
 test/Tests/Readers/Muse.hs      | 2 ++
 2 files changed, 8 insertions(+), 1 deletion(-)

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
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 43a1d0697..66c6ea7f2 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -108,6 +108,8 @@ tests =
 
       , "Code tag" =: "<code>foo(bar)</code>" =?> para (code "foo(bar)")
 
+      , "Verbatim tag" =: "*<verbatim>*</verbatim>*" =?> para (emph "*")
+
       , testGroup "Links"
         [ "Link without description" =:
           "[[https://amusewiki.org/]]" =?>
-- 
cgit v1.2.3