Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

EPUB writer: Simplify imageTypeOf using getMimeType.

Browse source
This commit is contained in:
John MacFarlane 2013-11-30 19:43:24 -08:00
parent 4501344d45
commit a7067ab22b
1 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Text/Pandoc/Writers/EPUB.hs
View file

@ -736,15 +736,9 @@ ppTopElement = ("<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" ++) . unEntity .
unEntity (x:xs) = x : unEntity xs unEntity (x:xs) = x : unEntity xs
imageTypeOf :: FilePath -> Maybe String imageTypeOf :: FilePath -> Maybe String
imageTypeOf x = case drop 1 (map toLower (takeExtension x)) of imageTypeOf x = case getMimeType x of
"jpg" -> Just "image/jpeg" Just y@('i':'m':'a':'g':'e':_) -> Just y
"jpeg" -> Just "image/jpeg" _ -> Nothing
"jfif" -> Just "image/jpeg"
"png" -> Just "image/png"
"gif" -> Just "image/gif"
"svg" -> Just "image/svg+xml"
_ -> Nothing
data IdentState = IdentState{ data IdentState = IdentState{
chapterNumber :: Int, chapterNumber :: Int,