From ee9989c82c43428e6b91b08f1e31497b154e8d17 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 10 Aug 2020 17:36:03 +0200 Subject: Rename html search module. --- module/output/html-search.scm | 36 ------------------------------------ 1 file changed, 36 deletions(-) (limited to 'module/output/html-search.scm') diff --git a/module/output/html-search.scm b/module/output/html-search.scm index 070a725e..e69de29b 100644 --- a/module/output/html-search.scm +++ b/module/output/html-search.scm @@ -1,36 +0,0 @@ -;; TODO rename this module -(define-module (output html-search) - :use-module (util) - :use-module (vcomponent) - :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 - search-term search-result page paginator q=) - (xhtml-doc - (@ (lang sv)) - (head (title "Search results") - ,(include-css "/static/style.css")) - (body - (h2 "Search term") - (form - (pre (textarea (@ (name "q") (rows 5) (spellcheck false) - (style "width:100%")) - ,(with-output-to-string - (lambda () (pretty-print search-term))))) - (input (@ (type submit)))) - (h2 "Result (page " ,page ")") - (ul - ,@(compact-event-list search-result)) - (div (@ (class "paginator")) - ,@(paginator->list - paginator - (lambda (p) (if (= p page) - `(span ,p) - `(a (@ (href "?" ,q= "&p=" ,p)) ,p))) - (lambda (p) `(a (@ (href "?" ,q= "&p=" ,p)) "ยป")))) - ))) - -- cgit v1.2.3