diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Options.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 8 |
2 files changed, 2 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Options.hs b/src/Text/Pandoc/Options.hs index f9930cf50..834810859 100644 --- a/src/Text/Pandoc/Options.hs +++ b/src/Text/Pandoc/Options.hs @@ -72,7 +72,6 @@ data Extension = | Ext_markdown_attribute -- ^ Interpret text inside HTML as markdown -- iff container has attribute 'markdown' | Ext_escaped_line_breaks -- ^ Treat a backslash at EOL as linebreak - | Ext_monospace_autolinks -- ^ Put autolink text in monospace font | Ext_autolink_urls -- ^ Make all absolute URLs into links | Ext_fancy_lists -- ^ Enable fancy list numbers and delimiters | Ext_startnum -- ^ Make start number of ordered list significant @@ -113,7 +112,6 @@ pandocExtensions = Set.fromList , Ext_inline_code_attributes , Ext_markdown_in_html_blocks , Ext_escaped_line_breaks - , Ext_monospace_autolinks , Ext_fancy_lists , Ext_startnum , Ext_definition_lists diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 6f4e5672e..9512328ea 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1476,18 +1476,14 @@ bareURL :: Parser [Char] ParserState (F Inlines) bareURL = try $ do guardEnabled Ext_autolink_urls (orig, src) <- uri <|> emailAddress - (guardEnabled Ext_monospace_autolinks >> - return (return $ B.link src "" (B.codeWith ("",["url"],[]) orig))) - <|> return (return $ B.link src "" (B.str orig)) + return $ return $ B.link src "" (B.codeWith ("",["url"],[]) orig) autoLink :: Parser [Char] ParserState (F Inlines) autoLink = try $ do char '<' (orig, src) <- uri <|> emailAddress char '>' - (guardEnabled Ext_monospace_autolinks >> - return (return $ B.link src "" (B.codeWith ("",["url"],[]) orig))) - <|> return (return $ B.link src "" (B.str orig)) + return $ return $ B.link src "" (B.codeWith ("",["url"],[]) orig) image :: Parser [Char] ParserState (F Inlines) image = try $ do |