From 2befdc6a0d53866b3e9c1e80f5cfd25edc8f92a6 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Tue, 2 Feb 2021 13:06:38 +0100
Subject: [PATCH] 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 743756d6..d3327409 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
--
GitLab