diff options
| -rw-r--r-- | README | 6 | ||||
| -rw-r--r-- | src/Text/Pandoc/Options.hs | 1 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 11 |
3 files changed, 1 insertions, 17 deletions
@@ -2207,12 +2207,6 @@ Causes anything between `\\(` and `\\)` to be interpreted as inline TeX math, and anything between `\\[` and `\\]` to be interpreted as display TeX math. -**Extension: `markdown_attribute`**\ -Causes the attribute `markdown=1` to be added to all block-level -HTML tags that might contain markdown. In pandoc, material inside -block-level tags is interpreted a markdown by default, but in some -other implementations, the `markdown=1` tag is needed. - Producing slide shows with Pandoc ================================= diff --git a/src/Text/Pandoc/Options.hs b/src/Text/Pandoc/Options.hs index 6d235e7a8..f7f07a939 100644 --- a/src/Text/Pandoc/Options.hs +++ b/src/Text/Pandoc/Options.hs @@ -64,7 +64,6 @@ data Extension = Ext_footnotes | Ext_delimited_code_blocks | Ext_inline_code_attributes | Ext_markdown_in_html_blocks - | Ext_markdown_attribute | Ext_escaped_line_breaks | Ext_autolink_code_spans | Ext_fancy_lists diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index fbcdeeb14..8a1299de6 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -736,19 +736,10 @@ rawTeXBlock = do spaces return $ return result -addMarkdownAttribute :: (Tag String, String) -> Parser [Char] ParserState String -addMarkdownAttribute (t,s) = do - (guardDisabled Ext_markdown_attribute >> return s) - <|> case t of - TagOpen x attrs - | "markdown" `elem` map fst attrs -> return s - | otherwise -> return $ renderTags [TagOpen x (("markdown","1"):attrs)] - _ -> return s - rawHtmlBlocks :: Parser [Char] ParserState String rawHtmlBlocks = do htmlBlocks <- many1 $ do blk <- rawVerbatimBlock <|> - (htmlTag isBlockTag >>= addMarkdownAttribute) + liftM snd (htmlTag isBlockTag) sps <- do sp1 <- many spaceChar sp2 <- option "" (blankline >> return "\n") sp3 <- many spaceChar |