diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-02-16 13:45:15 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-02-16 13:45:15 -0800 |
commit | c75740e22ce35165108e020be174ebe9f35ea667 (patch) | |
tree | bfd0eb91cd71976c90cbf2ec6a5f813ef59ab931 /src/Text | |
parent | 5a56819894490aeb441d45051c18c311b93b5b0b (diff) | |
download | pandoc-c75740e22ce35165108e020be174ebe9f35ea667.tar.gz |
Make image size detection for PDFs more robust.
See #4322.
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/ImageSize.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/ImageSize.hs b/src/Text/Pandoc/ImageSize.hs index f21284dac..1d6db8dfa 100644 --- a/src/Text/Pandoc/ImageSize.hs +++ b/src/Text/Pandoc/ImageSize.hs @@ -283,8 +283,10 @@ pdfSize img = "/MediaBox" `B.isPrefixOf` l)) (B.lines img) of (x:_) | "/MediaBox" `B.isPrefixOf` x - -> case B.words $ B.filter (\c -> c /= '[' && c /= ']') - $ B.drop 10 x of + -> case B.words . B.takeWhile (/=']') + . B.drop 1 + . B.dropWhile (/='[') + $ x of [x1, y1, x2, y2] -> do x1' <- safeRead $ B.unpack x1 x2' <- safeRead $ B.unpack x2 |