63cf37a · typeable/pandoc · git.iko.soy

git.iko.soy/typeable/pandoc

on master help sign in

HTML reader: allow : in tags.

63cf37aJohn MacFarlane16 years ago

src/Text/Pandoc/Readers/HTML.hs+6−2

compare with master

@@ -164,7 +164,9 @@ anyHtmlTag :: GenParser Char ParserState [Char]

164anyHtmlTag = try $ do

164anyHtmlTag = try $ do

165 char '<'

165 char '<'

166 spaces

166 spaces

167+ first <- letter

167− tag <- many1 alphaNum

168+ rest <- many (alphaNum <|> char ':')

169+ let tag = first : rest

168 attribs <- many htmlAttribute

170 attribs <- many htmlAttribute

169 spaces

171 spaces

170 ender <- option "" (string "/")

172 ender <- option "" (string "/")

@@ -181,7 +183,9 @@ anyHtmlEndTag = try $ do

181 spaces

183 spaces

182 char '/'

184 char '/'

183 spaces

185 spaces

186+ first <- letter

184− tag <- many1 alphaNum

187+ rest <- many (alphaNum <|> char ':')

188+ let tag = first : rest

185 spaces

189 spaces

186 char '>'

190 char '>'

187 let result = "</" ++ tag ++ ">"

191 let result = "</" ++ tag ++ ">"