Allow searching for nothing on BreezeWiki homepage

src/page-global-search.rkt

@@ -4,6 +4,7 @@
          net/url
          web-server/http
          "application-globals.rkt"
+         "data.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt")
 
@@ -14,12 +15,18 @@
   (define wikiname (dict-ref (url-query (request-uri req)) 'wikiname #f))
   (define q (dict-ref (url-query (request-uri req)) 'q #f))
   (response-handler
-   (if (not (and wikiname q))
+   (cond
-       (response/output
+     [(not wikiname)
-        #:code 400
+      (response/output
-        #:mime-type "text/plain"
+       #:code 400
-        (λ (out)
+       #:mime-type "text/plain"
-          (displayln "Requires wikiname and q parameters." out)))
+       (λ (out)
-       (generate-redirect (format "/~a/search?~a"
+         (displayln "Requires wikiname and q parameters." out)))]
-                                  wikiname
+     [(or (not q) (equal? q ""))
-                                  (params->query `(("q" . ,q))))))))
+      (define siteinfo (siteinfo-fetch wikiname))
+      (define dest (format "/~a/wiki/~a" wikiname (or (siteinfo^-basepage siteinfo) "Main_Page")))
+      (generate-redirect dest)]
+     [#t
+      (generate-redirect (format "/~a/search?~a"
+                                 wikiname
+                                 (params->query `(("q" . ,q)))))])))

src/page-home.rkt

@@ -40,7 +40,7 @@
                  (input (@ (name "wikiname") (class "paired__input") (type "text") (placeholder "pokemon") (required))))
           (label (@ (class "paired__label"))
                  "Search query"
-                 (input (@ (name "q") (class "paired__input") (type "text") (placeholder "Eevee") (required))))
+                 (input (@ (name "q") (class "paired__input") (type "text") (placeholder "Eevee"))))
           (button "Search"))
     (h2 "Example pages")
     (ul