steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mime: Use new mime.types file. Keep old mime types around because I'm a hoarder. Closes #1258.

db4
Doug Coleman 2015-01-17 13:47:56 -08:00
parent c4fbeccfa8
commit c86b933388
2 changed files with 1139 additions and 522 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1629
basis/mime/types/mime.types
View File

File diff suppressed because it is too large Load Diff

22
basis/mime/types/types.factor
View File

@ -16,11 +16,31 @@ MEMO: mime-db ( -- seq )
{ "fhtml" "application/x-factor-server-page" } { "fhtml" "application/x-factor-server-page" }
} ; } ;
! These mime types were previously in mime.types.
! Let's keep them!
: removed-mime-types ( -- assoc )
H{
{ "pntg" "image/x-macpaint" }
{ "m4a" "audio/mp4a-latm" }
{ "pnt" "image/x-macpaint" }
{ "dv" "video/x-dv" }
{ "otm" "application/vnd.oasis.opendocument.text-master" }
{ "mac" "image/x-macpaint" }
{ "m4p" "audio/mp4a-latm" }
{ "pict" "image/pict" }
{ "scpt" "application/octet-stream" }
{ "qti" "image/x-quicktime" }
{ "dif" "video/x-dv" }
{ "jp2" "image/jp2" }
{ "qtif" "image/x-quicktime" }
} ;
MEMO: mime-types ( -- assoc ) MEMO: mime-types ( -- assoc )
[ [
mime-db [ unclip '[ [ _ ] dip ,, ] each ] each mime-db [ unclip '[ [ _ ] dip ,, ] each ] each
] H{ } make ] H{ } make
nonstandard-mime-types assoc-union ; nonstandard-mime-types assoc-union
removed-mime-types assoc-union ;
: mime-type ( filename -- mime-type ) : mime-type ( filename -- mime-type )
file-extension mime-types at "application/octet-stream" or ; file-extension mime-types at "application/octet-stream" or ;