将CORS头文件添加到Spiffy（方案/鸡肉）

Question

我需要将Web应用程序连接到使用Spiffy Web服务器在Scheme / Chicken中创建的REST界面。

如何使用正确的Scheme语法将此标头添加到.scm配置文件（以CSI -s /www/config.scm开头Spiffy）？

标题为Access-Control-Allow-Origin: *

Answer 1

在vhost-map中执行过程时，可以将其包装在with-headers中，如下所示：

(vhost-map `((".*" . ,(lambda (cont)
                        (with-headers '((access-control-allow-origin "*"))
                          cont)))))

这使用with-headers过程，该过程只是将标头添加到thunk返回的响应中。有关更多信息，请参见the Spiffy docs。