diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-09-27 15:01:00 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-27 15:01:00 -0700 |
| commit | 606b5e8ed4d2e9bbf2bc3eb36c7328c07adaa820 (patch) | |
| tree | 555e9679673e0858a1624f82d05ada8a0ef1b308 /src | |
| parent | bae39e77a82a911b5a861970a6680fbd0cfd5357 (diff) | |
| download | pandoc-606b5e8ed4d2e9bbf2bc3eb36c7328c07adaa820.tar.gz | |
Removed Ext_monospace_autolinks.
Diffstat (limited to 'src')
| -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 |