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 '')
| -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 |