git.iko.soy/typeable/pandoc
on master help sign in
MediaWiki reader: Handle def lists without terms (: lines).
57ec347John MacFarlane
src/Text/Pandoc/Readers/MediaWiki.hs+2−1
compare with master
unifiedsplit
@@ -193,7 +193,7 @@ definitionList = B.definitionList <$> many1 defListItem
193
193
194defListItem :: MWParser (Inlines, [Blocks])
194defListItem :: MWParser (Inlines, [Blocks])
195defListItem = try $ do
195defListItem = try $ do
196− terms <- mconcat . intersperse B.linebreak <$> many1 defListTerm
196+ terms <- mconcat . intersperse B.linebreak <$> many defListTerm
197 defs <- many1 $ listItem ':'
197 defs <- many1 $ listItem ':'
198 return (terms, defs)
198 return (terms, defs)
199
199
@@ -210,6 +210,7 @@ listStartChar = oneOf "*#;:"
210anyListStart :: MWParser ()
210anyListStart :: MWParser ()
211anyListStart = skipMany1 (char '*')
211anyListStart = skipMany1 (char '*')
212 <|> skipMany1 (char '#')
212 <|> skipMany1 (char '#')
213+ <|> skipMany1 (char ':')
213 <|> (() <$ char ';')
214 <|> (() <$ char ';')
214
215
215listItem :: Char -> MWParser Blocks
216listItem :: Char -> MWParser Blocks