Skip to content

Commit

Permalink
Merge pull request #787 from arthurgleckler/master
Browse files Browse the repository at this point in the history
Fix disconnects.  Support more MIME types.  Fix comment.
  • Loading branch information
ashinn authored Nov 19, 2021
2 parents 4dde693 + 9b6099c commit 7a6aae3
Show file tree
Hide file tree
Showing 2 changed files with 17 additions and 7 deletions.
22 changes: 16 additions & 6 deletions lib/chibi/mime.scm
Original file line number Diff line number Diff line change
Expand Up @@ -24,15 +24,25 @@
;; most of these are plain text for easier viewing in the browser
(define (mime-type-from-extension ext)
(assq-ref
'((htm . "text/html; charset=utf-8")
'((c . "text/plain; charset=utf-8")
(css . "text/css; charset=utf-8")
(gif . "image/gif")
(h . "text/plain; charset=utf-8")
(htm . "text/html; charset=utf-8")
(html . "text/html; charset=utf-8")
(jpeg . "image/jpeg")
(jpg . "image/jpeg")
(js . "application/javascript; charset=utf-8")
(json . "application/json; charset=utf-8")
(md . "text/plain; charset=utf-8")
(mp3 . "audio/mpeg")
(org . "text/plain; charset=utf-8")
(pdf . "application/pdf")
(png . "image/png")
(scm . "text/plain; charset=utf-8")
(sld . "text/plain; charset=utf-8")
(c . "text/plain; charset=utf-8")
(h . "text/plain; charset=utf-8")
(txt . "text/plain; charset=utf-8")
(org . "text/plain; charset=utf-8")
(md . "text/plain; charset=utf-8"))
(svg . "image/svg+xml")
(txt . "text/plain; charset=utf-8"))
(and (string? ext) (string->symbol ext))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Expand Down
2 changes: 1 addition & 1 deletion lib/chibi/net/http-server.scm
Original file line number Diff line number Diff line change
Expand Up @@ -524,7 +524,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Sample main. In chibi-scheme you can run:
;;
;; chibi-scheme -Rchibi.net.http-config-server -- [<cfg-file-or-directory>]
;; chibi-scheme -Rchibi.net.http-server -- [<cfg-file-or-directory>]
;;
;; which defaults to serving the current directory on port 8000.

Expand Down

0 comments on commit 7a6aae3

Please sign in to comment.