diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-11-29 09:45:38 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-11-29 09:45:38 -0800 |
commit | a276bb0a8a07650368f3007820b96909c2734ff0 (patch) | |
tree | a0de51ec9edeb7fe698010912ef01dbd4869a1d0 /src/Text/Pandoc/Writers/LaTeX.hs | |
parent | 7751391fce9a51066e02ecbe3677e69224c2161d (diff) |
Let papersizes a0, a1, a2, ... be case-insensitive in LaTeX and ConTeXt.
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 156af4bb2..8620f989b 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -253,8 +253,10 @@ pandocToLaTeX options (Pandoc meta blocks) = do defField "section-titles" True $ defField "geometry" geometryFromMargins $ (case getField "papersize" metadata of - Just ("A4" :: String) -> resetField "papersize" - ("a4" :: String) + -- uppercase a4, a5, etc. + Just (('A':d:ds) :: String) + | all isDigit (d:ds) -> resetField "papersize" + (('a':d:ds) :: String) _ -> id) metadata let context' = |