diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 16:44:57 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 16:44:57 +0200 |
commit | f31c92eec971a2d0a10e3ed4cc66235a86456d4a (patch) | |
tree | dc7d62019da412af2119ba46a30b6b9b4350a543 /module/output/html-search.scm | |
parent | Start breaking apart HTML modules. (diff) | |
download | calp-f31c92eec971a2d0a10e3ed4cc66235a86456d4a.tar.gz calp-f31c92eec971a2d0a10e3ed4cc66235a86456d4a.tar.xz |
HTML work.
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 |