@@ -639,7 +639,11 @@ keyValAttr = try $ do
639 val <- enclosed (char '"') (char '"') litChar
639 val <- enclosed (char '"') (char '"') litChar
640 <|> enclosed (char '\'') (char '\'') litChar
640 <|> enclosed (char '\'') (char '\'') litChar
641 <|> many (escapedChar' <|> noneOf " \t\n\r}")
641 <|> many (escapedChar' <|> noneOf " \t\n\r}")
642− return $ \(id',cs,kvs) -> (id',cs,kvs ++ [(key,val)])
642+ return $ \(id',cs,kvs) ->
644+ "id" -> (val,cs,kvs)
645+ "class" -> (id',cs ++ words val,kvs)
646+ _ -> (id',cs,kvs ++ [(key,val)])
644specialAttr :: MarkdownParser (Attr -> Attr)
648specialAttr :: MarkdownParser (Attr -> Attr)
645specialAttr = do
649specialAttr = do