31 lines
834 B
Scheme
31 lines
834 B
Scheme
|
;;; Allows sending of HTML represented in Oleg-like SXML-list instead
|
||
|
|
;;; of pure string.
|
||
|
|
;;; Copyright 2002,2003, Andreas Bernauer
|
||
|
|
|
||
|
|
(define (send-html/suspend html-tree-maker)
|
||
|
|
(send/suspend
|
||
|
|
(lambda (new-url)
|
||
|
|
(make-usual-html-response
|
||
|
|
(sxml->string (html-tree-maker new-url)
|
||
|
|
surflet-sxml-rules)))))
|
||
|
|
|
||
|
|
(define (send-html/finish html-tree)
|
||
|
|
(do-sending send/finish html-tree))
|
||
|
|
|
||
|
|
(define (send-html html-tree)
|
||
|
|
(do-sending send html-tree))
|
||
|
|
|
||
|
|
(define (do-sending send html-tree)
|
||
|
|
(send (make-usual-html-response
|
||
|
|
(sxml->string html-tree surflet-sxml-rules))))
|
||
|
|
|
||
|
|
;; This is not for public, as we add the no-cache header that is
|
||
|
|
;; needed for SUrflets.
|
||
|
|
(define (make-usual-html-response html-string)
|
||
|
|
(make-surflet-response
|
||
|
|
(status-code ok)
|
||
|
|
"text/html"
|
||
|
|
'(("Cache-Control" . "no-cache"))
|
||
|
|
html-string))
|
||
|
|
|