diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-09 15:44:44 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-09 16:27:31 +0200 |
commit | e2a602d16dfad5325960dec0a16ee2b88560a36f (patch) | |
tree | e076260a831ef3471f45b07d516410eb891299d7 /module/output/html-search.scm | |
parent | Can create events with åäö again. (diff) | |
download | calp-e2a602d16dfad5325960dec0a16ee2b88560a36f.tar.gz calp-e2a602d16dfad5325960dec0a16ee2b88560a36f.tar.xz |
Add basic (semi broken) paginator to HTML search.
Diffstat (limited to '')
-rw-r--r-- | module/output/html-search.scm | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/module/output/html-search.scm b/module/output/html-search.scm new file mode 100644 index 00000000..e8414d18 --- /dev/null +++ b/module/output/html-search.scm @@ -0,0 +1,39 @@ +;; TODO rename this module +(define-module (output html-search) + :use-module (util) + :use-module (vcomponent) + :use-module (ice-9 format) + ) + +(define-public (search-result-page search-term search-result mp q=) + `(*TOP* + (*PI* xml "version=\"1.0\" encoding=\"utf-8\"") + (html (@ (xmlns "http://www.w3.org/1999/xhtml") (lang sv)) + (head (title "Search results") + ;; TODO (@ (output html) include-css) + (link (@ (type "text/css") + (rel "stylesheet") + (href "/static/style.css")))) + (body + (h2 "Search term") + (form + (pre (textarea (@ (name "q") (rows 5) (spellcheck false) + (style "width:100%")) + ,(format #f "~y" search-term))) + (input (@ (type submit)))) + (h2 "Result") + (ul + ,@(for event in search-result + `(li (@ (class "event")) + ,(prop event 'SUMMARY)))) + (div (@ (class "paginator")) + ,@(let () + (define (make-link n) `(a (@ (href "?" ,q= "&p=" ,n)) + ,n)) + (if (car mp) ; true max page + (map make-link (iota (cdr mp))) + (append (map make-link (iota (cdr mp))) + `((a (@ (href "?" ,q= "&p=" ,(cdr mp))) + "»")))) + )) + )))) |