- ((equal? mime-type "text/gemini") (serve-dynamic-gemini path))
- ((equal? mime-type "text/plain") (serve-text-plain path))
- (else (serve-binary)))))
+ ((and (equal? mime-type "text/gemini")
+ (file-executable? path))
+ (serve-text-dynamic path))
+ ((string-prefix? "text/" mime-type)
+ (serve-text-plain path))
+ (else (serve-binary path)))))