From aea6f6802b5c11e59063cc209b2b08ff9f58ee6f Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 8 Dec 2007 19:32:18 +0000
Subject: Removed support for "box-style" block quotes in markdown. This adds
 unneeded complexity and makes pandoc diverge further than necessary from
 other markdown extensions. Brought documentation, tests, and debian/changelog
 up to date.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1141 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Readers/Markdown.hs | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

(limited to 'Text')

diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs
index 75b9ad134..38129d4b7 100644
--- a/Text/Pandoc/Readers/Markdown.hs
+++ b/Text/Pandoc/Readers/Markdown.hs
@@ -296,16 +296,6 @@ codeBlock = do
 -- block quotes
 --
 
-emacsBoxQuote = try $ do
-  failIfStrict
-  string ",----"
-  manyTill anyChar newline
-  raw <- manyTill 
-         (try (char '|' >> optional (char ' ') >> manyTill anyChar newline))
-         (try (string "`----"))
-  blanklines
-  return raw
-
 emailBlockQuoteStart = try $ nonindentSpaces >> char '>' >>~ optional (char ' ')
 
 emailBlockQuote = try $ do
@@ -319,7 +309,7 @@ emailBlockQuote = try $ do
   return raw
 
 blockQuote = do 
-  raw <- emailBlockQuote <|> emacsBoxQuote
+  raw <- emailBlockQuote
   -- parse the extracted block, which may contain various block elements:
   contents <- parseFromString parseBlocks $ (joinWithSep "\n" raw) ++ "\n\n"
   return $ BlockQuote contents
@@ -465,7 +455,7 @@ para = try $ do
   blanklines <|> do st <- getState
                     if stateStrict st
                        then lookAhead (blockQuote <|> header) >> return ""
-                       else lookAhead emacsBoxQuote >> return ""
+                       else pzero
   return $ Para $ normalizeSpaces result
 
 plain = many1 inline >>= return . Plain . normalizeSpaces 
-- 
cgit v1.2.3