From f0b9d52fd3fcdd61e1ea7f5ac98eefe7e502cf8a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 27 Jul 2012 16:00:27 -0700
Subject: Markdown reader:  Added sensitivity to Ext_example_lists.

---
 src/Text/Pandoc/Readers/Markdown.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 7f4ed6d3e..545f34ca1 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -592,9 +592,10 @@ listItem start = try $ do
 orderedList :: Parser [Char] ParserState Block
 orderedList = try $ do
   (start, style, delim) <- lookAhead anyOrderedListStart
-  unless ((style == DefaultStyle || style == Decimal) &&
+  unless ((style == DefaultStyle || style == Decimal || style == Example) &&
           (delim == DefaultDelim || delim == Period)) $
     guardEnabled Ext_fancy_lists
+  when (style == Example) $ guardEnabled Ext_example_lists
   items <- many1 $ listItem $ try $
              do optional newline -- if preceded by a Plain block in a list context
                 skipNonindentSpaces
@@ -1024,6 +1025,7 @@ ltSign = do
 
 exampleRef :: Parser [Char] ParserState Inline
 exampleRef = try $ do
+  guardEnabled Ext_example_lists
   char '@'
   lab <- many1 (alphaNum <|> oneOf "-_")
   -- We just return a Str. These are replaced with numbers
-- 
cgit v1.2.3