diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-10-19 15:36:18 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-19 15:36:18 -0700 |
| commit | f615d7bb989bc06b17ae84b16b54c74c2fe83c19 (patch) | |
| tree | 0ce78a127ecdc36f4d6e5075e9e1052fca7da283 /src/Text/Pandoc/Readers/LaTeX.hs | |
| parent | 28bb5d610dc8c96a014f610d53b937ea7b9d977e (diff) | |
LaTeX reader: Strip off quotes in `\include` filenames.
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 37becf59f..54c19b622 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1751,7 +1751,8 @@ include = do controlSeq "include" <|> controlSeq "input" <|> controlSeq "subfile" <|> controlSeq "usepackage" skipMany $ bracketed inline -- skip options - fs <- (map trim . splitBy (==',') . T.unpack . untokenize) <$> braced + fs <- (map (T.unpack . removeDoubleQuotes . T.strip) . T.splitOn "," . + untokenize) <$> braced let fs' = if name == "usepackage" then map (maybeAddExtension ".sty") fs else map (maybeAddExtension ".tex") fs |