From caeaa38d2590f26f24a2b373b312eb12fad02ca2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 7 Aug 2020 16:34:04 +0200
Subject: Search page now xhtml.

---
 module/entry-points/server.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index 74ae7de5..dd7175aa 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -280,14 +280,13 @@
         (define search-result
           (execute-query query 0))
 
-        (return '((content-type text/html #; application/xhtml+xml
-                   ))
+        (return '((content-type application/xhtml+xml))
                 (with-output-to-string
                   (lambda ()
                     (sxml->xml
                      `(*TOP*
                        (*PI* xml "version=\"1.0\" encoding=\"utf-8\"")
-                       (html
+                       (html (@ (xmlns "http://www.w3.org/1999/xhtml") (lang sv))
                         (head (title "Search results"))
                         (body
                          (h2 "Search term")
-- 
cgit v1.2.3