Racket and gemini are awesome together

#lang racket

(require racket/string)
(require racket/port)
(require net/url-string)
(require openssl)

(define root-path "root")

(define (url-path->string p)
  (string-join (map path/param-path p) "/"))

(define listener
  (let ((listener (ssl-listen 1965)))
    (ssl-load-certificate-chain! listener "localhost.cert.pem")
    (ssl-load-private-key! listener "localhost.key.pem" #f)
    listener))

(let loop ()
  (let-values ([(in out) (ssl-accept listener)])
    (let* ((url (string->url (string-trim (read-line in))))
           (path (url-path->string (url-path url))))
      (ssl-abandon-port in)

      (display "20 text/gemini\r\n" out)
      (let ((in (open-input-file (build-path root-path path) )))
         (copy-port in out)
         (close-input-port in)))

    (ssl-abandon-port out))
  (loop))