Re: What is needed in guildhall to include it in Guile?

[Amirouche]

Le 01/03/2017 à 20:35, Amirouche a écrit :
> Le 23/02/2016 à 17:57, Arne Babenhauserheide a écrit :
> That said I have an issue with registration/login
> stuff anything related with setting cookies I don't find a good 
> abstraction,
> for it.
>
> I keep you posted.

So I found a solution that satisfy me. Here is it:

(define (pair->set-cookie item)
  `(Set-Cookie . ,(string-append (symbol->string (car item))
                                 "="
                                 (cadr item))))

(define (sxml->set-cookies sxml)
  (match sxml
    ((('doctype doctype)
      ('html ('@ . options) . rest))
      (map pair->set-cookie options))
     (_ '())))

(define (sxml->response sxml)
  (let ((set-cookies (sxml->set-cookies sxml)))
    (values `((content-type . (text/html)) ,@set-cookies)
              (lambda (port)
                (sxml->html sxml port)))))

;;; handler

(define (handler request body)
  (sxml->response `((doctype "html")
                    (html
                     (body "echo")))))

(format #t "Héllo! Go to http://localhost:8080\n";)
  (run-server handler))


amz3