(in-package :fwoar.lack.cors.middleware)
 ;; cors middleware
 (defparameter *acao-lens*
   (data-lens:<>1 (data-lens.lenses:make-list-lens 1)
                  (data-lens.lenses:make-plist-lens :Access-Control-Allow-Origin)))
 (defparameter *acah-lens*
   (data-lens:<>1 (data-lens.lenses:make-list-lens 1)
                  (data-lens.lenses:make-plist-lens :Access-Control-Allow-Headers)))
 (defparameter *acam-lens*
   (data-lens:<>1 (data-lens.lenses:make-list-lens 1)
                  (data-lens.lenses:make-plist-lens :Access-Control-Allow-Methods)))
 
 (defun cors-middleware (app)
   (lambda (env)
     (rutilsx.threading:->>
      (if (eq :options
              (getf env :request-method))
          '(200 nil nil)
          (let ((res (funcall app env)))
            res))
      (data-lens.lenses:set *acao-lens* "*")
      (data-lens.lenses:set *acah-lens* "Content-Type")
      (data-lens.lenses:set *acam-lens* "GET,POST,DELETE,PATCH"))))