diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-05 11:17:03 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-05 11:17:03 +0100 |
| commit | 6530bc447174cce2824e4a8a6fe6b21225010936 (patch) | |
| tree | 4be38bcb801c45463efc928f761416e85263d62f /src/Text/Pandoc/Readers/LaTeX.hs | |
| parent | 3ff41fe7f4b323d61249e1865cb0a95c7293bafd (diff) | |
| download | pandoc-6530bc447174cce2824e4a8a6fe6b21225010936.tar.gz | |
LaTeX reader: small improvements in parsing arguments.
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 353304330..732420a4c 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -426,13 +426,13 @@ resetCaption = updateState $ \st -> st{ stateCaption = Nothing } authors :: PandocMonad m => LP m () authors = try $ do - char '{' + bgroup let oneAuthor = mconcat <$> many1 (notFollowedBy' (controlSeq "and") >> (inline <|> mempty <$ blockCommand)) -- skip e.g. \vspace{10pt} auths <- sepBy oneAuthor (controlSeq "and") - char '}' + egroup addMeta "author" (map trimInlines auths) section :: PandocMonad m => Attr -> Int -> LP m Blocks @@ -577,8 +577,8 @@ inlineCommands = M.fromList $ , ("bar", lit "|") , ("textless", lit "<") , ("textgreater", lit ">") - , ("thanks", (note . mconcat) <$> (char '{' *> manyTill block (char '}'))) - , ("footnote", (note . mconcat) <$> (char '{' *> manyTill block (char '}'))) + , ("thanks", note <$> grouped block) + , ("footnote", note <$> grouped block) , ("verb", doverb) , ("lstinline", skipopts *> doverb) , ("Verb", doverb) @@ -971,9 +971,6 @@ rawEnv name = do ---- -braced' :: PandocMonad m => LP m String -braced' = try $ char '{' *> manyTill (satisfy (/='}')) (char '}') - maybeAddExtension :: String -> FilePath -> FilePath maybeAddExtension ext fp = if null (takeExtension fp) @@ -989,7 +986,7 @@ include = do <|> string "usepackage" -- skip options skipMany $ try $ char '[' *> manyTill anyChar (char ']') - fs <- (map trim . splitBy (==',')) <$> braced' + fs <- (map trim . splitBy (==',')) <$> braced return $ if name == "usepackage" then map (maybeAddExtension ".sty") fs else map (maybeAddExtension ".tex") fs @@ -1339,7 +1336,7 @@ complexNatbibCitation mode = try $ do parseAligns :: PandocMonad m => LP m [(String, Alignment, String)] parseAligns = try $ do - char '{' + bgroup let maybeBar = skipMany $ sp <|> () <$ char '|' <|> () <$ (char '@' >> braced) maybeBar let cAlign = AlignCenter <$ char 'c' @@ -1359,7 +1356,7 @@ parseAligns = try $ do return (pref, ch, suff) aligns' <- sepEndBy alignSpec maybeBar spaces - char '}' + egroup spaces return $ aligns' |