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

1 files changed, 2 insertions, 12 deletions

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