d033fc9 · typeable/pandoc

40import Data.Maybe ( fromMaybe )

41import Data.Char ( chr, toUpper )

42import Data.List ( isPrefixOf, isSuffixOf )

43−import Control.Monad ( when )

43+import Control.Monad ( when, guard )

44

45-- | Parse LaTeX from string and return 'Pandoc' document.

46readLaTeX :: ParserState -- ^ Parser state, including options for parser

478 , accentedChar

479 , nonbreakingSpace

480 , cite

481+ , index

481 , specialChar

482 , specialChar

482 , rawLaTeXInline'

483 , rawLaTeXInline'

483 , escapedChar

484 , escapedChar

814cite :: GenParser Char ParserState Inline

815cite :: GenParser Char ParserState Inline

815cite = simpleCite <|> complexNatbibCites

816cite = simpleCite <|> complexNatbibCites

816

817

818+index :: GenParser Char ParserState Inline

819+index = try $ do

820+ (name, _, _) <- command

821+ guard $ name == "index"

822+ return $ Str ""

823+

817simpleCiteArgs :: GenParser Char ParserState [Citation]

824simpleCiteArgs :: GenParser Char ParserState [Citation]

818simpleCiteArgs = try $ do

825simpleCiteArgs = try $ do

819 first <- optionMaybe $ (char '[') >> manyTill inline (char ']')

826 first <- optionMaybe $ (char '[') >> manyTill inline (char ']')