@@ -34,11 +34,12 @@ import Data.ByteString (ByteString, unpack)
3434import qualified Data.ByteString.Char8 as B
3535import Control.Monad
3636import Data.Bits
37+import Text.Pandoc.Shared (safeRead)
3738
3839-- quick and dirty functions to get image sizes
3940-- algorithms borrowed from wwwis.pl
4041
41−data ImageType = Png | Gif | Jpeg | Pdf deriving Show
42+data ImageType = Png | Gif | Jpeg | Pdf | Eps deriving Show
4243
4344data ImageSize = ImageSize{
4445 pxX :: Integer
@@ -54,6 +55,9 @@ imageType img = case B.take 4 img of
5455 "\x47\x49\x46\x38" -> return Gif
5556 "\xff\xd8\xff\xe0" -> return Jpeg
5657 "%PDF" -> return Pdf
58+ "%!PS"
59+ | (B.take 4 $ B.drop 1 $ B.dropWhile (/=' ') img) == "EPSF"
60+ -> return Eps
5761 _ -> fail "Unknown image type"
5862
5963imageSize :: ByteString -> Maybe ImageSize
@@ -63,6 +67,7 @@ imageSize img = do
6367 Png -> pngSize img
6468 Gif -> gifSize img
6569 Jpeg -> jpegSize img
70+ Eps -> epsSize img
6671 Pdf -> Nothing -- TODO
6772
6873sizeInPixels :: ImageSize -> (Integer, Integer)
@@ -71,6 +76,23 @@ sizeInPixels s = (pxX s, pxY s)
7176sizeInPoints :: ImageSize -> (Integer, Integer)
7277sizeInPoints s = (pxX s * 72 `div` dpiX s, pxY s * 72 `div` dpiY s)
7378
79+epsSize :: ByteString -> Maybe ImageSize
80+epsSize img = do
81+ let ls = takeWhile ("%" `B.isPrefixOf`) $ B.lines img
82+ let ls' = dropWhile (not . ("%%BoundingBox:" `B.isPrefixOf`)) ls
83+ case ls' of
84+ [] -> mzero
85+ (x:_) -> case B.words x of
86+ (_:_:_:ux:uy:[]) -> do
87+ ux' <- safeRead $ B.unpack ux
88+ uy' <- safeRead $ B.unpack uy
89+ return ImageSize{
90+ pxX = ux'
91+ , pxY = uy'
92+ , dpiX = 72
93+ , dpiY = 72 }
94+ _ -> mzero
95+
7496pngSize :: ByteString -> Maybe ImageSize
7597pngSize img = do
7698 let (h, rest) = B.splitAt 8 img