1 files changed, 100 insertions, 0 deletions
diff --git a/stdlib/source/library/lux/world/net/http/mime.lux b/stdlib/source/library/lux/world/net/http/mime.lux
new file mode 100644
index 000000000..859b0840e
--- /dev/null
+++ b/stdlib/source/library/lux/world/net/http/mime.lux
@@ -0,0 +1,100 @@
+(.module:
+  [library
+   [lux #*
+    [data
+     ["." text
+      ["%" format (#+ format)]
+      ["." encoding (#+ Encoding)]]]
+    [type
+     abstract]]])
+
+(abstract: #export MIME
+  Text
+
+  {#doc "Multipurpose Internet Mail Extensions"}
+
+  (def: #export mime
+    (-> Text MIME)
+    (|>> :abstraction))
+
+  (def: #export name
+    (-> MIME Text)
+    (|>> :representation))
+  )
+
+## https://developer.mozilla.org/en-US/docs/Web/HTTP/Basics_of_HTTP/MIME_types/Complete_list_of_MIME_types
+(template [<name> <type>]
+  [(def: #export <name> MIME (..mime <type>))]
+
+  [aac-audio "audio/aac"]
+  [abiword "application/x-abiword"]
+  [avi "video/x-msvideo"]
+  [amazon-kindle-ebook "application/vnd.amazon.ebook"]
+  [binary "application/octet-stream"]
+  [bitmap "image/bmp"]
+  [bzip "application/x-bzip"]
+  [bzip2 "application/x-bzip2"]
+  [c-shell "application/x-csh"]
+  [css "text/css"]
+  [csv "text/csv"]
+  [microsoft-word "application/msword"]
+  [microsoft-word-openxml "application/vnd.openxmlformats-officedocument.wordprocessingml.document"]
+  [ms-embedded-opentype-fonts "application/vnd.ms-fontobject"]
+  [epub "application/epub+zip"]
+  [ecmascript "application/ecmascript"]
+  [gif "image/gif"]
+  [html "text/html"]
+  [icon "image/x-icon"]
+  [icalendar "text/calendar"]
+  [jar "application/java-archive"]
+  [jpeg "image/jpeg"]
+  [javascript "application/javascript"]
+  [json "application/json"]
+  [midi "audio/midi"]
+  [mpeg "video/mpeg"]
+  [apple-installer-package "application/vnd.apple.installer+xml"]
+  [opendocument-presentation  "application/vnd.oasis.opendocument.presentation"]
+  [opendocument-spreadsheet "application/vnd.oasis.opendocument.spreadsheet"]
+  [opendocument-text "application/vnd.oasis.opendocument.text"]
+  [ogg-audio "audio/ogg"]
+  [ogg-video "video/ogg"]
+  [ogg "application/ogg"]
+  [opentype-font "font/otf"]
+  [png "image/png"]
+  [pdf "application/pdf"]
+  [microsoft-powerpoint "application/vnd.ms-powerpoint"]
+  [microsoft-powerpoint-openxml "application/vnd.openxmlformats-officedocument.presentationml.presentation"]
+  [rar "application/x-rar-compressed"]
+  [rtf "application/rtf"]
+  [bourne-shell "application/x-sh"]
+  [svg "image/svg+xml"]
+  [flash "application/x-shockwave-flash"]
+  [tar "application/x-tar"]
+  [tiff "image/tiff"]
+  [typescript "application/typescript"]
+  [truetype-font "font/ttf"]
+  [microsoft-visio "application/vnd.visio"]
+  [wav "audio/wav"]
+  [webm-audio "audio/webm"]
+  [webm-video "video/webm"]
+  [webp "image/webp"]
+  [woff "font/woff"]
+  [woff2 "font/woff2"]
+  [xhtml "application/xhtml+xml"]
+  [microsoft-excel "application/vnd.ms-excel"]
+  [microsoft-excel-openxml "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"]
+  [xml "application/xml"]
+  [xul "application/vnd.mozilla.xul+xml"]
+  [zip "application/zip"]
+  [!3gpp-audio "audio/3gpp"]
+  [!3gpp "video/3gpp"]
+  [!3gpp2-audio "audio/3gpp2"]
+  [!3gpp2 "video/3gpp2"]
+  [!7z "application/x-7z-compressed"]
+  )
+
+(def: #export (text encoding)
+  (-> Encoding MIME)
+  (..mime (format "text/plain; charset=" text.double-quote (encoding.name encoding) text.double-quote)))
+
+(def: #export utf-8 MIME (..text encoding.utf-8))