diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-07 16:56:16 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-07 16:56:16 +0200 |
| commit | 409b987f7800efaad519d060552e9b029f7cf209 (patch) | |
| tree | e06966134f10838f6ee3dec6e97f732ce5b76afb /module/entry-points/server.scm | |
| parent | Search page now xhtml. (diff) | |
| download | calp-409b987f7800efaad519d060552e9b029f7cf209.tar.gz calp-409b987f7800efaad519d060552e9b029f7cf209.tar.xz | |
Slightly better search page.
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))))))))))) |