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

[Amirouche <amirouche@hypermove.net>]

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