From f31c92eec971a2d0a10e3ed4cc66235a86456d4a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 10 Aug 2020 16:44:57 +0200 Subject: HTML work. --- module/output/html-search.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'module/output/html-search.scm') 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 -- cgit v1.2.3