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
imageTypeOf :: FilePath -> Maybe String
imageTypeOf x = case drop 1 (map toLower (takeExtension x)) of
"jpg" -> Just "image/jpeg"
"jpeg" -> Just "image/jpeg"
"jfif" -> Just "image/jpeg"
"png" -> Just "image/png"
"gif" -> Just "image/gif"
"svg" -> Just "image/svg+xml"
_ -> Nothing
imageTypeOf x = case getMimeType x of
Just y@('i':'m':'a':'g':'e':_) -> Just y
_ -> Nothing
data IdentState = IdentState{
chapterNumber :: Int,