Renamed Ext_autolink_code_spans to Ext_monospace_autolinks.

This commit is contained in:
John MacFarlane 2012-09-27 13:28:04 -07:00
parent f76478bcb9
commit 15a8192b84
3 changed files with 4 additions and 4 deletions

2
README
View file

@ -1964,7 +1964,7 @@ will become a link:
<http://google.com>
<sam@green.eggs.ham>
**Extension: `autolink_code_spans`**
**Extension: `monospace_autolinks`**
Pandoc will render autolinked URLs and email addresses as
inline code.

View file

@ -72,7 +72,7 @@ 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_autolink_code_spans -- ^ Put autolink text inside code spans
| Ext_monospace_autolinks -- ^ Put autolink text in monospace font
| Ext_fancy_lists -- ^ Enable fancy list numbers and delimiters
| Ext_startnum -- ^ Make start number of ordered list significant
| Ext_definition_lists -- ^ Definition lists as in pandoc, mmd, php
@ -112,7 +112,7 @@ pandocExtensions = Set.fromList
, Ext_inline_code_attributes
, Ext_markdown_in_html_blocks
, Ext_escaped_line_breaks
, Ext_autolink_code_spans
, Ext_monospace_autolinks
, Ext_fancy_lists
, Ext_startnum
, Ext_definition_lists

View file

@ -1476,7 +1476,7 @@ autoLink = try $ do
char '<'
(orig, src) <- uri <|> emailAddress
char '>'
(guardEnabled Ext_autolink_code_spans >>
(guardEnabled Ext_monospace_autolinks >>
return (return $ B.link src "" (B.codeWith ("",["url"],[]) orig)))
<|> return (return $ B.link src "" (B.str orig))