From 606b5e8ed4d2e9bbf2bc3eb36c7328c07adaa820 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 27 Sep 2012 15:01:00 -0700
Subject: Removed Ext_monospace_autolinks.

---
 src/Text/Pandoc/Options.hs          | 2 --
 src/Text/Pandoc/Readers/Markdown.hs | 8 ++------
 2 files changed, 2 insertions(+), 8 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3