(= (type-header* 'application/x-tar) (gen-type-header "application/x-tar")) (= (type-header* 'text/css) (gen-type-header "text/css")) (= (type-header* 'text/javascript) (gen-type-header "text/javascript")) (= (type-header* 'text/plain) (gen-type-header "text/plain; charset=utf-8")) (= (type-header* 'image/x-icon) (gen-type-header "image/vnd.microsoft.icon")) (= (static-filetypes* "arc") 'text/plain) (= (static-filetypes* "css") 'text/css) (= (static-filetypes* "hack") 'text/plain) (= (static-filetypes* "ico") 'image/x-icon) (= (static-filetypes* "js") 'text/javascript) (= (static-filetypes* "patch") 'text/plain) (= (static-filetypes* "ss") 'text/plain) (= (static-filetypes* "tar") 'application/x-tar)
hack ycombinator.com/arc/arc3.1.tar \ awwx.ws/srv-static-subdir-filetypes0.arc \ awwx.ws/more-static-filetypes1.arc
This code is in the public domain.