Add basic (semi broken) paginator to HTML search.

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)))
+                                     "»"))))
+                    ))
+           ))))