From 409b987f7800efaad519d060552e9b029f7cf209 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:56:16 +0200
Subject: Slightly better search page.

---
 module/entry-points/server.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'module/entry-points/server.scm')

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index dd7175aa..054c8cbd 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -290,7 +290,12 @@
                         (head (title "Search results"))
                         (body
                          (h2 "Search term")
-                         (pre ,(format #f "~y" search-term))
+                         (form
+                          (pre (textarea (@ (name "q") (rows 5) (spellcheck false)
+                                            (style "width:100%"))
+                                         ,(format #f "~y" search-term)))
+                          (input (@ (type submit))))
+                         (h2 "Result")
                          ,@(for event in search-result
                                 `(div (@ (class "event"))
                                       ,(prop event 'SUMMARY)))))))))))
-- 
cgit v1.2.3