(require (lib "xml.ss" "xml"))

(define (mime-type-text/xml xexpr)
  (cons "text/xml"
        (list (xexpr->string xexpr))))

(define (xml-document->string xml-document)
  (let ((string-port (open-output-string)))
    (write-xml xml-document string-port)
    (get-output-string string-port)))

(define (mime-type-text/xml-document xml-document)
  (cons "text/xml"
	(list (xml-document->string xml-document))))

;;; Beispiele

(define my-xml-file 
  `(liste (element "1")
          (element "2")
          (element "3")))

;;; Der Browser erhält ein Dokument vom Typ text/plain
;(send/finish my-xml-file)

;;; Der Browser erhält ein Dokument vom Typ text/xml
(send/finish
 (mime-type-text/xml my-xml-file))

;;; Der Browser erhält ein Dokument vom Typ text/xml
(send/finish
 (mime-type-text/xml-document
  (make-xml-document 'liste "einfache-listen.dtd"
		     "wahnsinnig-huebsches-stylesheet.xsl"
		     my-xml-file)))