@@ -60,13 +60,16 @@ readMediaWiki :: ReaderOptions -- ^ Reader options
6060 -> String -- ^ String to parse (assuming @'\n'@ line endings)
6161 -> Pandoc
6262readMediaWiki opts s =
63− case runParser parseMediaWiki MWState{ mwOptions = opts, mwMaxNestingLevel = 4 }
63+ case runParser parseMediaWiki MWState{ mwOptions = opts
64+ , mwMaxNestingLevel = 4
65+ , mwNextLinkNumber = 1 }
6466 "source" (s ++ "\n") of
6567 Left err' -> error $ "\nError:\n" ++ show err'
6668 Right result -> result
6769
68−data MWState = MWState { mwOptions :: ReaderOptions
70+data MWState = MWState { mwOptions :: ReaderOptions
6971 , mwMaxNestingLevel :: Int
72+ , mwNextLinkNumber :: Int
7073 }
7174
7275type MWParser = Parser [Char] MWState
@@ -369,12 +372,13 @@ externalLink :: MWParser Inlines
369372externalLink = try $ do
370373 char '['
371374 (_, src) <- uri
372− skipMany1 spaceChar
373− lab <- manyTill inline (char ']')
374− let lab' = if null lab
375− then [B.str "1"] -- TODO generate sequentially from state
376− else lab
377− return $ B.link src "" $ trimInlines $ mconcat lab'
375+ lab <- try (trimInlines . mconcat <$>
376+ (skipMany1 spaceChar *> manyTill inline (char ']')))
377+ <|> do char ']'
378+ num <- mwNextLinkNumber <$> getState
379+ updateState $ \st -> st{ mwNextLinkNumber = num + 1 }
380+ return $ B.str $ show num
381+ return $ B.link src "" lab
378382
379383url :: MWParser Inlines
380384url = do