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 | |
| parent | 5a56819894490aeb441d45051c18c311b93b5b0b (diff) | |
Make image size detection for PDFs more robust.
See #4322.
| -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 |