From 01ee80d9e730cc5b640bad68183a56c6cae15b88 Mon Sep 17 00:00:00 2001
From: Oldes <oldes.huhuman@gmail.com>
Date: Tue, 19 Jul 2022 23:30:39 +0200
Subject: [PATCH] FEAT: using `mime-types` module in `httpd` scheme for more
 complete list of mime types

---
 src/modules/httpd.reb | 37 +++----------------------------------
 1 file changed, 3 insertions(+), 34 deletions(-)

diff --git a/src/modules/httpd.reb b/src/modules/httpd.reb
index bd79b19347..cd35d2054f 100644
--- a/src/modules/httpd.reb
+++ b/src/modules/httpd.reb
@@ -36,6 +36,8 @@ Rebol [
 	]
 ]
 
+import 'mime-types
+
 append system/options/log [httpd: 1]
 
 ;------------------------------------------------------------------------
@@ -461,39 +463,6 @@ sys/make-scheme [
 		;511 "Network Authentication Required"
 	]
 
-	MIME-Types: make map! [
-		%.txt   "text/plain"
-		%.html  "text/html"
-		%.htm   "text/html"
-		%.js    "text/javascript"
-		%.css   "text/css"
-		%.csv   "text/csv"
-		%.ics   "text/calendar"
-		%.gif   "image/gif"
-		%.png   "image/png"
-		%.jpg   "image/jpeg"
-		%.jpeg  "image/jpeg"
-		%.ico   "image/x-icon"
-		%.svg   "image/svg+xml"
-		%.json  "application/json"
-		%.pdf   "application/pdf"
-		%.swf   "application/x-shockwave-flash"
-		%.wasm  "application/wasm"
-		%.xls   "application/vnd.ms-excel"
-		%.xlsx  "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
-		%.zip   "application/zip"
-		%.7z    "application/x-7z-compressed"
-		%.doc   "application/msword"
-		%.wav   "audio/wav"
-		%.mid   "audio/midi"
-		%.midi  "audio/x-midi"
-		%.otf   "font/otf"
-		%.ttf   "font/ttf"
-		%.woff  "font/woff"
-		%.woff2 "font/woff2"
-		%.xhtml "application/xhtml+xml"
-	]
-
 	Respond: function [port [port!]][
 		ctx: port/extra
 		out: ctx/out
@@ -504,7 +473,7 @@ sys/make-scheme [
 
 		unless out/header/Content-Type [
 			if out/target [
-				out/header/Content-Type: pick MIME-Types suffix? out/target
+				out/header/Content-Type: mime-type? out/target
 			]
 			if all [
 				none? out/header/Content-Type ; no mime found above