diff options
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 8fd0b68e2..5c3a21bb7 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -21,7 +21,6 @@ module Text.Pandoc.Readers.Markdown ( import Control.Monad import Control.Monad.Except (throwError) import Data.Char (isAlphaNum, isPunctuation, isSpace) -import Data.Functor (($>)) import Data.List (transpose, elemIndex, sortOn) import qualified Data.Map as M import Data.Maybe @@ -1486,7 +1485,6 @@ inline = choice [ whitespace , note , cite , bracketedSpan - , githubWikiLink , link , image , math @@ -1782,29 +1780,6 @@ source = do linkTitle :: PandocMonad m => MarkdownParser m Text linkTitle = quotedTitle '"' <|> quotedTitle '\'' --- Github wiki style link, with optional title --- syntax documented under https://help.github.com/en/github/building-a-strong-community/editing-wiki-content -githubWikiLink :: PandocMonad m => MarkdownParser m (F Inlines) -githubWikiLink = try $ guardEnabled Ext_wikilinks >> wikilink - where - wikilink = try $ do - string "[[" - firstPart <- fmap mconcat . sequence <$> wikiText - (char '|' *> complexWikilink firstPart) - <|> (string "]]" $> (B.link - <$> (stringify <$> firstPart) - <*> return "wikilink" - <*> firstPart)) - - complexWikilink firstPart = do - url <- fmap stringify . sequence <$> wikiText - string "]]" - return $ B.link <$> url - <*> return "wikilink" - <*> firstPart - - wikiText = many (whitespace <|> bareURL <|> str <|> endline <|> escapedChar) - link :: PandocMonad m => MarkdownParser m (F Inlines) link = try $ do st <- getState |