Add global search on home page

This is no longer necessary because the table colours are okay because
the page theme is now correctly set.

breezewiki.rkt

@@ -10,6 +10,7 @@
      (make-reloadable-entry-point (quote varname) filename))))
 
 (require-reloadable "src/page-category.rkt" page-category)
+(require-reloadable "src/page-global-search.rkt" page-global-search)
 (require-reloadable "src/page-home.rkt" page-home)
 (require-reloadable "src/page-not-found.rkt" page-not-found)
 (require-reloadable "src/page-proxy.rkt" page-proxy)
@@ -31,6 +32,7 @@
      (dispatcher-tree
       ; order of these does not matter
       page-category
+      page-global-search
       page-home
       page-not-found
       page-proxy

dist.rkt

@@ -4,6 +4,7 @@
          "src/dispatcher-tree.rkt")
 
 (require (only-in "src/page-category.rkt" page-category))
+(require (only-in "src/page-global-search.rkt" page-global-search))
 (require (only-in "src/page-home.rkt" page-home))
 (require (only-in "src/page-not-found.rkt" page-not-found))
 (require (only-in "src/page-proxy.rkt" page-proxy))
@@ -20,6 +21,7 @@
    (dispatcher-tree
     ; order of these does not matter
     page-category
+    page-global-search
     page-home
     page-not-found
     page-proxy

src/dispatcher-tree.rkt

@@ -42,6 +42,7 @@
              (sequencer:make
               (pathprocedure:make "/" (hash-ref ds 'page-home))
               (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
+              (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
               (filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make (hash-ref ds 'page-category)))
               (filter:make #rx"^/[a-z-]+/wiki/.+$" (lift:make (hash-ref ds 'page-wiki)))
               (filter:make #rx"^/[a-z-]+/search$" (lift:make (hash-ref ds 'page-search)))

src/page-global-search.rkt

@@ -0,0 +1,25 @@
+#lang racket/base
+(require racket/dict
+         ; web server libs
+         net/url
+         web-server/http
+         "application-globals.rkt"
+         "url-utils.rkt"
+         "xexpr-utils.rkt")
+
+(provide
+ page-global-search)
+
+(define (page-global-search req)
+  (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))
+       (response/output
+        #:code 400
+        #:mime-type "text/plain"
+        (λ (out)
+          (displayln "Requires wikiname and q parameters." out)))
+       (generate-redirect (format "/~a/search?~a"
+                                  wikiname
+                                  (params->query `(("q" . ,q))))))))

src/page-home.rkt

@@ -32,6 +32,15 @@
                     "breezewiki.com")))
     (p "If you'd like to be automatically sent to BreezeWiki every time in the future, "
        (a (@ (href "https://docs.breezewiki.com/Automatic_Redirection.html")) "check out the tutorial in the manual."))
+    (h2 "Find a page")
+    (form (@ (action "/search"))
+          (label (@ (class "paired__label"))
+                 "Wiki name"
+                 (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))))
+          (button "Search"))
     (h2 "Example pages")
     (ul
      ,@(map (λ (x)

static/main.css

@@ -26,6 +26,9 @@ sup {
 sub {
     vertical-align: sub;
 }
+.page table {
+    color: var(--theme-page-text-color); /* no idea why this needs to be specified, it should inherit from .page */
+}
 
 /* general page appearance */
 body.skin-fandomdesktop, button, input, textarea, .wikitable, .va-table {
@@ -58,6 +61,15 @@ p {
     margin-top: 0;
 }
 
+/* home page search form */
+.paired__label {
+    display: grid;
+}
+.paired__input {
+    width: auto;
+    max-width: 240px;
+}
+
 /* custom footer with source and license info */
 .custom-footer {
     clear: both;
@@ -132,20 +144,6 @@ img {
     overflow: auto;
 }
 
-/* table overrides for dark theme pages */
-/* these colours look good in all wikis I tried. colours that don't look good:
-   --theme-page-background-color--secondary is bad for fallout
-   --theme-page-accent-mix-color is bad for minecraft */
-.wikitable > tr > th, .wikitable > * > tr > th, .va-table th {
-    background-color: var(--theme-page-dynamic-color-1--inverted);
-}
-.wikitable td, .va-table td {
-    background-color: var(--theme-page-text-mix-color-95);
-}
-.page table {
-    color: var(--theme-page-text-color); /* no idea why this needs to be specified, it should inherit from .page */
-}
-
 /* float right. reorganised from their sheet */
 .tright {
     clear: right;