git.iko.soy/typeable/pandoc
on master help sign in
T.P.MIME, extensionFromMimeType: add a few special cases.

When we do a reverse lookup in the MIME table, we just get the last match, so when the same mime type is associated with several different extensions, we sometimes got weird results, e.g. `.vs` for `text/plain`. These special cases help us get the most standard extensions for mime types like `text/plain`.

commitaa79b3035c3343adf1bb41b37266049a65ab5da7 authorJohn MacFarlane <jgm@berkeley.edu> dateThu 10 Jun 2021, 16:36 (5 years ago) parentc7dd33d
1 file changed+10
compare with master
unifiedsplit
src/Text/Pandoc/MIME.hs+10
src/Text/Pandoc/MIME.hs+10
@@ -43,6 +43,16 @@ getMimeTypeDef :: FilePath -> MimeType
4343getMimeTypeDef = fromMaybe "application/octet-stream" . getMimeType
4444
4545extensionFromMimeType :: MimeType -> Maybe T.Text
46+-- few special cases, where there are multiple options:
47+extensionFromMimeType "text/plain" = Just "txt"
48+extensionFromMimeType "video/quicktime" = Just "mov"
49+extensionFromMimeType "video/mpeg" = Just "mpeg"
50+extensionFromMimeType "video/dv" = Just "dv"
51+extensionFromMimeType "image/vnd.djvu" = Just "djvu"
52+extensionFromMimeType "image/tiff" = Just "tiff"
53+extensionFromMimeType "image/jpeg" = Just "jpg"
54+extensionFromMimeType "application/xml" = Just "xml"
55+extensionFromMimeType "application/ogg" = Just "ogg"
4656extensionFromMimeType mimetype =
4757 M.lookup (T.takeWhile (/=';') mimetype) reverseMimeTypes
4858 -- note: we just look up the basic mime type, dropping the content-encoding etc.