From 567a43ace322bb8198a75954fef97e1cc91015a1 Mon Sep 17 00:00:00 2001 From: richarddavis Date: Thu, 21 Mar 2019 09:43:56 -0700 Subject: Improve pdfSize in ImageSize by ignoring all whitespace in /MediaBox command (#5383) This fix ignores all whitespace in the PDF /MediaBox line so that a wider range of PDF sizes can be read. This improves fix to #4322. --- src/Text/Pandoc/ImageSize.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/ImageSize.hs b/src/Text/Pandoc/ImageSize.hs index c5289bbc2..afbba9b8b 100644 --- a/src/Text/Pandoc/ImageSize.hs +++ b/src/Text/Pandoc/ImageSize.hs @@ -278,13 +278,16 @@ pPdfSize = do A.skipWhile (/='/') A.char8 '/' (do A.string "MediaBox" + A.skipSpace A.char8 '[' + A.skipSpace [x1,y1,x2,y2] <- A.count 4 $ do - A.skipWhile (==' ') + A.skipSpace raw <- A.many1 $ A.satisfy (\c -> isDigit c || c == '.') case safeRead raw of Just (r :: Double) -> return $ floor r Nothing -> mzero + A.skipSpace A.char8 ']' return $ ImageSize{ pxX = x2 - x1 -- cgit v1.2.3