web: server: List search results even on home page.

* tissue/web/server.scm (handler): List search results even on home
page.

1 files changed, 11 insertions, 14 deletions

diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index c5c67b5..55e57e1 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -160,20 +160,17 @@ to a stylesheet."
             (request-method request)
             path)
     (cond
-     ((string=? path "/")
-      (values '((content-type . (text/html)))
-              (sxml->html (make-search-page '() "" css))))
-     ((string=? "/search" path)
-      (values '((content-type . (text/html)))
-              (sxml->html
-               (make-search-page
-                (call-with-database xapian-index
-                  (lambda (db)
-                    (search-map document->sxml
-                                db
-                                (assoc-ref parameters "query"))))
-                (assoc-ref parameters "query")
-                css))))
+     ((member path (list "/" "/search"))
+      (let ((search-query (or (assoc-ref parameters "query")
+                              "")))
+        (values '((content-type . (text/html)))
+                (sxml->html
+                 (make-search-page
+                  (call-with-database xapian-index
+                    (lambda (db)
+                      (search-map document->sxml db search-query)))
+                  search-query
+                  css)))))
      (else
       (values (build-response #:code 404)
               (string-append "Resource not found: "