Plaster

common-lisp
;;;; cl-mime-from-string.lisp (in-package #:cl-mime-from-string) (eval-when (:compile-toplevel :load-toplevel :execute) (defun to-cond-form-string= (str1 form) (if (or (eq t (first form)) (eq 'otherwise (first form))) `(t ,(second form)) `((string= ,str1 ,(first form)) ,(second form)))) (defmacro string-case (string &body cases) `(cond ,@(mapcar (lambda (sym) (to-cond-form-string= string sym)) cases))) (defun mime-type-from-string (file-string &optional (default "application/octet-stream")) "takes in a string like 'abc.txt' and returns its associated mime-type from https://developer.mozilla.org/en-US/docs/Web/HTTP/Basics_of_HTTP/MIME_types/Common_types. If there is no extension, or one that is unknown then the value of default is returned" (let* ((pos (position #\. file-string :test #'char= :from-end t)) (type (reverse (subseq file-string (if pos (1+ pos) 0))))) (string-case type ("txt" "text/plain") ("aac" "audio/acc") ("abw" "application/x-abiword") ("arc" "application/x-freearc") ("avi" "video/x-msvideo") ("azw" "application/vnd.amazon.ebook") ("bin" "application/vnd.amazon.ebook") ("bmp" "image/bmp") ("bz" "application/x-bzip") ("bz2" "application/x-bzip2") ("csh" "application/x-csh") ("css" "text/css") ("csv" "text/csv") ("doc" "application/msword") ("docx" "application/vnd.openxmlformats-officedocument.wordprocessingml.document") ("eot" "application/vnd.ms-fontobject") ("epub" "application/epub+zip") ("gz" "application/gzip") ("htm" "text/html") ("html" "text/html") ("ico" "image/vnd.microsoft.icon") ("ics" "text/calendar") ("jar" "application/java-archive") ("jpeg" "image/jpeg") ("jpg" "image/jpeg") ("js" "text/javascript") ("json" "application/json") ("jsonld" "application/json") ("mid" "audio/midi");;could also be audio/x-midi ("midi" "audio/midi");;^ ("mjs" "text/javascript") ("mp3" "audio/mpeg") ("mpeg" "video/mpeg") ("mpkg" "application/vnd.apple.installer+xml") ("odp" "application/vnd.oasis.opendocument.presentation") ("ods" "application/vnd.oasis.opendocument.spreadsheet") ("odt" "application/vnd.oasis.opendocument.text") ("oga" "audio/ogg") ("ogv" "video/ogg") ("ogx" "application/ogg") ("opus" "audio/opus") ("otf" "font/otf") ("png" "image/png") ("pdf" "application/pdf") ("php" "application/php") ("ppt" "application/vnd.ms-powerpoint") ("pptx" "application/vnd.openxmlformats-officedocument.presentationml.presentation") ("rar" "application/vnd.rar") ("rtf" "application/rtf") ("sh" "application/x-sh") ("svg" "image/svg+xml") ("swf" "application/x-shockwave-flash") ("tar" "application/x-tar") ("tif" "image/tiff") ("tiff" "image/tiff") ("ts" "video/mp2t") ("ttf" "font/ttf") ("vsd" "application/vnd.visio") ("wav" "audio/wav") ("weba" "audio/webm") ("webm" "video/webm") ("webp" "image/webp") ("woff" "font/woff") ("woff2" "font/woff2") ("xhtml" "application/xhtml+xml") ("xls" "application/vnd.ms-excel") ("xlsx" "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet") ("xml" "application/xml") ("xul" "application/vnd.mozilla.xul+xml") ("zip" "application/zip") ("3gp" "video/3gpp") ("3g2" "video/3gpp2") ("7z" "application/x-7z-compressed") (otherwise default)))) )