diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-12-15 10:34:59 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-12-15 10:34:59 -0800 |
| commit | 9bf76fa5a256a20d03d251ec15f1785af9a7bb41 (patch) | |
| tree | 474e3e288794e35ab1425ac0aae859a116f56a7f | |
| parent | c37db57c9a4f2d812ae75371757ccaa2bbe8ecef (diff) | |
| download | pandoc-9bf76fa5a256a20d03d251ec15f1785af9a7bb41.tar.gz | |
LaTeX reader: better handling of `\noindent` and `\greektext`.
Closes #1783.
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index e1976035d..d55f29e8f 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -414,6 +414,8 @@ inlineCommands = M.fromList $ , ("sim", lit "~") , ("label", unlessParseRaw >> (inBrackets <$> tok)) , ("ref", unlessParseRaw >> (inBrackets <$> tok)) + , ("noindent", unlessParseRaw >> return mempty) + , ("textgreek", tok) , ("(", mathInline $ manyTill anyChar (try $ string "\\)")) , ("[", mathDisplay $ manyTill anyChar (try $ string "\\]")) , ("ensuremath", mathInline $ braced) @@ -545,7 +547,7 @@ inlineCommands = M.fromList $ ] ++ map ignoreInlines -- these commands will be ignored unless --parse-raw is specified, -- in which case they will appear as raw latex blocks: - [ "noindent", "index" ] + [ "index" ] mkImage :: String -> LP Inlines mkImage src = do |