From 508c3a64d823989dc6613ac7656851989530af65 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 10 Sep 2017 22:35:52 +0300
Subject: Muse reader: parse {{{ }}} example syntax

---
 src/Text/Pandoc/Readers/Muse.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index ab9a51bad..b061d2dfc 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -30,7 +30,6 @@ Conversion of Muse text to 'Pandoc' document.
 -}
 {-
 TODO:
-- {{{ }}} syntax for <example>
 - Page breaks (five "*")
 - Headings with anchors (make it round trip with Muse writer)
 - Org tables
@@ -177,6 +176,7 @@ blockElements :: PandocMonad m => MuseParser m (F Blocks)
 blockElements = choice [ comment
                        , separator
                        , header
+                       , example
                        , exampleTag
                        , literal
                        , centerTag
@@ -221,6 +221,13 @@ header = try $ do
   attr <- registerHeader ("", [], []) (runF content defaultParserState)
   return $ B.headerWith attr level <$> content
 
+example :: PandocMonad m => MuseParser m (F Blocks)
+example = try $ do
+  string "{{{"
+  optionMaybe blankline
+  contents <- manyTill anyChar $ try (optionMaybe blankline >> string "}}}")
+  return $ return $ B.codeBlock contents
+
 exampleTag :: PandocMonad m => MuseParser m (F Blocks)
 exampleTag = do
   (attr, contents) <- htmlElement "example"
-- 
cgit v1.2.3