diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-07 00:21:18 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-07 00:21:18 +0200 |
| commit | 4d5cc163af12da875efbdac54f693c8c89aafb3a (patch) | |
| tree | 0da6bfa57845dcb22b329eb434094eaf6582c75d | |
| parent | Remove debug prints from term search. (diff) | |
| download | calp-4d5cc163af12da875efbdac54f693c8c89aafb3a.tar.gz calp-4d5cc163af12da875efbdac54f693c8c89aafb3a.tar.xz | |
HTML search now actually searches.
| -rw-r--r-- | module/entry-points/server.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 14d929f2..74ae7de5 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -271,7 +271,8 @@ (format #f "No component with UID=~a found." uid)))) (GET "/search" (q) - (define query-proc (build-query-proc q)) + (define search-term (prepare-string q)) + (define query-proc (build-query-proc search-term)) (define query (prepare-query query-proc (get-event-set global-event-object))) @@ -290,7 +291,7 @@ (head (title "Search results")) (body (h2 "Search term") - (pre ,(format #f "~y" q)) + (pre ,(format #f "~y" search-term)) ,@(for event in search-result `(div (@ (class "event")) ,(prop event 'SUMMARY))))))))))) |