@@ -34,7 +34,6 @@ _ tests for lists
3434_ support HTML lists
3535_ support list style attributes and start values in ol lists, also
3636 value attribute on li
37−_ support :, ::, etc. for indent (treat as list continuation paras?)
3837_ support preformatted text (lines starting with space)
3938_ support preformatted text blocks
4039_ code highlighting: http://www.mediawiki.org/wiki/Extension:SyntaxHighlight_GeSHi <syntaxhighlight lang="php"> (alternativel, <source...>)
@@ -207,11 +206,11 @@ listStart c = char c *> notFollowedBy listStartChar
207206listStartChar :: MWParser Char
208207listStartChar = oneOf "*#;:"
209208
210−anyListStart :: MWParser ()
211−anyListStart = skipMany1 (char '*')
212− <|> skipMany1 (char '#')
213− <|> skipMany1 (char ':')
214− <|> (() <$ char ';')
209+anyListStart :: MWParser Char
210+anyListStart = char '*'
211+ <|> char '#'
212+ <|> char ':'
213+ <|> char ';'
215214
216215listItem :: Char -> MWParser Blocks
217216listItem c = try $ do
@@ -226,6 +225,7 @@ listItem c = try $ do
226225 case c of
227226 '*' -> return $ B.bulletList contents
228227 '#' -> return $ B.orderedList contents
228+ ':' -> return $ B.definitionList [(mempty, contents)]
229229 _ -> mzero
230230
231231listItem' :: Char -> MWParser Blocks