diff options
Diffstat (limited to 'module/output/html-search.scm')
-rw-r--r-- | module/output/html-search.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/module/output/html-search.scm b/module/output/html-search.scm index f6b74a77..070a725e 100644 --- a/module/output/html-search.scm +++ b/module/output/html-search.scm @@ -5,6 +5,7 @@ :use-module (vcomponent search) :use-module ((ice-9 pretty-print) :select (pretty-print)) :use-module (html components) + :use-module (html vcomponent) ) (define-public (search-result-page @@ -23,9 +24,7 @@ (input (@ (type submit)))) (h2 "Result (page " ,page ")") (ul - ,@(for event in search-result - `(li (@ (class "event")) - ,(prop event 'SUMMARY)))) + ,@(compact-event-list search-result)) (div (@ (class "paginator")) ,@(paginator->list paginator |