diff options
Diffstat (limited to 'module/entry-points/server.scm')
| -rw-r--r-- | module/entry-points/server.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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))))))))))) |