[no subject]

[Mathieu Othacehe]

branch: master
commit 2befdc6a0d53866b3e9c1e80f5cfd25edc8f92a6
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Feb 2 13:06:38 2021 +0100

    Use a XML header for the RSS feed.
    
    * src/cuirass/http.scm (respond-xml): New procedure.
    (url-handler): Use it for the RSS feed.
---
 src/cuirass/http.scm | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 743756d..d332740 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -323,6 +323,17 @@ Hydra format."
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";)
        (sxml->xml body port))))
 
+  (define* (respond-xml body #:key code)
+    (respond
+     (let ((content-type '((content-type . (application/xhtml+xml)))))
+       (if code
+           (build-response #:headers content-type #:code code)
+           content-type))
+     #:body
+     (lambda (port)
+       (format port "<?xml version=\"1.0\" encoding=\"utf-8\"?>")
+       (sxml->xml body port))))
+
   (define* (respond-file file)
     (let ((content-type (or (assoc-ref %file-mime-types
                                        (file-extension file))
@@ -663,11 +674,11 @@ Hydra format."
 
     (('GET "events" "rss")
      (let* ((params (request-parameters request)))
-       (respond-html (rss-feed (db-get-builds `((weather . new)
-                                                (nr . 100)
-                                                (order . evaluation)
-                                                ,@params))
-                               #:params params))))
+       (respond-xml (rss-feed (db-get-builds `((weather . new)
+                                               (nr . 100)
+                                               (order . evaluation)
+                                               ,@params))
+                              #:params params))))
 
     (('GET "workers")
      (respond-html