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/Textile.hs | |
parent | 703c421c9e8684bb20aa091223ca5e532b6bb867 (diff) | |
download | pandoc-f8dca6ccbc4ce927ee035c3e60729c040b2280a0.tar.gz |
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/Textile.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index 714cac9f4..19357b343 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -494,13 +494,13 @@ code :: GenParser Char ParserState Inline code = code1 <|> code2 code1 :: GenParser Char ParserState Inline -code1 = surrounded (char '@') anyChar >>= return . Code +code1 = surrounded (char '@') anyChar >>= return . Code nullAttr code2 :: GenParser Char ParserState Inline code2 = do htmlTag (tagOpen (=="tt") null) result' <- manyTill anyChar (try $ htmlTag $ tagClose (=="tt")) - return $ Code result' + return $ Code nullAttr result' -- | Html / CSS attributes attributes :: GenParser Char ParserState String |