Move html modules under calp.

1 files changed, 0 insertions, 38 deletions

diff --git a/module/html/view/search.scm b/module/html/view/search.scm
deleted file mode 100644
index 12d8399f..00000000
--- a/module/html/view/search.scm
+++ /dev/null
@@ -1,38 +0,0 @@
-(define-module (html view search)
-  :use-module (util)
-  :use-module (vcomponent)
-  :use-module (vcomponent search)
-  :use-module ((ice-9 pretty-print) :select (pretty-print))
-  :use-module ((html components)
-               :select (xhtml-doc include-css))
-  :use-module ((html vcomponent)
-               :select (compact-event-list))
-  )
-
-(define-public (search-result-page
-                has-query? 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%"))
-                    ,(when has-query?
-                       (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)) "»"))))
-    )))
-