diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-26 20:44:25 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-26 20:44:25 -0800 |
commit | f8dca6ccbc4ce927ee035c3e60729c040b2280a0 (patch) | |
tree | 8146ceff33aa064450e368ef6cd515d50f278294 /src/Text/Pandoc/Readers/Markdown.hs | |
parent | 703c421c9e8684bb20aa091223ca5e532b6bb867 (diff) |
Add support for attributes in inline Code.
Additional related changes:
* URLs in Code in autolinks now use class "url".
* Require highlighting-kate 0.2.8.2, which omits the final <br/> tag,
essential for inline code.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index ed04ee034..1b9094ab9 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -977,7 +977,8 @@ code = try $ do (char '\n' >> notFollowedBy' blankline >> return " ")) (try (skipSpaces >> count (length starts) (char '`') >> notFollowedBy (char '`'))) - return $ Code $ removeLeadingTrailingSpace $ concat result + attr <- option ([],[],[]) (try $ optional whitespace >> attributes) + return $ Code attr $ removeLeadingTrailingSpace $ concat result mathWord :: GenParser Char st [Char] mathWord = liftM concat $ many1 mathChunk @@ -1163,7 +1164,7 @@ autoLink = try $ do st <- getState return $ if stateStrict st then Link [Str orig] (src, "") - else Link [Code orig] (src, "") + else Link [Code ("",["url"],[]) orig] (src, "") image :: GenParser Char ParserState Inline image = try $ do |