5491adb · typeable/pandoc

45import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXBlock )

46import Text.Pandoc.Readers.HTML ( htmlTag, htmlInBalanced, isInlineTag, isBlockTag,

47 isTextTag, isCommentTag )

48−import Text.Pandoc.XML ( fromEntities )

49import Text.Pandoc.Biblio (processBiblio)

48import Text.Pandoc.Biblio (processBiblio)

50import qualified Text.CSL as CSL

49import qualified Text.CSL as CSL

51import Data.Monoid (mconcat, mempty)

50import Data.Monoid (mconcat, mempty)

144

143

145litChar :: MarkdownParser Char

144litChar :: MarkdownParser Char

146litChar = escapedChar'

145litChar = escapedChar'

146+ <|> characterReference

147 <|> noneOf "\n"

148 <|> try (newline >> notFollowedBy blankline >> return ' ')

149

287referenceTitle = try $ do

288 skipSpaces >> optional newline >> skipSpaces

289 let parenTit = charsInBalanced '(' ')' litChar

290− fromEntities <$> (quotedTitle '"' <|> quotedTitle '\'' <|> parenTit)

290+ quotedTitle '"' <|> quotedTitle '\'' <|> parenTit

291

292-- A link title in quotes

293quotedTitle :: Char -> MarkdownParser String

295 char c

296 notFollowedBy spaces

297 let pEnder = try $ char c >> notFollowedBy (satisfy isAlphaNum)

298− let regChunk = many1 (noneOf ['\\','\n',c]) <|> count 1 litChar

298+ let regChunk = many1 (noneOf ['\\','\n','&',c]) <|> count 1 litChar

299 let nestedChunk = (\x -> [c] ++ x ++ [c]) <$> quotedTitle c

300 unwords . words . concat <$> manyTill (nestedChunk <|> regChunk) pEnder

301

1500 return (escapeURI $ trimr src, tit)

1501

1502linkTitle :: MarkdownParser String

1503−linkTitle = fromEntities <$> (quotedTitle '"' <|> quotedTitle '\'')

1503+linkTitle = quotedTitle '"' <|> quotedTitle '\''

1504

1505link :: MarkdownParser (F Inlines)

1506link = try $ do