@@ -593,11 +593,17 @@ imageOption =
593593 <|> try (many1 (oneOf "x0123456789") <* string "px")
594594 <|> try (oneOfStrings ["link=","alt=","page=","class="] <* many (noneOf "|]"))
595595
596+collapseUnderscores :: String -> String
597+collapseUnderscores [] = []
598+collapseUnderscores ('_':'_':xs) = collapseUnderscores ('_':xs)
599+collapseUnderscores (x:xs) = x : collapseUnderscores xs
600+
601+addUnderscores :: String -> String
602+addUnderscores = collapseUnderscores . intercalate "_" . words
603+
596604internalLink :: MWParser Inlines
597605internalLink = try $ do
598606 sym "[["
599− let addUnderscores x = let (pref,suff) = break (=='#') x
600− in pref ++ intercalate "_" (words suff)
601607 pagename <- unwords . words <$> many (noneOf "|]")
602608 label <- option (B.text pagename) $ char '|' *>
603609 ( (mconcat <$> many1 (notFollowedBy (char ']') *> inline))