mirror of https://codeberg.org/anemofilia/zero
67 lines
1.2 KiB
Scheme
67 lines
1.2 KiB
Scheme
(define-module (home-environments radio mime-types)
|
|
#:export (audio
|
|
audio+video
|
|
browser
|
|
document
|
|
editor
|
|
file-manager
|
|
image
|
|
video))
|
|
|
|
(define browser
|
|
`("application/xhtml+xml"
|
|
"application/x-extension-htm"
|
|
"application/x-extension-xhtml"
|
|
"application/x-extension-xht"
|
|
"x-scheme-handler/http"
|
|
"x-scheme-handler/https"))
|
|
|
|
(define editor
|
|
`("text/html"
|
|
"text/plain"
|
|
"text/troff"
|
|
"text/xml"
|
|
"text/x-c"
|
|
"text/x-c++"
|
|
"text/x-clojure"
|
|
"text/x-diff"
|
|
"text/x-lisp"
|
|
"text/x-scheme"
|
|
"text/x-script.python"
|
|
"text/x-shellscript"
|
|
"text/x-tex"))
|
|
|
|
(define file-manager
|
|
`("inode/directory"
|
|
"x-scheme-handler/ftp"
|
|
"x-scheme-handler/nfs"
|
|
"x-scheme-handler/smb"
|
|
"x-scheme-handler/ssh"
|
|
"application/x-directory"))
|
|
|
|
(define audio
|
|
`("video/mp4"
|
|
"video/x-matroska"
|
|
"video/webm"))
|
|
|
|
(define video
|
|
`("audio/mpeg"
|
|
"audio/ogg"
|
|
"audio/opus"
|
|
"audio/x-opus+ogg"))
|
|
|
|
(define audio+video
|
|
(append audio video))
|
|
|
|
(define image
|
|
`("image/avif"
|
|
"image/bmp"
|
|
"image/gif"
|
|
"image/jpeg"
|
|
"image/png"
|
|
"image/svg+xml"
|
|
"image/webp"))
|
|
|
|
(define document
|
|
`("application/pdf"))
|