From cc138a07aa4f01464d0894c138feeedf071f9421 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 4 Sep 2022 13:38:30 +1200
Subject: [PATCH 001/166] Rename config options to use underscores

Makes more sense for the INI.
---
 src/application-globals.rkt | 12 ++++++------
 src/config.rkt              |  7 ++++---
 src/page-category.rkt       |  2 +-
 src/page-home.rkt           |  8 ++++----
 4 files changed, 15 insertions(+), 14 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 49ea4366..f7d9d67d 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -26,7 +26,7 @@
   `(html
     (head
      (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
-     (title ,(format "~a | ~a" title (config-get 'application-name)))
+     (title ,(format "~a | ~a" title (config-get 'application_name)))
      (style ":root { --theme-page-background-color: #dfdfe0 }") ; fallback in case styles don't load fast enough
      ,@(map (λ (url)
               `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
@@ -53,22 +53,22 @@
                                          (img (@ (class "my-logo") (src "/static/breezewiki.svg"))))
                                         (p
                                          (a (@ (href "https://gitdab.com/cadence/breezewiki"))
-                                            ,(format "~a source code" (config-get 'application-name))))
+                                            ,(format "~a source code" (config-get 'application_name))))
                                         (p
                                          (a (@ (href "https://lists.sr.ht/~cadence/breezewiki-discuss"))
                                             "Discussions / Bug reports / Feature requests"))
-                                        ,(if (config-get 'instance-is-official)
-                                             `(p ,(format "This instance is run by the ~a developer, " (config-get 'application-name))
+                                        ,(if (config-get 'instance_is_official)
+                                             `(p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
                                                  (a (@ (href "https://cadence.moe/contact"))
                                                     "Cadence."))
                                              `(p
-                                               ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application-name)))))
+                                               ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application_name)))))
                                        (div
                                         (p "This page displays proxied content from "
                                            (a (@ (href ,source-url) (rel "noreferrer")) ,source-url)
                                            ". Text content is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
                                            (a (@ (href "https://www.fandom.com/licensing")) "see license info.")
                                            " Media files may have different copying restrictions.")
-                                        (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application-name))))))))))))
+                                        (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))))))))))
 (module+ test
   (check-not-false (xexp->html (generate-wiki-page "" "test" "test" '(template)))))
diff --git a/src/config.rkt b/src/config.rkt
index 8e785ec0..38433f95 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -16,10 +16,11 @@
   (hash-ref config key))
 
 (define default-config
-  '((port . "10416")
+  '((application_name . "BreezeWiki")
+    (canonical_origin . "")
     (debug . "false")
-    (instance-is-official . "false") ; please don't turn this on, or you will make me very upset
-    (application-name . "BreezeWiki")))
+    (instance_is_official . "false") ; please don't turn this on, or you will make me very upset
+    (port . "10416")))
 
 (define config
   (make-hasheq
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 83f0f030..bfc689fa 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -59,7 +59,7 @@
 
    (define data (easy:response-json dest-res))
    (define body (generate-results-page dest-url wikiname prefixed-category data))
-   (when (config-get 'debug)
+   (when (config-true? 'debug)
      ; used for its side effects
      ; convert to string with error checking, error will be raised if xexp is invalid
      (xexp->html body))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 4a87a1b1..102ab687 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -56,20 +56,20 @@
                           (footer (@ (class "custom-footer"))
                                   (div (@ (class "internal-footer"))
                                        (img (@ (class "my-logo") (src "/static/breezewiki.svg")))
-                                       ,(if (config-get 'instance-is-official)
+                                       ,(if (config-get 'instance_is_official)
                                             `(div
-                                              (p ,(format "This instance is run by the ~a developer, " (config-get 'application-name))
+                                              (p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
                                                 (a (@ (href "https://cadence.moe/contact"))
                                                    "Cadence."))
                                               (p "Hosting generously provided by "
                                                  (a (@ (href "http://alphamethyl.barr0w.net/"))
                                                     "alphamethyl.")))
                                             `(p
-                                              ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application-name))))
+                                              ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application_name))))
                                        (p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
                                           (a (@ (href "https://www.fandom.com/licensing")) "see license info.")
                                           " Media files and official Fandom documents have different copying restrictions.")
-                                       (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application-name)))))))))))
+                                       (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name)))))))))))
 (module+ test
   (check-not-false (xexp->html body)))
 

From 20a40438892ea9d4fdbf72c3fa92142cc91f639a Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 4 Sep 2022 22:13:36 +1200
Subject: [PATCH 002/166] Simplify files even more

- breezewiki.rkt now always sets up the hot-reload watcher
- dispatcher logic moved to dispatcher-tree.rkt
- dispatcher-tree is a macro that doesn't care about the order of its forms
---
 breezewiki.rkt          | 24 ++++++++++--------------
 dist.rkt                | 23 ++++++++++-------------
 src/dispatcher-tree.rkt | 36 ++++++++++++++++++++++++++++++++++++
 3 files changed, 56 insertions(+), 27 deletions(-)
 create mode 100644 src/dispatcher-tree.rkt

diff --git a/breezewiki.rkt b/breezewiki.rkt
index 0421e122..ac60e1f5 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -1,10 +1,7 @@
 #lang racket/base
 (require web-server/servlet-dispatch
-         (prefix-in pathprocedure: web-server/dispatchers/dispatch-pathprocedure)
-         (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer)
-         (prefix-in lift: web-server/dispatchers/dispatch-lift)
-         (prefix-in filter: web-server/dispatchers/dispatch-filter)
          "src/config.rkt"
+         "src/dispatcher-tree.rkt"
          "src/reloadable.rkt")
 
 (define-syntax-rule (require-reloadable filename varname)
@@ -20,8 +17,6 @@
 (require-reloadable "src/page-static.rkt" static-dispatcher)
 (require-reloadable "src/page-wiki.rkt" page-wiki)
 
-(when (not (config-true? 'debug))
-  (set-reload-poll-interval! #f))
 (reload!)
 
 (define ch (make-channel))
@@ -31,13 +26,14 @@
    #:port (string->number (config-get 'port))
    (λ (quit)
      (channel-put ch (lambda () (semaphore-post quit)))
-     (sequencer:make
-      (pathprocedure:make "/" page-home)
-      (pathprocedure:make "/proxy" page-proxy)
-      (filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make page-category))
-      (filter:make #rx"^/[a-z-]+/wiki/.+$" (lift:make page-wiki))
-      (filter:make #rx"^/[a-z-]+/search$" (lift:make page-search))
-      static-dispatcher
-      (lift:make page-not-found)))))
+     (dispatcher-tree
+      ; order of these does not matter
+      page-category
+      page-home
+      page-not-found
+      page-proxy
+      page-search
+      page-wiki
+      static-dispatcher))))
 (define server-t (thread start))
 (define quit (channel-get ch))
diff --git a/dist.rkt b/dist.rkt
index 9e190efd..289f9bd3 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -1,11 +1,7 @@
 #lang racket/base
 (require web-server/servlet-dispatch
-         (prefix-in pathprocedure: web-server/dispatchers/dispatch-pathprocedure)
-         (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer)
-         (prefix-in lift: web-server/dispatchers/dispatch-lift)
-         (prefix-in filter: web-server/dispatchers/dispatch-filter)
          "src/config.rkt"
-         "src/reloadable.rkt")
+         "src/dispatcher-tree.rkt")
 
 (require (only-in "src/page-category.rkt" page-category))
 (require (only-in "src/page-home.rkt" page-home))
@@ -19,11 +15,12 @@
  #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
  #:port (string->number (config-get 'port))
  (λ (quit)
-   (sequencer:make
-    (pathprocedure:make "/" page-home)
-    (pathprocedure:make "/proxy" page-proxy)
-    (filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make page-category))
-    (filter:make #rx"^/[a-z-]+/wiki/.+$" (lift:make page-wiki))
-    (filter:make #rx"^/[a-z-]+/search$" (lift:make page-search))
-    static-dispatcher
-    (lift:make page-not-found))))
+   (dispatcher-tree
+    ; order of these does not matter
+    page-category
+    page-home
+    page-not-found
+    page-proxy
+    page-search
+    page-wiki
+    static-dispatcher)))
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
new file mode 100644
index 00000000..626ee093
--- /dev/null
+++ b/src/dispatcher-tree.rkt
@@ -0,0 +1,36 @@
+#lang racket/base
+(require (for-syntax racket/base)
+         (prefix-in pathprocedure: web-server/dispatchers/dispatch-pathprocedure)
+         (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer)
+         (prefix-in lift: web-server/dispatchers/dispatch-lift)
+         (prefix-in filter: web-server/dispatchers/dispatch-filter))
+
+(provide
+ ; syntax to make the hashmap from names
+ dispatcher-tree
+ ; procedure to make the tree from the hashmap
+ make-dispatcher-tree)
+
+; make a hashmap out of the provided names and call make-dispatcher-tree with it
+(define-syntax (dispatcher-tree stx)
+  ; the arguments, which are names of dispatcher variables
+  (define names (cdr (syntax->list stx)))
+  ; map each name to syntax of a '(name . ,name)
+  (define alist (map (λ (xe) ; xe is the syntax of a name
+                       ; return instead syntax of a cons cell
+                       (datum->syntax stx `(cons ',xe ,xe)))
+                     names))
+  ; make syntax to make the hash
+  (define ds (datum->syntax stx `(make-hasheq (list ,@alist))))
+  ; don't forget that I'm returning *code* - return a call to the function
+  (datum->syntax stx `(make-dispatcher-tree ,ds)))
+
+(define (make-dispatcher-tree ds)
+  (sequencer:make
+   (pathprocedure:make "/" (hash-ref ds 'page-home))
+   (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
+   (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)))
+   (hash-ref ds 'static-dispatcher)
+   (lift:make (hash-ref ds 'page-not-found))))

From 8a720031704298240d23b99ee44691100ae6d590 Mon Sep 17 00:00:00 2001
From: bopol <bopol@e.email>
Date: Sat, 3 Sep 2022 21:22:20 +0200
Subject: [PATCH 003/166] Only display footer in column if space's available

Otherwise it would cause an overflow e.g. on mobile
---
 static/main.css | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/static/main.css b/static/main.css
index 33d72649..b06c86e3 100644
--- a/static/main.css
+++ b/static/main.css
@@ -62,7 +62,11 @@ p {
 }
 .custom-footer__cols {
     display: grid;
-    grid-template-columns: 1fr 1fr;
+}
+@media (min-width: 560px) {
+    .custom-footer__cols {
+        grid-template-columns: 1fr 1fr;
+    }
 }
 .my-logo {
     margin-bottom: 8px;

From 4815db4063949348f48157c00f0f276879c8ab44 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 5 Sep 2022 01:32:45 +1200
Subject: [PATCH 004/166] Dispatch based on Host header (subdomain support)

---
 breezewiki.rkt          |  4 +++-
 dist.rkt                |  4 +++-
 src/dispatcher-tree.rkt | 53 ++++++++++++++++++++++++++++++++++-------
 src/page-home.rkt       |  2 +-
 src/page-subdomain.rkt  | 36 ++++++++++++++++++++++++++++
 5 files changed, 87 insertions(+), 12 deletions(-)
 create mode 100644 src/page-subdomain.rkt

diff --git a/breezewiki.rkt b/breezewiki.rkt
index ac60e1f5..dbca4285 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -15,6 +15,7 @@
 (require-reloadable "src/page-proxy.rkt" page-proxy)
 (require-reloadable "src/page-search.rkt" page-search)
 (require-reloadable "src/page-static.rkt" static-dispatcher)
+(require-reloadable "src/page-subdomain.rkt" subdomain-dispatcher)
 (require-reloadable "src/page-wiki.rkt" page-wiki)
 
 (reload!)
@@ -34,6 +35,7 @@
       page-proxy
       page-search
       page-wiki
-      static-dispatcher))))
+      static-dispatcher
+      subdomain-dispatcher))))
 (define server-t (thread start))
 (define quit (channel-get ch))
diff --git a/dist.rkt b/dist.rkt
index 289f9bd3..d0720be1 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -9,6 +9,7 @@
 (require (only-in "src/page-proxy.rkt" page-proxy))
 (require (only-in "src/page-search.rkt" page-search))
 (require (only-in "src/page-static.rkt" static-dispatcher))
+(require (only-in "src/page-subdomain.rkt" subdomain-dispatcher))
 (require (only-in "src/page-wiki.rkt" page-wiki))
 
 (serve/launch/wait
@@ -23,4 +24,5 @@
     page-proxy
     page-search
     page-wiki
-    static-dispatcher)))
+    static-dispatcher
+    subdomain-dispatcher)))
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 626ee093..49306d8a 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -1,9 +1,13 @@
 #lang racket/base
 (require (for-syntax racket/base)
+         racket/string
+         net/url
+         (prefix-in host: web-server/dispatchers/dispatch-host)
          (prefix-in pathprocedure: web-server/dispatchers/dispatch-pathprocedure)
          (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer)
          (prefix-in lift: web-server/dispatchers/dispatch-lift)
-         (prefix-in filter: web-server/dispatchers/dispatch-filter))
+         (prefix-in filter: web-server/dispatchers/dispatch-filter)
+         "config.rkt")
 
 (provide
  ; syntax to make the hashmap from names
@@ -11,6 +15,29 @@
  ; procedure to make the tree from the hashmap
  make-dispatcher-tree)
 
+(define-syntax (if/out stx)
+  (define tree (cdr (syntax->datum stx))) ; condition true false
+  (define else (cddr tree)) ; the else branch cons cell
+  (define result
+   (let walk ([node tree])
+     (cond
+       ; normally, node should be a full cons cell (a pair) but it might be something else.
+       ; situation: reached the end of a list, empty cons cell
+       [(null? node) node]
+       ; situation: reached the end of a list, cons cdr was non-list
+       [(symbol? node) node]
+       ; normal situation, full cons cell
+       ; -- don't go replacing through nested if/out
+       [(and (pair? node) (eq? 'if/out (car node))) node]
+       ; -- replace if/in
+       [(and (pair? node) (eq? 'if/in (car node)))
+        (append '(if) (cdr node) else)]
+       ; recurse down pair head and tail
+       [(pair? node) (cons (walk (car node)) (walk (cdr node)))]
+       ; something else that can't be recursed into, so pass it through
+       [#t node])))
+  (datum->syntax stx (cons 'if result)))
+
 ; make a hashmap out of the provided names and call make-dispatcher-tree with it
 (define-syntax (dispatcher-tree stx)
   ; the arguments, which are names of dispatcher variables
@@ -26,11 +53,19 @@
   (datum->syntax stx `(make-dispatcher-tree ,ds)))
 
 (define (make-dispatcher-tree ds)
-  (sequencer:make
-   (pathprocedure:make "/" (hash-ref ds 'page-home))
-   (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
-   (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)))
-   (hash-ref ds 'static-dispatcher)
-   (lift:make (hash-ref ds 'page-not-found))))
+  (host:make
+   (λ (host-sym)
+     (if/out (config-true? 'canonical_origin)
+             (let* ([host-header (symbol->string host-sym)]
+                    [splitter (string-append "." (url-host (string->url (config-get 'canonical_origin))))]
+                    [s (string-split host-header splitter #:trim? #f)])
+               (if/in (and (eq? 2 (length s)) (equal? "" (cadr s)))
+                      ((hash-ref ds 'subdomain-dispatcher) (car s))))
+             (sequencer:make
+              (pathprocedure:make "/" (hash-ref ds 'page-home))
+              (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
+              (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)))
+              (hash-ref ds 'static-dispatcher)
+              (lift:make (hash-ref ds 'page-not-found)))))))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 102ab687..760ac17a 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -38,7 +38,7 @@
 (define body
   `(html
     (head
-     (meta (@ (name ")viewport") (content "width=device-width, initial-scale=1")))
+     (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
      (title "About | BreezeWiki")
      (link (@ (rel "stylesheet") (type "text/css") (href "/static/internal.css")))
      (link (@ (rel "stylesheet") (type "text/css") (href "/static/main.css"))))
diff --git a/src/page-subdomain.rkt b/src/page-subdomain.rkt
new file mode 100644
index 00000000..4028a78f
--- /dev/null
+++ b/src/page-subdomain.rkt
@@ -0,0 +1,36 @@
+#lang racket/base
+(require racket/path
+         racket/string
+         net/url
+         web-server/http
+         web-server/servlet-dispatch
+         html-writing
+         (prefix-in lift: web-server/dispatchers/dispatch-lift)
+         "config.rkt"
+         "xexpr-utils.rkt")
+
+(provide
+ subdomain-dispatcher)
+
+(define (subdomain-dispatcher subdomain)
+  (lift:make
+   (λ (req)
+     (response-handler
+      (define uri (request-uri req))
+      (define path (url-path uri))
+      (define path-string (string-join (map (λ (p) (path/param-path p)) path) "/"))
+      (define dest (format "~a/~a/~a" (config-get 'canonical_origin) subdomain path-string))
+      (define dest-bytes (string->bytes/utf-8 dest))
+      (response/output
+       #:code 302
+       #:headers (list (header #"Location" dest-bytes))
+       (λ (out)
+         (write-html
+          `(html
+            (head
+             (title "Redirecting..."))
+            (body
+             "Redirecting to "
+             (a (@ (href ,dest)) ,dest)
+             "..."))
+          out)))))))

From 68832059bd121ea55d4c6bf7bcf4f988a4693e77 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 5 Sep 2022 01:45:42 +1200
Subject: [PATCH 005/166] Display canonical_origin on the home page

---
 src/page-home.rkt | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/page-home.rkt b/src/page-home.rkt
index 760ac17a..27cdd2e4 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -1,6 +1,7 @@
 #lang racket/base
 
-(require html-writing
+(require net/url
+         html-writing
          web-server/http
          "xexpr-utils.rkt"
          "config.rkt")
@@ -31,7 +32,10 @@
                       ,(apply format "~a: ~a" x))))
             examples))
     (h2 "How to use")
-    (p "While browsing any page on Fandom, you can replace \"fandom.com\" in the address bar with \"breezewiki.com\" to see the BreezeWiki version of that page.")
+    (p ,(format "While browsing any page on Fandom, you can replace \"fandom.com\" in the address bar with \"~a\" to see the BreezeWiki version of that page."
+               (if (config-true? 'canonical_origin)
+                   (url-host (string->url (config-get 'canonical_origin)))
+                   "breezewiki.com")))
     (p "After that, you can click the links to navigate around the pages.")
     (p "To get back to Fandom, click the link that's at the bottom of the page.")))
 

From eabe699587bc58f046c0c461081ff3489e69d9b7 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 5 Sep 2022 01:46:29 +1200
Subject: [PATCH 006/166] Properly detect whether the instance is official

---
 src/page-home.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/page-home.rkt b/src/page-home.rkt
index 27cdd2e4..89edd436 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -60,7 +60,7 @@
                           (footer (@ (class "custom-footer"))
                                   (div (@ (class "internal-footer"))
                                        (img (@ (class "my-logo") (src "/static/breezewiki.svg")))
-                                       ,(if (config-get 'instance_is_official)
+                                       ,(if (config-true? 'instance_is_official)
                                             `(div
                                               (p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
                                                 (a (@ (href "https://cadence.moe/contact"))

From 6be10ed31940a217c556934237684b74d09dca01 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 5 Sep 2022 01:58:45 +1200
Subject: [PATCH 007/166] Unify application footer

---
 src/application-globals.rkt | 59 ++++++++++++++++++++++---------------
 src/page-home.rkt           | 19 ++----------
 2 files changed, 37 insertions(+), 41 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index f7d9d67d..2d715f43 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -5,6 +5,8 @@
 (provide
  ; timeout durations for http-easy requests
  timeouts
+ ; generates a consistent footer
+ application-footer
  ; generates a consistent template for wiki page content to sit in
  generate-wiki-page)
 
@@ -14,6 +16,38 @@
 
 (define timeouts (make-timeout-config #:lease 5 #:connect 5))
 
+(define (application-footer source-url)
+  `(footer (@ (class "custom-footer"))
+           (div (@ (class ,(if source-url "custom-footer__cols" "internal-footer")))
+                (div (p
+                      (img (@ (class "my-logo") (src "/static/breezewiki.svg"))))
+                     (p
+                      (a (@ (href "https://gitdab.com/cadence/breezewiki"))
+                         ,(format "~a source code" (config-get 'application_name))))
+                     (p
+                      (a (@ (href "https://docs.breezewiki.com"))
+                         "Documentation and more information"))
+                     (p
+                      (a (@ (href "https://lists.sr.ht/~cadence/breezewiki-discuss"))
+                         "Discussions / Bug reports / Feature requests"))
+                     ,(if (config-true? 'instance_is_official)
+                          `(p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
+                              (a (@ (href "https://cadence.moe/contact"))
+                                 "Cadence."))
+                          `(p
+                            ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application_name)))))
+                ,(if source-url
+                     `(div (p "This page displays proxied content from "
+                              (a (@ (href ,source-url) (rel "noreferrer")) ,source-url)
+                              ". Text content is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
+                              (a (@ (href "https://www.fandom.com/licensing")) "see license info.")
+                              " Media files may have different copying restrictions.")
+                           (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))
+                     `(div (p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
+                              (a (@ (href "https://www.fandom.com/licensing")) "see license info.")
+                              " Media files and official Fandom documents have different copying restrictions.")
+                           (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))))))
+
 (define (generate-wiki-page source-url wikiname title content)
   (define (required-styles origin)
     (map (λ (dest-path) (format dest-path origin))
@@ -46,29 +80,6 @@
                           (div (@ (id "content") #;(class "page-content"))
                                (div (@ (id "mw-content-text"))
                                     ,content))
-                          (footer (@ (class "custom-footer"))
-                                  (div (@ (class "custom-footer__cols"))
-                                       (div
-                                        (p
-                                         (img (@ (class "my-logo") (src "/static/breezewiki.svg"))))
-                                        (p
-                                         (a (@ (href "https://gitdab.com/cadence/breezewiki"))
-                                            ,(format "~a source code" (config-get 'application_name))))
-                                        (p
-                                         (a (@ (href "https://lists.sr.ht/~cadence/breezewiki-discuss"))
-                                            "Discussions / Bug reports / Feature requests"))
-                                        ,(if (config-get 'instance_is_official)
-                                             `(p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
-                                                 (a (@ (href "https://cadence.moe/contact"))
-                                                    "Cadence."))
-                                             `(p
-                                               ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application_name)))))
-                                       (div
-                                        (p "This page displays proxied content from "
-                                           (a (@ (href ,source-url) (rel "noreferrer")) ,source-url)
-                                           ". Text content is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
-                                           (a (@ (href "https://www.fandom.com/licensing")) "see license info.")
-                                           " Media files may have different copying restrictions.")
-                                        (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))))))))))
+                          ,(application-footer source-url)))))))
 (module+ test
   (check-not-false (xexp->html (generate-wiki-page "" "test" "test" '(template)))))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 89edd436..26eb1aab 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -3,6 +3,7 @@
 (require net/url
          html-writing
          web-server/http
+         "application-globals.rkt"
          "xexpr-utils.rkt"
          "config.rkt")
 
@@ -57,23 +58,7 @@
                           (div (@ (id "content") #;(class "page-content"))
                                (div (@ (id "mw-content-text"))
                                     ,@content))
-                          (footer (@ (class "custom-footer"))
-                                  (div (@ (class "internal-footer"))
-                                       (img (@ (class "my-logo") (src "/static/breezewiki.svg")))
-                                       ,(if (config-true? 'instance_is_official)
-                                            `(div
-                                              (p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
-                                                (a (@ (href "https://cadence.moe/contact"))
-                                                   "Cadence."))
-                                              (p "Hosting generously provided by "
-                                                 (a (@ (href "http://alphamethyl.barr0w.net/"))
-                                                    "alphamethyl.")))
-                                            `(p
-                                              ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application_name))))
-                                       (p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
-                                          (a (@ (href "https://www.fandom.com/licensing")) "see license info.")
-                                          " Media files and official Fandom documents have different copying restrictions.")
-                                       (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name)))))))))))
+                          ,(application-footer #f)))))))
 (module+ test
   (check-not-false (xexp->html body)))
 

From 44906015a5f4b6a69624dce55305f02aa895d4d2 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 5 Sep 2022 13:34:16 +1200
Subject: [PATCH 008/166] Fix (& x) forms in update-tree

---
 src/xexpr-utils.rkt | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/xexpr-utils.rkt b/src/xexpr-utils.rkt
index 87f52fe1..5b87d340 100644
--- a/src/xexpr-utils.rkt
+++ b/src/xexpr-utils.rkt
@@ -158,7 +158,8 @@
     (define attributes (bits->attributes (cdr element)))
     (define contents (filter element-is-content? (cdr element))) ; provide elements and strings
     (if (or (equal? element-type '*DECL)
-            (equal? element-type '@))
+            (equal? element-type '@)
+            (equal? element-type '&))
         ; special element, do nothing
         element
         ; regular element, transform it
@@ -169,6 +170,10 @@
                    (map (λ (content)
                           (if (element-is-element? content) (loop content) content))
                         contents))]))))
+(module+ test
+  ; check (& x) sequences are preserved
+  (check-equal? (update-tree (λ (e t a c) (list t a c)) '(body "Hey" (& nbsp) (a (@ (href "/")))))
+                '(body "Hey" (& nbsp) (a (@ (href "/"))))))
 
 (define (has-class? name attributes)
   (and (member name (string-split (or (get-attribute 'class attributes) "") " ")) #t))

From 9b3cd6dbe7c54d2bd23266060b955a090248d5ad Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 5 Sep 2022 13:38:16 +1200
Subject: [PATCH 009/166] Debug xexpr in page-wiki

---
 src/page-wiki.rkt | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index ff86b203..f09900f1 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -13,6 +13,7 @@
          web-server/http
          web-server/dispatchers/dispatch
          ; my libs
+         "config.rkt"
          "pure-utils.rkt"
          "xexpr-utils.rkt"
          "url-utils.rkt"
@@ -231,12 +232,17 @@
             (define body
               (generate-wiki-page source-url wikiname title (update-tree-wiki page wikiname)))
             (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
+            (define headers (if redirect-msg
+                                (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+                                       [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
+                                  (list (header #"Refresh" value)))
+                                (list)))
+            (when (config-true? 'debug)
+              ; used for its side effects
+              ; convert to string with error checking, error will be raised if xexp is invalid
+              (xexp->html body))
             (response/output
              #:code 200
-             #:headers (if redirect-msg
-                           (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
-                                  [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
-                             (list (header #"Refresh" value)))
-                           (list))
+             #:headers headers
              (λ (out)
                (write-html body out))))))]))

From 1f302b3a9ecd98a455966637d684c2a24275aaf8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 5 Sep 2022 13:38:30 +1200
Subject: [PATCH 010/166] Add a pokemon example to the front page

---
 src/page-home.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/page-home.rkt b/src/page-home.rkt
index 26eb1aab..042d4ad1 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -15,6 +15,7 @@
 
 (define examples
   '(("crosscode" "CrossCode_Wiki")
+    ("pokemon" "Eevee")
     ("minecraft" "Bricks")
     ("undertale" "Hot_Dog...%3F")
     ("tardis" "Eleanor_Blake")

From 3505925f7ea85708eebaaf246728a742b0d93a7d Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 5 Sep 2022 23:50:52 +1200
Subject: [PATCH 011/166] Increase table font size

---
 static/main.css | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/static/main.css b/static/main.css
index b06c86e3..b2a3f3df 100644
--- a/static/main.css
+++ b/static/main.css
@@ -22,7 +22,7 @@ sub {
 }
 
 /* general page appearance */
-body.skin-fandomdesktop, button, input, textarea, .wikitable {
+body.skin-fandomdesktop, button, input, textarea, .wikitable, .va-table {
     font-family: initial;
     font-size: 18px;
     line-height: 1.5;

From 78399a3474d23289d7e4872e4f5a6d1ebf7eb13e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 8 Sep 2022 00:16:24 +1200
Subject: [PATCH 012/166] Add strict_proxy option to proxy links to images

Default true.
---
 src/config.rkt    |  3 ++-
 src/page-wiki.rkt | 35 +++++++++++++++++++++++++++--------
 2 files changed, 29 insertions(+), 9 deletions(-)

diff --git a/src/config.rkt b/src/config.rkt
index 38433f95..4dc133ee 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -20,7 +20,8 @@
     (canonical_origin . "")
     (debug . "false")
     (instance_is_official . "false") ; please don't turn this on, or you will make me very upset
-    (port . "10416")))
+    (port . "10416")
+    (strict_proxy . "true")))
 
 (define config
   (make-hasheq
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index f09900f1..c770abcf 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -30,9 +30,9 @@
            (aside (@ (role "region") (class "portable-infobox pi-theme-wikia pi-layout-default"))
                   (h2 (@ (class "pi-item pi-title") (data-source "title"))
                       "Infobox Title")
-                  (figure (@ (class "pi-item pi-image") (data-sourec "image"))
-                          (a (@ (href "https://static.wiki.nocookie.net/nice-image.png") (class "image image-thumbnail") (title ""))
-                             (img (@ (src "https://static.wiki.nocookie.net/nice-image-thumbnail.png") (class "pi-image-thumbnail")))))
+                  (figure (@ (class "pi-item pi-image") (data-source "image"))
+                          (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image image-thumbnail") (title ""))
+                             (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") (class "pi-image-thumbnail")))))
                   (div (@ (class "pi-item pi-data") (data-source "description"))
                        (h3 (@ (class "pi-data-label"))
                            "Description")
@@ -64,7 +64,7 @@
   (check-equal? (preprocess-html-wiki "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"> 	<p class=\"caption\">Caption text.</p></figcaption></figure>")
                 "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"><span class=\"caption\">Caption text.</span></figcaption></figure>"))
 
-(define (update-tree-wiki tree wikiname)
+(define (update-tree-wiki tree wikiname #:strict-proxy? strict-proxy?)
   (update-tree
    (λ (element element-type attributes children)
      ;; replace whole element?
@@ -142,7 +142,7 @@
                 (curry u
                        (λ (v) (and (eq? element-type 'a)
                                    (has-class? "image" v)))
-                       (λ (v) (dict-update attributes 'rel (λ (s)
+                       (λ (v) (dict-update v 'rel (λ (s)
                                                              (list (string-append (car s) " noreferrer")))
                                            '(""))))
                 ; proxy images from inline styles
@@ -154,6 +154,13 @@
                                             "url("
                                             (u-proxy-url url)
                                             ")")))))
+                ; and also their links, if strict-proxy is set
+                (curry u
+                       (λ (v)
+                         (and strict-proxy?
+                              (eq? element-type 'a)
+                              (has-class? "image-thumbnail" v)))
+                       (λ (v) (attribute-maybe-update 'href u-proxy-url v)))
                 ; proxy images from src attributes
                 (curry attribute-maybe-update 'src u-proxy-url)
                 ; don't lazyload images
@@ -176,7 +183,7 @@
                children))]))
    tree))
 (module+ test
-  (define transformed (update-tree-wiki wiki-document "test"))
+  (define transformed (update-tree-wiki wiki-document "test" #:strict-proxy? #t))
   ; check that wikilinks are changed to be local
   (check-equal? (get-attribute 'href (bits->attributes
                                       ((query-selector
@@ -201,7 +208,19 @@
   (check-equal? (let* ([alternative ((query-selector (λ (t a c) (has-class? "iframe-alternative" a)) transformed))]
                        [link ((query-selector (λ (t a c) (eq? t 'a)) alternative))])
                   (get-attribute 'href (bits->attributes link)))
-                "https://example.com/iframe-src"))
+                "https://example.com/iframe-src")
+  ; check that images are proxied
+  (check-equal? (get-attribute 'src (bits->attributes
+                                     ((query-selector
+                                       (λ (t a c) (eq? t 'img))
+                                       transformed))))
+                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image-thumbnail.png")
+  ; check that links to images are proxied
+  (check-equal? (get-attribute 'href (bits->attributes
+                                      ((query-selector
+                                        (λ (t a c) (and (eq? t 'a) (has-class? "image-thumbnail" a)))
+                                        transformed))))
+                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png"))
 
 (define (page-wiki req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))
@@ -230,7 +249,7 @@
            (next-dispatcher)
            (response-handler
             (define body
-              (generate-wiki-page source-url wikiname title (update-tree-wiki page wikiname)))
+              (generate-wiki-page source-url wikiname title (update-tree-wiki page wikiname #:strict-proxy? (config-true? 'strict_proxy))))
             (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
             (define headers (if redirect-msg
                                 (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]

From e6eabe9cf409e7e6be7cc5bb4e6f6c959cf49533 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 8 Sep 2022 14:05:47 +1200
Subject: [PATCH 013/166] Proxy stylesheets too under strict_proxy

This also refactors the configuration system to use make-parameter,
because dynamic binding allows for testing code more easily.
---
 src/application-globals.rkt | 27 ++++++++++++---
 src/config.rkt              | 66 ++++++++++++++++++++++---------------
 src/page-wiki.rkt           | 12 ++++---
 3 files changed, 69 insertions(+), 36 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 2d715f43..11d610a4 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -1,6 +1,9 @@
 #lang racket/base
-(require net/http-easy
-         "config.rkt")
+(require racket/string
+         net/http-easy
+         "config.rkt"
+         "xexpr-utils.rkt"
+         "url-utils.rkt")
 
 (provide
  ; timeout durations for http-easy requests
@@ -50,7 +53,11 @@
 
 (define (generate-wiki-page source-url wikiname title content)
   (define (required-styles origin)
-    (map (λ (dest-path) (format dest-path origin))
+    (map (λ (dest-path)
+           (define url (format dest-path origin))
+           (if (config-true? 'strict_proxy)
+               (u-proxy-url url)
+               url))
          '(#;"~a/load.php?lang=en&modules=skin.fandomdesktop.styles&only=styles&skin=fandomdesktop"
            #;"~a/load.php?lang=en&modules=ext.gadget.dungeonsWiki%2CearthWiki%2Csite-styles%2Csound-styles&only=styles&skin=fandomdesktop"
            #;"~a/load.php?lang=en&modules=site.styles&only=styles&skin=fandomdesktop"
@@ -82,4 +89,16 @@
                                     ,content))
                           ,(application-footer source-url)))))))
 (module+ test
-  (check-not-false (xexp->html (generate-wiki-page "" "test" "test" '(template)))))
+  (define page
+    (parameterize ([(config-parameter 'strict_proxy) "true"])
+      (generate-wiki-page "" "test" "test" '(template))))
+  ; check the page is a valid xexp
+  (check-not-false (xexp->html page))
+  ; check the stylesheet is proxied
+  (check-true (string-prefix?
+               (get-attribute 'href
+                              (bits->attributes
+                               ((query-selector
+                                 (λ (t a c) (eq? t 'link))
+                                 page))))
+               "/proxy?dest=https%3A%2F%2Ftest.fandom.com")))
diff --git a/src/config.rkt b/src/config.rkt
index 4dc133ee..16d1daff 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -4,16 +4,20 @@
          ini)
 
 (provide
+ config-parameter
  config-true?
  config-get)
 
 (define-runtime-path path-config "../config.ini")
 
+(define (config-parameter key)
+  (hash-ref config key))
+
 (define (config-true? key)
-  (not (member (hash-ref config key) '("" "false"))))
+  (not (member ((config-parameter key)) '("" "false"))))
 
 (define (config-get key)
-  (hash-ref config key))
+  ((config-parameter key)))
 
 (define default-config
   '((application_name . "BreezeWiki")
@@ -23,35 +27,43 @@
     (port . "10416")
     (strict_proxy . "true")))
 
+(define loaded-alist
+  (with-handlers
+    ([exn:fail:filesystem:errno?
+      (λ (exn)
+        (begin0
+            '()
+          (displayln "note: config file not detected, using defaults")))]
+     [exn:fail:contract?
+      (λ (exn)
+        (begin0
+            '()
+          (displayln "note: config file empty or missing [] section, using defaults")))])
+    (define l
+      (hash->list
+       (hash-ref
+        (ini->hash
+         (call-with-input-file path-config
+           (λ (in)
+             (read-ini in))))
+        '||)))
+    (begin0
+        l
+      (printf "note: ~a items loaded from config file~n" (length l)))))
+
+(define combined-alist (append default-config loaded-alist))
+
 (define config
   (make-hasheq
-   (append
-    default-config
-    (with-handlers
-      ([exn:fail:filesystem:errno?
-        (λ (exn)
-          (begin0
-              '()
-            (displayln "note: config file not detected, using defaults")))]
-       [exn:fail:contract?
-        (λ (exn)
-          (begin0
-              '()
-            (displayln "note: config file empty or missing [] section, using defaults")))])
-      (define l
-        (hash->list
-         (hash-ref
-          (ini->hash
-           (call-with-input-file path-config
-             (λ (in)
-               (read-ini in))))
-          '||)))
-      (begin0
-          l
-        (printf "note: ~a items loaded from config file~n" (length l)))))))
+   (map (λ (pair)
+          (cons (car pair) (make-parameter (cdr pair))))
+        combined-alist)))
 
 (when (config-true? 'debug)
   ; all values here are optimised for maximum prettiness
   (parameterize ([pretty-print-columns 80])
     (display "config: ")
-    (pretty-write (hash->list config))))
+    (pretty-write (sort
+                   (hash->list (make-hasheq combined-alist))
+                   symbol<?
+                   #:key car))))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index c770abcf..65771a8a 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -64,7 +64,7 @@
   (check-equal? (preprocess-html-wiki "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"> 	<p class=\"caption\">Caption text.</p></figcaption></figure>")
                 "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"><span class=\"caption\">Caption text.</span></figcaption></figure>"))
 
-(define (update-tree-wiki tree wikiname #:strict-proxy? strict-proxy?)
+(define (update-tree-wiki tree wikiname)
   (update-tree
    (λ (element element-type attributes children)
      ;; replace whole element?
@@ -154,10 +154,10 @@
                                             "url("
                                             (u-proxy-url url)
                                             ")")))))
-                ; and also their links, if strict-proxy is set
+                ; and also their links, if strict_proxy is set
                 (curry u
                        (λ (v)
-                         (and strict-proxy?
+                         (and (config-true? 'strict_proxy)
                               (eq? element-type 'a)
                               (has-class? "image-thumbnail" v)))
                        (λ (v) (attribute-maybe-update 'href u-proxy-url v)))
@@ -183,7 +183,9 @@
                children))]))
    tree))
 (module+ test
-  (define transformed (update-tree-wiki wiki-document "test" #:strict-proxy? #t))
+  (define transformed
+    (parameterize ([(config-parameter 'strict_proxy) "true"])
+      (update-tree-wiki wiki-document "test")))
   ; check that wikilinks are changed to be local
   (check-equal? (get-attribute 'href (bits->attributes
                                       ((query-selector
@@ -249,7 +251,7 @@
            (next-dispatcher)
            (response-handler
             (define body
-              (generate-wiki-page source-url wikiname title (update-tree-wiki page wikiname #:strict-proxy? (config-true? 'strict_proxy))))
+              (generate-wiki-page source-url wikiname title (update-tree-wiki page wikiname)))
             (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
             (define headers (if redirect-msg
                                 (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]

From 0a27f6d87f0873dced3652c704835e788e0c5cfb Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 8 Sep 2022 14:50:29 +1200
Subject: [PATCH 014/166] Improve homepage, add testimonials

---
 src/page-home.rkt   | 21 ++++++++++++---------
 static/internal.css |  4 ++++
 2 files changed, 16 insertions(+), 9 deletions(-)

diff --git a/src/page-home.rkt b/src/page-home.rkt
index 042d4ad1..5374e0a0 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -24,22 +24,25 @@
 
 (define content
   `((h2 "BreezeWiki makes wiki pages on Fandom readable")
-    (p "It removes ads, videos, and suggested content, leaving you with a clean page that doesn't consume all your data.")
-    (p "If you're looking for an \"alternative\" to Fandom for writing pages, you should look elsewhere. BreezeWiki only lets you read existing pages.")
+    (p "It removes ads, videos, and suggested content, leaving you with a clean page that doesn't slow down your device or use up your data.")
     (p "BreezeWiki can also be called an \"alternative frontend for Fandom\".")
+    (p ,(format "To use BreezeWiki, just replace \"fandom.com\" with \"~a\", and you'll instantly be teleported to a better world."
+               (if (config-true? 'canonical_origin)
+                   (url-host (string->url (config-get 'canonical_origin)))
+                   "breezewiki.com")))
     (h2 "Example pages")
     (ul
      ,@(map (λ (x)
               `(li (a (@ (href ,(apply format "/~a/wiki/~a" x)))
                       ,(apply format "~a: ~a" x))))
             examples))
-    (h2 "How to use")
-    (p ,(format "While browsing any page on Fandom, you can replace \"fandom.com\" in the address bar with \"~a\" to see the BreezeWiki version of that page."
-               (if (config-true? 'canonical_origin)
-                   (url-host (string->url (config-get 'canonical_origin)))
-                   "breezewiki.com")))
-    (p "After that, you can click the links to navigate around the pages.")
-    (p "To get back to Fandom, click the link that's at the bottom of the page.")))
+    (h2 "Testimonials")
+    (p (@ (class "testimonial")) ">you are so right that fandom still sucks even with adblock somehow. even zapping all the stupid padding it still sucks —Minimus")
+    (p (@ (class "testimonial")) ">attempting to go to a wiki's forum page with breezewiki doesn't work, which is based honestly —Tom Skeleton")
+    (p (@ (class "testimonial")) ">Fandom pages crashing and closing, taking forever to load and locking up as they load the ads on the site... they are causing the site to crash because they are trying to load video ads both at the top and bottom of the site as well as two or three banner ads, then a massive top of site ad and eventually my anti-virus shuts the whole site down because it's literally pulling more resources than WoW in ultra settings... —Anonymous")
+    (h2 "What BreezeWiki isn't")
+    (p "BreezeWiki isn't an \"alternative\" to Fandom, and it doesn't let you edit or write new pages.")
+    (p "If you want to create your own wiki, try Miraheze!")))
 
 (define body
   `(html
diff --git a/static/internal.css b/static/internal.css
index 6cc9294b..3b9a0376 100644
--- a/static/internal.css
+++ b/static/internal.css
@@ -171,3 +171,7 @@ body {
 .internal-footer {
     max-width: 700px;
 }
+
+.testimonial {
+    color: #157937;
+}

From 7a4bfe4180155e1388d9805e3e1e3b50fec284a1 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 9 Sep 2022 15:42:20 +1200
Subject: [PATCH 015/166] Redirect /wikiname to its homepage

---
 breezewiki.rkt                  |  2 ++
 src/application-globals.rkt     | 26 +++++++++++++++++++++++---
 src/dispatcher-tree.rkt         |  1 +
 src/page-home.rkt               |  1 +
 src/page-redirect-wiki-home.rkt | 15 +++++++++++++++
 src/page-subdomain.rkt          | 18 ++----------------
 src/xexpr-utils.rkt             |  5 +++--
 7 files changed, 47 insertions(+), 21 deletions(-)
 create mode 100644 src/page-redirect-wiki-home.rkt

diff --git a/breezewiki.rkt b/breezewiki.rkt
index dbca4285..aeaaa890 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -13,6 +13,7 @@
 (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)
+(require-reloadable "src/page-redirect-wiki-home.rkt" redirect-wiki-home)
 (require-reloadable "src/page-search.rkt" page-search)
 (require-reloadable "src/page-static.rkt" static-dispatcher)
 (require-reloadable "src/page-subdomain.rkt" subdomain-dispatcher)
@@ -35,6 +36,7 @@
       page-proxy
       page-search
       page-wiki
+      redirect-wiki-home
       static-dispatcher
       subdomain-dispatcher))))
 (define server-t (thread start))
diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 11d610a4..b47ed309 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -1,6 +1,8 @@
 #lang racket/base
 (require racket/string
-         net/http-easy
+         (prefix-in easy: net/http-easy)
+         html-writing
+         web-server/http
          "config.rkt"
          "xexpr-utils.rkt"
          "url-utils.rkt")
@@ -11,13 +13,15 @@
  ; generates a consistent footer
  application-footer
  ; generates a consistent template for wiki page content to sit in
- generate-wiki-page)
+ generate-wiki-page
+ ; generates a minimal but complete redirect to another page
+ generate-redirect)
 
 (module+ test
   (require rackunit
            html-writing))
 
-(define timeouts (make-timeout-config #:lease 5 #:connect 5))
+(define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
 
 (define (application-footer source-url)
   `(footer (@ (class "custom-footer"))
@@ -102,3 +106,19 @@
                                  (λ (t a c) (eq? t 'link))
                                  page))))
                "/proxy?dest=https%3A%2F%2Ftest.fandom.com")))
+
+(define (generate-redirect dest)
+  (define dest-bytes (string->bytes/utf-8 dest))
+  (response/output
+   #:code 302
+   #:headers (list (header #"Location" dest-bytes))
+   (λ (out)
+     (write-html
+      `(html
+        (head
+         (title "Redirecting..."))
+        (body
+         "Redirecting to "
+         (a (@ (href ,dest)) ,dest)
+         "..."))
+      out))))
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 49306d8a..58e8eae0 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -67,5 +67,6 @@
               (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)))
+              (filter:make #rx"^/[a-z-]+(/(wiki(/)?)?)?$" (lift:make (hash-ref ds 'redirect-wiki-home)))
               (hash-ref ds 'static-dispatcher)
               (lift:make (hash-ref ds 'page-not-found)))))))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 5374e0a0..7e4184c8 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -37,6 +37,7 @@
                       ,(apply format "~a: ~a" x))))
             examples))
     (h2 "Testimonials")
+    (p (@ (class "testimonial")) ">So glad to never have to touch fandom's garbage platform directly ever again —RNL")
     (p (@ (class "testimonial")) ">you are so right that fandom still sucks even with adblock somehow. even zapping all the stupid padding it still sucks —Minimus")
     (p (@ (class "testimonial")) ">attempting to go to a wiki's forum page with breezewiki doesn't work, which is based honestly —Tom Skeleton")
     (p (@ (class "testimonial")) ">Fandom pages crashing and closing, taking forever to load and locking up as they load the ads on the site... they are causing the site to crash because they are trying to load video ads both at the top and bottom of the site as well as two or three banner ads, then a massive top of site ad and eventually my anti-virus shuts the whole site down because it's literally pulling more resources than WoW in ultra settings... —Anonymous")
diff --git a/src/page-redirect-wiki-home.rkt b/src/page-redirect-wiki-home.rkt
new file mode 100644
index 00000000..a3740b52
--- /dev/null
+++ b/src/page-redirect-wiki-home.rkt
@@ -0,0 +1,15 @@
+#lang racket/base
+(require net/url
+         web-server/http
+         "application-globals.rkt"
+         "url-utils.rkt"
+         "xexpr-utils.rkt")
+
+(provide
+ redirect-wiki-home)
+
+(define (redirect-wiki-home req)
+  (response-handler
+   (define wikiname (path/param-path (car (url-path (request-uri req)))))
+   (define dest (format "~a/wiki/Main_Page" wikiname))
+   (generate-redirect dest)))
diff --git a/src/page-subdomain.rkt b/src/page-subdomain.rkt
index 4028a78f..dededfb1 100644
--- a/src/page-subdomain.rkt
+++ b/src/page-subdomain.rkt
@@ -3,9 +3,8 @@
          racket/string
          net/url
          web-server/http
-         web-server/servlet-dispatch
-         html-writing
          (prefix-in lift: web-server/dispatchers/dispatch-lift)
+         "application-globals.rkt"
          "config.rkt"
          "xexpr-utils.rkt")
 
@@ -20,17 +19,4 @@
       (define path (url-path uri))
       (define path-string (string-join (map (λ (p) (path/param-path p)) path) "/"))
       (define dest (format "~a/~a/~a" (config-get 'canonical_origin) subdomain path-string))
-      (define dest-bytes (string->bytes/utf-8 dest))
-      (response/output
-       #:code 302
-       #:headers (list (header #"Location" dest-bytes))
-       (λ (out)
-         (write-html
-          `(html
-            (head
-             (title "Redirecting..."))
-            (body
-             "Redirecting to "
-             (a (@ (href ,dest)) ,dest)
-             "..."))
-          out)))))))
+      (generate-redirect dest)))))
diff --git a/src/xexpr-utils.rkt b/src/xexpr-utils.rkt
index 5b87d340..cd7f6517 100644
--- a/src/xexpr-utils.rkt
+++ b/src/xexpr-utils.rkt
@@ -197,6 +197,7 @@
                                 (λ (out)
                                   (for ([port (list (current-error-port) out)])
                                     (parameterize ([current-error-port port])
-                                      (displayln "Exception raised in Racket code at response generation time:" (current-error-port))
-                                      ((error-display-handler) (exn-message e) e))))))])
+                                      (with-handlers ([exn:fail? (λ (e) (void))])
+                                        (displayln "Exception raised in Racket code at response generation time:" (current-error-port))
+                                        ((error-display-handler) (exn-message e) e)))))))])
     body ...))

From 31037c98527b24387b525fee3572a0d4f0943be7 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 9 Sep 2022 16:24:26 +1200
Subject: [PATCH 016/166] fix previous commit

---
 dist.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/dist.rkt b/dist.rkt
index d0720be1..596a1b97 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -7,6 +7,7 @@
 (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))
+(require (only-in "src/page-redirect-wiki-home.rkt" redirect-wiki-home))
 (require (only-in "src/page-search.rkt" page-search))
 (require (only-in "src/page-static.rkt" static-dispatcher))
 (require (only-in "src/page-subdomain.rkt" subdomain-dispatcher))
@@ -24,5 +25,6 @@
     page-proxy
     page-search
     page-wiki
+    redirect-wiki-home
     static-dispatcher
     subdomain-dispatcher)))

From 62e1cb33c865bf757cf503b3597a042fbb1628fa Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 9 Sep 2022 21:59:19 +1200
Subject: [PATCH 017/166] Prevent footer overlapping on mobile

---
 static/main.css | 1 +
 1 file changed, 1 insertion(+)

diff --git a/static/main.css b/static/main.css
index b2a3f3df..63dc408b 100644
--- a/static/main.css
+++ b/static/main.css
@@ -55,6 +55,7 @@ p {
 
 /* custom footer with source and license info */
 .custom-footer {
+    clear: both;
     font-size: 16px;
     margin-top: 30px;
     padding-top: 20px;

From 660ec56e7337b20aedde2e15c10145168b5eb69f Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 9 Sep 2022 23:17:21 +1200
Subject: [PATCH 018/166] Mobile layout improvements

- Images must fit within the screen
- Attempt to make horizontal page footers vertical on mobile
---
 static/main.css | 45 +++++++++++++++++++++++++++++++++------------
 1 file changed, 33 insertions(+), 12 deletions(-)

diff --git a/static/main.css b/static/main.css
index 63dc408b..fe8500ac 100644
--- a/static/main.css
+++ b/static/main.css
@@ -64,11 +64,6 @@ p {
 .custom-footer__cols {
     display: grid;
 }
-@media (min-width: 560px) {
-    .custom-footer__cols {
-        grid-template-columns: 1fr 1fr;
-    }
-}
 .my-logo {
     margin-bottom: 8px;
 }
@@ -115,6 +110,13 @@ p {
     display: none;
 }
 
+/* don't allow images to extend past the edge of the page */
+img {
+    max-width: 100%;
+    width: auto;
+    height: auto;
+}
+
 /* allow tables to scroll horizontally if needed */
 .table-scroller {
     overflow: auto;
@@ -178,13 +180,6 @@ figcaption, .lightbox-caption, .thumbcaption {
     display: block;
 }
 
-/* category list columns */
-@media (min-width: 700px) {
-    .my-category-list {
-        columns: 3;
-    }
-}
-
 /* animated slots */
 #mw-content-text .animated > :not(.animated-active), #mw-content-text .animated > .animated-subframe > :not(.animated-active) {
     display: inline-block;
@@ -221,3 +216,29 @@ figcaption, .lightbox-caption, .thumbcaption {
     color: var(--theme-page-text-color--hover);
     margin-left: 1.2em;
 }
+
+/* media queries */
+
+/* for reference, cell phone screens are generally 400 px wide, definitely less than 500 px */
+
+@media (min-width: 700px) { /* wider than 700 px */
+    /* category list columns */
+    .my-category-list {
+        columns: 3;
+    }
+}
+
+@media (min-width: 560px) { /* wider than 560 px */
+    /* footer columns */
+    .custom-footer__cols {
+        grid-template-columns: 1fr 1fr;
+    }
+}
+
+@media (max-width: 559px) { /* narrower than 560 px */
+    /* attempt to make horizontal wiki page footers vertical instead - see /nfs/wiki/Need_for_Speed_Wiki */
+    [style*="width:calc(100%"] {
+        width: auto !important;
+        text-align: center !important;
+    }
+}

From 229ec1ee0c6622594caa123c42718a7dd4d5c959 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 9 Sep 2022 23:33:01 +1200
Subject: [PATCH 019/166] Don't display new editor encouragement

---
 static/main.css | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/static/main.css b/static/main.css
index fe8500ac..2aa449eb 100644
--- a/static/main.css
+++ b/static/main.css
@@ -110,6 +110,11 @@ p {
     display: none;
 }
 
+/* don't display sections on home pages encouraging new editors */
+#fpcommunity {
+    display: none;
+}
+
 /* don't allow images to extend past the edge of the page */
 img {
     max-width: 100%;

From 951a5fe651e4005172e3720d48420fb17711f093 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 9 Sep 2022 23:41:33 +1200
Subject: [PATCH 020/166] Fix wiki home redirection

---
 src/page-redirect-wiki-home.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/page-redirect-wiki-home.rkt b/src/page-redirect-wiki-home.rkt
index a3740b52..b0c3df3c 100644
--- a/src/page-redirect-wiki-home.rkt
+++ b/src/page-redirect-wiki-home.rkt
@@ -11,5 +11,5 @@
 (define (redirect-wiki-home req)
   (response-handler
    (define wikiname (path/param-path (car (url-path (request-uri req)))))
-   (define dest (format "~a/wiki/Main_Page" wikiname))
+   (define dest (format "/~a/wiki/Main_Page" wikiname))
    (generate-redirect dest)))

From e4bc962b05329009dd424f16399c5fea794f503f Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 11 Sep 2022 19:05:34 +1200
Subject: [PATCH 021/166] Link to automatic redirection tutorial on homepage

---
 src/page-home.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/page-home.rkt b/src/page-home.rkt
index 7e4184c8..3c84511f 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -30,6 +30,8 @@
                (if (config-true? 'canonical_origin)
                    (url-host (string->url (config-get 'canonical_origin)))
                    "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 "Example pages")
     (ul
      ,@(map (λ (x)

From 4ad22ca9c1a7b65369236350c76c4f7bd2101498 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 11 Sep 2022 19:38:20 +1200
Subject: [PATCH 022/166] Move syntax definitions to a new file

---
 src/dispatcher-tree.rkt | 26 ++------------------
 src/syntax.rkt          | 54 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 56 insertions(+), 24 deletions(-)
 create mode 100644 src/syntax.rkt

diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 58e8eae0..5800876d 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -1,5 +1,6 @@
 #lang racket/base
-(require (for-syntax racket/base)
+(require "syntax.rkt"
+         (for-syntax racket/base)
          racket/string
          net/url
          (prefix-in host: web-server/dispatchers/dispatch-host)
@@ -15,29 +16,6 @@
  ; procedure to make the tree from the hashmap
  make-dispatcher-tree)
 
-(define-syntax (if/out stx)
-  (define tree (cdr (syntax->datum stx))) ; condition true false
-  (define else (cddr tree)) ; the else branch cons cell
-  (define result
-   (let walk ([node tree])
-     (cond
-       ; normally, node should be a full cons cell (a pair) but it might be something else.
-       ; situation: reached the end of a list, empty cons cell
-       [(null? node) node]
-       ; situation: reached the end of a list, cons cdr was non-list
-       [(symbol? node) node]
-       ; normal situation, full cons cell
-       ; -- don't go replacing through nested if/out
-       [(and (pair? node) (eq? 'if/out (car node))) node]
-       ; -- replace if/in
-       [(and (pair? node) (eq? 'if/in (car node)))
-        (append '(if) (cdr node) else)]
-       ; recurse down pair head and tail
-       [(pair? node) (cons (walk (car node)) (walk (cdr node)))]
-       ; something else that can't be recursed into, so pass it through
-       [#t node])))
-  (datum->syntax stx (cons 'if result)))
-
 ; make a hashmap out of the provided names and call make-dispatcher-tree with it
 (define-syntax (dispatcher-tree stx)
   ; the arguments, which are names of dispatcher variables
diff --git a/src/syntax.rkt b/src/syntax.rkt
new file mode 100644
index 00000000..c331493a
--- /dev/null
+++ b/src/syntax.rkt
@@ -0,0 +1,54 @@
+#lang racket/base
+(require (for-syntax racket/base))
+
+(provide
+ ; help make a nested if where the false results are the same
+ if/out)
+
+(module+ test
+  (require rackunit)
+  (define (check-syntax-equal? s1 s2)
+    (check-equal? (syntax->datum s1)
+                  (syntax->datum s2))))
+
+;; actual transforming goes on in here.
+;; it's in a submodule so that it can be required in both levels, for testing
+
+(module transform racket/base
+  (provide transform-if/out)
+  (define (transform-if/out stx)
+    (define tree (cdr (syntax->datum stx))) ; condition true false
+    (define else (cddr tree)) ; the else branch cons cell
+    (define result
+      (let walk ([node tree])
+        (cond
+          ; normally, node should be a full cons cell (a pair) but it might be something else.
+          ; situation: reached the end of a list, empty cons cell
+          [(null? node) node]
+          ; situation: reached the end of a list, cons cdr was non-list
+          [(symbol? node) node]
+          ; normal situation, full cons cell
+          ; -- don't go replacing through nested if/out
+          [(and (pair? node) (eq? 'if/out (car node))) node]
+          ; -- replace if/in
+          [(and (pair? node) (eq? 'if/in (car node)))
+           (append '(if) (cdr node) else)]
+          ; recurse down pair head and tail
+          [(pair? node) (cons (walk (car node)) (walk (cdr node)))]
+          ; something else that can't be recursed into, so pass it through
+          [#t node])))
+    (datum->syntax stx (cons 'if result))))
+
+;; the syntax definitions and their tests go below here
+
+(require 'transform (for-syntax 'transform))
+
+(define-syntax (if/out stx)
+  (transform-if/out stx))
+(module+ test
+  (check-syntax-equal? (transform-if/out #'(if/out (condition 1) (if/in (condition 2) (do-yes)) (do-no)))
+                       #'(if (condition 1) (if (condition 2) (do-yes) (do-no)) (do-no)))
+  (check-equal? (if/out #t (if/in #t 'yes) 'no) 'yes)
+  (check-equal? (if/out #f (if/in #t 'yes) 'no) 'no)
+  (check-equal? (if/out #t (if/in #f 'yes) 'no) 'no)
+  (check-equal? (if/out #f (if/in #f 'yes) 'no) 'no))

From 33ee6a0624f86053f670decf2b01fbe762e556e8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 11 Sep 2022 23:21:37 +1200
Subject: [PATCH 023/166] Also display the content on category pages

---
 src/application-globals.rkt |  5 +-
 src/page-category.rkt       | 93 +++++++++++++++++++++++--------------
 src/page-wiki.rkt           | 10 ++--
 src/syntax.rkt              | 62 +++++++++++++++++++++++--
 4 files changed, 125 insertions(+), 45 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index b47ed309..d5d592d3 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -66,13 +66,12 @@
            #;"~a/load.php?lang=en&modules=ext.gadget.dungeonsWiki%2CearthWiki%2Csite-styles%2Csound-styles&only=styles&skin=fandomdesktop"
            #;"~a/load.php?lang=en&modules=site.styles&only=styles&skin=fandomdesktop"
            ; combine the above entries into a single request for potentially extra speed - fandom.com doesn't even do this!
-           "~a/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop"
-           "~a/wikia.php?controller=ThemeApi&method=themeVariables")))
+           "~a/wikia.php?controller=ThemeApi&method=themeVariables"
+           "~a/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop")))
   `(html
     (head
      (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
      (title ,(format "~a | ~a" title (config-get 'application_name)))
-     (style ":root { --theme-page-background-color: #dfdfe0 }") ; fallback in case styles don't load fast enough
      ,@(map (λ (url)
               `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
             (required-styles (format "https://~a.fandom.com" wikiname)))
diff --git a/src/page-category.rkt b/src/page-category.rkt
index bfc689fa..bb388dab 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -4,14 +4,17 @@
          racket/string
          (prefix-in easy: net/http-easy)
          ; html libs
+         html-parsing
          html-writing
          ; web server libs
          net/url
          web-server/http
          (only-in web-server/dispatchers/dispatch next-dispatcher)
          #;(only-in web-server/http/redirect redirect-to)
-         "config.rkt"
          "application-globals.rkt"
+         "config.rkt"
+         "page-wiki.rkt"
+         "syntax.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt")
 
@@ -23,50 +26,70 @@
   (define category-json-data
     '#hasheq((batchcomplete . #t) (continue . #hasheq((cmcontinue . "page|4150504c45|41473") (continue . "-||"))) (query . #hasheq((categorymembers . (#hasheq((ns . 0) (pageid . 25049) (title . "Item (entity)")) #hasheq((ns . 0) (pageid . 128911) (title . "3D")) #hasheq((ns . 0) (pageid . 124018) (title . "A Very Fine Item")) #hasheq((ns . 0) (pageid . 142208) (title . "Amethyst Shard")) #hasheq((ns . 0) (pageid . 121612) (title . "Ankle Monitor")))))))))
 
-(define (generate-results-page dest-url wikiname prefixed-category data)
-  (define members (jp "/query/categorymembers" data))
+(define (generate-results-page dest-url wikiname prefixed-category members-data page)
+  (define members (jp "/query/categorymembers" members-data))
   (generate-wiki-page
    dest-url
    wikiname
    prefixed-category
-   `(div (@ (class "mw-parser-output"))
-         (ul (@ (class "my-category-list"))
-             ,@(map
-                (λ (result)
-                  (define title (jp "/title" result))
-                  (define page-path (regexp-replace* #rx" " title "_"))
-                  `(li
-                    (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
-                       ,title)))
-                members)))))
+   `(div
+     ,(update-tree-wiki page wikiname)
+     (hr)
+     (h2 ,(format "All Pages in ~a" prefixed-category))
+     (div (@ (class "mw-parser-output"))
+          (ul (@ (class "my-category-list"))
+              ,@(map
+                 (λ (result)
+                   (define title (jp "/title" result))
+                   (define page-path (regexp-replace* #rx" " title "_"))
+                   `(li
+                     (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
+                        ,title)))
+                 members))))))
 
 (define (page-category req)
   (response-handler
    (define wikiname (path/param-path (first (url-path (request-uri req)))))
    (define prefixed-category (path/param-path (caddr (url-path (request-uri req)))))
-
    (define origin (format "https://~a.fandom.com" wikiname))
-   (define dest-url (format "~a/api.php?~a"
-                            origin
-                            (params->query `(("action" . "query")
-                                             ("list" . "categorymembers")
-                                             ("cmtitle" . ,prefixed-category)
-                                             ("cmlimit" . "max")
-                                             ("formatversion" . "2")
-                                             ("format" . "json")))))
-   (printf "out: ~a~n" dest-url)
-   (define dest-res (easy:get dest-url #:timeouts timeouts))
+   (define source-url (format "~a/wiki/~a" origin prefixed-category))
 
-   (define data (easy:response-json dest-res))
-   (define body (generate-results-page dest-url wikiname prefixed-category data))
-   (when (config-true? 'debug)
-     ; used for its side effects
-     ; convert to string with error checking, error will be raised if xexp is invalid
-     (xexp->html body))
-   (response/output
-    #:code 200
-    (λ (out)
-      (write-html body out)))))
+   (thread-let
+    ([members-data (define dest-url (format "~a/api.php?~a"
+                                       origin
+                                       (params->query `(("action" . "query")
+                                                        ("list" . "categorymembers")
+                                                        ("cmtitle" . ,prefixed-category)
+                                                        ("cmlimit" . "max")
+                                                        ("formatversion" . "2")
+                                                        ("format" . "json")))))
+              (printf "out: ~a~n" dest-url)
+              (define dest-res (easy:get dest-url #:timeouts timeouts))
+              (easy:response-json dest-res)]
+     [page-data (define dest-url (format "~a/api.php?~a"
+                                    origin
+                                    (params->query `(("action" . "parse")
+                                                     ("page" . ,prefixed-category)
+                                                     ("prop" . "text")
+                                                     ("formatversion" . "2")
+                                                     ("format" . "json")))))
+           (printf "out: ~a~n" dest-url)
+           (define dest-res (easy:get dest-url #:timeouts timeouts))
+           (easy:response-json dest-res)])
+
+    (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
+    (define page (html->xexp page-html))
+    (define body (generate-results-page source-url wikiname prefixed-category members-data page))
+
+    (when (config-true? 'debug)
+      ; used for its side effects
+      ; convert to string with error checking, error will be raised if xexp is invalid
+      (xexp->html body))
+    (response/output
+     #:code 200
+     (λ (out)
+       (write-html body out))))))
 (module+ test
   (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
-                                    (generate-results-page "" "test" "Category:Items" category-json-data)))))
+                                    (generate-results-page "" "test" "Category:Items" category-json-data
+                                                           '(div "page text"))))))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 65771a8a..bcf13aaa 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -13,14 +13,18 @@
          web-server/http
          web-server/dispatchers/dispatch
          ; my libs
+         "application-globals.rkt"
          "config.rkt"
          "pure-utils.rkt"
          "xexpr-utils.rkt"
-         "url-utils.rkt"
-         "application-globals.rkt")
+         "url-utils.rkt")
 
 (provide
- page-wiki)
+ ; used by the web server
+ page-wiki
+ ; used by page-category, and similar pages that are partially wiki pages
+ update-tree-wiki
+ preprocess-html-wiki)
 
 (module+ test
   (require rackunit)
diff --git a/src/syntax.rkt b/src/syntax.rkt
index c331493a..8205326b 100644
--- a/src/syntax.rkt
+++ b/src/syntax.rkt
@@ -2,8 +2,10 @@
 (require (for-syntax racket/base))
 
 (provide
- ; help make a nested if where the false results are the same
- if/out)
+ ; help make a nested if. if/in will gain the same false form of its containing if/out.
+ if/out
+ ; let, but the value for each variable is evaluated within a thread
+ thread-let)
 
 (module+ test
   (require rackunit)
@@ -15,7 +17,10 @@
 ;; it's in a submodule so that it can be required in both levels, for testing
 
 (module transform racket/base
-  (provide transform-if/out)
+  (provide
+   transform-if/out
+   transform-thread-let)
+
   (define (transform-if/out stx)
     (define tree (cdr (syntax->datum stx))) ; condition true false
     (define else (cddr tree)) ; the else branch cons cell
@@ -37,7 +42,27 @@
           [(pair? node) (cons (walk (car node)) (walk (cdr node)))]
           ; something else that can't be recursed into, so pass it through
           [#t node])))
-    (datum->syntax stx (cons 'if result))))
+    (datum->syntax stx (cons 'if result)))
+
+  (define (transform-thread-let stx)
+    (define tree (cdr (syntax->datum stx)))
+    (define defs (car tree))
+    (define forms (cdr tree))
+    (when (eq? (length forms) 0)
+      (error (format "thread-let: bad syntax (need some forms to execute after the threads)~n  forms: ~a" forms)))
+    (define counter (build-list (length defs) values))
+    (datum->syntax
+     stx
+     `(let ([chv (build-vector ,(length defs) (λ (_) (make-channel)))])
+        ,@(map (λ (n)
+                 (define def (list-ref defs n))
+                 `(thread (λ () (channel-put (vector-ref chv ,n) (let _ () ,@(cdr def))))))
+               counter)
+        (let ,(map (λ (n)
+                     (define def (list-ref defs n))
+                     `(,(car def) (channel-get (vector-ref chv ,n))))
+                   counter)
+            ,@forms)))))
 
 ;; the syntax definitions and their tests go below here
 
@@ -52,3 +77,32 @@
   (check-equal? (if/out #f (if/in #t 'yes) 'no) 'no)
   (check-equal? (if/out #t (if/in #f 'yes) 'no) 'no)
   (check-equal? (if/out #f (if/in #f 'yes) 'no) 'no))
+
+(define-syntax (thread-let stx)
+  (transform-thread-let stx))
+(module+ test
+  ; check that it is transformed as expected
+  (check-syntax-equal?
+   (transform-thread-let
+    #'(thread-let ([a (hey "this is a")]
+                   [b (hey "this is b")])
+                  (list a b)))
+   #'(let ([chv (build-vector 2 (λ (_) (make-channel)))])
+       (thread (λ () (channel-put (vector-ref chv 0) (let _ () (hey "this is a")))))
+       (thread (λ () (channel-put (vector-ref chv 1) (let _ () (hey "this is b")))))
+       (let ([a (channel-get (vector-ref chv 0))]
+             [b (channel-get (vector-ref chv 1))])
+         (list a b))))
+  ; check that they actually execute concurrently
+  (define ch (make-channel))
+  (check-equal? (thread-let ([a (begin
+                                  (channel-put ch 'a)
+                                  (channel-get ch))]
+                             [b (begin0
+                                    (channel-get ch)
+                                  (channel-put ch 'b))])
+                            (list a b))
+                '(b a))
+  ; check that it assigns the correct value to the correct variable
+  (check-equal? (thread-let ([a (sleep 0) 'a] [b 'b]) (list a b))
+                '(a b)))

From 0172034319b6b1a51ae2f610f7a16e51b78f5d62 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Sep 2022 00:56:05 +1200
Subject: [PATCH 024/166] Match original light/dark page theme reliably

- Use keyword parameters for generate-wiki-page
- Apply body classes (including page theme) from original source
---
 src/application-globals.rkt | 18 ++++++--
 src/dispatcher-tree.rkt     |  4 +-
 src/page-category.rkt       | 82 ++++++++++++++++++++++++-------------
 src/page-search.rkt         |  6 +--
 src/page-wiki.rkt           | 16 ++++++--
 5 files changed, 86 insertions(+), 40 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index d5d592d3..d21858b7 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -55,7 +55,15 @@
                               " Media files and official Fandom documents have different copying restrictions.")
                            (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))))))
 
-(define (generate-wiki-page source-url wikiname title content)
+(define (generate-wiki-page
+         content
+         #:source-url source-url
+         #:wikiname wikiname
+         #:title title
+         #:body-class [body-class-in ""])
+  (define body-class (if (equal? "" body-class-in)
+                         "skin-fandomdesktop"
+                         body-class-in))
   (define (required-styles origin)
     (map (λ (dest-path)
            (define url (format dest-path origin))
@@ -76,7 +84,7 @@
               `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
             (required-styles (format "https://~a.fandom.com" wikiname)))
      (link (@ (rel "stylesheet") (type "text/css") (href "/static/main.css"))))
-    (body (@ (class "skin-fandomdesktop theme-fandomdesktop-light"))
+    (body (@ (class ,body-class))
           (div (@ (class "main-container"))
                (div (@ (class "fandom-community-header__background tileHorizontally header")))
                (div (@ (class "page"))
@@ -94,7 +102,11 @@
 (module+ test
   (define page
     (parameterize ([(config-parameter 'strict_proxy) "true"])
-      (generate-wiki-page "" "test" "test" '(template))))
+      (generate-wiki-page
+       '(template)
+       #:source-url ""
+       #:title "test"
+       #:wikiname "test")))
   ; check the page is a valid xexp
   (check-not-false (xexp->html page))
   ; check the stylesheet is proxied
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 5800876d..13321bdd 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -12,9 +12,7 @@
 
 (provide
  ; syntax to make the hashmap from names
- dispatcher-tree
- ; procedure to make the tree from the hashmap
- make-dispatcher-tree)
+ dispatcher-tree)
 
 ; make a hashmap out of the provided names and call make-dispatcher-tree with it
 (define-syntax (dispatcher-tree stx)
diff --git a/src/page-category.rkt b/src/page-category.rkt
index bb388dab..0bb9080e 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -1,6 +1,7 @@
 #lang racket/base
 (require racket/dict
          racket/list
+         racket/match
          racket/string
          (prefix-in easy: net/http-easy)
          ; html libs
@@ -26,12 +27,19 @@
   (define category-json-data
     '#hasheq((batchcomplete . #t) (continue . #hasheq((cmcontinue . "page|4150504c45|41473") (continue . "-||"))) (query . #hasheq((categorymembers . (#hasheq((ns . 0) (pageid . 25049) (title . "Item (entity)")) #hasheq((ns . 0) (pageid . 128911) (title . "3D")) #hasheq((ns . 0) (pageid . 124018) (title . "A Very Fine Item")) #hasheq((ns . 0) (pageid . 142208) (title . "Amethyst Shard")) #hasheq((ns . 0) (pageid . 121612) (title . "Ankle Monitor")))))))))
 
-(define (generate-results-page dest-url wikiname prefixed-category members-data page)
+(define (generate-results-page
+         #:source-url source-url
+         #:wikiname wikiname
+         #:prefixed-category prefixed-category
+         #:members-data members-data
+         #:page page
+         #:body-class body-class)
   (define members (jp "/query/categorymembers" members-data))
   (generate-wiki-page
-   dest-url
-   wikiname
-   prefixed-category
+   #:source-url source-url
+   #:wikiname wikiname
+   #:title prefixed-category
+   #:body-class body-class
    `(div
      ,(update-tree-wiki page wikiname)
      (hr)
@@ -55,31 +63,45 @@
    (define source-url (format "~a/wiki/~a" origin prefixed-category))
 
    (thread-let
-    ([members-data (define dest-url (format "~a/api.php?~a"
-                                       origin
-                                       (params->query `(("action" . "query")
-                                                        ("list" . "categorymembers")
-                                                        ("cmtitle" . ,prefixed-category)
-                                                        ("cmlimit" . "max")
-                                                        ("formatversion" . "2")
-                                                        ("format" . "json")))))
-              (printf "out: ~a~n" dest-url)
-              (define dest-res (easy:get dest-url #:timeouts timeouts))
-              (easy:response-json dest-res)]
-     [page-data (define dest-url (format "~a/api.php?~a"
-                                    origin
-                                    (params->query `(("action" . "parse")
-                                                     ("page" . ,prefixed-category)
-                                                     ("prop" . "text")
-                                                     ("formatversion" . "2")
-                                                     ("format" . "json")))))
-           (printf "out: ~a~n" dest-url)
-           (define dest-res (easy:get dest-url #:timeouts timeouts))
-           (easy:response-json dest-res)])
+    ([members-data (define dest-url
+                     (format "~a/api.php?~a"
+                             origin
+                             (params->query `(("action" . "query")
+                                              ("list" . "categorymembers")
+                                              ("cmtitle" . ,prefixed-category)
+                                              ("cmlimit" . "max")
+                                              ("formatversion" . "2")
+                                              ("format" . "json")))))
+                   (printf "out: ~a~n" dest-url)
+                   (define dest-res (easy:get dest-url #:timeouts timeouts))
+                   (easy:response-json dest-res)]
+     [page-data (define dest-url
+                  (format "~a/api.php?~a"
+                          origin
+                          (params->query `(("action" . "parse")
+                                           ("page" . ,prefixed-category)
+                                           ("prop" . "text|headhtml|langlinks")
+                                           ("formatversion" . "2")
+                                           ("format" . "json")))))
+                (printf "out: ~a~n" dest-url)
+                (define dest-res (easy:get dest-url #:timeouts timeouts))
+                (easy:response-json dest-res)])
 
     (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
     (define page (html->xexp page-html))
-    (define body (generate-results-page source-url wikiname prefixed-category members-data page))
+    (define head-html (jp "/parse/headhtml" page-data ""))
+    (define body-class (match (regexp-match #rx"<body [^>]*class=\"([^\"]*)" head-html)
+                         [(list _ classes) classes]
+                         [_ ""]))
+    (println head-html)
+    (println body-class)
+    (define body (generate-results-page
+                  #:source-url source-url
+                  #:wikiname wikiname
+                  #:prefixed-category prefixed-category
+                  #:members-data members-data
+                  #:page page
+                  #:body-class body-class))
 
     (when (config-true? 'debug)
       ; used for its side effects
@@ -91,5 +113,9 @@
        (write-html body out))))))
 (module+ test
   (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
-                                    (generate-results-page "" "test" "Category:Items" category-json-data
-                                                           '(div "page text"))))))
+                                    (generate-results-page
+                                     #:source-url ""
+                                     #:wikiname "test"
+                                     #:prefixed-category "Category:Items"
+                                     #:category-data category-json-data
+                                     #:page '(div "page text"))))))
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 7b0abe39..5d1bd7df 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -26,9 +26,9 @@
 (define (generate-results-page dest-url wikiname query data)
   (define search-results (jp "/query/search" data))
   (generate-wiki-page
-   dest-url
-   wikiname
-   "Search Results"
+   #:source-url dest-url
+   #:wikiname wikiname
+   #:title "Search Results"
    `(div (@ (class "mw-parser-output"))
          (p ,(format "~a results found for " (length search-results))
             (strong ,query))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index bcf13aaa..ecfdbb35 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -2,6 +2,7 @@
 (require racket/dict
          racket/function
          racket/list
+         racket/match
          racket/string
          ; libs
          (prefix-in easy: net/http-easy)
@@ -238,7 +239,7 @@
                            origin
                            (params->query `(("action" . "parse")
                                             ("page" . ,path)
-                                            ("prop" . "text")
+                                            ("prop" . "text|headhtml|langlinks")
                                             ("formatversion" . "2")
                                             ("format" . "json")))))
   (printf "out: ~a~n" dest-url)
@@ -250,12 +251,21 @@
             [title (jp "/parse/title" data "")]
             [page-html (jp "/parse/text" data "")]
             [page-html (preprocess-html-wiki page-html)]
-            [page (html->xexp page-html)])
+            [page (html->xexp page-html)]
+            [head-html (jp "/parse/headhtml" data "")]
+            [body-class (match (regexp-match #rx"<body [^>]*class=\"([^\"]*)" head-html)
+                          [(list _ classes) classes]
+                          [_ ""])])
        (if (equal? "missingtitle" (jp "/error/code" data #f))
            (next-dispatcher)
            (response-handler
             (define body
-              (generate-wiki-page source-url wikiname title (update-tree-wiki page wikiname)))
+              (generate-wiki-page
+               (update-tree-wiki page wikiname)
+               #:source-url source-url
+               #:wikiname wikiname
+               #:title title
+               #:body-class body-class))
             (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
             (define headers (if redirect-msg
                                 (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]

From 37318b8c50b640ce061163f6130a6b86f3e4968e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Sep 2022 00:58:06 +1200
Subject: [PATCH 025/166] Style updates

- Fix code block font
- Use sans-serif font (don't know how I missed this)
- Smaller font size on cell phones
---
 static/main.css | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/static/main.css b/static/main.css
index 2aa449eb..7ef51a13 100644
--- a/static/main.css
+++ b/static/main.css
@@ -1,11 +1,17 @@
 /* reset the reset */
-blockquote, code, del, details, div, dl, dt, em, fieldset, figcaption, figure, h1, h2, h3, h4, h5, h6, li
-, ol, p, pre, q, span, strong, ul {
-    font-family: initial;
+blockquote, code, del, details, div, dl, dt, em, fieldset, figcaption, figure, h1, h2, h3, h4, h5, h6, li, ol, p, pre, q, span, strong, ul {
+    font-family: sans-serif;
     margin: initial;
     padding: initial;
     border: initial;
 }
+input, textarea {
+    font-family: sans-serif;
+}
+pre, code {
+    font-family: monospace;
+    font-size: 0.85em;
+}
 ul, ol {
     list-style-type: initial;
     padding-left: 2em;
@@ -23,7 +29,6 @@ sub {
 
 /* general page appearance */
 body.skin-fandomdesktop, button, input, textarea, .wikitable, .va-table {
-    font-family: initial;
     font-size: 18px;
     line-height: 1.5;
 }
@@ -233,6 +238,13 @@ figcaption, .lightbox-caption, .thumbcaption {
     }
 }
 
+@media (max-width: 699px) { /* narrower than 700 px */
+    /* fit more text on screen */
+    body.skin-fandomdesktop, button, input, textarea, .wikitable, .va-table {
+        font-size: 16px;
+    }
+}
+
 @media (min-width: 560px) { /* wider than 560 px */
     /* footer columns */
     .custom-footer__cols {

From a9acfc34a255226c745d106cf028ac651ad6f1f6 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Sep 2022 01:56:03 +1200
Subject: [PATCH 026/166] Display correct license information

---
 src/application-globals.rkt | 15 +++---
 src/data.rkt                | 33 +++++++++++++
 src/dispatcher-tree.rkt     |  4 +-
 src/page-category.rkt       | 15 +++---
 src/page-search.rkt         | 50 ++++++++++---------
 src/page-wiki.rkt           | 98 ++++++++++++++++++++-----------------
 6 files changed, 134 insertions(+), 81 deletions(-)
 create mode 100644 src/data.rkt

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index d21858b7..c2149246 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -4,6 +4,7 @@
          html-writing
          web-server/http
          "config.rkt"
+         "data.rkt"
          "xexpr-utils.rkt"
          "url-utils.rkt")
 
@@ -23,7 +24,8 @@
 
 (define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
 
-(define (application-footer source-url)
+(define (application-footer source-url #:license [license-in #f])
+  (define license (or license-in license-default))
   `(footer (@ (class "custom-footer"))
            (div (@ (class ,(if source-url "custom-footer__cols" "internal-footer")))
                 (div (p
@@ -46,8 +48,8 @@
                 ,(if source-url
                      `(div (p "This page displays proxied content from "
                               (a (@ (href ,source-url) (rel "noreferrer")) ,source-url)
-                              ". Text content is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
-                              (a (@ (href "https://www.fandom.com/licensing")) "see license info.")
+                              ,(format ". Text content is available under the ~a license, " (license-text license))
+                              (a (@ (href ,(license-url license))) "see license info.")
                               " Media files may have different copying restrictions.")
                            (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))
                      `(div (p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
@@ -60,8 +62,9 @@
          #:source-url source-url
          #:wikiname wikiname
          #:title title
-         #:body-class [body-class-in ""])
-  (define body-class (if (equal? "" body-class-in)
+         #:body-class [body-class-in #f]
+         #:license [license #f])
+  (define body-class (if (not body-class-in)
                          "skin-fandomdesktop"
                          body-class-in))
   (define (required-styles origin)
@@ -98,7 +101,7 @@
                           (div (@ (id "content") #;(class "page-content"))
                                (div (@ (id "mw-content-text"))
                                     ,content))
-                          ,(application-footer source-url)))))))
+                          ,(application-footer source-url #:license license)))))))
 (module+ test
   (define page
     (parameterize ([(config-parameter 'strict_proxy) "true"])
diff --git a/src/data.rkt b/src/data.rkt
new file mode 100644
index 00000000..f7a0d1f4
--- /dev/null
+++ b/src/data.rkt
@@ -0,0 +1,33 @@
+#lang racket/base
+(require (prefix-in easy: net/http-easy)
+         "url-utils.rkt"
+         "xexpr-utils.rkt")
+
+(provide
+ (struct-out license)
+ license-default
+ license-auto)
+
+(struct license (text url) #:transparent)
+(define license-default (license "CC-BY-SA" "https://www.fandom.com/licensing"))
+(define license-hash (make-hash))
+(define (license-fetch wikiname)
+  (define dest-url
+    (format "https://~a.fandom.com/api.php?~a"
+            wikiname
+            (params->query '(("action" . "query")
+                             ("meta" . "siteinfo")
+                             ("siprop" . "rightsinfo")
+                             ("format" . "json")
+                             ("formatversion" . "2")))))
+  (printf "out: ~a~n" dest-url)
+  (define res (easy:get dest-url))
+  (define data (easy:response-json res))
+  (license (jp "/query/rightsinfo/text" data)
+           (jp "/query/rightsinfo/url" data)))
+(define (license-auto wikiname)
+  (if (hash-has-key? license-hash wikiname)
+      (hash-ref license-hash wikiname)
+      (let ([result (license-fetch wikiname)])
+        (hash-set! license-hash wikiname result)
+        result)))
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 13321bdd..5800876d 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -12,7 +12,9 @@
 
 (provide
  ; syntax to make the hashmap from names
- dispatcher-tree)
+ dispatcher-tree
+ ; procedure to make the tree from the hashmap
+ make-dispatcher-tree)
 
 ; make a hashmap out of the provided names and call make-dispatcher-tree with it
 (define-syntax (dispatcher-tree stx)
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 0bb9080e..8ecd3689 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -14,6 +14,7 @@
          #;(only-in web-server/http/redirect redirect-to)
          "application-globals.rkt"
          "config.rkt"
+         "data.rkt"
          "page-wiki.rkt"
          "syntax.rkt"
          "url-utils.rkt"
@@ -33,13 +34,15 @@
          #:prefixed-category prefixed-category
          #:members-data members-data
          #:page page
-         #:body-class body-class)
+         #:body-class [body-class #f]
+         #:license [license #f])
   (define members (jp "/query/categorymembers" members-data))
   (generate-wiki-page
    #:source-url source-url
    #:wikiname wikiname
    #:title prefixed-category
    #:body-class body-class
+   #:license license
    `(div
      ,(update-tree-wiki page wikiname)
      (hr)
@@ -85,7 +88,8 @@
                                            ("format" . "json")))))
                 (printf "out: ~a~n" dest-url)
                 (define dest-res (easy:get dest-url #:timeouts timeouts))
-                (easy:response-json dest-res)])
+                (easy:response-json dest-res)]
+     [license (license-auto wikiname)])
 
     (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
     (define page (html->xexp page-html))
@@ -93,15 +97,14 @@
     (define body-class (match (regexp-match #rx"<body [^>]*class=\"([^\"]*)" head-html)
                          [(list _ classes) classes]
                          [_ ""]))
-    (println head-html)
-    (println body-class)
     (define body (generate-results-page
                   #:source-url source-url
                   #:wikiname wikiname
                   #:prefixed-category prefixed-category
                   #:members-data members-data
                   #:page page
-                  #:body-class body-class))
+                  #:body-class body-class
+                  #:license license))
 
     (when (config-true? 'debug)
       ; used for its side effects
@@ -117,5 +120,5 @@
                                      #:source-url ""
                                      #:wikiname "test"
                                      #:prefixed-category "Category:Items"
-                                     #:category-data category-json-data
+                                     #:members-data category-json-data
                                      #:page '(div "page text"))))))
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 5d1bd7df..61b1212a 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -10,8 +10,10 @@
          web-server/http
          (only-in web-server/dispatchers/dispatch next-dispatcher)
          #;(only-in web-server/http/redirect redirect-to)
-         "config.rkt"
          "application-globals.rkt"
+         "config.rkt"
+         "data.rkt"
+         "syntax.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt")
 
@@ -23,12 +25,13 @@
   (define search-json-data
     '#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
 
-(define (generate-results-page dest-url wikiname query data)
+(define (generate-results-page dest-url wikiname query data #:license [license #f])
   (define search-results (jp "/query/search" data))
   (generate-wiki-page
    #:source-url dest-url
    #:wikiname wikiname
    #:title "Search Results"
+   #:license license
    `(div (@ (class "mw-parser-output"))
          (p ,(format "~a results found for " (length search-results))
             (strong ,query))
@@ -54,29 +57,32 @@
   (response-handler
    (define wikiname (path/param-path (first (url-path (request-uri req)))))
    (define query (dict-ref (url-query (request-uri req)) 'q #f))
-
    (define origin (format "https://~a.fandom.com" wikiname))
-   (define dest-url (format "~a/api.php?~a"
-                            origin
-                            (params->query `(("action" . "query")
-                                             ("list" . "search")
-                                             ("srsearch" . ,query)
-                                             ("formatversion" . "2")
-                                             ("format" . "json")))))
-   (printf "out: ~a~n" dest-url)
-   (define dest-res (easy:get dest-url #:timeouts timeouts))
+   (define dest-url
+     (format "~a/api.php?~a"
+             origin
+             (params->query `(("action" . "query")
+                              ("list" . "search")
+                              ("srsearch" . ,query)
+                              ("formatversion" . "2")
+                              ("format" . "json")))))
 
-   (define data (easy:response-json dest-res))
+   (thread-let
+    ([dest-res (printf "out: ~a~n" dest-url)
+               (easy:get dest-url #:timeouts timeouts)]
+     [license (license-auto wikiname)])
 
-   (define body (generate-results-page dest-url wikiname query data))
-   (when (config-true? 'debug)
-     ; used for its side effects
-     ; convert to string with error checking, error will be raised if xexp is invalid
-     (xexp->html body))
-   (response/output
-    #:code 200
-    (λ (out)
-      (write-html body out)))))
+    (define data (easy:response-json dest-res))
+
+    (define body (generate-results-page dest-url wikiname query data #:license license))
+    (when (config-true? 'debug)
+      ; used for its side effects
+      ; convert to string with error checking, error will be raised if xexp is invalid
+      (xexp->html body))
+    (response/output
+     #:code 200
+     (λ (out)
+       (write-html body out))))))
 (module+ test
   (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
                                     (generate-results-page "" "test" "Gacha" search-json-data)))))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index ecfdbb35..2882ba5f 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -16,7 +16,9 @@
          ; my libs
          "application-globals.rkt"
          "config.rkt"
+         "data.rkt"
          "pure-utils.rkt"
+         "syntax.rkt"
          "xexpr-utils.rkt"
          "url-utils.rkt")
 
@@ -148,7 +150,7 @@
                        (λ (v) (and (eq? element-type 'a)
                                    (has-class? "image" v)))
                        (λ (v) (dict-update v 'rel (λ (s)
-                                                             (list (string-append (car s) " noreferrer")))
+                                                    (list (string-append (car s) " noreferrer")))
                                            '(""))))
                 ; proxy images from inline styles
                 (curry attribute-maybe-update 'style
@@ -235,49 +237,53 @@
   (define path (string-join (map path/param-path (cddr (url-path (request-uri req)))) "/"))
   (define source-url (format "https://~a.fandom.com/wiki/~a" wikiname path))
 
-  (define dest-url (format "~a/api.php?~a"
-                           origin
-                           (params->query `(("action" . "parse")
-                                            ("page" . ,path)
-                                            ("prop" . "text|headhtml|langlinks")
-                                            ("formatversion" . "2")
-                                            ("format" . "json")))))
-  (printf "out: ~a~n" dest-url)
-  (define dest-res (easy:get dest-url #:timeouts timeouts))
+  (thread-let
+   ([dest-res (define dest-url
+                (format "~a/api.php?~a"
+                        origin
+                        (params->query `(("action" . "parse")
+                                         ("page" . ,path)
+                                         ("prop" . "text|headhtml|langlinks")
+                                         ("formatversion" . "2")
+                                         ("format" . "json")))))
+              (printf "out: ~a~n" dest-url)
+              (easy:get dest-url #:timeouts timeouts)]
+    [license (license-auto wikiname)])
 
-  (cond
-    [(eq? 200 (easy:response-status-code dest-res))
-     (let* ([data (easy:response-json dest-res)]
-            [title (jp "/parse/title" data "")]
-            [page-html (jp "/parse/text" data "")]
-            [page-html (preprocess-html-wiki page-html)]
-            [page (html->xexp page-html)]
-            [head-html (jp "/parse/headhtml" data "")]
-            [body-class (match (regexp-match #rx"<body [^>]*class=\"([^\"]*)" head-html)
-                          [(list _ classes) classes]
-                          [_ ""])])
-       (if (equal? "missingtitle" (jp "/error/code" data #f))
-           (next-dispatcher)
-           (response-handler
-            (define body
-              (generate-wiki-page
-               (update-tree-wiki page wikiname)
-               #:source-url source-url
-               #:wikiname wikiname
-               #:title title
-               #:body-class body-class))
-            (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
-            (define headers (if redirect-msg
-                                (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
-                                       [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
-                                  (list (header #"Refresh" value)))
-                                (list)))
-            (when (config-true? 'debug)
-              ; used for its side effects
-              ; convert to string with error checking, error will be raised if xexp is invalid
-              (xexp->html body))
-            (response/output
-             #:code 200
-             #:headers headers
-             (λ (out)
-               (write-html body out))))))]))
+   (cond
+     [(eq? 200 (easy:response-status-code dest-res))
+      (let* ([data (easy:response-json dest-res)]
+             [title (jp "/parse/title" data "")]
+             [page-html (jp "/parse/text" data "")]
+             [page-html (preprocess-html-wiki page-html)]
+             [page (html->xexp page-html)]
+             [head-html (jp "/parse/headhtml" data "")]
+             [body-class (match (regexp-match #rx"<body [^>]*class=\"([^\"]*)" head-html)
+                           [(list _ classes) classes]
+                           [_ ""])])
+        (if (equal? "missingtitle" (jp "/error/code" data #f))
+            (next-dispatcher)
+            (response-handler
+             (define body
+               (generate-wiki-page
+                (update-tree-wiki page wikiname)
+                #:source-url source-url
+                #:wikiname wikiname
+                #:title title
+                #:body-class body-class
+                #:license license))
+             (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
+             (define headers (if redirect-msg
+                                 (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+                                        [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
+                                   (list (header #"Refresh" value)))
+                                 (list)))
+             (when (config-true? 'debug)
+               ; used for its side effects
+               ; convert to string with error checking, error will be raised if xexp is invalid
+               (xexp->html body))
+             (response/output
+              #:code 200
+              #:headers headers
+              (λ (out)
+                (write-html body out))))))])))

From 82978e7c139e26b53b029e4f55a3afc7755e3a44 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Sep 2022 22:34:34 +1200
Subject: [PATCH 027/166] Remove table colour override

This is no longer necessary because the table colours are okay because
the page theme is now correctly set.
---
 static/main.css | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/static/main.css b/static/main.css
index 7ef51a13..ba0eaadf 100644
--- a/static/main.css
+++ b/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;

From 711a8225fb04415f925805e5395c0c34c4307e15 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Sep 2022 22:36:04 +1200
Subject: [PATCH 028/166] Add global search on home page

---
 breezewiki.rkt             |  2 ++
 dist.rkt                   |  2 ++
 src/dispatcher-tree.rkt    |  1 +
 src/page-global-search.rkt | 25 +++++++++++++++++++++++++
 src/page-home.rkt          | 15 ++++++++++++---
 5 files changed, 42 insertions(+), 3 deletions(-)
 create mode 100644 src/page-global-search.rkt

diff --git a/breezewiki.rkt b/breezewiki.rkt
index aeaaa890..dfb405e4 100644
--- a/breezewiki.rkt
+++ b/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
diff --git a/dist.rkt b/dist.rkt
index 596a1b97..a6266951 100644
--- a/dist.rkt
+++ b/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
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 5800876d..16f6c71d 100644
--- a/src/dispatcher-tree.rkt
+++ b/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)))
diff --git a/src/page-global-search.rkt b/src/page-global-search.rkt
new file mode 100644
index 00000000..4364dea0
--- /dev/null
+++ b/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))))))))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 3c84511f..7c7aaa1d 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -27,11 +27,20 @@
     (p "It removes ads, videos, and suggested content, leaving you with a clean page that doesn't slow down your device or use up your data.")
     (p "BreezeWiki can also be called an \"alternative frontend for Fandom\".")
     (p ,(format "To use BreezeWiki, just replace \"fandom.com\" with \"~a\", and you'll instantly be teleported to a better world."
-               (if (config-true? 'canonical_origin)
-                   (url-host (string->url (config-get 'canonical_origin)))
-                   "breezewiki.com")))
+                (if (config-true? 'canonical_origin)
+                    (url-host (string->url (config-get 'canonical_origin)))
+                    "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)

From b57fd99c7d39445ee69c6db530ebd289193a86c8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Sep 2022 22:51:42 +1200
Subject: [PATCH 029/166] Support environment variables for configuration

---
 src/config.rkt | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/config.rkt b/src/config.rkt
index 16d1daff..b4c1cc14 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -1,6 +1,8 @@
 #lang racket/base
-(require racket/pretty
+(require racket/function
+         racket/pretty
          racket/runtime-path
+         racket/string
          ini)
 
 (provide
@@ -51,7 +53,16 @@
         l
       (printf "note: ~a items loaded from config file~n" (length l)))))
 
-(define combined-alist (append default-config loaded-alist))
+(define env-alist
+  (let ([e-names (environment-variables-names (current-environment-variables))]
+        [e-ref (λ (name) (bytes->string/latin-1 (environment-variables-ref (current-environment-variables) name)))])
+    (map (λ (name) (cons (string->symbol (string-downcase (substring (bytes->string/latin-1 name) 3)))
+                         (e-ref name)))
+         (filter (λ (name) (string-prefix? (bytes->string/latin-1 name) "BW_")) e-names))))
+(when (> (length env-alist) 0)
+  (printf "note: ~a items loaded from environment variables~n" (length env-alist)))
+
+(define combined-alist (append default-config loaded-alist env-alist))
 
 (define config
   (make-hasheq

From 4d8746e85ee8867ee6ecc8daad4f849f108f6c1e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Sep 2022 22:55:25 +1200
Subject: [PATCH 030/166] Case insensitive environment variables

---
 src/config.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/config.rkt b/src/config.rkt
index b4c1cc14..a5ceba39 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -58,7 +58,7 @@
         [e-ref (λ (name) (bytes->string/latin-1 (environment-variables-ref (current-environment-variables) name)))])
     (map (λ (name) (cons (string->symbol (string-downcase (substring (bytes->string/latin-1 name) 3)))
                          (e-ref name)))
-         (filter (λ (name) (string-prefix? (bytes->string/latin-1 name) "BW_")) e-names))))
+         (filter (λ (name) (string-prefix? (string-downcase (bytes->string/latin-1 name)) "bw_")) e-names))))
 (when (> (length env-alist) 0)
   (printf "note: ~a items loaded from environment variables~n" (length env-alist)))
 

From 3d8feaba9a0145fd3ba9dc4f14b5f23e13b76ee8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Sep 2022 23:09:47 +1200
Subject: [PATCH 031/166] Warn if canonical_origin not present in production

---
 src/config.rkt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/config.rkt b/src/config.rkt
index a5ceba39..bdf44401 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -78,3 +78,9 @@
                    (hash->list (make-hasheq combined-alist))
                    symbol<?
                    #:key car))))
+
+(when (not (config-true? 'debug))
+  (when (not (config-true? 'canonical_origin))
+    (displayln
+     (string-append "warning: configuring canonical_origin is highly recommended for production!\n"
+                    "         see https://docs.breezewiki.com/Configuration.html"))))

From ec55426077232696ea186417c4290bb41bea4c50 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Sun, 25 Sep 2022 16:45:07 +0700
Subject: [PATCH 032/166] Display real category title

Fixes https://lists.sr.ht/~cadence/breezewiki-discuss/%3CCN5B6AUHFUSC.1H7B7SEFDRDK9%40archer%3E
---
 src/page-category.rkt | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/page-category.rkt b/src/page-category.rkt
index 8ecd3689..f9eb9740 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -31,7 +31,7 @@
 (define (generate-results-page
          #:source-url source-url
          #:wikiname wikiname
-         #:prefixed-category prefixed-category
+         #:title title
          #:members-data members-data
          #:page page
          #:body-class [body-class #f]
@@ -40,13 +40,13 @@
   (generate-wiki-page
    #:source-url source-url
    #:wikiname wikiname
-   #:title prefixed-category
+   #:title title
    #:body-class body-class
    #:license license
    `(div
      ,(update-tree-wiki page wikiname)
      (hr)
-     (h2 ,(format "All Pages in ~a" prefixed-category))
+     (h2 ,(format "All Pages in ~a" title))
      (div (@ (class "mw-parser-output"))
           (ul (@ (class "my-category-list"))
               ,@(map
@@ -91,6 +91,7 @@
                 (easy:response-json dest-res)]
      [license (license-auto wikiname)])
 
+    (define title (preprocess-html-wiki (jp "/parse/title" page-data prefixed-category)))
     (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
     (define page (html->xexp page-html))
     (define head-html (jp "/parse/headhtml" page-data ""))
@@ -100,7 +101,7 @@
     (define body (generate-results-page
                   #:source-url source-url
                   #:wikiname wikiname
-                  #:prefixed-category prefixed-category
+                  #:title title
                   #:members-data members-data
                   #:page page
                   #:body-class body-class
@@ -119,6 +120,6 @@
                                     (generate-results-page
                                      #:source-url ""
                                      #:wikiname "test"
-                                     #:prefixed-category "Category:Items"
+                                     #:title "Category:Items"
                                      #:members-data category-json-data
                                      #:page '(div "page text"))))))

From 2a56107e979a5a2f5a16c61f0c631000aad8ce54 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Sun, 2 Oct 2022 09:59:19 +0700
Subject: [PATCH 033/166] Fix wikis with numbers in the name

https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/extensions/wikia/CreateNewWiki/CreateWikiChecks.php#L112
Fixes https://lists.sr.ht/~cadence/breezewiki-discuss/%3C814ef2a8-2e91-dcaf-f0c1-805cc1478198%40riseup.net%3E
---
 src/dispatcher-tree.rkt | 8 ++++----
 src/page-wiki.rkt       | 2 +-
 src/url-utils.rkt       | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 16f6c71d..93532ef1 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -43,9 +43,9 @@
               (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)))
-              (filter:make #rx"^/[a-z-]+(/(wiki(/)?)?)?$" (lift:make (hash-ref ds 'redirect-wiki-home)))
+              (filter:make #px"^/[a-zA-Z0-9-]{3,50}/wiki/Category:.+$" (lift:make (hash-ref ds 'page-category)))
+              (filter:make #px"^/[a-zA-Z0-9-]{3,50}/wiki/.+$" (lift:make (hash-ref ds 'page-wiki)))
+              (filter:make #px"^/[a-zA-Z0-9-]{3,50}/search$" (lift:make (hash-ref ds 'page-search)))
+              (filter:make #px"^/[a-zA-Z0-9-]{3,50}(/(wiki(/)?)?)?$" (lift:make (hash-ref ds 'redirect-wiki-home)))
               (hash-ref ds 'static-dispatcher)
               (lift:make (hash-ref ds 'page-not-found)))))))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 2882ba5f..96410d02 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -143,7 +143,7 @@
                        (λ (href)
                          ((compose1
                            (λ (href) (regexp-replace #rx"^(/wiki/.*)" href (format "/~a\\1" wikiname)))
-                           (λ (href) (regexp-replace #rx"^https://([a-z-]+).fandom.com(/wiki/.*)" href "/\\1\\2")))
+                           (λ (href) (regexp-replace #px"^https://([a-zA-Z0-9-]{3,50}).fandom.com(/wiki/.*)" href "/\\1\\2")))
                           href)))
                 ; add noreferrer to a.image
                 (curry u
diff --git a/src/url-utils.rkt b/src/url-utils.rkt
index f563b69a..934a228b 100644
--- a/src/url-utils.rkt
+++ b/src/url-utils.rkt
@@ -57,7 +57,7 @@
 
 (: is-fandom-url? (String -> Boolean))
 (define (is-fandom-url? url)
-  (regexp-match? #rx"^https://static.wikia.nocookie.net/|^https://[a-z-]*.fandom.com/" url))
+  (regexp-match? #px"^https://static.wikia.nocookie.net/|^https://[a-zA-Z0-9-]{3,50}.fandom.com/" url))
 (module+ test
   (check-true (is-fandom-url? "https://static.wikia.nocookie.net/wikiname/images/2/2f/SomeImage.jpg/revision/latest?cb=20110210094136"))
   (check-true (is-fandom-url? "https://test.fandom.com/wiki/Some_Page"))

From 10cdd260e0a6bec81c8be0a261851661d5a30059 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 4 Oct 2022 21:00:33 +1300
Subject: [PATCH 034/166] Close response after error in proxy

---
 src/page-proxy.rkt | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/page-proxy.rkt b/src/page-proxy.rkt
index f494e283..8dbf0f91 100644
--- a/src/page-proxy.rkt
+++ b/src/page-proxy.rkt
@@ -18,13 +18,16 @@
   (match (dict-ref (url-query (request-uri req)) 'dest #f)
     [(? string? dest)
      (if (is-fandom-url? dest)
-         (response-handler
+         (response-handler ; catches and reports errors
           (let ([dest-r (easy:get dest #:stream? #t)])
-            (response/output
-             #:code (easy:response-status-code dest-r)
-             #:mime-type (easy:response-headers-ref dest-r 'content-type)
-             (λ (out)
-               (copy-port (easy:response-output dest-r) out)
-               (easy:response-close! dest-r)))))
+            (with-handlers ([exn:fail? (λ (e) ; cleans up and re-throws
+                                         (easy:response-close! dest-r)
+                                         (raise e))])
+              (response/output
+               #:code (easy:response-status-code dest-r)
+               #:mime-type (easy:response-headers-ref dest-r 'content-type)
+               (λ (out)
+                 (copy-port (easy:response-output dest-r) out)
+                 (easy:response-close! dest-r))))))
          (next-dispatcher))]
     [#f (next-dispatcher)]))

From ece762fc5b9b4632674cc1b86c50a3a1ecca4423 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 4 Oct 2022 21:13:07 +1300
Subject: [PATCH 035/166] Unify "out: <url>" logging to a function

---
 src/config.rkt        |  1 +
 src/data.rkt          |  2 +-
 src/page-category.rkt |  4 ++--
 src/page-search.rkt   |  2 +-
 src/page-wiki.rkt     |  2 +-
 src/url-utils.rkt     | 10 +++++++++-
 6 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/src/config.rkt b/src/config.rkt
index bdf44401..4c8fca97 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -26,6 +26,7 @@
     (canonical_origin . "")
     (debug . "false")
     (instance_is_official . "false") ; please don't turn this on, or you will make me very upset
+    (log_outgoing . "true")
     (port . "10416")
     (strict_proxy . "true")))
 
diff --git a/src/data.rkt b/src/data.rkt
index f7a0d1f4..8eb0cd69 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -20,7 +20,7 @@
                              ("siprop" . "rightsinfo")
                              ("format" . "json")
                              ("formatversion" . "2")))))
-  (printf "out: ~a~n" dest-url)
+  (log-outgoing dest-url)
   (define res (easy:get dest-url))
   (define data (easy:response-json res))
   (license (jp "/query/rightsinfo/text" data)
diff --git a/src/page-category.rkt b/src/page-category.rkt
index f9eb9740..f7c43b27 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -75,7 +75,7 @@
                                               ("cmlimit" . "max")
                                               ("formatversion" . "2")
                                               ("format" . "json")))))
-                   (printf "out: ~a~n" dest-url)
+                   (log-outgoing dest-url)
                    (define dest-res (easy:get dest-url #:timeouts timeouts))
                    (easy:response-json dest-res)]
      [page-data (define dest-url
@@ -86,7 +86,7 @@
                                            ("prop" . "text|headhtml|langlinks")
                                            ("formatversion" . "2")
                                            ("format" . "json")))))
-                (printf "out: ~a~n" dest-url)
+                (log-outgoing dest-url)
                 (define dest-res (easy:get dest-url #:timeouts timeouts))
                 (easy:response-json dest-res)]
      [license (license-auto wikiname)])
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 61b1212a..387deabc 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -68,7 +68,7 @@
                               ("format" . "json")))))
 
    (thread-let
-    ([dest-res (printf "out: ~a~n" dest-url)
+    ([dest-res (log-outgoing dest-url)
                (easy:get dest-url #:timeouts timeouts)]
      [license (license-auto wikiname)])
 
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 96410d02..461594ac 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -246,7 +246,7 @@
                                          ("prop" . "text|headhtml|langlinks")
                                          ("formatversion" . "2")
                                          ("format" . "json")))))
-              (printf "out: ~a~n" dest-url)
+              (log-outgoing dest-url)
               (easy:get dest-url #:timeouts timeouts)]
     [license (license-auto wikiname)])
 
diff --git a/src/url-utils.rkt b/src/url-utils.rkt
index 934a228b..20b9b421 100644
--- a/src/url-utils.rkt
+++ b/src/url-utils.rkt
@@ -1,6 +1,7 @@
 #lang typed/racket/base
 (require racket/string
          "pure-utils.rkt")
+(require/typed "config.rkt" [config-true? (Symbol -> Boolean)])
 
 (provide
  ; make a query string from an association list of strings
@@ -8,7 +9,9 @@
  ; make a proxied version of a fandom url
  u-proxy-url
  ; check whether a url is on a domain controlled by fandom
- is-fandom-url?)
+ is-fandom-url?
+  ; prints "out: <url>"
+ log-outgoing)
 
 (module+ test
   (require "typed-rackunit.rkt"))
@@ -69,3 +72,8 @@
    is-fandom-url?
    (λ ([v : String]) (string-append "/proxy?" (params->query `(("dest" . ,url)))))
    url))
+
+(: log-outgoing (String -> Void))
+(define (log-outgoing url-string)
+  (when (config-true? 'log_outgoing)
+    (printf "out: ~a~n" url-string)))

From 57e700cef547da41e95884a33ca2153a8f48f461 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Sun, 2 Oct 2022 16:44:44 +0700
Subject: [PATCH 036/166] Deduplicate the wiki name regex

---
 src/dispatcher-tree.rkt | 11 ++++++-----
 src/page-wiki.rkt       |  2 +-
 src/url-utils.rkt       |  6 +++++-
 3 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 93532ef1..1a434588 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -8,7 +8,8 @@
          (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer)
          (prefix-in lift: web-server/dispatchers/dispatch-lift)
          (prefix-in filter: web-server/dispatchers/dispatch-filter)
-         "config.rkt")
+         "config.rkt"
+         "url-utils.rkt")
 
 (provide
  ; syntax to make the hashmap from names
@@ -43,9 +44,9 @@
               (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 #px"^/[a-zA-Z0-9-]{3,50}/wiki/Category:.+$" (lift:make (hash-ref ds 'page-category)))
-              (filter:make #px"^/[a-zA-Z0-9-]{3,50}/wiki/.+$" (lift:make (hash-ref ds 'page-wiki)))
-              (filter:make #px"^/[a-zA-Z0-9-]{3,50}/search$" (lift:make (hash-ref ds 'page-search)))
-              (filter:make #px"^/[a-zA-Z0-9-]{3,50}(/(wiki(/)?)?)?$" (lift:make (hash-ref ds 'redirect-wiki-home)))
+              (filter:make (pregexp (format "^/~a/wiki/Category:.+$" wikiname-regex)) (lift:make (hash-ref ds 'page-category)))
+              (filter:make (pregexp (format "^/~a/wiki/.+$" wikiname-regex)) (lift:make (hash-ref ds 'page-wiki)))
+              (filter:make (pregexp (format "^/~a/search$" wikiname-regex)) (lift:make (hash-ref ds 'page-search)))
+              (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" wikiname-regex)) (lift:make (hash-ref ds 'redirect-wiki-home)))
               (hash-ref ds 'static-dispatcher)
               (lift:make (hash-ref ds 'page-not-found)))))))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 461594ac..4d6fc186 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -143,7 +143,7 @@
                        (λ (href)
                          ((compose1
                            (λ (href) (regexp-replace #rx"^(/wiki/.*)" href (format "/~a\\1" wikiname)))
-                           (λ (href) (regexp-replace #px"^https://([a-zA-Z0-9-]{3,50}).fandom.com(/wiki/.*)" href "/\\1\\2")))
+                           (λ (href) (regexp-replace (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)" wikiname-regex)) href "/\\1\\2")))
                           href)))
                 ; add noreferrer to a.image
                 (curry u
diff --git a/src/url-utils.rkt b/src/url-utils.rkt
index 20b9b421..07133e70 100644
--- a/src/url-utils.rkt
+++ b/src/url-utils.rkt
@@ -4,6 +4,8 @@
 (require/typed "config.rkt" [config-true? (Symbol -> Boolean)])
 
 (provide
+ ; regex to match wiki names
+ wikiname-regex
  ; make a query string from an association list of strings
  params->query
  ; make a proxied version of a fandom url
@@ -16,6 +18,8 @@
 (module+ test
   (require "typed-rackunit.rkt"))
 
+(define wikiname-regex "[a-zA-Z0-9-]{3,50}")
+
 ;; https://url.spec.whatwg.org/#urlencoded-serializing
 
 (define urlencoded-set '(#\! #\' #\( #\) #\~ ; urlencoded set
@@ -60,7 +64,7 @@
 
 (: is-fandom-url? (String -> Boolean))
 (define (is-fandom-url? url)
-  (regexp-match? #px"^https://static.wikia.nocookie.net/|^https://[a-zA-Z0-9-]{3,50}.fandom.com/" url))
+  (regexp-match? (pregexp (format "^https://static\\.wikia\\.nocookie\\.net/|^https://~a\\.fandom\\.com/" wikiname-regex)) url))
 (module+ test
   (check-true (is-fandom-url? "https://static.wikia.nocookie.net/wikiname/images/2/2f/SomeImage.jpg/revision/latest?cb=20110210094136"))
   (check-true (is-fandom-url? "https://test.fandom.com/wiki/Some_Page"))

From 79f04565c72acc683b4e6a153d5623adb2bf25da Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 4 Oct 2022 21:18:30 +1300
Subject: [PATCH 037/166] Rename wikiname-regex to px-wikiname

I find prefix notation more natural to represent the type/kind of the thing.
---
 src/dispatcher-tree.rkt | 8 ++++----
 src/page-wiki.rkt       | 2 +-
 src/url-utils.rkt       | 6 +++---
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 1a434588..f2c1412d 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -44,9 +44,9 @@
               (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 (pregexp (format "^/~a/wiki/Category:.+$" wikiname-regex)) (lift:make (hash-ref ds 'page-category)))
-              (filter:make (pregexp (format "^/~a/wiki/.+$" wikiname-regex)) (lift:make (hash-ref ds 'page-wiki)))
-              (filter:make (pregexp (format "^/~a/search$" wikiname-regex)) (lift:make (hash-ref ds 'page-search)))
-              (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" wikiname-regex)) (lift:make (hash-ref ds 'redirect-wiki-home)))
+              (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
+              (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
+              (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
+              (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
               (hash-ref ds 'static-dispatcher)
               (lift:make (hash-ref ds 'page-not-found)))))))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 4d6fc186..a218dfeb 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -143,7 +143,7 @@
                        (λ (href)
                          ((compose1
                            (λ (href) (regexp-replace #rx"^(/wiki/.*)" href (format "/~a\\1" wikiname)))
-                           (λ (href) (regexp-replace (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)" wikiname-regex)) href "/\\1\\2")))
+                           (λ (href) (regexp-replace (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)" px-wikiname)) href "/\\1\\2")))
                           href)))
                 ; add noreferrer to a.image
                 (curry u
diff --git a/src/url-utils.rkt b/src/url-utils.rkt
index 07133e70..a55a208b 100644
--- a/src/url-utils.rkt
+++ b/src/url-utils.rkt
@@ -5,7 +5,7 @@
 
 (provide
  ; regex to match wiki names
- wikiname-regex
+ px-wikiname
  ; make a query string from an association list of strings
  params->query
  ; make a proxied version of a fandom url
@@ -18,7 +18,7 @@
 (module+ test
   (require "typed-rackunit.rkt"))
 
-(define wikiname-regex "[a-zA-Z0-9-]{3,50}")
+(define px-wikiname "[a-zA-Z0-9-]{3,50}")
 
 ;; https://url.spec.whatwg.org/#urlencoded-serializing
 
@@ -64,7 +64,7 @@
 
 (: is-fandom-url? (String -> Boolean))
 (define (is-fandom-url? url)
-  (regexp-match? (pregexp (format "^https://static\\.wikia\\.nocookie\\.net/|^https://~a\\.fandom\\.com/" wikiname-regex)) url))
+  (regexp-match? (pregexp (format "^https://static\\.wikia\\.nocookie\\.net/|^https://~a\\.fandom\\.com/" px-wikiname)) url))
 (module+ test
   (check-true (is-fandom-url? "https://static.wikia.nocookie.net/wikiname/images/2/2f/SomeImage.jpg/revision/latest?cb=20110210094136"))
   (check-true (is-fandom-url? "https://test.fandom.com/wiki/Some_Page"))

From 6b176e3f8f58152620e0a18c7fa57e3fb229a8bb Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 4 Oct 2022 22:00:44 +1300
Subject: [PATCH 038/166] Migrate config.rkt to Typed Racket

---
 src/config.rkt    | 44 +++++++++++++++++++++++++++++++++-----------
 src/url-utils.rkt |  2 +-
 2 files changed, 34 insertions(+), 12 deletions(-)

diff --git a/src/config.rkt b/src/config.rkt
index 4c8fca97..6fc029ff 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -1,23 +1,32 @@
-#lang racket/base
+#lang typed/racket/base
 (require racket/function
          racket/pretty
          racket/runtime-path
-         racket/string
-         ini)
+         racket/string)
+(require/typed ini
+  [#:opaque Ini ini?]
+  [read-ini (Input-Port -> Ini)]
+  [ini->hash (Ini -> (Immutable-HashTable Symbol (Immutable-HashTable Symbol String)))])
 
 (provide
  config-parameter
  config-true?
  config-get)
 
+(module+ test
+  (require "typed-rackunit.rkt"))
+
 (define-runtime-path path-config "../config.ini")
 
+(: config-parameter (Symbol -> (Parameterof String)))
 (define (config-parameter key)
   (hash-ref config key))
 
+(: config-true? (Symbol -> Boolean))
 (define (config-true? key)
   (not (member ((config-parameter key)) '("" "false"))))
 
+(: config-get (Symbol -> String))
 (define (config-get key)
   ((config-parameter key)))
 
@@ -56,18 +65,24 @@
 
 (define env-alist
   (let ([e-names (environment-variables-names (current-environment-variables))]
-        [e-ref (λ (name) (bytes->string/latin-1 (environment-variables-ref (current-environment-variables) name)))])
-    (map (λ (name) (cons (string->symbol (string-downcase (substring (bytes->string/latin-1 name) 3)))
-                         (e-ref name)))
-         (filter (λ (name) (string-prefix? (string-downcase (bytes->string/latin-1 name)) "bw_")) e-names))))
+        [e-ref (λ ([name : Bytes])
+                 (bytes->string/latin-1
+                  (cast (environment-variables-ref (current-environment-variables) name)
+                        Bytes)))])
+    (map (λ ([name : Bytes])
+           (cons (string->symbol (string-downcase (substring (bytes->string/latin-1 name) 3)))
+                 (e-ref name)))
+         (filter (λ ([name : Bytes]) (string-prefix? (string-downcase (bytes->string/latin-1 name))
+                                                     "bw_"))
+                 e-names))))
 (when (> (length env-alist) 0)
   (printf "note: ~a items loaded from environment variables~n" (length env-alist)))
 
 (define combined-alist (append default-config loaded-alist env-alist))
 
 (define config
-  (make-hasheq
-   (map (λ (pair)
+  (make-immutable-hasheq
+   (map (λ ([pair : (Pairof Symbol String)])
           (cons (car pair) (make-parameter (cdr pair))))
         combined-alist)))
 
@@ -75,8 +90,8 @@
   ; all values here are optimised for maximum prettiness
   (parameterize ([pretty-print-columns 80])
     (display "config: ")
-    (pretty-write (sort
-                   (hash->list (make-hasheq combined-alist))
+    (pretty-write ((inst sort (Pairof Symbol String))
+                   (hash->list (make-immutable-hasheq combined-alist))
                    symbol<?
                    #:key car))))
 
@@ -85,3 +100,10 @@
     (displayln
      (string-append "warning: configuring canonical_origin is highly recommended for production!\n"
                     "         see https://docs.breezewiki.com/Configuration.html"))))
+
+(module+ test
+  ; this is just a sanity check
+  (parameterize ([(config-parameter 'application_name) "JeffWiki"]
+                 [(config-parameter 'strict_proxy) ""])
+    (check-equal? (config-get 'application_name) "JeffWiki")
+    (check-false (config-true? 'strict_proxy))))
diff --git a/src/url-utils.rkt b/src/url-utils.rkt
index a55a208b..62f7cc2f 100644
--- a/src/url-utils.rkt
+++ b/src/url-utils.rkt
@@ -1,7 +1,7 @@
 #lang typed/racket/base
 (require racket/string
+         "config.rkt"
          "pure-utils.rkt")
-(require/typed "config.rkt" [config-true? (Symbol -> Boolean)])
 
 (provide
  ; regex to match wiki names

From 9aba3ad4320229dc9837a0fa647f1f27f83bbf58 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 9 Oct 2022 20:53:09 +1300
Subject: [PATCH 039/166] Refactor siteinfo/license fetching

---
 info.rkt              |  2 +-
 src/data.rkt          | 29 +++++++++++++++--------------
 src/page-category.rkt |  2 +-
 src/page-search.rkt   |  2 +-
 src/page-wiki.rkt     |  2 +-
 5 files changed, 19 insertions(+), 18 deletions(-)

diff --git a/info.rkt b/info.rkt
index 74152ef9..46512dfd 100644
--- a/info.rkt
+++ b/info.rkt
@@ -1,3 +1,3 @@
 #lang info
 
-(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "ini-lib"))
+(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "ini-lib" "memo"))
diff --git a/src/data.rkt b/src/data.rkt
index 8eb0cd69..fae07d3e 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -1,33 +1,34 @@
 #lang racket/base
-(require (prefix-in easy: net/http-easy)
+(require racket/list
+         (prefix-in easy: net/http-easy)
+         memo
          "url-utils.rkt"
          "xexpr-utils.rkt")
 
 (provide
+ (struct-out siteinfo)
  (struct-out license)
- license-default
- license-auto)
+ siteinfo-fetch
+ license-default)
 
+(struct siteinfo (sitename basepage license) #:transparent)
 (struct license (text url) #:transparent)
+
 (define license-default (license "CC-BY-SA" "https://www.fandom.com/licensing"))
-(define license-hash (make-hash))
-(define (license-fetch wikiname)
+
+(define/memoize (siteinfo-fetch wikiname) #:hash hash
   (define dest-url
     (format "https://~a.fandom.com/api.php?~a"
             wikiname
             (params->query '(("action" . "query")
                              ("meta" . "siteinfo")
-                             ("siprop" . "rightsinfo")
+                             ("siprop" . "general|rightsinfo")
                              ("format" . "json")
                              ("formatversion" . "2")))))
   (log-outgoing dest-url)
   (define res (easy:get dest-url))
   (define data (easy:response-json res))
-  (license (jp "/query/rightsinfo/text" data)
-           (jp "/query/rightsinfo/url" data)))
-(define (license-auto wikiname)
-  (if (hash-has-key? license-hash wikiname)
-      (hash-ref license-hash wikiname)
-      (let ([result (license-fetch wikiname)])
-        (hash-set! license-hash wikiname result)
-        result)))
+  (siteinfo (jp "/query/general/sitename" data)
+            (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
+            (license (jp "/query/rightsinfo/text" data)
+                     (jp "/query/rightsinfo/url" data))))
diff --git a/src/page-category.rkt b/src/page-category.rkt
index f7c43b27..773985db 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -89,7 +89,7 @@
                 (log-outgoing dest-url)
                 (define dest-res (easy:get dest-url #:timeouts timeouts))
                 (easy:response-json dest-res)]
-     [license (license-auto wikiname)])
+     [license (siteinfo-license (siteinfo-fetch wikiname))])
 
     (define title (preprocess-html-wiki (jp "/parse/title" page-data prefixed-category)))
     (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 387deabc..496dac81 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -70,7 +70,7 @@
    (thread-let
     ([dest-res (log-outgoing dest-url)
                (easy:get dest-url #:timeouts timeouts)]
-     [license (license-auto wikiname)])
+     [license (siteinfo-license (siteinfo-fetch wikiname))])
 
     (define data (easy:response-json dest-res))
 
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index a218dfeb..32255e1b 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -248,7 +248,7 @@
                                          ("format" . "json")))))
               (log-outgoing dest-url)
               (easy:get dest-url #:timeouts timeouts)]
-    [license (license-auto wikiname)])
+    [license (siteinfo-license (siteinfo-fetch wikiname))])
 
    (cond
      [(eq? 200 (easy:response-status-code dest-res))

From 59332fd9d13e7c66523816b0a96d9ab8c1728559 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 9 Oct 2022 22:50:50 +1300
Subject: [PATCH 040/166] Pass siteinfo through code; show sitename in title

---
 src/application-globals.rkt | 14 +++++++++-----
 src/data.rkt                | 20 +++++++++++---------
 src/page-category.rkt       |  8 ++++----
 src/page-search.rkt         |  8 ++++----
 src/page-wiki.rkt           |  4 ++--
 5 files changed, 30 insertions(+), 24 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index c2149246..6b5f3d9e 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -48,8 +48,8 @@
                 ,(if source-url
                      `(div (p "This page displays proxied content from "
                               (a (@ (href ,source-url) (rel "noreferrer")) ,source-url)
-                              ,(format ". Text content is available under the ~a license, " (license-text license))
-                              (a (@ (href ,(license-url license))) "see license info.")
+                              ,(format ". Text content is available under the ~a license, " (license^-text license))
+                              (a (@ (href ,(license^-url license))) "see license info.")
                               " Media files may have different copying restrictions.")
                            (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))
                      `(div (p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
@@ -63,7 +63,8 @@
          #:wikiname wikiname
          #:title title
          #:body-class [body-class-in #f]
-         #:license [license #f])
+         #:siteinfo [siteinfo-in #f])
+  (define siteinfo (or siteinfo-in siteinfo-default))
   (define body-class (if (not body-class-in)
                          "skin-fandomdesktop"
                          body-class-in))
@@ -82,7 +83,10 @@
   `(html
     (head
      (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
-     (title ,(format "~a | ~a" title (config-get 'application_name)))
+     (title ,(format "~a | ~a+~a"
+                     title
+                     (regexp-replace #rx" ?Wiki$" (siteinfo^-sitename siteinfo) "")
+                     (config-get 'application_name)))
      ,@(map (λ (url)
               `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
             (required-styles (format "https://~a.fandom.com" wikiname)))
@@ -101,7 +105,7 @@
                           (div (@ (id "content") #;(class "page-content"))
                                (div (@ (id "mw-content-text"))
                                     ,content))
-                          ,(application-footer source-url #:license license)))))))
+                          ,(application-footer source-url #:license (siteinfo^-license siteinfo))))))))
 (module+ test
   (define page
     (parameterize ([(config-parameter 'strict_proxy) "true"])
diff --git a/src/data.rkt b/src/data.rkt
index fae07d3e..6673e4c9 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -6,15 +6,17 @@
          "xexpr-utils.rkt")
 
 (provide
- (struct-out siteinfo)
- (struct-out license)
+ (struct-out siteinfo^)
+ (struct-out license^)
  siteinfo-fetch
+ siteinfo-default
  license-default)
 
-(struct siteinfo (sitename basepage license) #:transparent)
-(struct license (text url) #:transparent)
+(struct siteinfo^ (sitename basepage license) #:transparent)
+(struct license^ (text url) #:transparent)
 
-(define license-default (license "CC-BY-SA" "https://www.fandom.com/licensing"))
+(define license-default (license^ "CC-BY-SA" "https://www.fandom.com/licensing"))
+(define siteinfo-default (siteinfo^ "Test Wiki" "Main_Page" license-default))
 
 (define/memoize (siteinfo-fetch wikiname) #:hash hash
   (define dest-url
@@ -28,7 +30,7 @@
   (log-outgoing dest-url)
   (define res (easy:get dest-url))
   (define data (easy:response-json res))
-  (siteinfo (jp "/query/general/sitename" data)
-            (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
-            (license (jp "/query/rightsinfo/text" data)
-                     (jp "/query/rightsinfo/url" data))))
+  (siteinfo^ (jp "/query/general/sitename" data)
+             (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
+             (license^ (jp "/query/rightsinfo/text" data)
+                       (jp "/query/rightsinfo/url" data))))
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 773985db..bf8b982c 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -35,14 +35,14 @@
          #:members-data members-data
          #:page page
          #:body-class [body-class #f]
-         #:license [license #f])
+         #:siteinfo [siteinfo #f])
   (define members (jp "/query/categorymembers" members-data))
   (generate-wiki-page
    #:source-url source-url
    #:wikiname wikiname
    #:title title
    #:body-class body-class
-   #:license license
+   #:siteinfo siteinfo
    `(div
      ,(update-tree-wiki page wikiname)
      (hr)
@@ -89,7 +89,7 @@
                 (log-outgoing dest-url)
                 (define dest-res (easy:get dest-url #:timeouts timeouts))
                 (easy:response-json dest-res)]
-     [license (siteinfo-license (siteinfo-fetch wikiname))])
+     [siteinfo (siteinfo-fetch wikiname)])
 
     (define title (preprocess-html-wiki (jp "/parse/title" page-data prefixed-category)))
     (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
@@ -105,7 +105,7 @@
                   #:members-data members-data
                   #:page page
                   #:body-class body-class
-                  #:license license))
+                  #:siteinfo siteinfo))
 
     (when (config-true? 'debug)
       ; used for its side effects
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 496dac81..0647e575 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -25,13 +25,13 @@
   (define search-json-data
     '#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
 
-(define (generate-results-page dest-url wikiname query data #:license [license #f])
+(define (generate-results-page dest-url wikiname query data #:siteinfo [siteinfo #f])
   (define search-results (jp "/query/search" data))
   (generate-wiki-page
    #:source-url dest-url
    #:wikiname wikiname
    #:title "Search Results"
-   #:license license
+   #:siteinfo siteinfo
    `(div (@ (class "mw-parser-output"))
          (p ,(format "~a results found for " (length search-results))
             (strong ,query))
@@ -70,11 +70,11 @@
    (thread-let
     ([dest-res (log-outgoing dest-url)
                (easy:get dest-url #:timeouts timeouts)]
-     [license (siteinfo-license (siteinfo-fetch wikiname))])
+     [siteinfo (siteinfo-fetch wikiname)])
 
     (define data (easy:response-json dest-res))
 
-    (define body (generate-results-page dest-url wikiname query data #:license license))
+    (define body (generate-results-page dest-url wikiname query data #:siteinfo siteinfo))
     (when (config-true? 'debug)
       ; used for its side effects
       ; convert to string with error checking, error will be raised if xexp is invalid
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 32255e1b..41dc215c 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -248,7 +248,7 @@
                                          ("format" . "json")))))
               (log-outgoing dest-url)
               (easy:get dest-url #:timeouts timeouts)]
-    [license (siteinfo-license (siteinfo-fetch wikiname))])
+    [siteinfo (siteinfo-fetch wikiname)])
 
    (cond
      [(eq? 200 (easy:response-status-code dest-res))
@@ -271,7 +271,7 @@
                 #:wikiname wikiname
                 #:title title
                 #:body-class body-class
-                #:license license))
+                #:siteinfo siteinfo))
              (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
              (define headers (if redirect-msg
                                  (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]

From ade7878f7b090cfef9860d4e98c2486d9edbbfb8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 9 Oct 2022 22:54:59 +1300
Subject: [PATCH 041/166] Redirect to actual wiki main page

---
 src/page-redirect-wiki-home.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/page-redirect-wiki-home.rkt b/src/page-redirect-wiki-home.rkt
index b0c3df3c..c8e6dde9 100644
--- a/src/page-redirect-wiki-home.rkt
+++ b/src/page-redirect-wiki-home.rkt
@@ -2,6 +2,7 @@
 (require net/url
          web-server/http
          "application-globals.rkt"
+         "data.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt")
 
@@ -11,5 +12,6 @@
 (define (redirect-wiki-home req)
   (response-handler
    (define wikiname (path/param-path (car (url-path (request-uri req)))))
-   (define dest (format "/~a/wiki/Main_Page" wikiname))
+   (define siteinfo (siteinfo-fetch wikiname))
+   (define dest (format "/~a/wiki/~a" wikiname (or (siteinfo^-basepage siteinfo) "Main_Page")))
    (generate-redirect dest)))

From adc4b47b83e7e850c242b6be854060f0908b70e4 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Sun, 9 Oct 2022 10:53:02 +0700
Subject: [PATCH 042/166] Set Referrer-Policy to no-referrer

Fandom sends a fake 404 to media if there's a Referer header that has an origin
that's not Fandom. However, we can choose not to send the header by setting
Referrer-Policy. See also:
https://developer.mozilla.org/en-US/docs/Web/HTTP/Headers/Referrer-Policy
---
 src/application-globals.rkt |  3 +++
 src/page-category.rkt       |  1 +
 src/page-search.rkt         |  1 +
 src/page-wiki.rkt           | 30 +++++++++++++++++-------------
 4 files changed, 22 insertions(+), 13 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 6b5f3d9e..3230b58a 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -9,6 +9,8 @@
          "url-utils.rkt")
 
 (provide
+ ; header to not send referers to fandom
+ referrer-policy
  ; timeout durations for http-easy requests
  timeouts
  ; generates a consistent footer
@@ -22,6 +24,7 @@
   (require rackunit
            html-writing))
 
+(define referrer-policy (header #"Referrer-Policy" #"no-referrer"))
 (define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
 
 (define (application-footer source-url #:license [license-in #f])
diff --git a/src/page-category.rkt b/src/page-category.rkt
index bf8b982c..036b59c1 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -113,6 +113,7 @@
       (xexp->html body))
     (response/output
      #:code 200
+     #:headers (list referrer-policy)
      (λ (out)
        (write-html body out))))))
 (module+ test
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 0647e575..e951749f 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -81,6 +81,7 @@
       (xexp->html body))
     (response/output
      #:code 200
+     #:headers (list referrer-policy)
      (λ (out)
        (write-html body out))))))
 (module+ test
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 41dc215c..b0396955 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -152,15 +152,17 @@
                        (λ (v) (dict-update v 'rel (λ (s)
                                                     (list (string-append (car s) " noreferrer")))
                                            '(""))))
-                ; proxy images from inline styles
-                (curry attribute-maybe-update 'style
-                       (λ (style)
-                         (regexp-replace #rx"url\\(['\"]?(.*?)['\"]?\\)" style
-                                         (λ (whole url)
-                                           (string-append
-                                            "url("
-                                            (u-proxy-url url)
-                                            ")")))))
+                ; proxy images from inline styles, if strict_proxy is set
+                (curry u
+                       (λ (v) (config-true? 'strict_proxy))
+                       (λ (v) (attribute-maybe-update 'style
+                         (λ (style)
+                           (regexp-replace #rx"url\\(['\"]?(.*?)['\"]?\\)" style
+                                           (λ (whole url)
+                                             (string-append
+                                              "url("
+                                              (u-proxy-url url)
+                                              ")")))) v)))
                 ; and also their links, if strict_proxy is set
                 (curry u
                        (λ (v)
@@ -168,8 +170,10 @@
                               (eq? element-type 'a)
                               (has-class? "image-thumbnail" v)))
                        (λ (v) (attribute-maybe-update 'href u-proxy-url v)))
-                ; proxy images from src attributes
-                (curry attribute-maybe-update 'src u-proxy-url)
+                ; proxy images from src attributes, if strict_proxy is set
+                (curry u
+                       (λ (v) (config-true? 'strict_proxy))
+                       (λ (v) (attribute-maybe-update 'src u-proxy-url v)))
                 ; don't lazyload images
                 (curry u
                        (λ (v) (dict-has-key? v 'data-src))
@@ -276,8 +280,8 @@
              (define headers (if redirect-msg
                                  (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
                                         [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
-                                   (list (header #"Refresh" value)))
-                                 (list)))
+                                   (list (header #"Refresh" value) referrer-policy))
+                                 (list referrer-policy)))
              (when (config-true? 'debug)
                ; used for its side effects
                ; convert to string with error checking, error will be raised if xexp is invalid

From 5813c49261c823503f712f07e40ee91e3f7a0b66 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 9 Oct 2022 23:43:21 +1300
Subject: [PATCH 043/166] Refactor Referrer-Policy header

- Change the variable to always-headers so it can be extended in the future
- New function build-headers that assists combining complex logic headers
  together with less mess
- Also apply headers to the proxy
---
 src/application-globals.rkt |  7 ++++---
 src/page-category.rkt       |  2 +-
 src/page-home.rkt           |  2 ++
 src/page-proxy.rkt          |  2 ++
 src/page-search.rkt         |  2 +-
 src/page-wiki.rkt           | 12 +++++++-----
 src/url-utils.rkt           | 19 ++++++++++++++++++-
 7 files changed, 35 insertions(+), 11 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 3230b58a..7f16bee7 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -9,8 +9,8 @@
          "url-utils.rkt")
 
 (provide
- ; header to not send referers to fandom
- referrer-policy
+ ; headers to always send on all http responses
+ always-headers
  ; timeout durations for http-easy requests
  timeouts
  ; generates a consistent footer
@@ -24,7 +24,8 @@
   (require rackunit
            html-writing))
 
-(define referrer-policy (header #"Referrer-Policy" #"no-referrer"))
+(define always-headers
+  (list (header #"Referrer-Policy" #"same-origin"))) ; header to not send referers to fandom
 (define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
 
 (define (application-footer source-url #:license [license-in #f])
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 036b59c1..6c0a7337 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -113,7 +113,7 @@
       (xexp->html body))
     (response/output
      #:code 200
-     #:headers (list referrer-policy)
+     #:headers (build-headers always-headers)
      (λ (out)
        (write-html body out))))))
 (module+ test
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 7c7aaa1d..b16f66a1 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -4,6 +4,7 @@
          html-writing
          web-server/http
          "application-globals.rkt"
+         "url-utils.rkt"
          "xexpr-utils.rkt"
          "config.rkt")
 
@@ -81,6 +82,7 @@
 (define (page-home req)
   (response/output
    #:code 200
+   #:headers (build-headers always-headers)
    (λ (out)
      (write-html body out))))
 
diff --git a/src/page-proxy.rkt b/src/page-proxy.rkt
index 8dbf0f91..3c22e1e3 100644
--- a/src/page-proxy.rkt
+++ b/src/page-proxy.rkt
@@ -8,6 +8,7 @@
          net/url
          web-server/http
          (only-in web-server/dispatchers/dispatch next-dispatcher)
+         "application-globals.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt")
 
@@ -26,6 +27,7 @@
               (response/output
                #:code (easy:response-status-code dest-r)
                #:mime-type (easy:response-headers-ref dest-r 'content-type)
+               #:headers (build-headers always-headers)
                (λ (out)
                  (copy-port (easy:response-output dest-r) out)
                  (easy:response-close! dest-r))))))
diff --git a/src/page-search.rkt b/src/page-search.rkt
index e951749f..81a88b2d 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -81,7 +81,7 @@
       (xexp->html body))
     (response/output
      #:code 200
-     #:headers (list referrer-policy)
+     #:headers (build-headers always-headers)
      (λ (out)
        (write-html body out))))))
 (module+ test
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index b0396955..effa40a0 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -277,11 +277,13 @@
                 #:body-class body-class
                 #:siteinfo siteinfo))
              (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
-             (define headers (if redirect-msg
-                                 (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
-                                        [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
-                                   (list (header #"Refresh" value) referrer-policy))
-                                 (list referrer-policy)))
+             (define headers
+               (build-headers
+                always-headers
+                (when redirect-msg
+                    (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+                           [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
+                      (header #"Refresh" value)))))
              (when (config-true? 'debug)
                ; used for its side effects
                ; convert to string with error checking, error will be raised if xexp is invalid
diff --git a/src/url-utils.rkt b/src/url-utils.rkt
index 62f7cc2f..10df0891 100644
--- a/src/url-utils.rkt
+++ b/src/url-utils.rkt
@@ -2,6 +2,8 @@
 (require racket/string
          "config.rkt"
          "pure-utils.rkt")
+(require/typed web-server/http/request-structs
+               [#:opaque Header header?])
 
 (provide
  ; regex to match wiki names
@@ -13,7 +15,9 @@
  ; check whether a url is on a domain controlled by fandom
  is-fandom-url?
   ; prints "out: <url>"
- log-outgoing)
+ log-outgoing
+ ; pass in a header, headers, or something useless. they'll all combine into a list
+ build-headers)
 
 (module+ test
   (require "typed-rackunit.rkt"))
@@ -81,3 +85,16 @@
 (define (log-outgoing url-string)
   (when (config-true? 'log_outgoing)
     (printf "out: ~a~n" url-string)))
+
+(: build-headers ((U Header (Listof Header) False Void) * -> (Listof Header)))
+(define (build-headers . fs)
+  (apply
+   append
+   (map (λ ([f : (U Header (Listof Header) False Void)])
+         (cond
+           [(not f) null]
+           [(void? f) null]
+           [(null? f) null]
+           [(header? f) (list f)]
+           [(pair? f) f]))
+       fs)))

From 07074dccfc206d4fe3e489e536d3620ff7379370 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Sat, 8 Oct 2022 15:35:35 +0700
Subject: [PATCH 044/166] Add support for File: pages

Fixes https://lists.sr.ht/~cadence/breezewiki-discuss/%3Cb2835a70-5118-4df0-90c9-4333486a4b69%40nixnetmail.com%3E
---
 breezewiki.rkt          |   2 +
 dist.rkt                |   2 +
 src/dispatcher-tree.rkt |   1 +
 src/page-file.rkt       | 166 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 171 insertions(+)
 create mode 100644 src/page-file.rkt

diff --git a/breezewiki.rkt b/breezewiki.rkt
index dfb405e4..3fc9b8fb 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -19,6 +19,7 @@
 (require-reloadable "src/page-static.rkt" static-dispatcher)
 (require-reloadable "src/page-subdomain.rkt" subdomain-dispatcher)
 (require-reloadable "src/page-wiki.rkt" page-wiki)
+(require-reloadable "src/page-file.rkt" page-file)
 
 (reload!)
 
@@ -38,6 +39,7 @@
       page-proxy
       page-search
       page-wiki
+      page-file
       redirect-wiki-home
       static-dispatcher
       subdomain-dispatcher))))
diff --git a/dist.rkt b/dist.rkt
index a6266951..805df48a 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -13,6 +13,7 @@
 (require (only-in "src/page-static.rkt" static-dispatcher))
 (require (only-in "src/page-subdomain.rkt" subdomain-dispatcher))
 (require (only-in "src/page-wiki.rkt" page-wiki))
+(require (only-in "src/page-file.rkt" page-file))
 
 (serve/launch/wait
  #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
@@ -27,6 +28,7 @@
     page-proxy
     page-search
     page-wiki
+    page-file
     redirect-wiki-home
     static-dispatcher
     subdomain-dispatcher)))
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index f2c1412d..b68cf9c7 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -45,6 +45,7 @@
               (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
               (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
               (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
+              (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
               (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
               (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
               (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
diff --git a/src/page-file.rkt b/src/page-file.rkt
new file mode 100644
index 00000000..5c3f8965
--- /dev/null
+++ b/src/page-file.rkt
@@ -0,0 +1,166 @@
+#lang racket/base
+(require racket/dict
+         racket/list
+         racket/match
+         racket/string
+         (prefix-in easy: net/http-easy)
+         ; html libs
+         html-parsing
+         html-writing
+         ; web server libs
+         net/url
+         web-server/http
+         (only-in web-server/dispatchers/dispatch next-dispatcher)
+         #;(only-in web-server/http/redirect redirect-to)
+         "application-globals.rkt"
+         "config.rkt"
+         "data.rkt"
+         "page-wiki.rkt"
+         "syntax.rkt"
+         "url-utils.rkt"
+         "xexpr-utils.rkt")
+
+(provide page-file)
+
+(module+ test
+  (require rackunit)
+  (define test-media-detail
+    '#hasheq((fileTitle . "Example file")
+             (videoEmbedCode . "")
+             (imageUrl . "https://static.wikia.nocookie.net/examplefile")
+             (rawImageUrl . "https://static.wikia.nocookie.net/examplefile")
+             (userName . "blankie")
+             (isPostedIn . #t)
+             (smallerArticleList . (#hasheq((title . "Example_article")
+                                            (titleText . "Example article"))))
+             (articleListIsSmaller . 0)
+             (exists . #t)
+             (imageDescription . #f))))
+
+(define (url-content-type url)
+  (log-outgoing url)
+  (define dest-res (easy:head url #:timeouts timeouts))
+  (easy:response-headers-ref dest-res 'content-type))
+
+(define (get-media-html url content-type)
+  (define maybe-proxied-url (if (config-true? 'strict_proxy) (u-proxy-url url) url))
+  (cond
+    [(eq? content-type #f) `""]
+    [(regexp-match? #rx"(?i:^image/)" content-type) `(img (@ (src ,maybe-proxied-url)))]
+    [(regexp-match? #rx"(?i:^audio/|^application/ogg(;|$))" content-type)
+     `(audio (@ (src ,maybe-proxied-url) (controls)))]
+    [(regexp-match? #rx"(?i:^video/)" content-type) `(video (@ (src ,maybe-proxied-url) (controls)))]
+    [else `""]))
+
+(define (generate-results-page #:source-url source-url
+                               #:wikiname wikiname
+                               #:title title
+                               #:media-detail media-detail
+                               #:image-content-type image-content-type
+                               #:siteinfo [siteinfo #f])
+  (define video-embed-code (jp "/videoEmbedCode" media-detail ""))
+  (define raw-image-url (jp "/rawImageUrl" media-detail))
+  (define image-url (jp "/imageUrl" media-detail raw-image-url))
+  (define username (jp "/userName" media-detail))
+  (define is-posted-in (jp "/isPostedIn" media-detail #f))
+  (define smaller-article-list (jp "/smallerArticleList" media-detail))
+  (define article-list-is-smaller (jp "/articleListIsSmaller" media-detail))
+  (define image-description (jp "/imageDescription" media-detail #f))
+  (define maybe-proxied-raw-image-url
+    (if (config-true? 'strict_proxy) (u-proxy-url raw-image-url) raw-image-url))
+  (generate-wiki-page
+   #:source-url source-url
+   #:wikiname wikiname
+   #:title title
+   #:siteinfo siteinfo
+   `(div ,(if (non-empty-string? video-embed-code)
+              (update-tree-wiki (html->xexp (preprocess-html-wiki video-embed-code)) wikiname)
+              (get-media-html image-url image-content-type))
+         (p ,(if (non-empty-string? video-embed-code)
+                 `""
+                 `(span (a (@ (href ,maybe-proxied-raw-image-url)) "View original file") ". "))
+            "Added by "
+            (a (@ (href ,(format "/~a/wiki/User:~a" wikiname username))) ,username)
+            "."
+            ,(if is-posted-in
+                 `(span " Posted in "
+                        ,@(map (λ (article)
+                                 (define page-path (jp "/title" article))
+                                 (define title (jp "/titleText" article page-path))
+                                 `(span ,(if (eq? (car smaller-article-list) article) "" ", ")
+                                        (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
+                                           ,title)))
+                               smaller-article-list)
+                        ,(if (eq? article-list-is-smaller 1) "…" "."))
+                 `""))
+         ,(if (string? image-description)
+              (update-tree-wiki (html->xexp (preprocess-html-wiki image-description)) wikiname)
+              ""))))
+
+(define (page-file req)
+  (define wikiname (path/param-path (first (url-path (request-uri req)))))
+  (define prefixed-title (path/param-path (caddr (url-path (request-uri req)))))
+  (define origin (format "https://~a.fandom.com" wikiname))
+  (define source-url (format "~a/wiki/~a" origin prefixed-title))
+
+  (thread-let ([media-detail
+                (define dest-url
+                  (format "~a/wikia.php?~a"
+                          origin
+                          (params->query `(("format" . "json") ("controller" . "Lightbox")
+                                                               ("method" . "getMediaDetail")
+                                                               ("fileTitle" . ,prefixed-title)))))
+                (log-outgoing dest-url)
+                (define dest-res (easy:get dest-url #:timeouts timeouts))
+                (easy:response-json dest-res)]
+               [siteinfo (siteinfo-fetch wikiname)])
+              (if (not (jp "/exists" media-detail #f))
+                  (next-dispatcher)
+                  (response-handler
+                   (define file-title (jp "/fileTitle" media-detail ""))
+                   (define title
+                     (if (non-empty-string? file-title) (format "File:~a" file-title) prefixed-title))
+                   (define image-content-type
+                     (if (non-empty-string? (jp "/videoEmbedCode" media-detail ""))
+                         #f
+                         (url-content-type (jp "/imageUrl" media-detail))))
+                   (define body
+                     (generate-results-page #:source-url source-url
+                                            #:wikiname wikiname
+                                            #:title title
+                                            #:media-detail media-detail
+                                            #:image-content-type image-content-type
+                                            #:siteinfo siteinfo))
+                   (when (config-true? 'debug)
+                     ; used for its side effects
+                     ; convert to string with error checking, error will be raised if xexp is invalid
+                     (xexp->html body))
+                   (response/output #:code 200
+                                    #:headers (build-headers always-headers)
+                                    (λ (out) (write-html body out)))))))
+(module+ test
+  (parameterize ([(config-parameter 'strict_proxy) "true"])
+    (check-equal? (get-media-html "https://static.wikia.nocookie.net/a" "image/jpeg")
+                  `(img (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fa"))))
+    (check-equal? (get-media-html "https://static.wikia.nocookie.net/b" "audio/mp3")
+                  `(audio (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fb")
+                             (controls)))))
+  (parameterize ([(config-parameter 'strict_proxy) "no"])
+    (check-equal? (get-media-html "https://static.wikia.nocookie.net/c" "application/ogg")
+                  `(audio (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fc")
+                             (controls))))
+    (check-equal? (get-media-html "https://static.wikia.nocookie.net/d" "video/mp4")
+                  `(video (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fd")
+                             (controls)))))
+  (check-equal? (get-media-html "https://example.com" "who knows") `"")
+  (check-equal? (get-media-html "https://example.com" #f) `""))
+(module+ test
+  (parameterize ([(config-parameter 'strict_proxy) "true"])
+    (check-not-false
+     ((query-selector
+       (attribute-selector 'src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fexamplefile")
+       (generate-results-page #:source-url ""
+                              #:wikiname "test"
+                              #:title "File:Example file"
+                              #:media-detail test-media-detail
+                              #:image-content-type "image/jpeg"))))))

From 58d6a652d872610818c1cf3be903052785e4778e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 10 Oct 2022 21:59:02 +1300
Subject: [PATCH 045/166] Style tweaks to file page, add copyright notice

---
 src/page-file.rkt | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/src/page-file.rkt b/src/page-file.rkt
index 5c3f8965..e312e310 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -79,23 +79,24 @@
          (p ,(if (non-empty-string? video-embed-code)
                  `""
                  `(span (a (@ (href ,maybe-proxied-raw-image-url)) "View original file") ". "))
-            "Added by "
+            "Uploaded by "
             (a (@ (href ,(format "/~a/wiki/User:~a" wikiname username))) ,username)
-            "."
-            ,(if is-posted-in
-                 `(span " Posted in "
-                        ,@(map (λ (article)
-                                 (define page-path (jp "/title" article))
-                                 (define title (jp "/titleText" article page-path))
-                                 `(span ,(if (eq? (car smaller-article-list) article) "" ", ")
-                                        (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
-                                           ,title)))
-                               smaller-article-list)
-                        ,(if (eq? article-list-is-smaller 1) "…" "."))
-                 `""))
+            ".")
          ,(if (string? image-description)
               (update-tree-wiki (html->xexp (preprocess-html-wiki image-description)) wikiname)
-              ""))))
+              ; file license info might be displayed in the description, example: /lgbtqia/wiki/File:Rainbow_Flag1.svg
+              `(p "This file is likely protected by copyright. Consider the file's license and fair use law before reusing it."))
+         ,(if is-posted-in
+              `(p "This file is used in "
+                  ,@(map (λ (article)
+                           (define page-path (jp "/title" article))
+                           (define title (jp "/titleText" article page-path))
+                           `(span ,(if (eq? (car smaller-article-list) article) "" ", ")
+                                  (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
+                                     ,title)))
+                         smaller-article-list)
+                  ,(if (eq? article-list-is-smaller 1) "…" "."))
+              `""))))
 
 (define (page-file req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))

From 7a8a1cd40fed3b2a05730df37b6e81f8028bf05c Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 10 Oct 2022 22:52:35 +1300
Subject: [PATCH 046/166] Remove noscript versions of images

Script versions are likely better quality, and BreezeWiki makes them
viewable without requiring scripts anyway.
---
 src/page-wiki.rkt | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index effa40a0..07f2f817 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -51,6 +51,17 @@
                      (p "Another page link: "
                         (a (@ (data-test-wikilink) (href "https://test.fandom.com/wiki/Another_Page") (title "Another Page"))
                            "Another Page"))))
+           (figure (@ (class "thumb tnone"))
+                   (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image"))
+                      (img (@ (src "data:image/gif;base64,R0lGODlhAQABAIABAAAAAP///yH5BAEAAAEALAAAAAABAAEAQAICTAEAOw%3D%3D")
+                              (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
+                              (class "thumbimage lazyload"))))
+                   (noscript
+                    (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image"))
+                       (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
+                               (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
+                               (class "thumbimage")))))
+                   (figcaption "Test figure!"))
            (iframe (@ (src "https://example.com/iframe-src")))))))
 
 (define (preprocess-html-wiki html)
@@ -108,6 +119,15 @@
         `(a
           ((class "iframe-alternative") (href ,src))
           (,(format "Embedded media: ~a" src)))]
+       ; remove noscript versions of images because they are likely lower quality than the script versions
+       [(and (eq? element-type 'noscript)
+             (match children
+               ; either the noscript has a.image as a first child...
+               [(list (list 'a (list '@ a-att ...) _)) (has-class? "image" a-att)]
+               ; or the noscript has img as a first child
+               [(list (list 'img _)) #t]
+               [_ #f]))
+        return-no-element]
        [#t
         (list element-type
               ;; attributes
@@ -233,7 +253,9 @@
                                       ((query-selector
                                         (λ (t a c) (and (eq? t 'a) (has-class? "image-thumbnail" a)))
                                         transformed))))
-                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png"))
+                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png")
+  ; check that noscript images are removed
+  (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f))
 
 (define (page-wiki req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))

From 4968dc2a49bf0d2aa0c5ac941fe6a1df4901bac4 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 10 Oct 2022 22:54:05 +1300
Subject: [PATCH 047/166] strict proxy false in test as requested by blankie

---
 src/page-file.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/page-file.rkt b/src/page-file.rkt
index e312e310..a8a41a88 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -146,12 +146,12 @@
     (check-equal? (get-media-html "https://static.wikia.nocookie.net/b" "audio/mp3")
                   `(audio (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fb")
                              (controls)))))
-  (parameterize ([(config-parameter 'strict_proxy) "no"])
+  (parameterize ([(config-parameter 'strict_proxy) "false"])
     (check-equal? (get-media-html "https://static.wikia.nocookie.net/c" "application/ogg")
-                  `(audio (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fc")
+                  `(audio (@ (src "https://static.wikia.nocookie.net/c")
                              (controls))))
     (check-equal? (get-media-html "https://static.wikia.nocookie.net/d" "video/mp4")
-                  `(video (@ (src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fd")
+                  `(video (@ (src "https://static.wikia.nocookie.net/d")
                              (controls)))))
   (check-equal? (get-media-html "https://example.com" "who knows") `"")
   (check-equal? (get-media-html "https://example.com" #f) `""))

From 5b4efdd292d84028a4222c3592d86b547db96574 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 13 Oct 2022 22:40:14 +1300
Subject: [PATCH 048/166] Add a funny redirect that I can make use of later

---
 breezewiki.rkt          |  2 ++
 dist.rkt                |  2 ++
 src/dispatcher-tree.rkt |  1 +
 src/page-home.rkt       |  2 +-
 src/page-it-works.rkt   | 15 +++++++++++++++
 5 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 src/page-it-works.rkt

diff --git a/breezewiki.rkt b/breezewiki.rkt
index 3fc9b8fb..a8b8c288 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -12,6 +12,7 @@
 (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-it-works.rkt" page-it-works)
 (require-reloadable "src/page-not-found.rkt" page-not-found)
 (require-reloadable "src/page-proxy.rkt" page-proxy)
 (require-reloadable "src/page-redirect-wiki-home.rkt" redirect-wiki-home)
@@ -35,6 +36,7 @@
       page-category
       page-global-search
       page-home
+      page-it-works
       page-not-found
       page-proxy
       page-search
diff --git a/dist.rkt b/dist.rkt
index 805df48a..777e81ac 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -6,6 +6,7 @@
 (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-it-works.rkt" page-it-works))
 (require (only-in "src/page-not-found.rkt" page-not-found))
 (require (only-in "src/page-proxy.rkt" page-proxy))
 (require (only-in "src/page-redirect-wiki-home.rkt" redirect-wiki-home))
@@ -24,6 +25,7 @@
     page-category
     page-global-search
     page-home
+    page-it-works
     page-not-found
     page-proxy
     page-search
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index b68cf9c7..9e072bc8 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -44,6 +44,7 @@
               (pathprocedure:make "/" (hash-ref ds 'page-home))
               (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
               (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
+              (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
               (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
               (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
               (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index b16f66a1..86c316d1 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -49,7 +49,7 @@
                       ,(apply format "~a: ~a" x))))
             examples))
     (h2 "Testimonials")
-    (p (@ (class "testimonial")) ">So glad to never have to touch fandom's garbage platform directly ever again —RNL")
+    (p (@ (class "testimonial")) ">so glad someone introduced me to a F*ndom alternative (BreezeWiki) because that x-factorized spillway of an ad-infested radioactive dumpsite can go die in a fire —RB")
     (p (@ (class "testimonial")) ">you are so right that fandom still sucks even with adblock somehow. even zapping all the stupid padding it still sucks —Minimus")
     (p (@ (class "testimonial")) ">attempting to go to a wiki's forum page with breezewiki doesn't work, which is based honestly —Tom Skeleton")
     (p (@ (class "testimonial")) ">Fandom pages crashing and closing, taking forever to load and locking up as they load the ads on the site... they are causing the site to crash because they are trying to load video ads both at the top and bottom of the site as well as two or three banner ads, then a massive top of site ad and eventually my anti-virus shuts the whole site down because it's literally pulling more resources than WoW in ultra settings... —Anonymous")
diff --git a/src/page-it-works.rkt b/src/page-it-works.rkt
new file mode 100644
index 00000000..ce9e05f3
--- /dev/null
+++ b/src/page-it-works.rkt
@@ -0,0 +1,15 @@
+#lang racket/base
+(require racket/dict
+         net/url
+         web-server/http
+         web-server/dispatchers/dispatch
+         "application-globals.rkt")
+
+(provide
+ page-it-works)
+
+(define (page-it-works req)
+  (define b? (dict-ref (url-query (request-uri req)) 'b #f))
+  (if b?
+      (generate-redirect "/stampylongnose/wiki/It_Works")
+      (next-dispatcher)))

From 2e6fa6088b91cfc1a920cc42e5866f141e8cbe4d Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Mon, 3 Oct 2022 21:56:17 +0700
Subject: [PATCH 049/166] Proxy links with class image

Some images don't have an image-thumbnail class, for example:
https://breezewiki.pussthecat.org/minecraft/wiki/Enchanting%20Table#Usage
---
 src/page-wiki.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 07f2f817..6499a866 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -188,7 +188,8 @@
                        (λ (v)
                          (and (config-true? 'strict_proxy)
                               (eq? element-type 'a)
-                              (has-class? "image-thumbnail" v)))
+                              (or (has-class? "image-thumbnail" v)
+                                  (has-class? "image" v))))
                        (λ (v) (attribute-maybe-update 'href u-proxy-url v)))
                 ; proxy images from src attributes, if strict_proxy is set
                 (curry u

From 9c05e95f0797d17afca3e2ca04a096cfd73c697e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 13 Oct 2022 22:53:05 +1300
Subject: [PATCH 050/166] Test for proxy links with class image

---
 src/page-wiki.rkt | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 6499a866..488886fa 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -52,7 +52,7 @@
                         (a (@ (data-test-wikilink) (href "https://test.fandom.com/wiki/Another_Page") (title "Another Page"))
                            "Another Page"))))
            (figure (@ (class "thumb tnone"))
-                   (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image"))
+                   (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image") (data-test-figure-a))
                       (img (@ (src "data:image/gif;base64,R0lGODlhAQABAIABAAAAAP///yH5BAEAAAEALAAAAAABAAEAQAICTAEAOw%3D%3D")
                               (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
                               (class "thumbimage lazyload"))))
@@ -255,6 +255,11 @@
                                         (λ (t a c) (and (eq? t 'a) (has-class? "image-thumbnail" a)))
                                         transformed))))
                 "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png")
+  (check-equal? (get-attribute 'href (bits->attributes
+                                      ((query-selector
+                                        (λ (t a c) (member '(data-test-figure-a) a))
+                                        transformed))))
+                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png")
   ; check that noscript images are removed
   (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f))
 

From 722b0589cb7449a4c5dfe9badc724954dbd03f2e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 13 Oct 2022 22:54:46 +1300
Subject: [PATCH 051/166] Update minimum wikiname length to 1

Example: https://m.fandom.com/no/wiki/Forside
---
 src/url-utils.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/url-utils.rkt b/src/url-utils.rkt
index 10df0891..b70b245f 100644
--- a/src/url-utils.rkt
+++ b/src/url-utils.rkt
@@ -22,7 +22,7 @@
 (module+ test
   (require "typed-rackunit.rkt"))
 
-(define px-wikiname "[a-zA-Z0-9-]{3,50}")
+(define px-wikiname "[a-zA-Z0-9-]{1,50}")
 
 ;; https://url.spec.whatwg.org/#urlencoded-serializing
 

From 71705d6e7486f7cfce4e58a821d3e87372ec9e34 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Mon, 10 Oct 2022 17:04:11 +0700
Subject: [PATCH 052/166] Fix used in links that have a namespace in file pages

Example: /ben10/wiki/File:OS_Timespan.png
https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Title.php#L1266
---
 src/page-file.rkt | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/page-file.rkt b/src/page-file.rkt
index a8a41a88..1802568e 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -31,8 +31,7 @@
              (rawImageUrl . "https://static.wikia.nocookie.net/examplefile")
              (userName . "blankie")
              (isPostedIn . #t)
-             (smallerArticleList . (#hasheq((title . "Example_article")
-                                            (titleText . "Example article"))))
+             (smallerArticleList . (#hasheq((titleText . "Test:Example article"))))
              (articleListIsSmaller . 0)
              (exists . #t)
              (imageDescription . #f))))
@@ -89,8 +88,8 @@
          ,(if is-posted-in
               `(p "This file is used in "
                   ,@(map (λ (article)
-                           (define page-path (jp "/title" article))
-                           (define title (jp "/titleText" article page-path))
+                           (define title (jp "/titleText" article))
+                           (define page-path (regexp-replace* #rx" " title "_"))
                            `(span ,(if (eq? (car smaller-article-list) article) "" ", ")
                                   (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
                                      ,title)))

From 07db44e732ea0c114f18014544efb47ddc48caf8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 23 Oct 2022 00:26:06 +1300
Subject: [PATCH 053/166] Add search suggestions

---
 src/application-globals.rkt  | 16 +++++--
 src/page-static.rkt          |  1 +
 static/main.css              | 60 +++++++++++++++++++++++
 static/preact.js             | 21 ++++++++
 static/search-suggestions.js | 93 ++++++++++++++++++++++++++++++++++++
 5 files changed, 187 insertions(+), 4 deletions(-)
 create mode 100644 static/preact.js
 create mode 100644 static/search-suggestions.js

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 7f16bee7..937a8548 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -1,5 +1,6 @@
 #lang racket/base
 (require racket/string
+         json
          (prefix-in easy: net/http-easy)
          html-writing
          web-server/http
@@ -94,7 +95,11 @@
      ,@(map (λ (url)
               `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
             (required-styles (format "https://~a.fandom.com" wikiname)))
-     (link (@ (rel "stylesheet") (type "text/css") (href "/static/main.css"))))
+     (link (@ (rel "stylesheet") (type "text/css") (href "/static/main.css")))
+     (script "const BWData = "
+             ,(jsexpr->string (hasheq 'wikiname wikiname
+                                      'strict_proxy (config-true? 'strict_proxy))))
+     (script (@ (type "module") (src "/static/search-suggestions.js"))))
     (body (@ (class ,body-class))
           (div (@ (class "main-container"))
                (div (@ (class "fandom-community-header__background tileHorizontally header")))
@@ -103,9 +108,12 @@
                           (div (@ (class "custom-top"))
                                (h1 (@ (class "page-title")) ,title)
                                (nav (@ (class "sitesearch"))
-                                    (form (@ (action ,(format "/~a/search" wikiname)))
-                                          (label "Search "
-                                                 (input (@ (type "text") (name "q")))))))
+                                    (form (@ (action ,(format "/~a/search" wikiname))
+                                             (class "bw-search-form")
+                                             (id "bw-pr-search"))
+                                          (label (@ (for "bw-search-input")) "Search ")
+                                          (input (@ (type "text") (name "q") (id "bw-search-input") (autocomplete "off")))
+                                          (div (@ (class "bw-ss__container"))))))
                           (div (@ (id "content") #;(class "page-content"))
                                (div (@ (id "mw-content-text"))
                                     ,content))
diff --git a/src/page-static.rkt b/src/page-static.rkt
index e684c745..353a0f86 100644
--- a/src/page-static.rkt
+++ b/src/page-static.rkt
@@ -19,6 +19,7 @@
 
 (define hash-ext-mime-type
   (hash #".css" #"text/css"
+        #".js" #"text/javascript"
         #".png" #"image/png"
         #".svg" #"image/svg+xml"
         #".txt" #"text/plain"))
diff --git a/static/main.css b/static/main.css
index ba0eaadf..c773db78 100644
--- a/static/main.css
+++ b/static/main.css
@@ -225,6 +225,66 @@ figcaption, .lightbox-caption, .thumbcaption {
     margin-left: 1.2em;
 }
 
+/* (breezewiki) search suggestions */
+.bw-search-form {
+    display: grid;
+    grid-template-columns: auto 1fr;
+    grid-gap: 0px 5px;
+}
+.bw-ss__container {
+    grid-column: 2;
+    position: relative;
+}
+.bw-ss__list {
+    position: absolute;
+    left: 0;
+    right: 0;
+    list-style-type: none;
+    padding: 0;
+    margin: 0;
+    font-size: 14px;
+    background: white;
+    color: black;
+    border: solid #808080;
+    border-width: 0px 1px 1px;
+    box-shadow: 0px 2px 4px rgba(0, 0, 0, 0.5);
+    z-index: 99;
+
+    display: none;
+}
+.bw-ss__list--focus {
+    display: block;
+}
+.bw-ss__list--loading {
+    background: #c0c0c0;
+}
+.bw-ss__input--accepted {
+    background: #fffbc0;
+}
+.bw-ss__preview {
+    padding: 0px 2px;
+    font-style: italic;
+    color: #555;
+}
+.bw-ss__item {
+    display: grid; /* make buttons take the full size */
+}
+.bw-ss__item:hover {
+    background-color: #ddd;
+}
+.bw-ss__button {
+    appearance: none;
+    -moz-appearance: none;
+    border: none;
+    margin: 0;
+    line-height: inherit;
+    background: none;
+    font: inherit;
+    cursor: pointer;
+    padding: 0px 2px;
+    text-align: left;
+}
+
 /* media queries */
 
 /* for reference, cell phone screens are generally 400 px wide, definitely less than 500 px */
diff --git a/static/preact.js b/static/preact.js
new file mode 100644
index 00000000..0ba46a47
--- /dev/null
+++ b/static/preact.js
@@ -0,0 +1,21 @@
+// preact
+const {Component, Fragment, cloneElement, createContext, createElement, createRef, h, hydrate, isValidElement, options, render, toChildArray} = (function() {
+	var n,l,u,i,t,o,r,f = {},e = [],c = /acit|ex(?:s|g|n|p|$)|rph|grid|ows|mnc|ntw|ine[ch]|zoo|^ord|itera/i;function s(n, l) {for (var u in l) n[u] = l[u];return n;}function a(n) {var l = n.parentNode;l && l.removeChild(n);}function h(l, u, i) {var t,o,r,f = {};for (r in u) "key" == r ? t = u[r] : "ref" == r ? o = u[r] : f[r] = u[r];if (arguments.length > 2 && (f.children = arguments.length > 3 ? n.call(arguments, 2) : i), "function" == typeof l && null != l.defaultProps) for (r in l.defaultProps) void 0 === f[r] && (f[r] = l.defaultProps[r]);return v(l, f, t, o, null);}function v(n, i, t, o, r) {var f = { type: n, props: i, key: t, ref: o, __k: null, __: null, __b: 0, __e: null, __d: void 0, __c: null, __h: null, constructor: void 0, __v: null == r ? ++u : r };return null == r && null != l.vnode && l.vnode(f), f;}function y() {return { current: null };}function p(n) {return n.children;}function d(n, l) {this.props = n, this.context = l;}function _(n, l) {if (null == l) return n.__ ? _(n.__, n.__.__k.indexOf(n) + 1) : null;for (var u; l < n.__k.length; l++) if (null != (u = n.__k[l]) && null != u.__e) return u.__e;return "function" == typeof n.type ? _(n) : null;}function k(n) {var l, u;if (null != (n = n.__) && null != n.__c) {for (n.__e = n.__c.base = null, l = 0; l < n.__k.length; l++) if (null != (u = n.__k[l]) && null != u.__e) {n.__e = n.__c.base = u.__e;break;}return k(n);}}function b(n) {(!n.__d && (n.__d = !0) && t.push(n) && !g.__r++ || o !== l.debounceRendering) && ((o = l.debounceRendering) || setTimeout)(g);}function g() {for (var n; g.__r = t.length;) n = t.sort(function (n, l) {return n.__v.__b - l.__v.__b;}), t = [], n.some(function (n) {var l, u, i, t, o, r;n.__d && (o = (t = (l = n).__v).__e, (r = l.__P) && (u = [], (i = s({}, t)).__v = t.__v + 1, j(r, t, i, l.__n, void 0 !== r.ownerSVGElement, null != t.__h ? [o] : null, u, null == o ? _(t) : o, t.__h), z(u, t), t.__e != o && k(t)));});}function w(n, l, u, i, t, o, r, c, s, a) {var h,y,d,k,b,g,w,x = i && i.__k || e,C = x.length;for (u.__k = [], h = 0; h < l.length; h++) if (null != (k = u.__k[h] = null == (k = l[h]) || "boolean" == typeof k ? null : "string" == typeof k || "number" == typeof k || "bigint" == typeof k ? v(null, k, null, null, k) : Array.isArray(k) ? v(p, { children: k }, null, null, null) : k.__b > 0 ? v(k.type, k.props, k.key, k.ref ? k.ref : null, k.__v) : k)) {if (k.__ = u, k.__b = u.__b + 1, null === (d = x[h]) || d && k.key == d.key && k.type === d.type) x[h] = void 0;else for (y = 0; y < C; y++) {if ((d = x[y]) && k.key == d.key && k.type === d.type) {x[y] = void 0;break;}d = null;}j(n, k, d = d || f, t, o, r, c, s, a), b = k.__e, (y = k.ref) && d.ref != y && (w || (w = []), d.ref && w.push(d.ref, null, k), w.push(y, k.__c || b, k)), null != b ? (null == g && (g = b), "function" == typeof k.type && k.__k === d.__k ? k.__d = s = m(k, s, n) : s = A(n, k, d, x, b, s), "function" == typeof u.type && (u.__d = s)) : s && d.__e == s && s.parentNode != n && (s = _(d));}for (u.__e = g, h = C; h--;) null != x[h] && N(x[h], x[h]);if (w) for (h = 0; h < w.length; h++) M(w[h], w[++h], w[++h]);}function m(n, l, u) {for (var i, t = n.__k, o = 0; t && o < t.length; o++) (i = t[o]) && (i.__ = n, l = "function" == typeof i.type ? m(i, l, u) : A(u, i, i, t, i.__e, l));return l;}function x(n, l) {return l = l || [], null == n || "boolean" == typeof n || (Array.isArray(n) ? n.some(function (n) {x(n, l);}) : l.push(n)), l;}function A(n, l, u, i, t, o) {var r, f, e;if (void 0 !== l.__d) r = l.__d, l.__d = void 0;else if (null == u || t != o || null == t.parentNode) n: if (null == o || o.parentNode !== n) n.appendChild(t), r = null;else {for (f = o, e = 0; (f = f.nextSibling) && e < i.length; e += 2) if (f == t) break n;n.insertBefore(t, o), r = o;}return void 0 !== r ? r : t.nextSibling;}function C(n, l, u, i, t) {var o;for (o in u) "children" === o || "key" === o || o in l || H(n, o, null, u[o], i);for (o in l) t && "function" != typeof l[o] || "children" === o || "key" === o || "value" === o || "checked" === o || u[o] === l[o] || H(n, o, l[o], u[o], i);}function $(n, l, u) {"-" === l[0] ? n.setProperty(l, u) : n[l] = null == u ? "" : "number" != typeof u || c.test(l) ? u : u + "px";}function H(n, l, u, i, t) {var o;n: if ("style" === l) {if ("string" == typeof u) n.style.cssText = u;else {if ("string" == typeof i && (n.style.cssText = i = ""), i) for (l in i) u && l in u || $(n.style, l, "");if (u) for (l in u) i && u[l] === i[l] || $(n.style, l, u[l]);}} else if ("o" === l[0] && "n" === l[1]) o = l !== (l = l.replace(/Capture$/, "")), l = l.toLowerCase() in n ? l.toLowerCase().slice(2) : l.slice(2), n.l || (n.l = {}), n.l[l + o] = u, u ? i || n.addEventListener(l, o ? T : I, o) : n.removeEventListener(l, o ? T : I, o);else if ("dangerouslySetInnerHTML" !== l) {if (t) l = l.replace(/xlink(H|:h)/, "h").replace(/sName$/, "s");else if ("href" !== l && "list" !== l && "form" !== l && "tabIndex" !== l && "download" !== l && l in n) try {n[l] = null == u ? "" : u;break n;} catch (n) {}"function" == typeof u || (null == u || !1 === u && -1 == l.indexOf("-") ? n.removeAttribute(l) : n.setAttribute(l, u));}}function I(n) {this.l[n.type + !1](l.event ? l.event(n) : n);}function T(n) {this.l[n.type + !0](l.event ? l.event(n) : n);}function j(n, u, i, t, o, r, f, e, c) {var a,h,v,y,_,k,b,g,m,x,A,C,$,H,I,T = u.type;if (void 0 !== u.constructor) return null;null != i.__h && (c = i.__h, e = u.__e = i.__e, u.__h = null, r = [e]), (a = l.__b) && a(u);try {n: if ("function" == typeof T) {if (g = u.props, m = (a = T.contextType) && t[a.__c], x = a ? m ? m.props.value : a.__ : t, i.__c ? b = (h = u.__c = i.__c).__ = h.__E : ("prototype" in T && T.prototype.render ? u.__c = h = new T(g, x) : (u.__c = h = new d(g, x), h.constructor = T, h.render = O), m && m.sub(h), h.props = g, h.state || (h.state = {}), h.context = x, h.__n = t, v = h.__d = !0, h.__h = [], h._sb = []), null == h.__s && (h.__s = h.state), null != T.getDerivedStateFromProps && (h.__s == h.state && (h.__s = s({}, h.__s)), s(h.__s, T.getDerivedStateFromProps(g, h.__s))), y = h.props, _ = h.state, v) null == T.getDerivedStateFromProps && null != h.componentWillMount && h.componentWillMount(), null != h.componentDidMount && h.__h.push(h.componentDidMount);else {if (null == T.getDerivedStateFromProps && g !== y && null != h.componentWillReceiveProps && h.componentWillReceiveProps(g, x), !h.__e && null != h.shouldComponentUpdate && !1 === h.shouldComponentUpdate(g, h.__s, x) || u.__v === i.__v) {for (h.props = g, h.state = h.__s, u.__v !== i.__v && (h.__d = !1), h.__v = u, u.__e = i.__e, u.__k = i.__k, u.__k.forEach(function (n) {n && (n.__ = u);}), A = 0; A < h._sb.length; A++) h.__h.push(h._sb[A]);h._sb = [], h.__h.length && f.push(h);break n;}null != h.componentWillUpdate && h.componentWillUpdate(g, h.__s, x), null != h.componentDidUpdate && h.__h.push(function () {h.componentDidUpdate(y, _, k);});}if (h.context = x, h.props = g, h.__v = u, h.__P = n, C = l.__r, $ = 0, "prototype" in T && T.prototype.render) {for (h.state = h.__s, h.__d = !1, C && C(u), a = h.render(h.props, h.state, h.context), H = 0; H < h._sb.length; H++) h.__h.push(h._sb[H]);h._sb = [];} else do {h.__d = !1, C && C(u), a = h.render(h.props, h.state, h.context), h.state = h.__s;} while (h.__d && ++$ < 25);h.state = h.__s, null != h.getChildContext && (t = s(s({}, t), h.getChildContext())), v || null == h.getSnapshotBeforeUpdate || (k = h.getSnapshotBeforeUpdate(y, _)), I = null != a && a.type === p && null == a.key ? a.props.children : a, w(n, Array.isArray(I) ? I : [I], u, i, t, o, r, f, e, c), h.base = u.__e, u.__h = null, h.__h.length && f.push(h), b && (h.__E = h.__ = null), h.__e = !1;} else null == r && u.__v === i.__v ? (u.__k = i.__k, u.__e = i.__e) : u.__e = L(i.__e, u, i, t, o, r, f, c);(a = l.diffed) && a(u);} catch (n) {u.__v = null, (c || null != r) && (u.__e = e, u.__h = !!c, r[r.indexOf(e)] = null), l.__e(n, u, i);}}function z(n, u) {l.__c && l.__c(u, n), n.some(function (u) {try {n = u.__h, u.__h = [], n.some(function (n) {n.call(u);});} catch (n) {l.__e(n, u.__v);}});}function L(l, u, i, t, o, r, e, c) {var s,h,v,y = i.props,p = u.props,d = u.type,k = 0;if ("svg" === d && (o = !0), null != r) for (; k < r.length; k++) if ((s = r[k]) && "setAttribute" in s == !!d && (d ? s.localName === d : 3 === s.nodeType)) {l = s, r[k] = null;break;}if (null == l) {if (null === d) return document.createTextNode(p);l = o ? document.createElementNS("http://www.w3.org/2000/svg", d) : document.createElement(d, p.is && p), r = null, c = !1;}if (null === d) y === p || c && l.data === p || (l.data = p);else {if (r = r && n.call(l.childNodes), h = (y = i.props || f).dangerouslySetInnerHTML, v = p.dangerouslySetInnerHTML, !c) {if (null != r) for (y = {}, k = 0; k < l.attributes.length; k++) y[l.attributes[k].name] = l.attributes[k].value;(v || h) && (v && (h && v.__html == h.__html || v.__html === l.innerHTML) || (l.innerHTML = v && v.__html || ""));}if (C(l, p, y, o, c), v) u.__k = [];else if (k = u.props.children, w(l, Array.isArray(k) ? k : [k], u, i, t, o && "foreignObject" !== d, r, e, r ? r[0] : i.__k && _(i, 0), c), null != r) for (k = r.length; k--;) null != r[k] && a(r[k]);c || ("value" in p && void 0 !== (k = p.value) && (k !== l.value || "progress" === d && !k || "option" === d && k !== y.value) && H(l, "value", k, y.value, !1), "checked" in p && void 0 !== (k = p.checked) && k !== l.checked && H(l, "checked", k, y.checked, !1));}return l;}function M(n, u, i) {try {"function" == typeof n ? n(u) : n.current = u;} catch (n) {l.__e(n, i);}}function N(n, u, i) {var t, o;if (l.unmount && l.unmount(n), (t = n.ref) && (t.current && t.current !== n.__e || M(t, null, u)), null != (t = n.__c)) {if (t.componentWillUnmount) try {t.componentWillUnmount();} catch (n) {l.__e(n, u);}t.base = t.__P = null, n.__c = void 0;}if (t = n.__k) for (o = 0; o < t.length; o++) t[o] && N(t[o], u, i || "function" != typeof n.type);i || null == n.__e || a(n.__e), n.__ = n.__e = n.__d = void 0;}function O(n, l, u) {return this.constructor(n, u);}function P(u, i, t) {var o, r, e;l.__ && l.__(u, i), r = (o = "function" == typeof t) ? null : t && t.__k || i.__k, e = [], j(i, u = (!o && t || i).__k = h(p, null, [u]), r || f, f, void 0 !== i.ownerSVGElement, !o && t ? [t] : r ? null : i.firstChild ? n.call(i.childNodes) : null, e, !o && t ? t : r ? r.__e : i.firstChild, o), z(e, u);}function S(n, l) {P(n, l, S);}function q(l, u, i) {var t,o,r,f = s({}, l.props);for (r in u) "key" == r ? t = u[r] : "ref" == r ? o = u[r] : f[r] = u[r];return arguments.length > 2 && (f.children = arguments.length > 3 ? n.call(arguments, 2) : i), v(l.type, f, t || l.key, o || l.ref, null);}function B(n, l) {var u = { __c: l = "__cC" + r++, __: n, Consumer: function (n, l) {return n.children(l);}, Provider: function (n) {var u, i;return this.getChildContext || (u = [], (i = {})[l] = this, this.getChildContext = function () {return i;}, this.shouldComponentUpdate = function (n) {this.props.value !== n.value && u.some(b);}, this.sub = function (n) {u.push(n);var l = n.componentWillUnmount;n.componentWillUnmount = function () {u.splice(u.indexOf(n), 1), l && l.call(n);};}), n.children;} };return u.Provider.__ = u.Consumer.contextType = u;}n = e.slice, l = { __e: function (n, l, u, i) {for (var t, o, r; l = l.__;) if ((t = l.__c) && !t.__) try {if ((o = t.constructor) && null != o.getDerivedStateFromError && (t.setState(o.getDerivedStateFromError(n)), r = t.__d), null != t.componentDidCatch && (t.componentDidCatch(n, i || {}), r = t.__d), r) return t.__E = t;} catch (l) {n = l;}throw n;} }, u = 0, i = function (n) {return null != n && void 0 === n.constructor;}, d.prototype.setState = function (n, l) {var u;u = null != this.__s && this.__s !== this.state ? this.__s : this.__s = s({}, this.state), "function" == typeof n && (n = n(s({}, u), this.props)), n && s(u, n), null != n && this.__v && (l && this._sb.push(l), b(this));}, d.prototype.forceUpdate = function (n) {this.__v && (this.__e = !0, n && this.__h.push(n), b(this));}, d.prototype.render = p, t = [], g.__r = 0, r = 0;
+	return { Component: d, Fragment: p, cloneElement: q, createContext: B, createElement: h, createRef: y, h, hydrate: S, isValidElement: i, options: l, render: P, toChildArray: x };
+})();
+export { Component, Fragment, cloneElement, createContext, createElement, createRef, h, hydrate, isValidElement, options, render, toChildArray };
+
+// htm
+const htm = (function() {
+	var n = function (t, s, r, e) {var u;s[0] = 0;for (var h = 1; h < s.length; h++) {var p = s[h++],a = s[h] ? (s[0] |= p ? 1 : 2, r[s[h++]]) : s[++h];3 === p ? e[0] = a : 4 === p ? e[1] = Object.assign(e[1] || {}, a) : 5 === p ? (e[1] = e[1] || {})[s[++h]] = a : 6 === p ? e[1][s[++h]] += a + "" : p ? (u = t.apply(a, n(t, a, r, ["", null])), e.push(u), a[0] ? s[0] |= 2 : (s[h - 2] = 0, s[h] = u)) : e.push(a);}return e;},t = new Map();
+	return function (s) {var r = t.get(this);return r || (r = new Map(), t.set(this, r)), (r = n(this, r.get(s) || (r.set(s, r = function (n) {for (var t, s, r = 1, e = "", u = "", h = [0], p = function (n) {1 === r && (n || (e = e.replace(/^\s*\n\s*|\s*\n\s*$/g, ""))) ? h.push(0, n, e) : 3 === r && (n || e) ? (h.push(3, n, e), r = 2) : 2 === r && "..." === e && n ? h.push(4, n, 0) : 2 === r && e && !n ? h.push(5, 0, !0, e) : r >= 5 && ((e || !n && 5 === r) && (h.push(r, 0, e, s), r = 6), n && (h.push(r, n, 0, s), r = 6)), e = "";}, a = 0; a < n.length; a++) {a && (1 === r && p(), p(a));for (var l = 0; l < n[a].length; l++) t = n[a][l], 1 === r ? "<" === t ? (p(), h = [h], r = 3) : e += t : 4 === r ? "--" === e && ">" === t ? (r = 1, e = "") : e = t + e[0] : u ? t === u ? u = "" : e += t : '"' === t || "'" === t ? u = t : ">" === t ? (p(), r = 1) : r && ("=" === t ? (r = 5, s = e, e = "") : "/" === t && (r < 5 || ">" === n[a][l + 1]) ? (p(), 3 === r && (h = h[0]), r = h, (h = h[0]).push(2, 0, r), r = 0) : " " === t || "\t" === t || "\n" === t || "\r" === t ? (p(), r = 2) : e += t), 3 === r && "!--" === e && (r = 4, h = h[0]);}return p(), h;}(s)), r), arguments, [])).length > 1 ? r : r[0];}
+})();
+export {htm};
+
+// hooks
+const { useCallback, useContext, useDebugValue, useEffect, useErrorBoundary, useId, useImperativeHandle, useLayoutEffect, useMemo, useReducer, useState } = (function() {
+	var n = options;
+	var t,r,u,i,o = 0,f = [],c = [],e = n.__b,a = n.__r,v = n.diffed,l = n.__c,m = n.unmount;function d(t, u) {n.__h && n.__h(r, t, o || u), o = 0;var i = r.__H || (r.__H = { __: [], __h: [] });return t >= i.__.length && i.__.push({ __V: c }), i.__[t];}function p(n) {return o = 1, y(B, n);}function y(n, u, i) {var o = d(t++, 2);if (o.t = n, !o.__c && (o.__ = [i ? i(u) : B(void 0, u), function (n) {var t = o.__N ? o.__N[0] : o.__[0],r = o.t(t, n);t !== r && (o.__N = [r, o.__[1]], o.__c.setState({}));}], o.__c = r, !r.u)) {r.u = !0;var f = r.shouldComponentUpdate;r.shouldComponentUpdate = function (n, t, r) {if (!o.__c.__H) return !0;var u = o.__c.__H.__.filter(function (n) {return n.__c;});if (u.every(function (n) {return !n.__N;})) return !f || f.call(this, n, t, r);var i = !1;return u.forEach(function (n) {if (n.__N) {var t = n.__[0];n.__ = n.__N, n.__N = void 0, t !== n.__[0] && (i = !0);}}), !(!i && o.__c.props === n) && (!f || f.call(this, n, t, r));};}return o.__N || o.__;}function h(u, i) {var o = d(t++, 3);!n.__s && z(o.__H, i) && (o.__ = u, o.i = i, r.__H.__h.push(o));}function s(u, i) {var o = d(t++, 4);!n.__s && z(o.__H, i) && (o.__ = u, o.i = i, r.__h.push(o));}function _(n) {return o = 5, F(function () {return { current: n };}, []);}function A(n, t, r) {o = 6, s(function () {return "function" == typeof n ? (n(t()), function () {return n(null);}) : n ? (n.current = t(), function () {return n.current = null;}) : void 0;}, null == r ? r : r.concat(n));}function F(n, r) {var u = d(t++, 7);return z(u.__H, r) ? (u.__V = n(), u.i = r, u.__h = n, u.__V) : u.__;}function T(n, t) {return o = 8, F(function () {return n;}, t);}function q(n) {var u = r.context[n.__c],i = d(t++, 9);return i.c = n, u ? (null == i.__ && (i.__ = !0, u.sub(r)), u.props.value) : n.__;}function x(t, r) {n.useDebugValue && n.useDebugValue(r ? r(t) : t);}function P(n) {var u = d(t++, 10),i = p();return u.__ = n, r.componentDidCatch || (r.componentDidCatch = function (n, t) {u.__ && u.__(n, t), i[1](n);}), [i[0], function () {i[1](void 0);}];}function V() {var n = d(t++, 11);return n.__ || (n.__ = "P" + function (n) {for (var t = 0, r = n.length; r > 0;) t = (t << 5) - t + n.charCodeAt(--r) | 0;return t;}(r.__v.__m) + t), n.__;}function b() {for (var t; t = f.shift();) if (t.__P && t.__H) try {t.__H.__h.forEach(k), t.__H.__h.forEach(w), t.__H.__h = [];} catch (r) {t.__H.__h = [], n.__e(r, t.__v);}}n.__b = function (n) {"function" != typeof n.type || n.__m || null === n.__ ? n.__m || (n.__m = n.__ && n.__.__m ? n.__.__m : "") : n.__m = (n.__ && n.__.__m ? n.__.__m : "") + (n.__ && n.__.__k ? n.__.__k.indexOf(n) : 0), r = null, e && e(n);}, n.__r = function (n) {a && a(n), t = 0;var i = (r = n.__c).__H;i && (u === r ? (i.__h = [], r.__h = [], i.__.forEach(function (n) {n.__N && (n.__ = n.__N), n.__V = c, n.__N = n.i = void 0;})) : (i.__h.forEach(k), i.__h.forEach(w), i.__h = [])), u = r;}, n.diffed = function (t) {v && v(t);var o = t.__c;o && o.__H && (o.__H.__h.length && (1 !== f.push(o) && i === n.requestAnimationFrame || ((i = n.requestAnimationFrame) || j)(b)), o.__H.__.forEach(function (n) {n.i && (n.__H = n.i), n.__V !== c && (n.__ = n.__V), n.i = void 0, n.__V = c;})), u = r = null;}, n.__c = function (t, r) {r.some(function (t) {try {t.__h.forEach(k), t.__h = t.__h.filter(function (n) {return !n.__ || w(n);});} catch (u) {r.some(function (n) {n.__h && (n.__h = []);}), r = [], n.__e(u, t.__v);}}), l && l(t, r);}, n.unmount = function (t) {m && m(t);var r,u = t.__c;u && u.__H && (u.__H.__.forEach(function (n) {try {k(n);} catch (n) {r = n;}}), u.__H = void 0, r && n.__e(r, u.__v));};var g = "function" == typeof requestAnimationFrame;function j(n) {var t,r = function () {clearTimeout(u), g && cancelAnimationFrame(t), setTimeout(n);},u = setTimeout(r, 100);g && (t = requestAnimationFrame(r));}function k(n) {var t = r,u = n.__c;"function" == typeof u && (n.__c = void 0, u()), r = t;}function w(n) {var t = r;n.__c = n.__(), r = t;}function z(n, t) {return !n || n.length !== t.length || t.some(function (t, r) {return t !== n[r];});}function B(n, t) {return "function" == typeof t ? t(n) : t;}
+	return { useCallback: T, useContext: q, useDebugValue: x, useEffect: h, useErrorBoundary: P, useId: V, useImperativeHandle: A, useLayoutEffect: s, useMemo: F, useReducer: y, useRef: _, useState: p };
+})();
+export { useCallback, useContext, useDebugValue, useEffect, useErrorBoundary, useId, useImperativeHandle, useLayoutEffect, useMemo, useReducer, useState };
diff --git a/static/search-suggestions.js b/static/search-suggestions.js
new file mode 100644
index 00000000..b3d08040
--- /dev/null
+++ b/static/search-suggestions.js
@@ -0,0 +1,93 @@
+import {h, htm, render, useState, useEffect, createContext, useContext} from "./preact.js"
+const html = htm.bind(h)
+const classNames = classArr => classArr.filter(el => el).join(" ")
+
+const form = document.getElementById("bw-pr-search")
+
+const AcceptSuggestion = createContext(null)
+const hitsPromise = new Map()
+const hitsDone = new Set()
+
+function Suggestion(props) {
+	const acceptSuggestion = useContext(AcceptSuggestion)
+	return html`<li class="bw-ss__item"><button type="button" class="bw-ss__button" onClick=${() => acceptSuggestion(props)}>${props.title}</button></li>`
+}
+
+function fetchSuggestions(query, setSuggestions) {
+	if (query === "") query = "\0"
+	if (hitsPromise.has(query)) return hitsPromise.get(query)
+	const url = new URL(`https://${BWData.wikiname}.fandom.com/api.php`)
+	url.searchParams.set("action", "opensearch")
+	url.searchParams.set("format", "json")
+	url.searchParams.set("namespace", "0") // wiki namespace, 0 is default
+	url.searchParams.set("origin", "*") // mediawiki api cors
+	url.searchParams.set("search", query)
+	const sendUrl = BWData.strict_proxy
+			? "/proxy?" + new URLSearchParams({dest: url})
+			: url
+	const promise = fetch(sendUrl).then(res => res.json()).then(root => {
+		hitsDone.add(query)
+		return Array(root[1].length).fill().map((_, i) => ({
+			title: root[1][i],
+			url: root[3][i]
+		}))
+	})
+	hitsPromise.set(query, promise)
+	return promise
+}
+
+function SuggestionList(props) {
+	return html`
+<div class="bw-ss__container">
+	<ul class=${classNames(["bw-ss__list", props.focus && "bw-ss__list--focus", `bw-ss__list--${props.st}`])}>
+		${props.hits.map(hit => html`<${Suggestion} ...${hit} />`)}
+	</ul>
+</div>`
+}
+
+function ControlledInput() {
+	const [query, setQuery] = useState("")
+	const [focus, setFocus] = useState(false)
+	const [st, setSt] = useState("ready")
+	const [suggestions, setSuggestions] = useState([])
+
+	useEffect(() => {
+		if (st === "accepted") return
+		setSt("loading")
+		fetchSuggestions(query).then(s => {
+			setSuggestions(s)
+			if (hitsDone.size === hitsPromise.size) {
+				setSt("ready")
+			}
+		})
+	}, [query])
+
+	function acceptSuggestion(suggestion) {
+		setQuery(suggestion.title)
+		setSt("accepted")
+		const dest = new URL(suggestion.url).pathname.match("/wiki/.*")
+		location = `/${BWData.wikiname}${dest}`
+	}
+
+	useEffect(() => {
+		function listener(event) {
+			if (event.type === "focusin") setFocus(true)
+			else setFocus(false)
+		}
+		form.addEventListener("focusin", listener)
+		form.addEventListener("focusout", listener)
+		return () => {
+			form.removeEventListener("focusin", listener)
+			form.removeEventListener("focusout", listener)
+		}
+	})
+
+	return html`
+<${AcceptSuggestion.Provider} value=${acceptSuggestion}>
+	<label for="bw-search-input">Search </label>
+	<input type="text" name="q" id="bw-search-input" autocomplete="off" onInput=${e => setQuery(e.target.value)} value=${query} class=${classNames(["bw-ss__input", `bw-ss__input--${st}`])} />
+	<${SuggestionList} hits=${suggestions} focus=${focus} st=${st}/>
+</${AcceptSuggestion.Provider}`
+}
+
+render(html`<${ControlledInput} />`, form)

From e709b3cea55dbb485163a8034a943e92f2ef3826 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 23 Oct 2022 00:35:34 +1300
Subject: [PATCH 054/166] New configuration: feature_search_suggestions

Default true. Set this to false to disable search suggestions for the
whole instance.
---
 src/application-globals.rkt | 4 +++-
 src/config.rkt              | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 937a8548..f2d83e9b 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -99,7 +99,9 @@
      (script "const BWData = "
              ,(jsexpr->string (hasheq 'wikiname wikiname
                                       'strict_proxy (config-true? 'strict_proxy))))
-     (script (@ (type "module") (src "/static/search-suggestions.js"))))
+     ,(if (config-true? 'feature_search_suggestions)
+          '(script (@ (type "module") (src "/static/search-suggestions.js")))
+          ""))
     (body (@ (class ,body-class))
           (div (@ (class "main-container"))
                (div (@ (class "fandom-community-header__background tileHorizontally header")))
diff --git a/src/config.rkt b/src/config.rkt
index 6fc029ff..bc0cf6c7 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -34,6 +34,7 @@
   '((application_name . "BreezeWiki")
     (canonical_origin . "")
     (debug . "false")
+    (feature_search_suggestions . "true")
     (instance_is_official . "false") ; please don't turn this on, or you will make me very upset
     (log_outgoing . "true")
     (port . "10416")

From bf055836ccb0f7d716ecbe031baea829ebad3f78 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 24 Oct 2022 00:22:47 +1300
Subject: [PATCH 055/166] Add download wiki names script

---
 misc/download-wiki-names.rkt | 45 ++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 misc/download-wiki-names.rkt

diff --git a/misc/download-wiki-names.rkt b/misc/download-wiki-names.rkt
new file mode 100644
index 00000000..ff8fff97
--- /dev/null
+++ b/misc/download-wiki-names.rkt
@@ -0,0 +1,45 @@
+#lang racket/base
+(require racket/generator
+         racket/list
+         racket/string
+         json
+         net/http-easy
+         html-parsing
+         "src/xexpr-utils.rkt"
+         "src/url-utils.rkt")
+
+(define output-file "wiki-names.json")
+(define limit "5000")
+
+(define (get-page offset)
+  (define res (get (format "https://community.fandom.com/wiki/Special:NewWikis?~a"
+                           (params->query `(("offset" . ,offset)
+                                            ("limit" . ,limit))))))
+  (html->xexp (bytes->string/utf-8 (response-body res))))
+
+(define (convert-list-items gen)
+  (for/list ([item (in-producer gen #f)])
+    ; '(li "\n" "\t" (a (@ (href "http://terra-hexalis.fandom.com/")) "Terra Hexalis Wiki") "\n" "\t\t\ten\t")
+    (hasheq 'title (third (fourth item))
+            'link (second (second (second (fourth item))))
+            'lang (string-trim (sixth item)))))
+
+(define (get-items-recursive [offset ""] [items null])
+  (define page (get-page offset))
+  (define page-content ((query-selector (attribute-selector 'class "mw-spcontent") page)))
+  (define next ((query-selector (attribute-selector 'class "mw-nextlink") page-content)))
+  (define next-offset
+    (if next
+        (second (regexp-match #rx"offset=([0-9]*)" (get-attribute 'href (bits->attributes next))))
+        #f))
+  (define list-item-generator (query-selector (λ (e a c) (eq? e 'li)) page-content))
+  (define these-items (convert-list-items list-item-generator))
+  (define all-items (append items these-items))
+  (printf "page offset \"~a\" has ~a items (~a so far)~n" offset (length these-items) (length all-items))
+  (if next
+      (get-items-recursive next-offset all-items)
+      all-items))
+
+(call-with-output-file output-file #:exists 'truncate/replace
+  (λ (out)
+    (write-json (get-items-recursive) out)))

From d8d4e4375ed8f57639887dedd8e80cfd51cc71a7 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 24 Oct 2022 18:13:14 +1300
Subject: [PATCH 056/166] Fix imports in wiki name downloader

---
 misc/download-wiki-names.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/misc/download-wiki-names.rkt b/misc/download-wiki-names.rkt
index ff8fff97..96a8f9a1 100644
--- a/misc/download-wiki-names.rkt
+++ b/misc/download-wiki-names.rkt
@@ -5,8 +5,8 @@
          json
          net/http-easy
          html-parsing
-         "src/xexpr-utils.rkt"
-         "src/url-utils.rkt")
+         "../src/xexpr-utils.rkt"
+         "../src/url-utils.rkt")
 
 (define output-file "wiki-names.json")
 (define limit "5000")

From 3c7a2f84530e9015e1ca18f857b998ce79cc2e48 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 24 Oct 2022 18:13:54 +1300
Subject: [PATCH 057/166] Rewrite search suggestions module

---
 src/application-globals.rkt  |   7 +--
 static/main.css              |   2 +-
 static/preact.js             |  19 ++++++-
 static/search-suggestions.js | 100 +++++++++++++++++------------------
 4 files changed, 71 insertions(+), 57 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index f2d83e9b..91c7e5a0 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -112,10 +112,11 @@
                                (nav (@ (class "sitesearch"))
                                     (form (@ (action ,(format "/~a/search" wikiname))
                                              (class "bw-search-form")
-                                             (id "bw-pr-search"))
+                                             (id "bw-pr-search-form"))
                                           (label (@ (for "bw-search-input")) "Search ")
-                                          (input (@ (type "text") (name "q") (id "bw-search-input") (autocomplete "off")))
-                                          (div (@ (class "bw-ss__container"))))))
+                                          (div (@ (id "bw-pr-search-input"))
+                                               (input (@ (type "text") (name "q") (id "bw-search-input") (autocomplete "off"))))
+                                          (div (@ (class "bw-ss__container") (id "bw-pr-search-suggestions"))))))
                           (div (@ (id "content") #;(class "page-content"))
                                (div (@ (id "mw-content-text"))
                                     ,content))
diff --git a/static/main.css b/static/main.css
index c773db78..c4b6c209 100644
--- a/static/main.css
+++ b/static/main.css
@@ -269,7 +269,7 @@ figcaption, .lightbox-caption, .thumbcaption {
 .bw-ss__item {
     display: grid; /* make buttons take the full size */
 }
-.bw-ss__item:hover {
+.bw-ss__button:hover, .bw-ss__button:focus {
     background-color: #ddd;
 }
 .bw-ss__button {
diff --git a/static/preact.js b/static/preact.js
index 0ba46a47..77d872c2 100644
--- a/static/preact.js
+++ b/static/preact.js
@@ -13,9 +13,24 @@ const htm = (function() {
 export {htm};
 
 // hooks
-const { useCallback, useContext, useDebugValue, useEffect, useErrorBoundary, useId, useImperativeHandle, useLayoutEffect, useMemo, useReducer, useState } = (function() {
+const { useCallback, useContext, useDebugValue, useEffect, useErrorBoundary, useId, useImperativeHandle, useLayoutEffect, useMemo, useReducer, useRef, useState } = (function() {
 	var n = options;
 	var t,r,u,i,o = 0,f = [],c = [],e = n.__b,a = n.__r,v = n.diffed,l = n.__c,m = n.unmount;function d(t, u) {n.__h && n.__h(r, t, o || u), o = 0;var i = r.__H || (r.__H = { __: [], __h: [] });return t >= i.__.length && i.__.push({ __V: c }), i.__[t];}function p(n) {return o = 1, y(B, n);}function y(n, u, i) {var o = d(t++, 2);if (o.t = n, !o.__c && (o.__ = [i ? i(u) : B(void 0, u), function (n) {var t = o.__N ? o.__N[0] : o.__[0],r = o.t(t, n);t !== r && (o.__N = [r, o.__[1]], o.__c.setState({}));}], o.__c = r, !r.u)) {r.u = !0;var f = r.shouldComponentUpdate;r.shouldComponentUpdate = function (n, t, r) {if (!o.__c.__H) return !0;var u = o.__c.__H.__.filter(function (n) {return n.__c;});if (u.every(function (n) {return !n.__N;})) return !f || f.call(this, n, t, r);var i = !1;return u.forEach(function (n) {if (n.__N) {var t = n.__[0];n.__ = n.__N, n.__N = void 0, t !== n.__[0] && (i = !0);}}), !(!i && o.__c.props === n) && (!f || f.call(this, n, t, r));};}return o.__N || o.__;}function h(u, i) {var o = d(t++, 3);!n.__s && z(o.__H, i) && (o.__ = u, o.i = i, r.__H.__h.push(o));}function s(u, i) {var o = d(t++, 4);!n.__s && z(o.__H, i) && (o.__ = u, o.i = i, r.__h.push(o));}function _(n) {return o = 5, F(function () {return { current: n };}, []);}function A(n, t, r) {o = 6, s(function () {return "function" == typeof n ? (n(t()), function () {return n(null);}) : n ? (n.current = t(), function () {return n.current = null;}) : void 0;}, null == r ? r : r.concat(n));}function F(n, r) {var u = d(t++, 7);return z(u.__H, r) ? (u.__V = n(), u.i = r, u.__h = n, u.__V) : u.__;}function T(n, t) {return o = 8, F(function () {return n;}, t);}function q(n) {var u = r.context[n.__c],i = d(t++, 9);return i.c = n, u ? (null == i.__ && (i.__ = !0, u.sub(r)), u.props.value) : n.__;}function x(t, r) {n.useDebugValue && n.useDebugValue(r ? r(t) : t);}function P(n) {var u = d(t++, 10),i = p();return u.__ = n, r.componentDidCatch || (r.componentDidCatch = function (n, t) {u.__ && u.__(n, t), i[1](n);}), [i[0], function () {i[1](void 0);}];}function V() {var n = d(t++, 11);return n.__ || (n.__ = "P" + function (n) {for (var t = 0, r = n.length; r > 0;) t = (t << 5) - t + n.charCodeAt(--r) | 0;return t;}(r.__v.__m) + t), n.__;}function b() {for (var t; t = f.shift();) if (t.__P && t.__H) try {t.__H.__h.forEach(k), t.__H.__h.forEach(w), t.__H.__h = [];} catch (r) {t.__H.__h = [], n.__e(r, t.__v);}}n.__b = function (n) {"function" != typeof n.type || n.__m || null === n.__ ? n.__m || (n.__m = n.__ && n.__.__m ? n.__.__m : "") : n.__m = (n.__ && n.__.__m ? n.__.__m : "") + (n.__ && n.__.__k ? n.__.__k.indexOf(n) : 0), r = null, e && e(n);}, n.__r = function (n) {a && a(n), t = 0;var i = (r = n.__c).__H;i && (u === r ? (i.__h = [], r.__h = [], i.__.forEach(function (n) {n.__N && (n.__ = n.__N), n.__V = c, n.__N = n.i = void 0;})) : (i.__h.forEach(k), i.__h.forEach(w), i.__h = [])), u = r;}, n.diffed = function (t) {v && v(t);var o = t.__c;o && o.__H && (o.__H.__h.length && (1 !== f.push(o) && i === n.requestAnimationFrame || ((i = n.requestAnimationFrame) || j)(b)), o.__H.__.forEach(function (n) {n.i && (n.__H = n.i), n.__V !== c && (n.__ = n.__V), n.i = void 0, n.__V = c;})), u = r = null;}, n.__c = function (t, r) {r.some(function (t) {try {t.__h.forEach(k), t.__h = t.__h.filter(function (n) {return !n.__ || w(n);});} catch (u) {r.some(function (n) {n.__h && (n.__h = []);}), r = [], n.__e(u, t.__v);}}), l && l(t, r);}, n.unmount = function (t) {m && m(t);var r,u = t.__c;u && u.__H && (u.__H.__.forEach(function (n) {try {k(n);} catch (n) {r = n;}}), u.__H = void 0, r && n.__e(r, u.__v));};var g = "function" == typeof requestAnimationFrame;function j(n) {var t,r = function () {clearTimeout(u), g && cancelAnimationFrame(t), setTimeout(n);},u = setTimeout(r, 100);g && (t = requestAnimationFrame(r));}function k(n) {var t = r,u = n.__c;"function" == typeof u && (n.__c = void 0, u()), r = t;}function w(n) {var t = r;n.__c = n.__(), r = t;}function z(n, t) {return !n || n.length !== t.length || t.some(function (t, r) {return t !== n[r];});}function B(n, t) {return "function" == typeof t ? t(n) : t;}
 	return { useCallback: T, useContext: q, useDebugValue: x, useEffect: h, useErrorBoundary: P, useId: V, useImperativeHandle: A, useLayoutEffect: s, useMemo: F, useReducer: y, useRef: _, useState: p };
 })();
-export { useCallback, useContext, useDebugValue, useEffect, useErrorBoundary, useId, useImperativeHandle, useLayoutEffect, useMemo, useReducer, useState };
+export {useCallback, useContext, useDebugValue, useEffect, useErrorBoundary, useId, useImperativeHandle, useLayoutEffect, useMemo, useReducer, useRef, useState};
+
+// signals-core
+const {Signal, batch, computed, effect, signal} = (function() {
+	function i(){throw new Error("Cycle detected")}function t(){if(!(n>1)){var i,t=!1;while(void 0!==r){var h=r;r=void 0;s++;while(void 0!==h){var o=h.o;h.o=void 0;h.f&=-3;if(!(8&h.f)&&d(h))try{h.c()}catch(h){if(!t){i=h;t=!0}}h=o}}s=0;n--;if(t)throw i}else n--}function h(i){if(n>0)return i();n++;try{return i()}finally{t()}}var o=void 0,r=void 0,n=0,s=0,f=0;function v(i){if(void 0!==o){var t=i.n;if(void 0===t||t.t!==o){o.s=t={i:0,S:i,p:void 0,n:o.s,t:o,e:void 0,x:void 0,r:t};i.n=t;if(32&o.f)i.S(t);return t}else if(-1===t.i){t.i=0;if(void 0!==t.p){t.p.n=t.n;if(void 0!==t.n)t.n.p=t.p;t.p=void 0;t.n=o.s;o.s.p=t;o.s=t}return t}}}function e(i){this.v=i;this.i=0;this.n=void 0;this.t=void 0}e.prototype.h=function(){return!0};e.prototype.S=function(i){if(this.t!==i&&void 0===i.e){i.x=this.t;if(void 0!==this.t)this.t.e=i;this.t=i}};e.prototype.U=function(i){var t=i.e,h=i.x;if(void 0!==t){t.x=h;i.e=void 0}if(void 0!==h){h.e=t;i.x=void 0}if(i===this.t)this.t=h};e.prototype.subscribe=function(i){var t=this;return b(function(){var h=t.value,o=32&this.f;this.f&=-33;try{i(h)}finally{this.f|=o}})};e.prototype.valueOf=function(){return this.value};e.prototype.toString=function(){return this.value+""};e.prototype.peek=function(){return this.v};Object.defineProperty(e.prototype,"value",{get:function(){var i=v(this);if(void 0!==i)i.i=this.i;return this.v},set:function(h){if(h!==this.v){if(s>100)i();this.v=h;this.i++;f++;n++;try{for(var o=this.t;void 0!==o;o=o.x)o.t.N()}finally{t()}}}});function u(i){return new e(i)}function d(i){for(var t=i.s;void 0!==t;t=t.n)if(t.S.i!==t.i||!t.S.h()||t.S.i!==t.i)return!0;return!1}function c(i){for(var t=i.s;void 0!==t;t=t.n){var h=t.S.n;if(void 0!==h)t.r=h;t.S.n=t;t.i=-1}}function a(i){var t=i.s,h=void 0;while(void 0!==t){var o=t.n;if(-1===t.i){t.S.U(t);t.n=void 0}else{if(void 0!==h)h.p=t;t.p=void 0;t.n=h;h=t}t.S.n=t.r;if(void 0!==t.r)t.r=void 0;t=o}i.s=h}function l(i){e.call(this,void 0);this.x=i;this.s=void 0;this.g=f-1;this.f=4}(l.prototype=new e).h=function(){this.f&=-3;if(1&this.f)return!1;if(32==(36&this.f))return!0;this.f&=-5;if(this.g===f)return!0;this.g=f;this.f|=1;if(this.i>0&&!d(this)){this.f&=-2;return!0}var i=o;try{c(this);o=this;var t=this.x();if(16&this.f||this.v!==t||0===this.i){this.v=t;this.f&=-17;this.i++}}catch(i){this.v=i;this.f|=16;this.i++}o=i;a(this);this.f&=-2;return!0};l.prototype.S=function(i){if(void 0===this.t){this.f|=36;for(var t=this.s;void 0!==t;t=t.n)t.S.S(t)}e.prototype.S.call(this,i)};l.prototype.U=function(i){e.prototype.U.call(this,i);if(void 0===this.t){this.f&=-33;for(var t=this.s;void 0!==t;t=t.n)t.S.U(t)}};l.prototype.N=function(){if(!(2&this.f)){this.f|=6;for(var i=this.t;void 0!==i;i=i.x)i.t.N()}};l.prototype.peek=function(){if(!this.h())i();if(16&this.f)throw this.v;return this.v};Object.defineProperty(l.prototype,"value",{get:function(){if(1&this.f)i();var t=v(this);this.h();if(void 0!==t)t.i=this.i;if(16&this.f)throw this.v;return this.v}});function w(i){return new l(i)}function y(i){var h=i.u;i.u=void 0;if("function"==typeof h){n++;var r=o;o=void 0;try{h()}catch(t){i.f&=-2;i.f|=8;_(i);throw t}finally{o=r;t()}}}function _(i){for(var t=i.s;void 0!==t;t=t.n)t.S.U(t);i.x=void 0;i.s=void 0;y(i)}function g(i){if(o!==this)throw new Error("Out-of-order effect");a(this);o=i;this.f&=-2;if(8&this.f)_(this);t()}function p(i){this.x=i;this.u=void 0;this.s=void 0;this.o=void 0;this.f=32}p.prototype.c=function(){var i=this.S();try{if(!(8&this.f)&&void 0!==this.x)this.u=this.x()}finally{i()}};p.prototype.S=function(){if(1&this.f)i();this.f|=1;this.f&=-9;y(this);c(this);n++;var t=o;o=this;return g.bind(this,t)};p.prototype.N=function(){if(!(2&this.f)){this.f|=2;this.o=r;r=this}};p.prototype.d=function(){this.f|=8;if(!(1&this.f))_(this)};function b(i){var t=new p(i);t.c();return t.d.bind(t)}
+	return {Signal: e, batch: h, computed: w, effect: b, signal: u};
+})();
+export {Signal, batch, computed, effect, signal};
+
+// signals
+const {useComputed, useSignal, useSignalEffect} = (function() {
+	var n = Component, i = options, r = useMemo, t = useRef, f = useEffect, o = Signal, e = computed, u = signal, a = effect;
+	var c,v;function s(n,r){i[n]=r.bind(null,i[n]||function(){})}function l(n){if(v)v();v=n&&n.S()}function p(n){var i=this,t=n.data,f=useSignal(t);f.value=t;var o=r(function(){var n=i.__v;while(n=n.__)if(n.__c){n.__c.__$f|=4;break}i.__$u.c=function(){i.base.data=o.peek()};return e(function(){var n=f.value.value;return 0===n?0:!0===n?"":n||""})},[]);return o.value}p.displayName="_st";Object.defineProperties(o.prototype,{constructor:{configurable:!0},type:{configurable:!0,value:p},props:{configurable:!0,get:function(){return{data:this}}},__b:{configurable:!0,value:1}});s("__b",function(n,i){if("string"==typeof i.type){var r,t=i.props;for(var f in t)if("children"!==f){var e=t[f];if(e instanceof o){if(!r)i.__np=r={};r[f]=e;t[f]=e.peek()}}}n(i)});s("__r",function(n,i){l();var r,t=i.__c;if(t){t.__$f&=-2;if(void 0===(r=t.__$u))t.__$u=r=function(n){var i;a(function(){i=this});i.c=function(){t.__$f|=1;t.setState({})};return i}()}c=t;l(r);n(i)});s("__e",function(n,i,r,t){l();c=void 0;n(i,r,t)});s("diffed",function(n,i){l();c=void 0;var r;if("string"==typeof i.type&&(r=i.__e)){var t=i.__np,f=i.props;if(t){var o=r.U;if(o)for(var e in o){var u=o[e];if(void 0!==u&&!(e in t)){u.d();o[e]=void 0}}else r.U=o={};for(var a in t){var v=o[a],s=t[a];if(void 0===v){v=d(r,a,s,f);o[a]=v}else v.o(s,f)}}}n(i)});function d(n,i,r,t){var f=i in n&&void 0===n.ownerSVGElement,o=u(r);return{o:function(n,i){o.value=n;t=i},d:a(function(){var r=o.value.value;if(t[i]!==r){t[i]=r;if(f)n[i]=r;else if(r)n.setAttribute(i,r);else n.removeAttribute(i)}})}}s("unmount",function(n,i){if("string"==typeof i.type){var r=i.__e;if(r){var t=r.U;if(t){r.U=void 0;for(var f in t){var o=t[f];if(o)o.d()}}}}else{var e=i.__c;if(e){var u=e.__$u;if(u){e.__$u=void 0;u.d()}}}n(i)});s("__h",function(n,i,r,t){if(t<3)i.__$f|=2;n(i,r,t)});n.prototype.shouldComponentUpdate=function(n,i){var r=this.__$u;if(!(r&&void 0!==r.s||4&this.__$f))return!0;if(3&this.__$f)return!0;for(var t in i)return!0;for(var f in n)if("__source"!==f&&n[f]!==this.props[f])return!0;for(var o in this.props)if(!(o in n))return!0;return!1};function useSignal(n){return r(function(){return u(n)},[])}function useComputed(n){var i=t(n);i.current=n;c.__$f|=4;return r(function(){return e(function(){return i.current()})},[])}function useSignalEffect(n){var i=t(n);i.current=n;f(function(){return a(function(){i.current()})},[])}
+	return {useComputed, useSignal, useSignalEffect}
+})();
+export {useComputed, useSignal, useSignalEffect};
diff --git a/static/search-suggestions.js b/static/search-suggestions.js
index b3d08040..1a9a3d3e 100644
--- a/static/search-suggestions.js
+++ b/static/search-suggestions.js
@@ -1,17 +1,20 @@
-import {h, htm, render, useState, useEffect, createContext, useContext} from "./preact.js"
+import {h, htm, render, useState, useEffect, createContext, useContext, signal, computed, effect} from "./preact.js"
 const html = htm.bind(h)
 const classNames = classArr => classArr.filter(el => el).join(" ")
 
-const form = document.getElementById("bw-pr-search")
+const eForm = document.getElementById("bw-pr-search-form")
+const eInput = document.getElementById("bw-pr-search-input")
+const eSuggestions = document.getElementById("bw-pr-search-suggestions")
 
-const AcceptSuggestion = createContext(null)
 const hitsPromise = new Map()
 const hitsDone = new Set()
 
-function Suggestion(props) {
-	const acceptSuggestion = useContext(AcceptSuggestion)
-	return html`<li class="bw-ss__item"><button type="button" class="bw-ss__button" onClick=${() => acceptSuggestion(props)}>${props.title}</button></li>`
-}
+const query = signal("")
+const focus = signal(false)
+const st = signal("ready")
+const suggestions = signal([])
+
+// processing functions
 
 function fetchSuggestions(query, setSuggestions) {
 	if (query === "") query = "\0"
@@ -36,58 +39,53 @@ function fetchSuggestions(query, setSuggestions) {
 	return promise
 }
 
-function SuggestionList(props) {
-	return html`
-<div class="bw-ss__container">
-	<ul class=${classNames(["bw-ss__list", props.focus && "bw-ss__list--focus", `bw-ss__list--${props.st}`])}>
-		${props.hits.map(hit => html`<${Suggestion} ...${hit} />`)}
-	</ul>
-</div>`
+function acceptSuggestion(hit) {
+	st.value = "accepted"
+	query.value = hit.title
+	const dest = new URL(hit.url).pathname.match("/wiki/.*")
+	location = `/${BWData.wikiname}${dest}`
 }
 
-function ControlledInput() {
-	const [query, setQuery] = useState("")
-	const [focus, setFocus] = useState(false)
-	const [st, setSt] = useState("ready")
-	const [suggestions, setSuggestions] = useState([])
+// suggestion list view
 
-	useEffect(() => {
-		if (st === "accepted") return
-		setSt("loading")
-		fetchSuggestions(query).then(s => {
-			setSuggestions(s)
-			if (hitsDone.size === hitsPromise.size) {
-				setSt("ready")
-			}
-		})
-	}, [query])
+function Suggestion(hit) {
+	return html`<li class="bw-ss__item"><button type="button" class="bw-ss__button" onClick=${() => acceptSuggestion(hit)}>${hit.title}</button></li>`
+}
 
-	function acceptSuggestion(suggestion) {
-		setQuery(suggestion.title)
-		setSt("accepted")
-		const dest = new URL(suggestion.url).pathname.match("/wiki/.*")
-		location = `/${BWData.wikiname}${dest}`
-	}
+function SuggestionList() {
+	return html`
+<ul class=${classNames(["bw-ss__list", focus.value && "bw-ss__list--focus", `bw-ss__list--${st.value}`])}>
+	${suggestions.value.map(hit => html`<${Suggestion} ...${hit} />`)}
+</ul>`
+}
 
-	useEffect(() => {
-		function listener(event) {
-			if (event.type === "focusin") setFocus(true)
-			else setFocus(false)
-		}
-		form.addEventListener("focusin", listener)
-		form.addEventListener("focusout", listener)
-		return () => {
-			form.removeEventListener("focusin", listener)
-			form.removeEventListener("focusout", listener)
+render(html`<${SuggestionList} />`, eSuggestions)
+
+// input view
+
+effect(() => {
+	if (st.peek() === "accepted") return // lock results from changing during navigation
+	st.value = "loading"
+	fetchSuggestions(query.value).then(res => {
+		suggestions.value = res
+		if (hitsDone.size === hitsPromise.size) {
+			st.value = "ready"
 		}
 	})
+})
 
+document.addEventListener("pageshow", () => {
+	st.value = "ready" // unlock results from changing after returning to page
+})
+
+function SuggestionInput() {
 	return html`
-<${AcceptSuggestion.Provider} value=${acceptSuggestion}>
-	<label for="bw-search-input">Search </label>
-	<input type="text" name="q" id="bw-search-input" autocomplete="off" onInput=${e => setQuery(e.target.value)} value=${query} class=${classNames(["bw-ss__input", `bw-ss__input--${st}`])} />
-	<${SuggestionList} hits=${suggestions} focus=${focus} st=${st}/>
-</${AcceptSuggestion.Provider}`
+<input type="text" name="q" id="bw-search-input" autocomplete="off" onInput=${e => query.value = e.target.value} value=${query.value} class=${classNames(["bw-ss__input", `bw-ss__input--${st.value}`])} />`
 }
 
-render(html`<${ControlledInput} />`, form)
+render(html`<${SuggestionInput} />`, eInput)
+
+// form focus
+
+eForm.addEventListener("focusin", () => focus.value = true)
+eForm.addEventListener("focusout", () => focus.value = false)

From 8b200d621ab6fa4081ba81fe6bd1eed66fd6a4b5 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 30 Oct 2022 23:15:26 +1300
Subject: [PATCH 058/166] Link out to NIWA's wikis where available

---
 src/application-globals.rkt |  35 +++++++-
 src/niwa-data.rkt           | 156 ++++++++++++++++++++++++++++++++++++
 src/page-home.rkt           |  13 +--
 static/main.css             |  59 ++++++++++++++
 4 files changed, 256 insertions(+), 7 deletions(-)
 create mode 100644 src/niwa-data.rkt

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 91c7e5a0..55dfddcc 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -1,11 +1,14 @@
 #lang racket/base
-(require racket/string
+(require racket/list
+         racket/string
          json
          (prefix-in easy: net/http-easy)
          html-writing
          web-server/http
          "config.rkt"
          "data.rkt"
+         "niwa-data.rkt"
+         "pure-utils.rkt"
          "xexpr-utils.rkt"
          "url-utils.rkt")
 
@@ -62,6 +65,35 @@
                               " Media files and official Fandom documents have different copying restrictions.")
                            (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))))))
 
+;; generate a notice with a link if a fandom wiki has a replacement as part of NIWA or similar
+;; if the wiki has no replacement, display nothing
+(define (niwa-notice wikiname title)
+  (define ind (findf (λ (item) (member wikiname (first item))) niwa-data))
+  (if ind
+      (let* ([search-page (format "/Special:Search?~a"
+                                  (params->query `(("search" . ,title)
+                                                   ("go" . "Go"))))]
+             [go (if (string-suffix? (third ind) "/")
+                     (regexp-replace "/$" (third ind) (λ (_) search-page))
+                     (let* ([_ (println (regexp-match "/(w[^./]*)/" (third ind)))] [joiner (second (regexp-match "/(w[^./]*)/" (third ind)))])
+                       (regexp-replace "/w[^./]*/.*$" (third ind) (λ (_) (format "/~a~a" joiner search-page)))))])
+        `(aside (@ (class "niwa__notice"))
+                (h1 (@ (class "niwa__header")) ,(second ind) " has its own website separate from Fandom.")
+                (a (@ (class "niwa__go") (href ,go)) "Read " ,title " on " ,(second ind) " →")
+                (div (@ (class "niwa__cols"))
+                     (div (@ (class "niwa__left"))
+                          (p "Most major Nintendo wikis are part of the "
+                             (a (@ (href "https://www.niwanetwork.org/about/")) "Nintendo Independent Wiki Alliance")
+                             " and have their own wikis off Fandom. You can help this wiki by "
+                             (a (@ (href ,go)) "visiting it directly."))
+                          (p ,(fifth ind))
+                          (div (@ (class "niwa__divider")))
+                          (p "Why are you seeing this message? Fandom refuses to delete or archive their copy of this wiki, so that means their pages will appear high up in search results. Fandom hopes to get clicks from readers who don't know any better.")
+                          (p (@ (class "niwa__feedback")) (a (@ (href "https://www.kotaku.com.au/2022/10/massive-zelda-wiki-reclaims-independence-six-months-before-tears-of-the-kingdom/")) "More info") " / " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "Feedback on this notice?")))
+                     (div (@ (class "niwa__right"))
+                          (img (@ (class "niwa__logo") (src ,(format "https://www.niwanetwork.org~a" (fourth ind)))))))))
+      ""))
+
 (define (generate-wiki-page
          content
          #:source-url source-url
@@ -107,6 +139,7 @@
                (div (@ (class "fandom-community-header__background tileHorizontally header")))
                (div (@ (class "page"))
                     (main (@ (class "page__main"))
+                          ,(niwa-notice wikiname title)
                           (div (@ (class "custom-top"))
                                (h1 (@ (class "page-title")) ,title)
                                (nav (@ (class "sitesearch"))
diff --git a/src/niwa-data.rkt b/src/niwa-data.rkt
new file mode 100644
index 00000000..24279d6d
--- /dev/null
+++ b/src/niwa-data.rkt
@@ -0,0 +1,156 @@
+#lang racket/base
+
+(provide
+ niwa-data)
+
+;; wikiname, niwa-name, url, logo-url
+(define niwa-data
+  '((("arms" "armsgame")
+     "ARMS Institute"
+     "https://armswiki.org/wiki/Home"
+     "/images/logos/armswiki.png"
+     "ARMS Institute is a comprehensive resource for information about the Nintendo Switch game, ARMS. Founded on May 1, 2017 and growing rapidly, the wiki strives to offer in-depth coverage of ARMS from both a competitive and casual perspective. Join us and ARM yourself with knowledge!")
+    (("pokemon" "monster")
+     "Bulbapedia"
+     "https://bulbapedia.bulbagarden.net/wiki/Main_Page"
+     "/images/logos/bulbapedia.png"
+     "A part of the Bulbagarden community, Bulbapedia was founded on December 21, 2004 by Liam Pomfret. Everything you need to know about Pokémon can be found at Bulbapedia, whether about the games, the anime, the manga, or something else entirely. With its Bulbanews section and the Bulbagarden forums, it's your one-stop online place for Pokémon.")
+    (("dragalialost")
+     "Dragalia Lost Wiki"
+     "https://dragalialost.wiki/w/Dragalia_Lost_Wiki"
+     "/images/logos/dragalialost.png"
+     "The Dragalia Lost Wiki was originally founded in September 2018 on the Gamepedia platform but went independent in January 2021. The Wiki aims to document anything and everything Dragalia Lost, from in-game data to mechanics, story, guides, and more!")
+    (("dragonquest")
+     "Dragon Quest Wiki"
+     "https://dragon-quest.org/wiki/Main_Page"
+     "/images/logos/dragonquestwiki.png"
+     "Originally founded on Wikia, the Dragon Quest Wiki was largely inactive until FlyingRagnar became an admin in late 2009. The wiki went independent about a year later when it merged with the Dragon Quest Dictionary/Encyclopedia which was run by Zenithian and supported by the Dragon's Den.  The Dragon Quest Wiki aims to be the most complete resource for Dragon Quest information on the web. It continues to grow in the hope that one day the series will be as popular in the rest of the world as it is in Japan.")
+    (("fireemblem")
+     "Fire Emblem Wiki"
+     "https://fireemblemwiki.org/wiki/Main_Page"
+     "/images/logos/fireemblemwiki.png"
+     "Growing since August 26, 2010, Fire Emblem Wiki is a project whose goal is to cover all information pertaining to the Fire Emblem series. It aspires to become the most complete and accurate independent source of information on this series.")
+    (("fzero" "f-zero")
+     "F-Zero Wiki"
+     "https://mutecity.org/wiki/F-Zero_Wiki"
+     "/images/logos/fzerowiki.png"
+     "Founded on Wikia in November 2007, F-Zero Wiki became independent with NIWA's help in 2011. F-Zero Wiki is quickly growing into the Internet's definitive source for the world of 2200 km/h+, from pilots to machines, and is the founding part of MuteCity.org, the web's first major F-Zero community.")
+    (("goldensun")
+     "Golden Sun Universe"
+     "https://www.goldensunwiki.net/wiki/Main_Page"
+     "/images/logos/goldensununiverse.png"
+     "Originally founded on Wikia in late 2006, Golden Sun Universe has always worked hard to meet one particular goal: to be the single most comprehensive yet accessible resource on the Internet for Nintendo's RPG series Golden Sun. It became an independent wiki four years later. Covering characters and plot, documenting all aspects of the gameplay, featuring walkthroughs both thorough and bare-bones, and packed with all manner of odd and fascinating minutiae, Golden Sun Universe leaves no stone unturned!")
+    (("tetris")
+     "Hard Drop - Tetris Wiki"
+     "https://harddrop.com/wiki/Main_Page"
+     "/images/logos/harddrop.png"
+     "The Tetris Wiki was founded by Tetris fans for Tetris fans on tetrisconcept.com in March 2006. The Tetris Wiki torch was passed to harddrop.com in July 2009. Hard Drop is a Tetris community for all Tetris players, regardless of skill or what version of Tetris you play.")
+    (("kidicarus")
+     "Icaruspedia"
+     "https://www.kidicaruswiki.org/wiki/Main_Page"
+     "/images/logos/icaruspedia.png"
+     "Icaruspedia is the Kid Icarus wiki that keeps flying to new heights. After going independent on January 8, 2012, Icaruspedia has worked to become the largest and most trusted independent source of Kid Icarus information. Just like Pit, they\"ll keep on fighting until the job is done.")
+    (("splatoon" "uk-splatoon" "splatoon3" "splatoon2")
+     "Inkipedia"
+     "https://splatoonwiki.org/wiki/Main_Page"
+     "/images/logos/inkipedia.png"
+     "Inkipedia is your ever-growing go-to source for all things Splatoon related. Though founded on Wikia on June 10, 2014, Inkipedia went independent on May 18, 2015, just days before Splatoon's release. Our aim is to cover all aspects of the series, both high and low. Come splat with us now!")
+    (("starfox")
+     "Lylat Wiki"
+     "https://starfoxwiki.info/wiki/Lylat_Wiki"
+     "/images/logos/lylatwiki.png"
+     "Out of seemingly nowhere, Lylat Wiki sprung up one day in early 2010. Led by creator, Justin Folvarcik, and project head, Tacopill, the wiki has reached stability since the move to its own domain. The staff of Lylat Wiki are glad to help out the NIWA wikis and are even prouder to join NIWA's ranks as the source for information on the Star Fox series.")
+    (("metroid" "themetroid")
+     "Metroid Wiki"
+     "https://www.metroidwiki.org/wiki/Main_Page"
+     "/images/logos/metroidwiki.png"
+     "Metroid Wiki, founded on January 27, 2010 by Nathanial Rumphol-Janc and Zelda Informer, is a rapidly expanding wiki that covers everything Metroid, from the games, to every suit, vehicle and weapon.")
+    (("nintendo" "nintendoseries" "nintendogames")
+     "Nintendo Wiki"
+     "http://niwanetwork.org/wiki/Main_Page"
+     "/images/logos/nintendowiki.png"
+     "Created on May 12, 2010, NintendoWiki (N-Wiki) is a collaborative project by the NIWA team to create an encyclopedia dedicated to Nintendo, being the company around which all other NIWA content is focused. It ranges from mainstream information such as the games and people who work for the company, to the most obscure info like patents and interesting trivia.")
+    (("animalcrossing" "animalcrossingcf" "acnh")
+     "Nookipedia"
+     "https://nookipedia.com/wiki/Main_Page"
+     "/images/logos/nookipedia.png"
+     "Founded in August 2005 on Wikia, Nookipedia was originally known as Animal Crossing City. Shortly after its five-year anniversary, Animal Crossing City decided to merge with the independent Animal Crossing Wiki, which in January 2011 was renamed to Nookipedia. Covering everything from the series including characters, items, critters, and much more, Nookipedia is your number one resource for everything Animal Crossing!")
+    (("pikmin")
+     "Pikipedia"
+     "https://www.pikminwiki.com/"
+     "/images/logos/pikipedia.png"
+     "Pikipedia, also known as Pikmin Wiki, was founded by Dark Lord Revan on Wikia in December 2005. In September 2010, with NIWA's help, Pikipedia moved away from Wikia to become independent. Pikipedia is working towards their goal of being the foremost source for everything Pikmin.")
+    (("pikmin-fan" "pikpikpedia")
+     "Pimkin Fanon"
+     "https://www.pikminfanon.com/wiki/Main_Page"
+     "/images/logos/pikifanon.png"
+     "Pikmin Fanon is a Pikmin wiki for fan stories (fanon). Founded back on November 1, 2008 by Rocky0718 as a part of Wikia, Pikmin Fanon has been independent since September 14, 2010. Check them out for fan created stories based around the Pikmin series.")
+    (("supersmashbros")
+     "SmashWiki"
+     "https://www.ssbwiki.com/"
+     "/images/logos/smashwiki.png"
+     "Originally two separate wikis (one on SmashBoards, the other on Wikia), SmashWiki as we know it was formed out of a merge on February 29th, 2008, becoming independent on September 28th, 2010. SmashWiki is the premier source of Smash Bros. information, from simple tidbits to detailed mechanics, and also touches on the origins of its wealth of content from its sibling franchises.")
+    (("starfy")
+     "Starfy Wiki"
+     "https://www.starfywiki.org/wiki/Main_Page"
+     "/images/logos/starfywiki.png"
+     "Founded on May 30, 2009, Starfy Wiki's one goal is to become the best source on Nintendo's elusive game series The Legendary Starfy. After gaining independence in 2011 with the help of Tappy and the wiki's original administrative team, the wiki still hopes to achieve its goal and be the best source of Starfy info for all present and future fans.")
+    (()
+     "StrategyWiki"
+     "https://www.strategywiki.org/wiki/Main_Page"
+     "/images/logos/strategywiki.png"
+     "StrategyWiki was founded in December 2005 by former member Brandon Suit with the idea that the existing strategy guides on the Internet could be improved. Three years later, in December 2008, Scott Jacobi officially established Abxy LLC for the purpose of owning and operating StrategyWiki as a community. Their vision is to bring free, collaborative video game strategy guides to the masses, including Nintendo franchise strategy guides.")
+    (("mario" "themario" "imario" "supermarionintendo" "mariokart" "luigi-kart" "mario3")
+     "Super Mario Wiki"
+     "https://www.mariowiki.com/"
+     "/images/logos/mariowiki.png"
+     "Online since August 12, 2005, when it was founded by Steve Shinn, Super Mario Wiki has you covered for anything Mario, Donkey Kong, Wario, Luigi, Yoshi—the whole gang, in fact. With its own large community in its accompanying forum, Super Mario Wiki is not only a great encyclopedia, but a fansite for you to talk anything Mario.")
+    (("mario64")
+     "Ukikipedia"
+     "https://ukikipedia.net/wiki/Main_Page"
+     "/images/logos/ukikipedia.png"
+     "Founded in 2018, Ukikipedia is a wiki focused on expert level knowledge of Super Mario 64, including detailed coverage of game mechanics, glitches, speedrunning, and challenges.")
+    (("advancewars")
+     "Wars Wiki"
+     "https://www.warswiki.org/wiki/Main_Page"
+     "/images/logos/warswiki.png"
+     "Created in February 2009, Wars Wiki is a small wiki community with a large heart. Founded by JoJo and Wars Central, Wars Wiki is going strong on one of Nintendo's lesser known franchises. Wars Wiki is keen to contribute to NIWA, and we're proud to be able to support them. With the Wars Central community, including forums, it's definitely worth checking out.")
+    (("earthbound")
+     "WikiBound"
+     "https://www.wikibound.info/wiki/WikiBound"
+     "/images/logos/wikibound.png"
+     "Founded in early 2010 by Tacopill, WikiBound strives to create a detailed database on the Mother/EarthBound games, a quaint series only having two games officially released outside of Japan. Help spread the PK Love by editing WikiBound!")
+    (("kirby")
+     "WiKirby"
+     "https://wikirby.com/wiki/Kirby_Wiki"
+     "/images/logos/wikirby.png"
+     "WiKirby. It's a wiki. About Kirby! Amidst the excitement of NIWA being founded, Josh LeJeune decided to create a Kirby Wiki, due to lack of a strong independent one online. Coming online on January 24, 2010, WiKirby continues its strong launch with a dedicated community and a daily growing source of Kirby based knowledge.")
+    (("xenoblade" "xenoseries" "xenogears" "xenosaga")
+     "Xeno Series Wiki"
+     "https://www.xenoserieswiki.org/wiki/Main_Page"
+     "/images/logos/xenoserieswiki.png"
+     "Xeno Series Wiki was created February 4, 2020 by Sir Teatei Moonlight. While founded by the desire to have an independent wiki for Xenoblade, there was an interest in including the Xenogears and Xenosaga games within its focus as well. This wide range of coverage means it's always in need of new editors to help bolster its many subjects.")
+    (("zelda" "zelda-archive")
+     "Zeldapedia"
+     "https://zeldapedia.wiki/wiki/Main_Page"
+     "/images/logos/zeldapedia.png"
+     "Founded on April 23, 2005 as Zelda Wiki, today's Zeldapedia is your definitive source for encyclopedic information on The Legend of Zelda series, as well as all of the latest Zelda news.")))
+
+;; get the current dataset so it can be stored above
+(module+ test
+  (require racket/generator
+           racket/list
+           net/http-easy
+           html-parsing
+           "xexpr-utils.rkt")
+  (define r (get "https://www.niwanetwork.org/members/"))
+  (define x (html->xexp (bytes->string/utf-8 (response-body r))))
+  (define english ((query-selector (λ (e a c) (println a) (equal? (get-attribute 'id a) "content1")) x)))
+  (define gen (query-selector (λ (e a c) (has-class? "member" a)) english))
+  (for/list ([item (in-producer gen #f)])
+    (define links (query-selector (λ (e a c) (eq? e 'a)) item))
+    (define url (get-attribute 'href (bits->attributes (links))))
+    (define title (third (links)))
+    (define icon (get-attribute 'src (bits->attributes ((query-selector (λ (e a c) (eq? e 'img)) item)))))
+    (define description (second ((query-selector (λ (e a c) (eq? e 'p)) item))))
+    (list '() title url icon description)))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 86c316d1..9e7c954a 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -15,13 +15,11 @@
   (require rackunit))
 
 (define examples
-  '(("crosscode" "CrossCode_Wiki")
-    ("pokemon" "Eevee")
-    ("minecraft" "Bricks")
+  '(("minecraft" "Bricks")
+    ("crosscode" "CrossCode_Wiki")
     ("undertale" "Hot_Dog...%3F")
     ("tardis" "Eleanor_Blake")
-    ("fireemblem" "God-Shattering_Star")
-    ("fallout" "Pip-Boy_3000")))
+    ("zelda" "Boomerang")))
 
 (define content
   `((h2 "BreezeWiki makes wiki pages on Fandom readable")
@@ -53,6 +51,8 @@
     (p (@ (class "testimonial")) ">you are so right that fandom still sucks even with adblock somehow. even zapping all the stupid padding it still sucks —Minimus")
     (p (@ (class "testimonial")) ">attempting to go to a wiki's forum page with breezewiki doesn't work, which is based honestly —Tom Skeleton")
     (p (@ (class "testimonial")) ">Fandom pages crashing and closing, taking forever to load and locking up as they load the ads on the site... they are causing the site to crash because they are trying to load video ads both at the top and bottom of the site as well as two or three banner ads, then a massive top of site ad and eventually my anti-virus shuts the whole site down because it's literally pulling more resources than WoW in ultra settings... —Anonymous")
+    (p (@ (class "testimonial")) ">reblogs EXTREMELY appreciated I want that twink* (*fandom wiki) obliterated —footlong")
+
     (h2 "What BreezeWiki isn't")
     (p "BreezeWiki isn't an \"alternative\" to Fandom, and it doesn't let you edit or write new pages.")
     (p "If you want to create your own wiki, try Miraheze!")))
@@ -63,7 +63,8 @@
      (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
      (title "About | BreezeWiki")
      (link (@ (rel "stylesheet") (type "text/css") (href "/static/internal.css")))
-     (link (@ (rel "stylesheet") (type "text/css") (href "/static/main.css"))))
+     (link (@ (rel "stylesheet") (type "text/css") (href "/static/main.css")))
+     (link (@ (rel "icon") (href "/static/breezewiki-icon.svg"))))
     (body (@ (class "skin-fandomdesktop theme-fandomdesktop-light internal"))
           (div (@ (class "main-container"))
                (div (@ (class "fandom-community-header__background tileBoth header")))
diff --git a/static/main.css b/static/main.css
index c4b6c209..d0bfe8cb 100644
--- a/static/main.css
+++ b/static/main.css
@@ -285,6 +285,61 @@ figcaption, .lightbox-caption, .thumbcaption {
     text-align: left;
 }
 
+/* nintendo independent wiki alliance notice */
+.niwa__notice {
+    background: #fdedd8;
+    color: black;
+    border: 1px dashed black;
+    padding: 3vw;
+    margin-bottom: 3vw;
+    border-radius: 6px;
+    font-size: 18px;
+}
+.niwa__header {
+    font-size: max(2.9vw, 26px);
+    margin-top: 0;
+}
+.niwa__notice a {
+    color: #002263;
+    text-decoration: underline;
+}
+.niwa__notice .niwa__go {
+    display: inline-block;
+    border-radius: 20px;
+    padding: 16px 26px;
+    background: #f2f65f;
+    color: black;
+    text-decoration: none;
+    font-size: 24px;
+    font-weight: bold;
+    line-height: 1.2;
+    border: 2px solid black;
+    box-shadow: 0 5px 0 black;
+    margin-bottom: 8px;
+}
+.niwa__notice .niwa__go:hover {
+    color: black;
+    text-decoration: underline;
+    background: #dee154;
+}
+.niwa__cols {
+    display: grid;
+    grid-template-columns: 1fr auto;
+    gap: 8px;
+}
+.niwa__logo {
+    width: 150px;
+    height: auto;
+}
+.niwa__divider {
+    height: 1px;
+    background: #808080;
+}
+.niwa__feedback {
+    font-size: 14px;
+    text-align: right;
+}
+
 /* media queries */
 
 /* for reference, cell phone screens are generally 400 px wide, definitely less than 500 px */
@@ -301,6 +356,10 @@ figcaption, .lightbox-caption, .thumbcaption {
     body.skin-fandomdesktop, button, input, textarea, .wikitable, .va-table {
         font-size: 16px;
     }
+    /* niwa layout */
+    .niwa__right {
+        display: none;
+    }
 }
 
 @media (min-width: 560px) { /* wider than 560 px */

From d3c5498d47869b3623b88dece68048d31867a2b8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 30 Oct 2022 23:51:15 +1300
Subject: [PATCH 059/166] "Cache-busting" for static files

---
 src/application-globals.rkt | 10 +++++-----
 src/niwa-data.rkt           |  4 ++--
 src/page-home.rkt           |  7 ++++---
 src/page-static.rkt         |  4 +++-
 4 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 55dfddcc..bbd52360 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -8,6 +8,7 @@
          "config.rkt"
          "data.rkt"
          "niwa-data.rkt"
+         "static-data.rkt"
          "pure-utils.rkt"
          "xexpr-utils.rkt"
          "url-utils.rkt")
@@ -37,7 +38,7 @@
   `(footer (@ (class "custom-footer"))
            (div (@ (class ,(if source-url "custom-footer__cols" "internal-footer")))
                 (div (p
-                      (img (@ (class "my-logo") (src "/static/breezewiki.svg"))))
+                      (img (@ (class "my-logo") (src ,(get-static-url "breezewiki.svg")))))
                      (p
                       (a (@ (href "https://gitdab.com/cadence/breezewiki"))
                          ,(format "~a source code" (config-get 'application_name))))
@@ -127,14 +128,13 @@
      ,@(map (λ (url)
               `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
             (required-styles (format "https://~a.fandom.com" wikiname)))
-     (link (@ (rel "stylesheet") (type "text/css") (href "/static/main.css")))
+     (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "main.css"))))
      (script "const BWData = "
              ,(jsexpr->string (hasheq 'wikiname wikiname
                                       'strict_proxy (config-true? 'strict_proxy))))
      ,(if (config-true? 'feature_search_suggestions)
-          '(script (@ (type "module") (src "/static/search-suggestions.js")))
-          ""))
-    (body (@ (class ,body-class))
+          `(script (@ (type "module") (src ,(get-static-url "search-suggestions.js"))))
+          "")
           (div (@ (class "main-container"))
                (div (@ (class "fandom-community-header__background tileHorizontally header")))
                (div (@ (class "page"))
diff --git a/src/niwa-data.rkt b/src/niwa-data.rkt
index 24279d6d..1b2d20c7 100644
--- a/src/niwa-data.rkt
+++ b/src/niwa-data.rkt
@@ -49,7 +49,7 @@
      "Icaruspedia"
      "https://www.kidicaruswiki.org/wiki/Main_Page"
      "/images/logos/icaruspedia.png"
-     "Icaruspedia is the Kid Icarus wiki that keeps flying to new heights. After going independent on January 8, 2012, Icaruspedia has worked to become the largest and most trusted independent source of Kid Icarus information. Just like Pit, they\"ll keep on fighting until the job is done.")
+     "Icaruspedia is the Kid Icarus wiki that keeps flying to new heights. After going independent on January 8, 2012, Icaruspedia has worked to become the largest and most trusted independent source of Kid Icarus information. Just like Pit, they'll keep on fighting until the job is done.")
     (("splatoon" "uk-splatoon" "splatoon3" "splatoon2")
      "Inkipedia"
      "https://splatoonwiki.org/wiki/Main_Page"
@@ -145,7 +145,7 @@
            "xexpr-utils.rkt")
   (define r (get "https://www.niwanetwork.org/members/"))
   (define x (html->xexp (bytes->string/utf-8 (response-body r))))
-  (define english ((query-selector (λ (e a c) (println a) (equal? (get-attribute 'id a) "content1")) x)))
+  (define english ((query-selector (λ (e a c) (equal? (get-attribute 'id a) "content1")) x)))
   (define gen (query-selector (λ (e a c) (has-class? "member" a)) english))
   (for/list ([item (in-producer gen #f)])
     (define links (query-selector (λ (e a c) (eq? e 'a)) item))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 9e7c954a..0387fd36 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -4,6 +4,7 @@
          html-writing
          web-server/http
          "application-globals.rkt"
+         "static-data.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt"
          "config.rkt")
@@ -62,9 +63,9 @@
     (head
      (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
      (title "About | BreezeWiki")
-     (link (@ (rel "stylesheet") (type "text/css") (href "/static/internal.css")))
-     (link (@ (rel "stylesheet") (type "text/css") (href "/static/main.css")))
-     (link (@ (rel "icon") (href "/static/breezewiki-icon.svg"))))
+     (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "internal.css"))))
+     (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "main.css"))))
+     (link (@ (rel "icon") (href ,(get-static-url "breezewiki-icon.svg")))))
     (body (@ (class "skin-fandomdesktop theme-fandomdesktop-light internal"))
           (div (@ (class "main-container"))
                (div (@ (class "fandom-community-header__background tileBoth header")))
diff --git a/src/page-static.rkt b/src/page-static.rkt
index 353a0f86..c9967ad1 100644
--- a/src/page-static.rkt
+++ b/src/page-static.rkt
@@ -64,5 +64,7 @@
   ((files:make
     #:url->path (lambda (u) ((make-url->path path-static) u))
     #:path->mime-type (lambda (u) (ext->mime-type (path-get-extension u)))
-    #:cache-no-cache (config-true? 'debug) #;"browser applies heuristics if unset")
+    #:cache-no-cache (config-true? 'debug)
+    #:cache-immutable (not (config-true? 'debug))
+    #:cache-max-age (if (config-true? 'debug) #f 604800))
    conn new-req))

From 63d37d5e4f737815310187b34c132ac87d5b857d Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 30 Oct 2022 23:56:25 +1300
Subject: [PATCH 060/166] Fix: "Cache-busting" for static files

---
 src/static-data.rkt | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/static-data.rkt

diff --git a/src/static-data.rkt b/src/static-data.rkt
new file mode 100644
index 00000000..b7fc71ae
--- /dev/null
+++ b/src/static-data.rkt
@@ -0,0 +1,18 @@
+#lang typed/racket/base
+(require racket/path
+         racket/runtime-path)
+
+(provide
+ get-static-url)
+
+(define-runtime-path path-static "../static")
+
+(define static-data
+  (for/hash ([f (directory-list path-static)]) : (Immutable-HashTable Path Nonnegative-Integer)
+    (define built (simple-form-path (build-path path-static f)))
+    (values built (file-or-directory-modify-seconds built))))
+
+(: get-static-url ((U String Path) -> String))
+(define (get-static-url path-or-filename)
+  (define the-path (simple-form-path (if (path? path-or-filename) path-or-filename (build-path path-static path-or-filename))))
+  (format "/static/~a?t=~a" (file-name-from-path the-path) (hash-ref static-data the-path)))

From 15b41c24f7dfb55ee243e63a0972b9459845ad64 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 31 Oct 2022 00:00:07 +1300
Subject: [PATCH 061/166] Add breezewiki-icon.svg

---
 static/breezewiki-icon.svg | 83 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 83 insertions(+)
 create mode 100644 static/breezewiki-icon.svg

diff --git a/static/breezewiki-icon.svg b/static/breezewiki-icon.svg
new file mode 100644
index 00000000..5249b759
--- /dev/null
+++ b/static/breezewiki-icon.svg
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<svg:svg
+   xmlns:dc="http://purl.org/dc/elements/1.1/"
+   xmlns:cc="http://creativecommons.org/ns#"
+   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+   xmlns:svg="http://www.w3.org/2000/svg"
+   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
+   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+   height="68.119537"
+   width="68.119537"
+   version="1.1"
+   id="svg912"
+   sodipodi:docname="breezewiki-icon.svg"
+   inkscape:version="0.92.5 (2060ec1f9f, 2020-04-08)"
+   inkscape:export-filename="/tmp/breezewiki-icon.png"
+   inkscape:export-xdpi="721.55511"
+   inkscape:export-ydpi="721.55511">
+  <svg:metadata
+     id="metadata918">
+    <rdf:RDF>
+      <cc:Work
+         rdf:about="">
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type
+           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+        <dc:title />
+      </cc:Work>
+    </rdf:RDF>
+  </svg:metadata>
+  <svg:defs
+     id="defs916" />
+  <sodipodi:namedview
+     pagecolor="#ffffff"
+     bordercolor="#666666"
+     borderopacity="1"
+     objecttolerance="10"
+     gridtolerance="10"
+     guidetolerance="10"
+     inkscape:pageopacity="0"
+     inkscape:pageshadow="2"
+     inkscape:window-width="1882"
+     inkscape:window-height="1059"
+     id="namedview914"
+     showgrid="false"
+     showguides="false"
+     inkscape:zoom="8"
+     inkscape:cx="40.321257"
+     inkscape:cy="38.370751"
+     inkscape:window-x="38"
+     inkscape:window-y="0"
+     inkscape:window-maximized="1"
+     inkscape:current-layer="svg912"
+     showborder="true"
+     inkscape:pagecheckerboard="true"
+     inkscape:snap-bbox="true"
+     inkscape:bbox-nodes="true"
+     inkscape:snap-smooth-nodes="true" />
+  <svg:circle
+     style="opacity:1;fill:#520044;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:8;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:0.75294118;paint-order:stroke fill markers"
+     id="path835"
+     cx="34.059769"
+     cy="34.059769"
+     r="34.059769" />
+  <div
+     id="saka-gui-root">
+    <div>
+      <div>
+        <style />
+      </div>
+    </div>
+  </div>
+  <svg:path
+     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#fa005a;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
+     d="m 25.016194,17.638372 c -3.910133,-0.02201 -6.953592,2.245681 -9.080078,4.662109 -2.09733,2.383295 -3.833062,5.333729 -5.662109,8.980469 -2.0569978,4.100418 1.0356,9.111984 5.623047,9.111328 h 14.441405 c 1.140931,2.016544 2.30672,3.900631 3.666016,5.457031 2.103842,2.40891 5.109808,4.690926 9.011718,4.712891 3.908789,0.02201 6.953047,-2.243435 9.080078,-4.660157 2.097507,-2.383176 3.833076,-5.333755 5.66211,-8.980468 2.056998,-4.100418 -1.035601,-9.111984 -5.623047,-9.111328 H 37.693928 c -1.141017,-2.016606 -2.305247,-3.900738 -3.664063,-5.457032 -2.103172,-2.408829 -5.110419,-4.692872 -9.013671,-4.714843 z m -0.02344,4.4375 c 2.180149,0.01227 4.038227,1.299637 5.693359,3.195312 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 a 2.2186407,2.2186407 0 0 0 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 -1.245075,-1.425619 -2.493079,-3.445143 -3.785154,-5.818359 A 2.2186407,2.2186407 0 0 0 31.609943,35.954778 H 15.897054 c -1.472457,2.11e-4 -2.318449,-1.369414 -1.658204,-2.685547 1.751045,-3.491219 3.337215,-6.11627 5.029296,-8.039063 1.662925,-1.889659 3.551335,-3.166528 5.72461,-3.154296 z"
+     id="path819"
+     inkscape:connector-curvature="0" />
+  <svg:path
+     inkscape:connector-curvature="0"
+     id="path837"
+     d="m 52.096271,45.902043 c -29.310887,4.106878 -14.655444,2.053439 0,0 z M 24.992754,22.075872 c 2.180149,0.01227 4.038227,1.299637 5.693359,3.195312 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 0.388515,0.713988 1.136369,1.158355 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 -1.245075,-1.425619 -2.493079,-3.445143 -3.785154,-5.818359 -0.388515,-0.713988 -1.13637,-1.158355 -1.949219,-1.158203 H 15.897054 c -1.472457,2.11e-4 -2.318449,-1.369414 -1.658204,-2.685547 1.751045,-3.491219 3.337215,-6.11627 5.029296,-8.039063 1.662925,-1.889659 3.551335,-3.166528 5.72461,-3.154296 z"
+     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#ffc500;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
+     sodipodi:nodetypes="cccsccccscsccccscc" />
+</svg:svg>

From 645fe1beee7015113c8cb400db51880e913c4eae Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 31 Oct 2022 00:03:13 +1300
Subject: [PATCH 062/166] Search results page use query as title

---
 src/page-search.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/page-search.rkt b/src/page-search.rkt
index 81a88b2d..f4d1ce36 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -30,7 +30,7 @@
   (generate-wiki-page
    #:source-url dest-url
    #:wikiname wikiname
-   #:title "Search Results"
+   #:title query
    #:siteinfo siteinfo
    `(div (@ (class "mw-parser-output"))
          (p ,(format "~a results found for " (length search-results))

From e812f2082cb94be178f7c232602b666425330a16 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 31 Oct 2022 19:39:19 +1300
Subject: [PATCH 063/166] Deduplicate body-class logic into head-data struct

---
 src/application-globals.rkt | 16 +++++++++-------
 src/data.rkt                | 29 ++++++++++++++++++++++++++++-
 src/niwa-data.rkt           |  2 +-
 src/page-category.rkt       | 11 ++++-------
 src/page-wiki.rkt           |  7 ++-----
 5 files changed, 44 insertions(+), 21 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index bbd52360..5f290cb3 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -75,9 +75,9 @@
                                   (params->query `(("search" . ,title)
                                                    ("go" . "Go"))))]
              [go (if (string-suffix? (third ind) "/")
-                     (regexp-replace "/$" (third ind) (λ (_) search-page))
-                     (let* ([_ (println (regexp-match "/(w[^./]*)/" (third ind)))] [joiner (second (regexp-match "/(w[^./]*)/" (third ind)))])
-                       (regexp-replace "/w[^./]*/.*$" (third ind) (λ (_) (format "/~a~a" joiner search-page)))))])
+                     (regexp-replace #rx"/$" (third ind) (λ (_) search-page))
+                     (let* ([joiner (second (regexp-match #rx"/(w[^./]*)/" (third ind)))])
+                       (regexp-replace #rx"/w[^./]*/.*$" (third ind) (λ (_) (format "/~a~a" joiner search-page)))))])
         `(aside (@ (class "niwa__notice"))
                 (h1 (@ (class "niwa__header")) ,(second ind) " has its own website separate from Fandom.")
                 (a (@ (class "niwa__go") (href ,go)) "Read " ,title " on " ,(second ind) " →")
@@ -100,12 +100,10 @@
          #:source-url source-url
          #:wikiname wikiname
          #:title title
-         #:body-class [body-class-in #f]
+         #:head-data [head-data-in #f]
          #:siteinfo [siteinfo-in #f])
   (define siteinfo (or siteinfo-in siteinfo-default))
-  (define body-class (if (not body-class-in)
-                         "skin-fandomdesktop"
-                         body-class-in))
+  (define head-data (or head-data-in ((head-data-getter wikiname))))
   (define (required-styles origin)
     (map (λ (dest-path)
            (define url (format dest-path origin))
@@ -135,6 +133,10 @@
      ,(if (config-true? 'feature_search_suggestions)
           `(script (@ (type "module") (src ,(get-static-url "search-suggestions.js"))))
           "")
+     (link (@ (rel "icon") (href ,(u (λ (v) (config-true? 'strict_proxy))
+                                     (λ (v) (u-proxy-url v))
+                                     (head-data^-icon-url head-data))))))
+    (body (@ (class ,(head-data^-body-class head-data)))
           (div (@ (class "main-container"))
                (div (@ (class "fandom-community-header__background tileHorizontally header")))
                (div (@ (class "page"))
diff --git a/src/data.rkt b/src/data.rkt
index 6673e4c9..5e31fc73 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -1,22 +1,29 @@
 #lang racket/base
 (require racket/list
+         racket/match
          (prefix-in easy: net/http-easy)
          memo
+         "static-data.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt")
 
 (provide
  (struct-out siteinfo^)
  (struct-out license^)
+ (struct-out head-data^)
  siteinfo-fetch
  siteinfo-default
- license-default)
+ license-default
+ head-data-getter
+ head-data-default)
 
 (struct siteinfo^ (sitename basepage license) #:transparent)
 (struct license^ (text url) #:transparent)
+(struct head-data^ (body-class icon-url) #:transparent)
 
 (define license-default (license^ "CC-BY-SA" "https://www.fandom.com/licensing"))
 (define siteinfo-default (siteinfo^ "Test Wiki" "Main_Page" license-default))
+(define head-data-default (head-data^ "skin-fandomdesktop" (get-static-url "breezewiki-icon.svg")))
 
 (define/memoize (siteinfo-fetch wikiname) #:hash hash
   (define dest-url
@@ -34,3 +41,23 @@
              (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
              (license^ (jp "/query/rightsinfo/text" data)
                        (jp "/query/rightsinfo/url" data))))
+
+(define/memoize (head-data-getter wikiname) #:hash hash
+  ;; data will be stored here, can be referenced by the memoized closure
+  (define this-data head-data-default)
+  ;; returns the getter
+  (λ ([res-in #f])
+    (when res-in
+      ;; when actual information is provided, parse it into the struct and store it for the future
+      (define head-html (jp "/parse/headhtml" res-in ""))
+      (define data
+        (head-data^
+         (match (regexp-match #rx"<body [^>]*class=\"([^\"]*)" head-html)
+           [(list _ classes) classes]
+           [_ (head-data^-body-class head-data-default)])
+         (match (regexp-match #rx"<link rel=\"(?:shortcut )?icon\" href=\"([^\"]*)" head-html)
+           [(list _ icon-url) icon-url]
+           [_ (head-data^-icon-url head-data-default)])))
+      (set! this-data data))
+    ;; then no matter what, return the best information we have so far
+    this-data))
diff --git a/src/niwa-data.rkt b/src/niwa-data.rkt
index 1b2d20c7..a1036af2 100644
--- a/src/niwa-data.rkt
+++ b/src/niwa-data.rkt
@@ -137,7 +137,7 @@
      "Founded on April 23, 2005 as Zelda Wiki, today's Zeldapedia is your definitive source for encyclopedic information on The Legend of Zelda series, as well as all of the latest Zelda news.")))
 
 ;; get the current dataset so it can be stored above
-(module+ test
+(module+ fetch
   (require racket/generator
            racket/list
            net/http-easy
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 6c0a7337..89bc45a0 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -34,14 +34,14 @@
          #:title title
          #:members-data members-data
          #:page page
-         #:body-class [body-class #f]
+         #:head-data [head-data #f]
          #:siteinfo [siteinfo #f])
   (define members (jp "/query/categorymembers" members-data))
   (generate-wiki-page
    #:source-url source-url
    #:wikiname wikiname
    #:title title
-   #:body-class body-class
+   #:head-data head-data
    #:siteinfo siteinfo
    `(div
      ,(update-tree-wiki page wikiname)
@@ -94,17 +94,14 @@
     (define title (preprocess-html-wiki (jp "/parse/title" page-data prefixed-category)))
     (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
     (define page (html->xexp page-html))
-    (define head-html (jp "/parse/headhtml" page-data ""))
-    (define body-class (match (regexp-match #rx"<body [^>]*class=\"([^\"]*)" head-html)
-                         [(list _ classes) classes]
-                         [_ ""]))
+    (define head-data ((head-data-getter wikiname) page-data))
     (define body (generate-results-page
                   #:source-url source-url
                   #:wikiname wikiname
                   #:title title
                   #:members-data members-data
                   #:page page
-                  #:body-class body-class
+                  #:head-data head-data
                   #:siteinfo siteinfo))
 
     (when (config-true? 'debug)
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 488886fa..4e0b73a7 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -289,10 +289,7 @@
              [page-html (jp "/parse/text" data "")]
              [page-html (preprocess-html-wiki page-html)]
              [page (html->xexp page-html)]
-             [head-html (jp "/parse/headhtml" data "")]
-             [body-class (match (regexp-match #rx"<body [^>]*class=\"([^\"]*)" head-html)
-                           [(list _ classes) classes]
-                           [_ ""])])
+             [head-data ((head-data-getter wikiname) data)])
         (if (equal? "missingtitle" (jp "/error/code" data #f))
             (next-dispatcher)
             (response-handler
@@ -302,7 +299,7 @@
                 #:source-url source-url
                 #:wikiname wikiname
                 #:title title
-                #:body-class body-class
+                #:head-data head-data
                 #:siteinfo siteinfo))
              (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
              (define headers

From 1219334d06593636774ed0d2ac3444fd14a7048e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 31 Oct 2022 20:03:50 +1300
Subject: [PATCH 064/166] New icon, specifically designed for small size

---
 src/data.rkt                  |  2 +-
 src/page-home.rkt             |  3 +-
 static/breezewiki-favicon.svg |  1 +
 static/breezewiki-icon.svg    | 83 -----------------------------------
 4 files changed, 4 insertions(+), 85 deletions(-)
 create mode 100644 static/breezewiki-favicon.svg
 delete mode 100644 static/breezewiki-icon.svg

diff --git a/src/data.rkt b/src/data.rkt
index 5e31fc73..f856710f 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -23,7 +23,7 @@
 
 (define license-default (license^ "CC-BY-SA" "https://www.fandom.com/licensing"))
 (define siteinfo-default (siteinfo^ "Test Wiki" "Main_Page" license-default))
-(define head-data-default (head-data^ "skin-fandomdesktop" (get-static-url "breezewiki-icon.svg")))
+(define head-data-default (head-data^ "skin-fandomdesktop" (get-static-url "breezewiki-favicon.svg")))
 
 (define/memoize (siteinfo-fetch wikiname) #:hash hash
   (define dest-url
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 0387fd36..e4303262 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -4,6 +4,7 @@
          html-writing
          web-server/http
          "application-globals.rkt"
+         "data.rkt"
          "static-data.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt"
@@ -65,7 +66,7 @@
      (title "About | BreezeWiki")
      (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "internal.css"))))
      (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "main.css"))))
-     (link (@ (rel "icon") (href ,(get-static-url "breezewiki-icon.svg")))))
+     (link (@ (rel "icon") (href ,(head-data^-icon-url head-data-default)))))
     (body (@ (class "skin-fandomdesktop theme-fandomdesktop-light internal"))
           (div (@ (class "main-container"))
                (div (@ (class "fandom-community-header__background tileBoth header")))
diff --git a/static/breezewiki-favicon.svg b/static/breezewiki-favicon.svg
new file mode 100644
index 00000000..0bff39cc
--- /dev/null
+++ b/static/breezewiki-favicon.svg
@@ -0,0 +1 @@
+<svg:svg xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:cc="http://creativecommons.org/ns#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1" width="16" height="16"><svg:defs><svg:linearGradient id="a"><svg:stop stop-opacity="1" stop-color="#f8d871" offset="0"/><svg:stop stop-opacity="1" stop-color="#f8d871" offset=".08"/><svg:stop stop-opacity="1" stop-color="#ee7d91" offset=".946"/><svg:stop stop-opacity="1" stop-color="#ee7d91" offset="1"/></svg:linearGradient><svg:linearGradient gradientTransform="translate(0 -.5)" gradientUnits="userSpaceOnUse" y2="10" x2="12" y1="7" x1="4" id="b" xlink:href="#a"/></svg:defs><svg:circle paint-order="stroke fill markers" stroke-opacity=".753" stroke-dasharray="none" stroke-miterlimit="4" stroke-linejoin="round" stroke-linecap="round" stroke-width="8" stroke="none" fill-rule="nonzero" fill-opacity="1" fill="#fff" opacity="1" r="8" cy="8" cx="8"/><svg:path text-rendering="auto" shape-rendering="auto" image-rendering="auto" color-rendering="auto" paint-order="stroke fill markers" stroke-opacity="1" stroke-dashoffset="0" stroke-dasharray="none" stroke-miterlimit="4" stroke-linejoin="round" stroke-linecap="round" stroke-width="1" stroke="#000" fill-rule="nonzero" fill-opacity="1" fill="#000" vector-effect="none" color-interpolation-filters="linearRGB" color-interpolation="sRGB" opacity="1" visibility="visible" overflow="visible" display="inline" clip-rule="nonzero" text-anchor="start" baseline-shift="baseline" dominant-baseline="auto" direction="ltr" writing-mode="lr-tb" word-spacing="normal" letter-spacing="normal" text-decoration="none" font-family="sans-serif" font-size="medium" font-stretch="normal" font-weight="400" font-variant="normal" font-style="normal" color="#000" d="M 5.772073,4.2838297 C 4.8085761,4.2789197 4.0586368,4.4465635 3.5346489,5.041996 3.0178452,5.6292644 2.5901432,6.3562814 2.1394473,7.2548754 1.632582,8.2652605 2.3946297,9.500161 3.5250237,9.5 h 3.5585098 c 0.281137,0.496897 0.5683993,1.093739 0.9033438,1.477252 0.5184083,0.59358 1.259109,0.765779 2.2205797,0.770679 0.963166,0.0049 1.713302,-0.162175 2.237423,-0.757685 0.516848,-0.587239 0.94451,-1.446875 1.395202,-2.3454628 C 14.346948,7.6343981 13.5849,6.4998383 12.454506,6.5 H 8.8959962 C 8.6148379,6.0030878 8.3279599,5.4384771 7.9931336,5.0549902 7.4748907,4.4614303 6.7338742,4.2887307 5.772073,4.2838297 Z M 5.766303,4.98665 c 0.5372111,0.00303 0.9950606,0.320244 1.4029019,0.7873577 0.3068345,0.3514271 0.6148541,0.8489719 0.9331828,1.4337031 0.095734,0.175934 0.280013,0.2854305 0.4803072,0.2853932 h 3.8718181 c 0.362828,-5.19e-5 0.571289,0.3374378 0.408598,0.661746 -0.431484,0.8602882 -0.822362,1.639801 -1.239271,2.113491 -0.409634,0.465424 -0.875121,0.779784 -1.410602,0.77677 C 9.6760574,11.042087 9.2176651,10.725186 8.8098493,10.258233 8.503049,9.906947 8.1955282,9.4093148 7.8771476,8.8245301 7.7814135,8.6485961 7.5971344,8.5390996 7.3968402,8.539137 H 3.5250237 C 3.1621951,8.539189 2.9537341,8.0691168 3.1164251,7.7448083 3.5479007,6.8845362 3.938749,6.2376966 4.3556952,5.7639008 4.7654568,5.2982697 5.2307804,4.983636 5.7662979,4.98665 Z" style="line-height:normal;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000;text-transform:none;text-orientation:mixed;white-space:normal;shape-padding:0;isolation:auto;mix-blend-mode:normal;solid-color:#000;solid-opacity:1"/><svg:path text-rendering="auto" shape-rendering="auto" image-rendering="auto" color-rendering="auto" paint-order="stroke fill markers" stroke-opacity=".728" stroke-dashoffset="0" stroke-dasharray="none" stroke-miterlimit="4" stroke-linejoin="round" stroke-linecap="round" stroke-width="3" stroke="none" fill-rule="nonzero" fill-opacity="1" fill="url(#b)" vector-effect="none" color-interpolation-filters="linearRGB" color-interpolation="sRGB" opacity="1" visibility="visible" overflow="visible" display="inline" clip-rule="nonzero" text-anchor="start" baseline-shift="baseline" dominant-baseline="auto" direction="ltr" writing-mode="lr-tb" word-spacing="normal" letter-spacing="normal" text-decoration="none" font-family="sans-serif" font-size="medium" font-stretch="normal" font-weight="400" font-variant="normal" font-style="normal" color="#000" style="line-height:normal;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000;text-transform:none;text-orientation:mixed;white-space:normal;shape-padding:0;isolation:auto;mix-blend-mode:normal;solid-color:#000;solid-opacity:1" d="m 5.766303,5.203636 c 0.5372111,0.00281 0.9950606,0.103258 1.4029019,0.5703717 0.3068345,0.3514271 0.6148541,0.8489719 0.9331828,1.4337031 0.095734,0.175934 0.280013,0.2854305 0.4803072,0.2853932 h 3.8718181 c 0.362828,-5.19e-5 0.571289,0.3374378 0.408598,0.661746 -0.431484,0.8602882 -0.822362,1.639801 -1.239271,2.113491 -0.409634,0.465424 -0.875121,0.562582 -1.410602,0.559784 C 9.6760574,10.825318 9.2176651,10.725186 8.8098493,10.258233 8.503049,9.906947 8.1955282,9.4093148 7.8771476,8.8245301 7.7814135,8.6485961 7.5971344,8.5390996 7.3968402,8.539137 H 3.5250237 C 3.1621951,8.539189 2.9537341,8.0691168 3.1164251,7.7448083 3.5479007,6.8845362 3.938749,6.2376966 4.3556952,5.7639008 4.7654568,5.2982697 5.2307804,5.2008379 5.7662979,5.203636 Z"/></svg:svg>
\ No newline at end of file
diff --git a/static/breezewiki-icon.svg b/static/breezewiki-icon.svg
deleted file mode 100644
index 5249b759..00000000
--- a/static/breezewiki-icon.svg
+++ /dev/null
@@ -1,83 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<svg:svg
-   xmlns:dc="http://purl.org/dc/elements/1.1/"
-   xmlns:cc="http://creativecommons.org/ns#"
-   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-   xmlns:svg="http://www.w3.org/2000/svg"
-   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
-   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
-   height="68.119537"
-   width="68.119537"
-   version="1.1"
-   id="svg912"
-   sodipodi:docname="breezewiki-icon.svg"
-   inkscape:version="0.92.5 (2060ec1f9f, 2020-04-08)"
-   inkscape:export-filename="/tmp/breezewiki-icon.png"
-   inkscape:export-xdpi="721.55511"
-   inkscape:export-ydpi="721.55511">
-  <svg:metadata
-     id="metadata918">
-    <rdf:RDF>
-      <cc:Work
-         rdf:about="">
-        <dc:format>image/svg+xml</dc:format>
-        <dc:type
-           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
-        <dc:title />
-      </cc:Work>
-    </rdf:RDF>
-  </svg:metadata>
-  <svg:defs
-     id="defs916" />
-  <sodipodi:namedview
-     pagecolor="#ffffff"
-     bordercolor="#666666"
-     borderopacity="1"
-     objecttolerance="10"
-     gridtolerance="10"
-     guidetolerance="10"
-     inkscape:pageopacity="0"
-     inkscape:pageshadow="2"
-     inkscape:window-width="1882"
-     inkscape:window-height="1059"
-     id="namedview914"
-     showgrid="false"
-     showguides="false"
-     inkscape:zoom="8"
-     inkscape:cx="40.321257"
-     inkscape:cy="38.370751"
-     inkscape:window-x="38"
-     inkscape:window-y="0"
-     inkscape:window-maximized="1"
-     inkscape:current-layer="svg912"
-     showborder="true"
-     inkscape:pagecheckerboard="true"
-     inkscape:snap-bbox="true"
-     inkscape:bbox-nodes="true"
-     inkscape:snap-smooth-nodes="true" />
-  <svg:circle
-     style="opacity:1;fill:#520044;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:8;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:0.75294118;paint-order:stroke fill markers"
-     id="path835"
-     cx="34.059769"
-     cy="34.059769"
-     r="34.059769" />
-  <div
-     id="saka-gui-root">
-    <div>
-      <div>
-        <style />
-      </div>
-    </div>
-  </div>
-  <svg:path
-     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#fa005a;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
-     d="m 25.016194,17.638372 c -3.910133,-0.02201 -6.953592,2.245681 -9.080078,4.662109 -2.09733,2.383295 -3.833062,5.333729 -5.662109,8.980469 -2.0569978,4.100418 1.0356,9.111984 5.623047,9.111328 h 14.441405 c 1.140931,2.016544 2.30672,3.900631 3.666016,5.457031 2.103842,2.40891 5.109808,4.690926 9.011718,4.712891 3.908789,0.02201 6.953047,-2.243435 9.080078,-4.660157 2.097507,-2.383176 3.833076,-5.333755 5.66211,-8.980468 2.056998,-4.100418 -1.035601,-9.111984 -5.623047,-9.111328 H 37.693928 c -1.141017,-2.016606 -2.305247,-3.900738 -3.664063,-5.457032 -2.103172,-2.408829 -5.110419,-4.692872 -9.013671,-4.714843 z m -0.02344,4.4375 c 2.180149,0.01227 4.038227,1.299637 5.693359,3.195312 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 a 2.2186407,2.2186407 0 0 0 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 -1.245075,-1.425619 -2.493079,-3.445143 -3.785154,-5.818359 A 2.2186407,2.2186407 0 0 0 31.609943,35.954778 H 15.897054 c -1.472457,2.11e-4 -2.318449,-1.369414 -1.658204,-2.685547 1.751045,-3.491219 3.337215,-6.11627 5.029296,-8.039063 1.662925,-1.889659 3.551335,-3.166528 5.72461,-3.154296 z"
-     id="path819"
-     inkscape:connector-curvature="0" />
-  <svg:path
-     inkscape:connector-curvature="0"
-     id="path837"
-     d="m 52.096271,45.902043 c -29.310887,4.106878 -14.655444,2.053439 0,0 z M 24.992754,22.075872 c 2.180149,0.01227 4.038227,1.299637 5.693359,3.195312 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 0.388515,0.713988 1.136369,1.158355 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 -1.245075,-1.425619 -2.493079,-3.445143 -3.785154,-5.818359 -0.388515,-0.713988 -1.13637,-1.158355 -1.949219,-1.158203 H 15.897054 c -1.472457,2.11e-4 -2.318449,-1.369414 -1.658204,-2.685547 1.751045,-3.491219 3.337215,-6.11627 5.029296,-8.039063 1.662925,-1.889659 3.551335,-3.166528 5.72461,-3.154296 z"
-     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#ffc500;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
-     sodipodi:nodetypes="cccsccccscsccccscc" />
-</svg:svg>

From aab52bd92bfc46130c3b6d2802c7d0d423d1ac70 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 5 Nov 2022 23:40:05 +1300
Subject: [PATCH 065/166] Use <!DOCTYPE html> standards mode on all pages

---
 src/application-globals.rkt | 82 +++++++++++++++++++------------------
 src/page-home.rkt           | 40 +++++++++---------
 src/page-wiki.rkt           | 17 ++++----
 src/static-data.rkt         |  6 ++-
 src/xexpr-utils.rkt         | 38 +++++++++++------
 5 files changed, 101 insertions(+), 82 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 5f290cb3..595e9dd7 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -116,46 +116,48 @@
            ; combine the above entries into a single request for potentially extra speed - fandom.com doesn't even do this!
            "~a/wikia.php?controller=ThemeApi&method=themeVariables"
            "~a/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop")))
-  `(html
-    (head
-     (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
-     (title ,(format "~a | ~a+~a"
-                     title
-                     (regexp-replace #rx" ?Wiki$" (siteinfo^-sitename siteinfo) "")
-                     (config-get 'application_name)))
-     ,@(map (λ (url)
-              `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
-            (required-styles (format "https://~a.fandom.com" wikiname)))
-     (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "main.css"))))
-     (script "const BWData = "
-             ,(jsexpr->string (hasheq 'wikiname wikiname
-                                      'strict_proxy (config-true? 'strict_proxy))))
-     ,(if (config-true? 'feature_search_suggestions)
-          `(script (@ (type "module") (src ,(get-static-url "search-suggestions.js"))))
-          "")
-     (link (@ (rel "icon") (href ,(u (λ (v) (config-true? 'strict_proxy))
-                                     (λ (v) (u-proxy-url v))
-                                     (head-data^-icon-url head-data))))))
-    (body (@ (class ,(head-data^-body-class head-data)))
-          (div (@ (class "main-container"))
-               (div (@ (class "fandom-community-header__background tileHorizontally header")))
-               (div (@ (class "page"))
-                    (main (@ (class "page__main"))
-                          ,(niwa-notice wikiname title)
-                          (div (@ (class "custom-top"))
-                               (h1 (@ (class "page-title")) ,title)
-                               (nav (@ (class "sitesearch"))
-                                    (form (@ (action ,(format "/~a/search" wikiname))
-                                             (class "bw-search-form")
-                                             (id "bw-pr-search-form"))
-                                          (label (@ (for "bw-search-input")) "Search ")
-                                          (div (@ (id "bw-pr-search-input"))
-                                               (input (@ (type "text") (name "q") (id "bw-search-input") (autocomplete "off"))))
-                                          (div (@ (class "bw-ss__container") (id "bw-pr-search-suggestions"))))))
-                          (div (@ (id "content") #;(class "page-content"))
-                               (div (@ (id "mw-content-text"))
-                                    ,content))
-                          ,(application-footer source-url #:license (siteinfo^-license siteinfo))))))))
+  `(*TOP*
+    (*DECL* DOCTYPE html)
+    (html
+     (head
+      (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
+      (title ,(format "~a | ~a+~a"
+                      title
+                      (regexp-replace #rx" ?Wiki$" (siteinfo^-sitename siteinfo) "")
+                      (config-get 'application_name)))
+      ,@(map (λ (url)
+               `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
+             (required-styles (format "https://~a.fandom.com" wikiname)))
+      (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "main.css"))))
+      (script "const BWData = "
+              ,(jsexpr->string (hasheq 'wikiname wikiname
+                                       'strict_proxy (config-true? 'strict_proxy))))
+      ,(if (config-true? 'feature_search_suggestions)
+           `(script (@ (type "module") (src ,(get-static-url "search-suggestions.js"))))
+           "")
+      (link (@ (rel "icon") (href ,(u (λ (v) (config-true? 'strict_proxy))
+                                      (λ (v) (u-proxy-url v))
+                                      (head-data^-icon-url head-data))))))
+     (body (@ (class ,(head-data^-body-class head-data)))
+           (div (@ (class "main-container"))
+                (div (@ (class "fandom-community-header__background tileHorizontally header")))
+                (div (@ (class "page"))
+                     (main (@ (class "page__main"))
+                           ,(niwa-notice wikiname title)
+                           (div (@ (class "custom-top"))
+                                (h1 (@ (class "page-title")) ,title)
+                                (nav (@ (class "sitesearch"))
+                                     (form (@ (action ,(format "/~a/search" wikiname))
+                                              (class "bw-search-form")
+                                              (id "bw-pr-search-form"))
+                                           (label (@ (for "bw-search-input")) "Search ")
+                                           (div (@ (id "bw-pr-search-input"))
+                                                (input (@ (type "text") (name "q") (id "bw-search-input") (autocomplete "off"))))
+                                           (div (@ (class "bw-ss__container") (id "bw-pr-search-suggestions"))))))
+                           (div (@ (id "content") #;(class "page-content"))
+                                (div (@ (id "mw-content-text"))
+                                     ,content))
+                           ,(application-footer source-url #:license (siteinfo^-license siteinfo)))))))))
 (module+ test
   (define page
     (parameterize ([(config-parameter 'strict_proxy) "true"])
diff --git a/src/page-home.rkt b/src/page-home.rkt
index e4303262..4cd9f3ad 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -60,25 +60,27 @@
     (p "If you want to create your own wiki, try Miraheze!")))
 
 (define body
-  `(html
-    (head
-     (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
-     (title "About | BreezeWiki")
-     (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "internal.css"))))
-     (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "main.css"))))
-     (link (@ (rel "icon") (href ,(head-data^-icon-url head-data-default)))))
-    (body (@ (class "skin-fandomdesktop theme-fandomdesktop-light internal"))
-          (div (@ (class "main-container"))
-               (div (@ (class "fandom-community-header__background tileBoth header")))
-               (div (@ (class "page"))
-                    (main (@ (class "page__main"))
-                          (div (@ (class "custom-top"))
-                               (h1 (@ (class "page-title"))
-                                   "About BreezeWiki"))
-                          (div (@ (id "content") #;(class "page-content"))
-                               (div (@ (id "mw-content-text"))
-                                    ,@content))
-                          ,(application-footer #f)))))))
+  `(*TOP*
+    (*DECL* DOCTYPE html)
+    (html
+     (head
+      (meta (@ (name "viewport") (content "width=device-width, initial-scale=1")))
+      (title "About | BreezeWiki")
+      (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "internal.css"))))
+      (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "main.css"))))
+      (link (@ (rel "icon") (href ,(head-data^-icon-url head-data-default)))))
+     (body (@ (class "skin-fandomdesktop theme-fandomdesktop-light internal"))
+           (div (@ (class "main-container"))
+                (div (@ (class "fandom-community-header__background tileBoth header")))
+                (div (@ (class "page"))
+                     (main (@ (class "page__main"))
+                           (div (@ (class "custom-top"))
+                                (h1 (@ (class "page-title"))
+                                    "About BreezeWiki"))
+                           (div (@ (id "content") #;(class "page-content"))
+                                (div (@ (id "mw-content-text"))
+                                     ,@content))
+                           ,(application-footer #f))))))))
 (module+ test
   (check-not-false (xexp->html body)))
 
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 4e0b73a7..a0a29448 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -175,14 +175,15 @@
                 ; proxy images from inline styles, if strict_proxy is set
                 (curry u
                        (λ (v) (config-true? 'strict_proxy))
-                       (λ (v) (attribute-maybe-update 'style
-                         (λ (style)
-                           (regexp-replace #rx"url\\(['\"]?(.*?)['\"]?\\)" style
-                                           (λ (whole url)
-                                             (string-append
-                                              "url("
-                                              (u-proxy-url url)
-                                              ")")))) v)))
+                       (λ (v) (attribute-maybe-update
+                               'style
+                               (λ (style)
+                                 (regexp-replace #rx"url\\(['\"]?(.*?)['\"]?\\)" style
+                                                 (λ (whole url)
+                                                   (string-append
+                                                    "url("
+                                                    (u-proxy-url url)
+                                                    ")")))) v)))
                 ; and also their links, if strict_proxy is set
                 (curry u
                        (λ (v)
diff --git a/src/static-data.rkt b/src/static-data.rkt
index b7fc71ae..9522639f 100644
--- a/src/static-data.rkt
+++ b/src/static-data.rkt
@@ -12,7 +12,9 @@
     (define built (simple-form-path (build-path path-static f)))
     (values built (file-or-directory-modify-seconds built))))
 
-(: get-static-url ((U String Path) -> String))
+(: get-static-url (Path-String -> String))
 (define (get-static-url path-or-filename)
-  (define the-path (simple-form-path (if (path? path-or-filename) path-or-filename (build-path path-static path-or-filename))))
+  (define the-path (simple-form-path (if (path? path-or-filename)
+                                         path-or-filename
+                                         (build-path path-static path-or-filename))))
   (format "/static/~a?t=~a" (file-name-from-path the-path) (hash-ref static-data the-path)))
diff --git a/src/xexpr-utils.rkt b/src/xexpr-utils.rkt
index cd7f6517..f5ef3cf7 100644
--- a/src/xexpr-utils.rkt
+++ b/src/xexpr-utils.rkt
@@ -157,20 +157,32 @@
     (define element-type (car element))
     (define attributes (bits->attributes (cdr element)))
     (define contents (filter element-is-content? (cdr element))) ; provide elements and strings
-    (if (or (equal? element-type '*DECL)
-            (equal? element-type '@)
-            (equal? element-type '&))
-        ; special element, do nothing
-        element
-        ; regular element, transform it
-        (match (transformer element element-type attributes contents)
-          [(list element-type attributes contents)
-           (append (list element-type)
-                   (if (pair? attributes) (list (append '(@) attributes)) (list))
-                   (map (λ (content)
-                          (if (element-is-element? content) (loop content) content))
-                        contents))]))))
+    (cond
+      [(equal? element-type '*DECL*)
+       ; declarations like <!DOCTYPE html> get mapped as attributes as if the element were (*DECL* (@ (DOCTYPE) (html)))
+       (match (transformer element element-type (map list (cdr element)) null)
+         [(list element-type attributes contents)
+          `(*DECL* ,@(map car attributes))]
+         [#f ""])]
+      [(member element-type '(@ &))
+       ; special element, do nothing
+       element]
+      [#t
+       ; regular element, transform it
+       (match (transformer element element-type attributes contents)
+         [(list element-type attributes contents)
+          (append (list element-type)
+                  (if (pair? attributes) (list (append '(@) attributes)) (list))
+                  (map (λ (content)
+                         (if (element-is-element? content) (loop content) content))
+                       contents))])])))
 (module+ test
+  ; check doctype is preserved when present
+  (check-equal? (update-tree (λ (e t a c) (list t a c)) '(*TOP* (*DECL* DOCTYPE html) (html (body "Hey"))))
+                '(*TOP* (*DECL* DOCTYPE html) (html (body "Hey"))))
+  ; check doctype can be removed if desirable
+  (check-equal? (update-tree (λ (e t a c) (if (eq? t '*DECL*) #f (list t a c))) '(*TOP* (*DECL* DOCTYPE html) (html (body "Hey"))))
+                '(*TOP* "" (html (body "Hey"))))
   ; check (& x) sequences are preserved
   (check-equal? (update-tree (λ (e t a c) (list t a c)) '(body "Hey" (& nbsp) (a (@ (href "/")))))
                 '(body "Hey" (& nbsp) (a (@ (href "/"))))))

From 02819a74599a4f5e1a40f966819238dbc4a2b454 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 10 Nov 2022 23:20:09 +1300
Subject: [PATCH 066/166] Allow searching for nothing on BreezeWiki homepage

---
 src/page-global-search.rkt | 25 ++++++++++++++++---------
 src/page-home.rkt          |  2 +-
 2 files changed, 17 insertions(+), 10 deletions(-)

diff --git a/src/page-global-search.rkt b/src/page-global-search.rkt
index 4364dea0..a9c79bb0 100644
--- a/src/page-global-search.rkt
+++ b/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))
-       (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))))))))
+   (cond
+     [(not wikiname)
+      (response/output
+       #:code 400
+       #:mime-type "text/plain"
+       (λ (out)
+         (displayln "Requires wikiname and q parameters." out)))]
+     [(or (not q) (equal? 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)))))])))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 4cd9f3ad..6037d9a8 100644
--- a/src/page-home.rkt
+++ b/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

From b0e90f5cf9a67f01d9c77b86e867e32895df34e6 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 10 Nov 2022 23:55:31 +1300
Subject: [PATCH 067/166] Use Source Sans Pro font, selfhosted

---
 src/page-static.rkt                           |   1 +
 static/main.css                               |  45 ++++++++++++++++--
 ...-ext_greek_cyrillic-ext_cyrillic-700.woff2 | Bin 0 -> 57276 bytes
 ...reek_cyrillic-ext_cyrillic-700italic.woff2 | Bin 0 -> 38496 bytes
 ...t_greek_cyrillic-ext_cyrillic-italic.woff2 | Bin 0 -> 38432 bytes
 ..._greek_cyrillic-ext_cyrillic-regular.woff2 | Bin 0 -> 58004 bytes
 6 files changed, 42 insertions(+), 4 deletions(-)
 create mode 100644 static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700.woff2
 create mode 100644 static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700italic.woff2
 create mode 100644 static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-italic.woff2
 create mode 100644 static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-regular.woff2

diff --git a/src/page-static.rkt b/src/page-static.rkt
index c9967ad1..2bf684cd 100644
--- a/src/page-static.rkt
+++ b/src/page-static.rkt
@@ -22,6 +22,7 @@
         #".js" #"text/javascript"
         #".png" #"image/png"
         #".svg" #"image/svg+xml"
+        #".woff2" #"font/woff2"
         #".txt" #"text/plain"))
 
 (define (ext->mime-type ext)
diff --git a/static/main.css b/static/main.css
index d0bfe8cb..bed9cdb0 100644
--- a/static/main.css
+++ b/static/main.css
@@ -1,13 +1,9 @@
 /* reset the reset */
 blockquote, code, del, details, div, dl, dt, em, fieldset, figcaption, figure, h1, h2, h3, h4, h5, h6, li, ol, p, pre, q, span, strong, ul {
-    font-family: sans-serif;
     margin: initial;
     padding: initial;
     border: initial;
 }
-input, textarea {
-    font-family: sans-serif;
-}
 pre, code {
     font-family: monospace;
     font-size: 0.85em;
@@ -32,6 +28,7 @@ sub {
 
 /* general page appearance */
 body.skin-fandomdesktop, button, input, textarea, .wikitable, .va-table {
+    font-family: "Source Sans Pro", "Segoe UI", sans-serif;
     font-size: 18px;
     line-height: 1.5;
 }
@@ -376,3 +373,43 @@ figcaption, .lightbox-caption, .thumbcaption {
         text-align: center !important;
     }
 }
+
+/* *****
+ * Custom Font - all of windows' preinstalled fonts are garbage, so I have to add a custom one
+ * Source Sans Pro © 20100, 2012, 2014 Adobe Systems Incorporated
+ * font files licensed under the SIL Open Font License version 1.1 http://scripts.sil.org/OFL
+ * this license notice must be distributed with the font files.
+ * thanks to https://github.com/majodev/google-webfonts-helper/ for the downloader!
+ ***** */
+@font-face {
+  font-family: "Source Sans Pro";
+  font-style: normal;
+  font-weight: 400;
+  font-display: swap;
+  src: local(""),
+       url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-regular.woff2") format("woff2");
+}
+@font-face {
+  font-family: "Source Sans Pro";
+  font-style: italic;
+  font-weight: 400;
+  font-display: swap;
+  src: local(""),
+       url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-italic.woff2") format("woff2");
+}
+@font-face {
+  font-family: "Source Sans Pro";
+  font-style: normal;
+  font-weight: 700;
+  font-display: swap;
+  src: local(""),
+       url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700.woff2") format("woff2");
+}
+@font-face {
+  font-family: "Source Sans Pro";
+  font-style: italic;
+  font-weight: 700;
+  font-display: swap;
+  src: local(""),
+       url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700italic.woff2") format("woff2");
+}
diff --git a/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700.woff2 b/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700.woff2
new file mode 100644
index 0000000000000000000000000000000000000000..199eac2bae232c91412ef511ea229d2a3d592a83
GIT binary patch
literal 57276
zcmZs>L$EMhtR;GE+qP}nwr$(CZQHhO>pQk>qyKx~;8j=kN~)5|EGx+%d&gZ~j0pe`
z;6Lp30KoodfD$YI^Ns$$*#E@;Z(xNnVF!J|;LKux830@`L4~w~1TSMkr`Z7jvH_6*
z*J^+efQI;hpJ8g7D>uo~9wRl@bsgYm4*|jzI7dh_rKSN@Y&rLXBrt|y7huYJbB&L2
zN<dhufl{qEk`H)>2=Kp_H~szp*vq96D!-YNbe6pg5J(X~-|rZ^Z##NNt$m^zp=mD&
zAaxv2HF6Esnv$s4@jxn3HrBuLy6ojJxPj4x);yPbb8c~H(g8hLexvTNnQgT(vufIj
zq$kYG@+DL~*dDBMl5^#$H0(su-{j+#P9Q+vi){bpa1$IlZBU7Q2e^4DRPSG1jmz>Y
zAHqxmBQ4=HOc!=aQsz84$7?@aF)FN`0z`coodTQP7UGpms5=$SJNZOP7^M%9O?`Jn
zGbLkF$Wd55NVU(5k-|To?@XAJ_Dj^1`%E8Xx5d$Lb&;#-SvFCK7u@N{e+S8*aes$X
zGdjBk*v4=gVDs#s38`xEDwet?%HfhALmyOhJF4u_$$bZTJ#GE)--@5tx<u)xamJh$
z8QV~~j_C9BiXi5syd#9Pya$DhF1~zjN^DYe-?%1JUKZzw-k9S)nRgIXrWPS7X{jQ4
zk6mMa>X(_v-R*zrXW4ZM_Tc7M`WRW0sj>cw?mau~F9N}R2$-kTXkEIRHgBygNtz8P
z=6sm!m|{-yCZvI=-xY#FHMKd=He<~vov`K?=axeV)^KIiM|ur03BqF>b*}t}?JKhf
zXK##ul^k`EJBC4?`6;QJEGhkwRG%tS(GGXFe}Ij@zxaKcimPJT$V~1Q`Gd+OY6%Nr
z>%{Vhr|J1`?{7-L7TC^k6oqI1Z&53QRmmbfO$JMp36wAFJY<19r51ca`#mOqIR(FH
zgS*er2y1@iL0h^1A{13#1n6?iikhu4(hEQsw(OCmxog@cf!2W^(mw*;D&bqzvnn1!
z(j^t2!`-60<y?7ZvC_87tw;zW^qYcy2V|Yt1`-_W9~ib~OVTuJdi+gw3K(kNa>fX?
zPgop2G45#TJ>88gXH}I~!pt`-S$-{r;*0$6$aLE^@o~0eoTUS!c7f&F^bB@55vU-m
znSIFtZ)f<xzD59iWedv~m;Be`{r7L4{Y~#Y@11Xk>_faN;hN<Uhb*iVJzUOsqRm1q
zK-Kxs<p*d3fMZTQ5Ew+_an_3zQ%rt3dDP4WkzL-gN@{BOvl34EZ%+iQ<07aZ#Fm;Q
zF0!G_<kit$KYvQ(U?`ocmvgqF<QCj+Nl(OWt61Cpwz#c<1|Uj7lrqF%|J?ZphBow*
zpXKqGWd%B`DIz#YOt4hhjnGoyzVfH%Zh!9AFT*dn<SQMO@pah7deKL-Qe@Kl9tO9w
z$u$Y#Myx2ICL!TVeP5;T+sstu<u0#?xM#>5@gt~Zm-c3-2sp&!-Q_=lXR0_S0RztA
zC+jD`e4fLK=#c4CI69(E?){)*c&#{<Apskefo+#&HtWi{EW72_t?jZoTe}+~SH-&b
z^56Xp-Y>T=&@_tzKrul9Ry~04UODN!PN}S$fC{dmxPhoQI@PlNB6yXvmN10Kff{<Z
z;~LUT5c#EpuD#M{Dnt>cB?D}j*tH!zX<GWp2riVt0EO15+Ltcd%Ddwy888Th0=YJn
zlaHS4-VP{j&!Ok4zx5f^jz%Yhbx8aq?d3`+b;?g4@zXYBB@*7mh!3hTw1I*7{_K}C
zsSuJ71VTbFg25oP9^oy+5iR_is_DI3WW-Ft4D9O_k(<}s9L9{yr?TZg>s)wm9JxQX
zaU1rV;uut+>yeln1Va<!kc3#oD1btW{g(LH+K&VYz|g<H@1N~_*L)v9ur&cPE2S~&
z)XnUv7K<dQ9k|P|r5OF+{9mKDyB^jUjz9v)oMB!C_-Xg%<~K@JBS(lx5K}33t})~j
zVivkkrK{fQRuTuw@&JT?r;tQ#$b`{I9O~mx6A=)a07*H2^bN(+_SOL(n?Bi=>gK!s
zf#e9}5A+E2UlKrxUE5yW862pjhV77GAY4K$>}X@mZu7)x*8(F-riIhC8&fgOt?X_o
zdXe3zLelb*A_<sU2L^)t&l9{~*7k4qxmqQaASeo9h#)uS;o}G(4lv!=gRw5d7iNS_
zn!##H0dvI^N*+In-+xbU_x+7$oqK#j2nrC8B3Tv{7uqW8ot-?7*l8`qYK3~2DalB*
z&7eGwO|Q>wFrb_PuRo;&@pEpc+Mgb!XXH3d2%|%QJ!_o3J1;2ec@^S{D5TLv{kY4e
zlDjGql;RQhZL_&+uj<+Mkq)BWZTFkYs}6AMR^d02a%B>9vG^PxBhzb-Oun}L=GXDm
z+}E<c1qPSZ+N_&2;dK-cVM&F75@$(YY2Z_`S^yCs4I*XJC<V>@6Q-M0-+xt~t3YL(
zWjJ#h$xY_UbX?(+g;FnVi5=+Z@gC^$DFBOPkQZC}PDSs*OY)EK9sm+SB^1+|$ila$
zHp@1PH*STyPTfIntb|or3M$$y%kJ9lTPa^}Wmz}=I))w4oCcENu4Fip;s-+VoM%*M
zv77z=fR2BDbnt--hK*1p^n?@vL!qD-0t!5E7&OZ1o@WU_u5ti{00HO%N<5>O)ZFC?
zC%bmtDO6{3sy9_Gs$A%^5A*!f_4zm2-m8BD#H&;jRw2L#V^ewTvL3z`N|l=MO;UoP
zC^0{9g&O*ZE9z*G3J~a}0u<oif9-F%v%2a(iW`dK6FhgjC32F0V>97)AD87TCxVhO
zG_{zK3{W&^?|*)p&ClC?E{eT`R#vEs5q#BZeC6b5&wLYBj@1etDiVLmhXy#gf@IJP
z$$5M5eJ7?uo3BReSUS;<@L-(~=q1>GK8so~zR{IiS@-cf-*daZ0$$*5rl7R<r?s>Z
zhXTz~tupPM*IWTaQsK-@crTSP)jC7{@ThtSR1pF+Y5Pu`E1Z49x+Kt^eeEfYi7uH-
z@}*OI>k4_{zjv~^)?c9D_<rp>&yroNI$kNrTR49hcX$aN7hrgKeQ2DyRetD$ZO`Vc
z!*O5L7?|;b?-nV*MOtOgyWF*^9j<(4!pMGHfR9XpK<D(=S14kCP}LrHGeQtDVT4SW
zSb->rE|^Hjd)vuu(46Z&PEsgiE7N&bk1~ZkC0{aJ_N{3=ybu&I$9g$GCFRE09;g#u
zzNl543|oZA>*&=w@(@oVp<sQV8%-gBTZay2K|)fOFZLa%gN5s=D^Q+(=~@ASwlaU&
z2qU4<!YvZEQ0HI9GsZI2?ACQ{I$K6Y#>I#z34mc`--G?ye}B8J!mat#JuDI)5ja8X
z^A*90wXuDd<VqP}8HZjJP?}JPi6Tgd{~@vH;)_*yZ^!$zq-N}vxRZW?u=y(-K?pf(
z48u4EaSTHdf^Y`zRP%-qG-oGzQoykZ@iz%cao&$u<()pWNoN9ms^Q*;ZP`=b4JyO<
zv3*c&QDg^-^2foc<l!%w=Fp3w-zIS+;hPab!k~dbVbCCGI8*>45(NMv6^o0P00WI0
z2N4?r5G;>D0VI$U8iGc1Xdns|1f`wO;Q$DjUXQ_J9}uKah!6r9ESL)xp~Wh+Ko%Qj
zELNDo8ZAgP8i7VLh%kgfAOe~!#KT}1fnEnfvLKugwhCdX2u?Um#&9Bp6=tIvTDY7g
zWI<Hca6(fY0u%zO(BXg(g^&owbP7fo6iTQ<P#B`s3cAqk#_&A05y2?Iy+%-sj^%l1
z01i$L8G!{+F*$*S(^FZA4OW)<-Ac{LaUm)ikxvf90}+JC2#0Z5LPMmQ!%L+UpR#f}
z%2lJSq&R+QlH9aBKTX$1@pN7BbS?I_N7#LjxL)sgC))>|5HO!$&{4tz3n??41SFw^
zio_j)axZixUjS>KU^YFW4O`+&_Oed#&i2xJVF0RkqolF>*)4sy-IA+lmEzil@geUj
z`YJhNwT5Xt&f}Ztfd)hgqXt5SG2_sI6hVpz6+o&qO^zNSZInuUWoQnBU>vg-jBVd!
z=j=M)R@?FME?z3`<%;5zK@q?O5(4LNC)!ve1YMkgMCTqKI-cdL3e9<TPp~N;=ZrSx
zh49*+NC2!Z$HMb0|7ZV)F>j>qK)=X;wmYi&IDRUhx?9H$Xi5rz#G3!%?}kgXKgFdv
z84n1!WZ#4ef+CMGk|Ep~h$_0h8)}k5r7*G$H!IsuFk39|!pwcu-t7W9L_RJfdYz`_
zQ~zoU?=38xu=dtpDTM|48Km#%qZ3FB0!YSVz|VE@J;76n$sy64GmufCEo{S*HB2p5
zxnQ{z-Sc+s@3r;h_o_|`U)ji&&{&Hwj!HqKn=NWn$LQdKA=*$=UJ@=hDM|=7Xkmud
z;q^1t(I1Tt`ZQn1$ptS1Dcq#gf_1n(O|dVw1)v)zysYLrR=6-bdMJcURN6zj2>q*W
z-Am+6-+RMXAXBrNE0{~-i-f#hyTn4q_Pb?6h;q2V^=mij3p*}(RdMm>q~CtX>NR+6
z&egb4nB3Wn_&6Cu{Y=PI)$EL*msl>-cP|ph)v}Y=`WQ$Cn`9q2=OB>Ys+oIvPxSNK
zl`cz_@g7E>oYKK?S<{WS>~{aUmMq3<&$tr>sB7esssNK<3G;)01;&KH%S;Wsz_C&C
zvnQ%VBwmx1aS76)hZJl?mqnx}JzDF~8sx7ZCp|5J9`Jj5fXY<S(KUv)^@0s8Nz;r5
z?P%Z^b~uh4X?FPn4FjexCI%;&a^48i)YR6v8I==ft5awE0aVA+lbnKrLs2oYxag9m
zF{8Tdl*ZMyE-b8>g*CUNbd=dxtf08KpxU~soP6n@dt0FCxOSu2axfmtT{55jAi8hv
z9kw6+8T>EJGy0#}Grstu+XM>&@sNlVa5`IU9$j@GHF|9r)^!X@;XjSy+(|IX7-iwp
zL)YezoK3=BXWjw=zWmkPhI#MQih9hsPHQpe%dSR`9!sY3-8VWt{(D9}{#Q;t{s+=>
zz86-#ekSyIeeH;Uci%EA+-gpj=GL4q<+VAVTYEX5<90m1SN?L+!}kN&<R)-p@N%by
zBo0jY#KWA>3}*X{5XOP+HB4HFgchP<Duh%qaE=EUqv7UBIJzowIDQ`ws}wR4r7V>F
ztg8xDQlf=itSMP63s%ci%IR{gpU+dQCItU766KZA;A}V6Tg}ne5`neM<=AvPQ!eLd
z3&`P{cYCZ}PLNmf^>Yt~Xx7x{tx6z57K?Poq98Hp;S7yq6WCTk44r39+Sb4fn@W_p
zuTWar^&r5p0vJ|7@{?sBxOb$Y>nK->w4<BP^O~-o6h6>=E6U-#dzduwYp3+)S1g8`
zT{Yg6cF=rV{hIYG2lVP+GEd28IoDah!;L{ekm6tneMn7`;v-zLtOuG>!M3|HC!5Q!
zcfG+n{`&lUJ}XB2Q)%{*MGZixDXK_G;EKy8h?>2Mp12OBOd?TTD`9Od3H8LHX}YBo
zx5}sRk$7~O6<X@bO_FPT#*?OaX;r@(Hi>~<$JJKzIYf^#m0NX`TXr-S9hbdyp_6X4
zt1c=p?mTt%dtr68spz0eO{;1ITvIQv7S<E8vZbt{H@DE5CA-~ObG<=;Dz}Pu^PpiS
z?YcR?_T5~AfrSuZ;BEEhkKaNc7(sz|NJ=j%hnP0|?*@oxk__`K6~9GZwAkP`E(|2B
zmJWhe*+RyhTv*d<X2k`g4w3~S0}5d%qMZQp$O<$ljl{yTJRr%7)7+T6(v}&fIf1K#
zqKrgIOQoi!Qd3o`D6(y)CUZDdd#8|#WyL(#G^Dz@dC5V}QZRoRjXY@JsQK$w90|LG
zUP8{r&4Mo%W*A)f`EC4LF~CXJ3&SF>wso&T>3!hA`cq=9t{q-~b?;S2YNSBL=7HLn
z!uIeGRwWb0Z!(k2z9DytNofwBt2M=Ff+w2})uzgZSa)TC+jc!$Qkt7Hx|#e7u&!=B
zS!AVaa&fz>9H37rcI!c9TV0O<^*~m>VZ`|=v~EQ#9<eJwV!wP3X4z{79KZ6KoN2tY
zSoxdb;>~7(4vN!jKBDyeMe<4M#vBwIZ^49Ce}Ys|cGyL^OoI8vDJ00bO76UbBsmz$
z)61?3_|&J9EvH!^c~4^u3o{NV;HlByFhWx6Le0o~4!gpw9d$V^7Nn;JvP4aCVa*LH
zLlUyj51>EJ0FoqaKvNCDDg7e#9#GEKy{(6y40t%_uDmgCgQ`-Qd8DOyj!dH~+xTqJ
z+GNH@4m7|fi_&ziM)iFXl5GSy%#6g2Ak{`Okmq<)Wjneoiq@{K97-toZv1WPlAK%p
z2CO(?3Rk^3h<aUUsZiZ|Uu*g$w7RVQ8RTomy2QBSd6`@vJFLDii>x6D1X&2?JpVlf
zW?Uj~qbm1LlDS0|t!1h%%XlKp%?7n>`nA?8UxsB-@vE=zUoS+mR@9>f06;=f&WGlc
zvQdVcS(M)Z%SkMA!qV?t$oG)nserH0pjQqLQ>BY-P|Sl)weVPbGt5-K=jn~KXl8@P
zSEi#YXyQV72i0X&B{nBqh56o|+R1OlVlA(_b9a$+6;`jQ3nh{{E}Pw?&$DC2IC+>%
z1ivC!&Ji!>x2P5tJ>tvfe2xfK0f0Xii$qdx2rZMPV7Zg?rtHcIT=9USn%*O}Je^*y
z`P%tsYOvdMdi6<~Z~fL3Ju<MH&Af)*78Hw^3B|5Qttsx9aZC5)B`+usg3W3d*LXd|
zp|0h~342>zOd5uUv(AQkhH5K~$@WRN{JN)<N<vUdqzRr}pHyj0Lhr41F?q_JLX?a?
z4Yv@Z(9Y!^FZQfemf&1bNQQp3D)Q73>mKg=Ly^ssT2jnmBG7rI^P>Y3?Oa+k@gyE|
zjwbiG_0R2-bOy_a%)iy+$yR(jb+|A_Pd|t1i)_VH{r-_xV??X64|Jib4>7N@K#fv0
z0%q)DGUF~(c&<lh-B7P0KRd9f9GB1nGn(#cqB+1^lr~1&6NwT%?Fg@Chn!>tJ63yc
zFeYf2ybXT1NKOJ-X4_4&5D#5fXau~zmtrkLC1P6pxk+omS)rpGcXaJ1TN-rS!KxO`
z``cIZoGaJ_3<5ln5JG{UJWvP~wj}YbmLa3^oMW2Odv@2kfA-||VPNDSj35-nC`uNf
zXH%*>Iy?_f<}Rv8rMITPd^WD0ppx{~F~PpIAr?zmENRP}2g7Un95?s!8Ry%F+4MCV
z_2(bFemUX!7fy0p(hCwL2O=h%n;64L09oydEGdU1%%t>@&k=x!a<3E~(R)&gRQpGo
z#45F#CE972Xw$D^CuaF-th}CkEA5H5CynuSwzj-&w=HZ%*Gt0;PRfdX@fbOkgUKXf
zz0zS|j}9Io45Hvr!QrL{QUs5aj1$pIXUEPIPSfH99&4PKtBkN!V+2pdHjZf+&q_-z
zgqeiZ6ECE$C@;91Q5wwsdK?E3<D_@z0ngiClj83axX>k%%dd&TG)|rK!c<qVYm>za
za*eHHSl4($KTKJWAGibtr93b_xbmAB8%bE~cx=4W8G|(#H;zq@&2x}3a+5XS2JZ;b
zFp(VF^&DxOosX}5dD)G_LH1)C$Jn!B&I|$!VPjhx;Ry}K;b96saMNEIgC5VWj=;jS
z?<E|qc-SO*qY2FiEm=F-<Nz`;!s40>9ic$T%#HL@PO!sXmJx2F*klKoGY?pDk&&7L
zEV<xhL6P9ktFj?!G?_<4q%SU}t<qh2iA5?cDJ>-t8{|Z~Ps*oGK0}x(H7P(VH8oKl
z&SnM1K|2?Vh#v-_N#T~vrFQ9&*b38Zky_W!bP@EZ&mQz}1wMP7vgpWrmarqnYP&9P
zA?|V)JroFf!8`8y*>9^wgQ$YU5@6E$Ze!v3bS(}GqE*5^BEj3q!Vhb8?g~t!CrcpF
zM3y3yN~#daM)3uc4x2t|0%?M_MHG(^LpVw$I8nNbFm1Pr6(GQ6&K=($ABUo5hgz14
z!h3?eRt$RC@V|7JH{1-5e7s3|^uufX7Q9OH9V08P9ENGue{%k#|4zGc_nR-pgy+dh
z!&xpK1prY46T%oVI}SoVo58Ft<`5kksf4wZ89QF_^b)OUTXqLW#fKL=&f-OaG&ywK
znF0UjTtuj4Qp~#f-@D!Xf1}5E7%LzeYHb_Hkl6DWDZn{u=@7WUv2u7|(OjxAh8V*g
zYUwHK#7KUJxAdo*<fxKUASr=D4zfH#;E;5SLy|lWnP6FVZp#?30pZfL9~)-G79&@X
zm8wle%R~WwQh<{Z?4$s<0!f-qPo*^~rTgqs{aT?ZTV1*qL|xZ;`cc$6rxIqc-|suR
zM|X9n@7lw2bxDv6gO<n2A>T?R;5`mkH3XXXIfEPhF>FUs5{qBErV*S`omXHT`h~xz
z&Ek2_2{j5#p*s;KEC_#GtKh_FtL2d2U|RA|Kygsqk&mhZntH)k#iM~TjRz~lPE5wr
zt(nCa>=!1L|3HNHLw3yiN_YC=9l~iNT~`Rsw^fibaQIxhdr-K|ze5Wcm44Kd*al=E
z)nO4+Rr?p-{E7z`R=7b%dJn9<sLucnYnIA^g-k1mS8N6sy&6Vs3Ef9#G!^Q=10!jB
zKZN@ukXk|`PQvT82w*J!HPR!lqwBA<S?fT8F8Pps>qUU9BWJX8o9Wk-sqDf>OyOhT
z9K8L$(E-pIGQUQi@rw3fxfs<rl}EoOS%9IYmHrg3PsjT^R5TA~(==A!bV+hW<^U8j
zNX$2Pm9nd#5cX8u-q%j&zSb!U^%zO7jl;8YkIKzGwO<*~Us9o#cq0)|(+$Skuzg)a
z0jiWF-UCDrA}J7T=cYtY0d5GveNqr<3Y81D8a{1hn>?;ITk!PYi0nX6QHICjNRO$u
zkDH^8fs-fVnkv2P8%(L+bphh91M{iQf%fECY;G>~^jeS5mX#56DMi1CeT}xZS0@qK
z4;q(QXC>Y2=c0W0b{SrD=EfdUzFSg$V(?jojs*y&3P;B2<!UyoT?#nJDW3f%r@<Gx
zR^TgTgE$;XkO|d&t@6IC${$Wwo7ga6Z`YHZ1Th2nKvN0fhb{&YuvY~%;kDVk>c*F_
zD%vlB;v&O>9DpPb>vB`*13+j8YO1#1q^f=8_(Ze4DzQ-vuu7f?S5&!%P-_`X+j1}-
zKS&Mw5mcB;Yz!=em=@@~Z`(`cJ6gQv4}E3)dOQ~yzDB@;;j=<cU_!~`*>WfzHG)Vq
zDv(%(+*2UmVA6@R%H0n8(<Pk=!M`qX0ZJaJI>SUWIy|Noi~h9@sC09hLtWgM>~bWi
zw>-WjuXrH2*Oz%K`c(0Uwn80IPlkb@agd<rN|=cdBkd%)r&I#Po*Hx66`u4lu5oVC
zUA1n^yUKYQ-0HCho^|RHdDiKD8+ihKb0R&jE54pbf9Ri{-()+NfBjv_%ANNP)^o97
z=|?eWDlXu7$Wd=z&B8%H9qz%u$w5eoaCw88Km~GeR|5=SaY0C^sRpGu01&DK2th)i
zSU4D?hV_Bk&6g75kg!}12>f71jNlo-K#8JzsE6ie=H*P&Kyo6pD~LS9@*JUvfdUQA
zV`6idV8#g?1WKNmcmNuhY(oraU^6}$K#f)lP1<rTzE;DE7(;|To`Ffs1#&==C!3ob
zA}V{{;n~mErwDu{xHzRMSjj6|O3_pW!U}berOGTj3C!Svi&Ldh)I=l3Rvo-YV!5wj
z+3?~ta&Ucm%PxDOaB-Qo5~|u?vM}na<)c-`tvqv6a8XD&+S#Y?h^Mi^6HxGMbht(^
zY3dR68EMvaFPd63^_q|^W!8Nu)YZLJ*S&>3i(jgLBb|BJ9pBx>(Aj?x)(`oiwN*p9
zG<vS=mbM+yUy3hM+BFDwMzo$f8fo0MM6Fz8ez`jBjs!&j$Em~jK-fZ>WYLpI6V(67
zL<1`ei%8qm2ErzSm4(H+q4_jGAL_H+YSgM)LANTk8cXe_7IJ%Yh8V0MH&}MB69U+^
zaF9fyg&8hzc;tBE0P%{Bx6^zHA_}JpU>6T2s10JD5iCV5*(mE5?A5FE;?_k=vd)x4
zrfs%U_6PR%h%@t-Zo7v--G(YgJmUtx7y-J+al(+Q*HLkd*J{~v9t?N>JyaHfZ_QOl
zK+DnvRVnI{Sf7u#&#CuJ5;jq+P+^iK`=+gbzl{IVc)!$R1!=w<672c@Rwu0T$&N8U
z36^Pw%0h=5<Pk*1JC?Z76<3?(f1LrkN5s(}uo@kozcn=;|25kTQj>jjond6}peo}%
z0U+A3s|T}&ryE~OWYZhY0E@WjcMopSXx8uw`-@>`I}#$SC_QccaF{cARhKoxP$G?f
zWK{tzVJy+)lIx6cbd*(rymv06*qpSk$4mV<+Ov<2q329%GrZ_&6GQb|mH?4m0e{jQ
z-F|OkqRw@AGOcvLw?H#nVsC((0fyWin2E^jux9sf6SYWCxViS6;tu+-c*l?y6~288
zXhfjNc|#~*+7r|fcH1ad09(Bq{e>M40uU$>x;M^2hdAj{K<96fbQIcB{93;m2;+pS
z5WJ>iW+0#s;+3>EyxJ!0TB=HfXbo9R>p)8*O+DF@#83Z5KMO?kUsuZN&Yw&zR;$n>
zKmobZBsS8-Q}KLjPnQdNLmnbIaJH`!ot+uwRyk}tbPFF)D&oY|VAIbdN~^fXl(8)a
z9;ClTeSH&Z)W6|>8C?y-=q^c!y)dZ>j~kf2Fpei8PpiCeZC@_)5Ck3l@<u<ZpV)Jk
zgvy>u@l$VU^2WY!Q*4DRF5-A{og_NdW8{?`L-x7$M@Qq3nW+h~V`Iac*0B*tJ&kxb
za^KfoZMp8R@5zN_MW3DlO(Pd`M6+VkZt}>vB`FL&ji{_9IXBjf%qI$=4;PC&3wJ^B
zZ0=s?#|R6C(?$)aRIfq`jt#K{wQ^X~NY|jn;h-cf0!ys*_Q!gxbQbSEm%UBU5Xd@K
zZ|f65`y^3<A=F$|Ksuo*hOLWkkW<ri?VcVhh*qD#7vCK^xwyd1uVHJentvW~5Hw6d
zbPIg;=V~+Q6wt2d&)Ee3n&C?pyI^uBGMQf{0?QW-(u4M{R!Am;ZF_B*DG+Ts)0*m<
z$P2nxH4~X_Im4<TJ5NHGiA=0wBPY&M#jMKcZZKHyP?mCeP(Wm}xRT*oYog}lwk2NY
z)TIu4_4r4J)&-8?ZC|(K{?W(lyk($*eV|Wji?#3Vea5byMlC<s{1~P;ygsUZc<+NE
zazX+Cyk$jFPEnbgP3J~mm?W7O`wY9DD#y&*l?+}MF0A(tVN=H$D9=*a)Z$K>^j5&N
zfNZHWW8G5jt%zd>!yAnMTY}}741W{PzdbMpKIB`Cdll}r;BSJt9cLT-8M%```*|<(
z^Xc~Varg4^=k#l6^7W%Wgfd#OR)B)V2L;?QjscIgivuwypI8kRFkffV6lwzwmvwDK
z20+4GCmsL;gmXd59tMWkC&Z%wd~qmkUSIdz@C=9n;KFVQl$O!Pp^L?7w(67uT~aXD
z@wJ+7`~I}hR6BZJ@u4_`fjuPqT4AbFd#R0E-YVti*7_YUXV!@`X}PZUJRxhV>1SS5
znT0a_s%61GzXJEoh(;hwAPucZXfT9j1p2ZHl1L0dYziSFBqBlN5CTGvhvF0xEo2hZ
zlOUCb5)}&K2@?(LgTDC+Ff*bhQ5jiM+Eh|oaam<uVJ)FpLa_uBmZm{lrajkCY%U^0
zi`EvOz?$c>p%0|ZhUI^^iDStmo!yXfyDBUCDJn;@bZ&->5lt|q%jRY^k(zHEF*kBR
zF_Ofh7Bx`83f2NPt+<jS8l)6g$w6xFw)=MyHMY0qh%qUt>s^78DlC_?HLmYAPieE8
z(|qj1_|!r6p>JjG$;NQQB~(fpb1Zu)3I*KiAOaNb!GS?JXQ7TB?({f8){0380a6G7
z5+2PJM-(i0H)q;5>hBKa{|TuSjbxCMaNK1q&G0niBJc$u5uO~0E|i#79s`8)T@X!O
zY-T2j5s`lPcnQ5vv;yV&6GAX({mgRcLVt1o!WMD=oK7*4>$1AxwMA0935XY0pxwp$
z++ME|hibmtGfK~9(Am{$%dd}WY@e{xc6f3xLNH}WDz(H#t%?Ridp1tk=NC|EG$nJ@
zmRAh1zebIo6gjSF5~{eBRV54>8+ijy#G*-UpMBzD^>m{gRiJjH3A{>uhsum8QD+;A
z(v3u41PmF}v5XxQ<)ks)hOX;w*jJRJ=uakniEH}04T#O(oAgmxF_rpATD_<>OR`x=
zMVXB9RB#q<rtGQ!o0Ab!l>>qtoXzE3p>zf4TH^R1U~IHZ9eFWJj%-EtDP(igW$Z7~
zZ?e}+joqXUQ4Y4$nZs;dKgy_F6BBid>NtdyP|gu+#64Ubpu7oi80SyLr22CY`Lyd{
zV%P90JQ#aW{mEQpd1khe7`kEOOINR4lzKE^1AF5zK=r^dq6N5$SjTo1rG#X{cwFN*
z(8aJ(kc<h0Aj6$2T_@#(PodJV5ko0i+8RlVWEJcno6P-CC#Q_jm+WXb%5hCamZl5y
z3^YZ59yonuK;BX6{)1C>DQx)@T7)Tup4(&8`YpaPmyd0B2EkBxy6LN}x;t};W5J7Z
zfeu`i@~sdGYfXJHHRf&duz!@H2d4sg+qQR*!Fwqy#Tn0qh#ELTBfC>fG>k75=RoV(
zw7E^nPFuG3Z;SrMUI?0HUEZ@SR7_6cErHc3Qz+~oqt;!MZ)fZTOI=2cZl~QOoSty<
zGxV!L1Q)9kLJFmhS0PBTw#)%DUG>QZ1tlnxVY!;F5}bT_!f6K@?65>QYm>7je-$t?
z$4C!cHXmj7K6RBaA4wr4?hZOsLQRxe0@(`d*tkwr3gOLa<bT_r-(od{sx393R4jj8
zf5mJcX=+`4h-2s4r1cA-#HP*S!K5<TG~%MHIyrB_2I^mcxL3B|urBFND@r+W2xJB$
z8CXdZU2z2@sd~)O!=^NO1F~(<bbNEI$#p`o4H^y0-3Desv@rFI8`HptBYU35%}*}w
z00XpFxZBw26j#R@In$%@^S`bF$)od6@kH}Bwzv=B%}0Rj1mNEG{2|3b5`fpNbnH^V
z>$>N5uVzG(z(zZWl2R?pL#NddhCMzJ{jCK=#;cu8=U`?t1(25c0|{m+Nl$rjQ99G{
zI^^=qEaFeje&N&HNB)sAU#)TzXLW=%HN?7$XeKfH7H(XX^|9SG*36+{w&&kmC9)7v
zivgoDL+77Lz(4fYaflkl5;qYiFC$NDtEl!?)!VDePL>5XYeDl_i(c$8Y)+PGAFJ4t
zAy&5Z?3>?PCr#;M939Xv1emSJA|9SRagt5Z!utvpykJ6dVqya(R1?!sWf#x(z6f1Y
z#JgpcruuS~56q6*KvQn?*A<a#&)w2Illc>;4TDeGJ2j}rYQ#g|D)AHfT2S5McKb&f
zD=77NA6!GvRf2Y3iVE9{ZQ7?#W#9F0G|ZP_GaHGHO>G}b*@nTw?rRm<X2K$D*U?m)
z0thLv!X#0htKqQdTc9g@gJ3cDFxj*9g~cfQMtqxO`TQsJb%rIg^)ka?Nd^D9&L_II
z$O>(@c)0A|yY_l`pL^!=oCbs@#%V(W<drhd3Ha>c@Z&_`?{h=v>j?*+^?hU%$`RfD
zN%Hj>x8#5d6laxxmo4~g=Halif`~x}nMtxMoMkM^$jaKX2AarWl#?iIscfpui%hJY
zsqOsS0I6WJD$^=!D6EEAS_)?wLuF(#V3N4th!Y7#AbLY?F-=Hnkkp1H_9gZf5(MPr
z<wFUx1j&MAoSdFAFC=OR>)_Q(>63FFxi!$Mrg=dCr_+iU0dfvba2bku1J!g4gwv6n
znrWp(rwFP{q=*f3Ak*iOC++|R3rAFuE$!Jehd>7G0LuYrAF^&X1SdWQc=}Or6L93_
z!ew@1LC_XRk0A05+hyZ3c&V^LJpg1~`%-8V4Z%UOIc3_V?6&{<SpeOFX~_ogUKKN8
zs5U#_&-XMwmJUl|l2b;D0zxNUr}5tYso_36bhrL@W%XaNfYaw05c5n-BLHBAI_!<s
zSAQ7N<vIgI{X2_+=hd07h_#i~c4Io4mspLf=h~q_7c9E=#z?+6ilhcBRXz@q0Xp$_
zSi@F-Rh3D=wW0z#evF=<Bye2W&3b2>^jl=6iCjSdbl6yaLF<npBTLwPi19Sc>{Q3`
zR8A#NHQ0_cbqTass)PR!TN)N-n!momv7%hJOiL%_nxT&u*Ekpc7T#@gb<psx0{D>v
z+jClFDNsd=y^jry;YB(sm-;`;@`oW^Nt<xg#OL}cQ>{b?=eQ&=^2~-elelwN`wJ*6
z3iUsG5tx|atSe)bOJwztpjmXy^s8X*t1@uL^RB{>z<%*vcWnGe<rd*~puZlb>eYGC
zSyQgk`29T@Jg5M;r(b$Qqohvyexl$*y4I=+5};E3cJgv+x=8f1i8gJEp_zo#rpBox
z!;bED-4RK~QwVG#JE&`y4bL9n=;_1B?#R{{I)M{4>Vi_-fe_%Sr7aim;{^zj?~c@M
zNVRX}Uyo(`c$DMSScPArV-r7RizHcR&6ci#%@e|fL14DR^<u-3IE4b03SH1JS4=9H
zEgLMRnnub-4Kt<V)#J@MsSe`HB?Ju!$D=uFI{4L;+<GeYX{+MTi9f+GglXnzcF#BX
zu2c-m@)gOILi6LabX83&aU(asHC2@Vt$cdxyVV%0o~vXng~pH=i7ZA@iAq?Su%w{b
za8zr?9v^o)U36BDV_WT`P!j34aMU-7$wh8@PJ(g5vbF;x&I5l&W`bdA#+^+V&j7+Y
zzKb;%;OOrWDO@)ksK1tL;o5h#B4RK?i991R2HA7aPd$7d>A-uG1>&&A@qjP>V@EK?
za{6v`3yjV1s~9eN^C}>6kzc-T2t`Rts8rX#m7BfSec}4-Y<f)_dU2WTQdOzJTis}R
zJ*TllO|3kOT3W178%r&c?^K>VrZOmMa%NF?z*FrKVHATfND)Fmwpu8{siOcu1;Q20
z6cJGbl3N)>S`83EMNtG7f;fB#mgc-y0OwQ*fh7^7oe`)5!?-L61*#CB2}GVC^dL|;
z)-+-)t(|_zfGK;Cu`$Rkwb<cNj+!)D%E(y@1Z;Ly*$+ragoMn9l4*1Okl`U1H*U&U
zJDHVc?6hLoFZz7=y5gUg0GMn*;m@0Doo@Z|_CI?^?#_SziUTyNg}3(7=oYqiT&EeQ
zKgl~ZN0`ZQ$CL&xoJ?Zz3i~1N3n`*Sl&^GEvUePO!Ixb17qyH5D*KRqgr9S?(;h;n
zZWua|ibd7kk##;T;2=B_1D>aIq~FLhd+TbW@aK0*>;779e)&*Dq(N4%@!?%Q;d(G|
zavhxLp+6evWORmIr~S4e@*0remX^^VANbuY|CFe|IoUI%n<T=!c-7kp<<=gLB7JJj
z)m-|<<1n4|Ff5$kF<v$<9Xyg2_65z}O=TaG7>*UeltheWgc)G0r@4*1KUvfl^o!fM
z(bbxI$W^3Wchw^@^|?k5YjrFfle_1Ty#A?^e^KELc9;yWLGqO9XK{*zwQ4q<Ph?il
z>-l&@uW0*Ba$Qq(=Y3gI_Xno6Y)GN0MWhj_U{Fyk8jV0D*9%fa-u*aF_T;D4YPzo9
zAvAc#03K6uZERY|Fk4e<ru6F^%4*H7-0SE()wamuTc*Z2Y4gRhs;kXQW7&DcJNuXX
z4NcJy1m&%zIGP%Bb+c{eziHK-`zx-TY|vz~9<dq}8ktV3A1G8>HMSMvg2`&ORHMIU
zv);0L<h0e|-y?N|VRdd8hHLkZD5f(il04JZ5Iok|*Q@iVx6`!vXojla8$u&S6PC)X
z>e81HVWj9e8Cp)@l;|W3${tPt-iI8~2TegiaNgJX-G2mf`4d#4@!Dqi)zQ-!zb7!&
zH|Pm;7OaOQiS9wa`VA{NQYF>XdI<fFC_sCO_`w`LWWkzNPg#CiqlMHqlBZXWU3rCC
z<d>>V9%2OO_ySy_Y3}|$$J?i}YN)`uh%%n}%`h{3P)nGO(((WZqX;Ln28dO3*{%Qp
z0(g9W!Uuc{HNq@7PYql#38J311Pp`btf4do#(H^W0+Eq^zBURf4nh79kO)YqX4D9(
zb*4bbAm8+Rb=*}YA(fZ})aRP#kp<Kl7p%@Dmsw%zd`t#M<@Zo04L<=`X%E}AvGOr>
zmkaF~rOSDqKh<GJ&l%tWph_2n&W<e<!e<f(KNvOUgV!H)*QLsSo!VdheCOZ}|E<0=
z70?KxOhwsnd*11<`7_Uvf+rGep+I_sO7h?SdzUe)LkIzvldUs?ERw-sXjaAMP}$qx
zOa~k-!#3ptilu<tp#9ezwhe2klRSb=`P_%sAUq{}0Wc5@7y(=L3bsjE{+TP`CwApN
zV|1H-<slWoF)--y<781T2O!(>w_R3Mz9LAU4VrGO`oFx_R<Y;(L}*=%p(HgCpe(8}
z{{dG;DnQRnbGDIbQQ=dVV+2$w8%~z8u(Rvnm?OChLuI14C!RhqGq@Byr+eSW{B`^t
z{)T_?U!H5+w-|CLg~BrA5Kv+<(TrDvB1$%iEnYr@6;me4q{ra-g27-ink~t9XNZuf
zGAWfvCFkKTx?C>l0?%WOB>W3=o*A7Py>*<-Nui9^%q1?%@peSqjund2ROr#0Pm1<l
zxR?IbWS)Yn5~3QUQZAG`^5@G6A@i9n(xbaK`dq$GpE!KBvQa;zhc!lVhVhP|ulr2;
zXsUm&s{io%1wE|)J-z!q$p1zC`xSzAenkc!sbG#vK55d*DdC?9E~i9vz!`VM$=Cja
zAN3#p`{s{h8(g;FP%-2XRAMpFh*O6qN-~KpTD^c3TYmRn#yG*mc)(;iZau)Nwu)QF
zr6Ze}<a|Gbx-}Cjmd(KM3|F#zPpMQWPmGA6d$WiZ-bT0<=MvQtZGlo!;KQy7GxfYu
zOxql?vQ{M*(!~>+D98=S<+w;$p5wUE(JMHh>pE_tuIp-h1*!Rs;Qw&`HEp2p`#kN&
z_ZzD}-EZZ=sQiD>d|_E_!L>%*WFBNfs2!){`B-c)H)9o8cb>-#P0MiX3d6o5Y;20@
ztdYvBLbpw6q^oE&B3$$UP^p8*rc9VR^uMIq%1SZEq506~tK%Yad%8VLMJMZ5_tS|v
zG+Hr#*_JCianslLeq4Ptu)@DxXk)k|;pgRmSlcQzR`$=pWWaSy8(@SPV)R7?mrpvB
zGQp5bM1{djKUfKhB-JRkaP<yaOufWs7bou|H=CoYv%ACV6f<hz<Oz@@QmSC(4w^KQ
zw<`LcNs**ZqDrM|75@+2$s0zk8@O`mTSv303gR5OT`vE)eeM^{^{w&vjSMM*1_$Fg
zho~G?%7k*q@=lvvvP&5SDwJjZ7)&7)P+XZ;X?z2c2mdF1_>&RTZF>qxF91b4rAU=b
zC|9hVpvsp{8_4dHXku$_ze#OSAI^2r=@BD66||S=$VgUX<m6_^p~9;Nk@!ou^+LZg
zQjO6`(@aH$L0%9@r;pPcKq4T7bHJNIa9D(8Ig<i#OOb;;O7rP?C?E+N!T=0DPE$4K
zf#;NS$S!lPC(Svpx~Cj^9to)hA}Ink*|^y7TSw>QWN5iY!%>i<<>El3M~y_W${^m5
zPoQ;Z2US%6^8dbu$JTXq0L~_MOwkP7@aPhyE8a0d+TJ#PMoa^7^*|6su{^PRj*=~_
z{a}Y);jWGe2O#L$N#MsBrGPNbLxwms2&E|&t3s%*-xI$m4TYL@h4#kg;X^n`f{4(;
zsBl6Y#{(eZhKd|K5!c0q0>DE;HV@^>%@khhQZHSzLN=d@T*j3-mq;RzruKx5!CoxV
z7Yfp{Q}dQUOE!%V^F>J!(*l;orf1oA!pX42M)E7m+pwzZT7IFXhBll>AIymt>N<m-
zuvfkeJlGrzd+i$54t-xS!2PVmTh8d|py@Y+suZ;b>cZE)1>rqKLY=>cJHKBMD1C{=
zWCq3mY&DxL+<1JIrh734zsAb;68Lnrd=6iz${!FF8+$U-2rWHk`^)1qjyV)SA5Tmt
zTvIe%Ttnz0n<THn2B+sZ^p~^3D?$`zpl(2f@U#Jb^K*hQ*o|*Ufc9-0@Aknu?TnpL
z=7@-CMZX!zP@Mrof<eXKuCYpa8fN3%SOolAt*G`-sZzc)e;OhBfWm}pfLS%v()WR*
zlAo-zJ@(!}^i)dC_BabK(nSP5EOwC_zEyDs{~Ht`UFbi+#k>+#9TnDUw4@Y7$D9{&
z2(vsv04{znca)H+C0Y)wS1TSTWbS4)A<5l46K8=u)Q^F936!B&ylRuLhJ%?5lV;~8
zae^5lvow<NE>WgrfYmudSD3y0u>fG0SD+P9L^Qm2w~#Q|zz5mHjdoQgSi=IETZtD)
zV=H@iS>9Op&a&LOFYV=C_Ur0;YO|$by4OgJ2YQbrg+u8qDX**Zq&@bo6n?h9{!XKQ
zq5zw}4UnNxYq+V@D_G)=9SxG8f3jm*YCFm6;QMJoOojBhFy`x=V=;iVDjYF1hY&+M
z&GhhWkp&0HE#B{qJ=}y$L~J=A>N(H=ADkRpe>~ny;EBS!TNaIP$A$nZ8%GcTWP_~A
zb^0h_zWBR}v~qBbh_LSi1DC;G@)tgL`unX9`t7yTJh8)KS2b+*4hGv1>+6?~!(Z-p
zdfjFlL7K{AH{SK#G*e!eElmvD!Y7TzW9RD)HoGnGWH5KwNx!f$RpQxVtJzv9BxPww
zP-di_4pN*v<aS=CAo9=E@%V)H#A(4gMbcL_hnQ8_N_^PGy~&wrJ|$8tswg?-SULPN
zCQ1k>K!xw;9AE0zv~3xOuc;HBz8mQmFMh_bix;L`z<6l9w&eq>>Y9$8radP~P6<(w
zSx=lSTj@SeRufYf)S6H2KczgA<bO>K%%N&i=Be!7W7{k*>e?@FM&U;yUu`9Epy14=
z$`Omk7@M>$|I7~BKh^cM_NviTwl5RaF5BeG)b4tXNos(-&T`{ct-rsp;QO6r$z{^U
zpt)n@#CLNb$j2m|_==9M>l4xpynX;n>^5rW1<JF4jDxaYa7@)vlTyy>E%2bk(s+if
zH_mR5J-%+M=gHbH60?e9{ddQPOOStSJs52Z6luQX?x`D`c%8&KB^K;2`vA!!>XeE|
zGbol^|A5FzdiLcS)KJrg$usWqUjQ7<NW?<k)~^$yfqp~1f|`ySZl1h#{8o8oO(A&;
zSL{-}Ih_r>=TEjFk<gd28Fo262JA(+2msH~`hcaP*5Oy%q*N4jv*06C;HM;I_J;F>
z<|RzjYzFc!BWd$Oi10i}jm!gMAxN>Vb2NPP04d2!a+^sf8|?xS47IK&;r?s+0R*rp
z0A)>ufvG(`$f&Ip&xT5*tj+8tWqIr0MZYp*#S6K?=iNBIV9kt0>_u}P#7w5?@7%NI
ztmrtmYu+<%K3w~nzoOLZuSu=CAFiQT>q_<<`@a~FKw-TQj8Aa!Aw3U_U$3=@4a^U&
z!HV=uu|LB24EK0_GnzO76y)@Tq_k#2`)Io@IAH=7R_1mD$r2~|X0t!>b|3q;pbQ|9
zOMyspFNou&Zi!t^#v}{Eg!yf%pFQLNu#}Y*)|T1x^UDit3@p=G)mTCUJDZh<w}y7&
zMHdj8{;5yAZAWyi5_KH*B~o6uplnI@Tw3%cPxJCVmvbQY)HdCW4rS{g#JC9*tIXEv
zu-Op&1Rj&+b-AmFG=m9ij15K}4PJTl3hYh07vQ&5OD8L^HqF6HO)C8wd#exQmlzg#
z)p<2(d~$h89aLRtG{pwlR0+ov*O{&Ha5@fsLdd*TV<zp%7*21?8wn*f#jO#%#J6}&
z13qb!=$%)6Mjd*Mc+K~zuTFuzm%r;lR*Wk13+#GrE(G2Ev;z=0@dF5)sNjF|2m3FB
zH95|Uy8q&D7q$Cwrq9)NU=Ua&Xr*`_%#aBH1qVpFxg<}M3X;`WmRDd?`jY*v2impc
zTAS)BFSXNV=$R7U=4iHp8zL>UmL##}C1ac)7h4F&Ri=YPQNjfQAf5vPDZC+6v6~99
z+g4!rB4W2IVs|rQcRFJCLKp@B0D&eVv(cfhDgfhQ>*7~lZaA-R{IqXt!o=dqlPq1x
zvZv88Ffs}HbU{WOU8s6~#)J58_f}WA^g)n9e>HA#2Y^Gu#u~;j;haysmS#S6+X3;C
zz3x|Ek|UL1;nof021kYk=q75#D9#Ub5`Y1L3OBCp(?kqFU=Z>k=kXK(13=6tgu!qO
z2H>$FQUE{-2r&qJCdNP@A{0>J5blElR;8g(L4g{&|2tm&IP#10G?NPn3P3R_B_$yf
z$|O7C6NH{gB~m3?y_^CvoJk|KeJr!NEVKPIvpF@hy*;&kJq-b*Q$LCS5XF4(vL>K)
z3jK)caKm2UH3nIB7Qu|hya$<G*84^x9Qfy`ag8MmLgI%L!r*$Q>8GC|s;>x?Q5;g{
zBIxD3Q6QY(`?9>*02i_w9st*j^X5Uu5&7@uj2I|^FavZD=nfM>M37*|KR8L91p?uF
zRF)6qS3$Fh18G7O5MJX-n>O6nmNw){o_Ne@z5N6Rn8{!Ocwt-A4nzbmL_|*nL*J=8
z44)JX@{tRNMb0gUcGh=yEXLWpTVdC?UR8)P2hJs8ey*%<5RzCYiaP3`uXm$vm^L|;
zH^U_Lq4y~dC}yxx9q)tegX**A8}i%3Uqm0|tXHUKjr(I;&uABu=<-0kTvH{SkXOUr
zqvF;tBY!H>#xNwvoP(a^4|Cev%qc%H$DHUZ)BD+lj;Ggoo&tOoGfbY4O1d;GC@UvP
z47KvIeHy~?A@Uv~g0az|K@|Skh}+<#<2_8UXAB~Yfu{#)Xh4-gtPihO&+9g{uHD6%
z#d@_+G}}Du_l^_#LK)xd-%&XJcBkphV>zY16niD9a%4<c$Yaq@C)E!$o?vL0(DtTD
zjx9!Owga-=kZcDe`vKW@i1v8C&?c^Y@LX$tTDiX5s1#ue1@?9up_w+ecW&&A=%CX3
z<Mkd-sFxY_b59mj-j33<3y%)}Ku5oTUuoRN!$}&lrXD8XP3=9XFwPKs{>Fj*%TJ^2
zKQ-=vKu|z|VXtOIyF>h6W8{8&+f2}LD<L%6FVo2>VL)SA$R|G@zr#R&nuQXnTr^g!
z7D}ZeCA6u%_GIJ_w=A=-JOk(4Bk6pylc$qrehRuW81&=P&xg~=QP;RRM~5I#VlIEs
ziwJFoi(2@y9^#8;>$*2XRiEQrI}~t<a{$h8T#`EoGBh~0_kL1(?lqc>*SQEk-7FRA
zG-A;ht5h8LyLS~`VLPj|F6AH9<7H${8vD<xUAJ^)Zx_4qw@caD?A}yWESdUc2`s5$
z=lUkedQ7bBM$G@!$l1DnL;Uyy&%q(IaVJBW#6zg2iAByh?-4`zegqH?8h?-WdXePr
zGugPFr7Jsocq7mKw~-Yk`XNCQ#4vU@R9&A)BP5bYwtQCAx6VByXxEILe!B6?Et;Bp
zlqf39st7Laf&!NsTVEGqu9CS+{wlsKThT6D(49|<Hq;9@l!o))zSPH&?%jvHe;<!e
z@1e*5VyXA|AIH7ydXLWlUHsKtcJTY2^j@RTdP(;z@jg_Sg!1lIG-qy$a#=K<Ove&S
zBHWfu$CC-flFNT!GUd}8AR;8kDJ(EBaPSOltq5P!rR~yx$v#Qty1IXWF_;~_)*|^v
zDkyqpFcEDu*lSmnFpfeWk1orka5WeTz<_wOAqU<5qBq7MwAhBYHERg-cp6Q%Y%^UL
z(_4-MaLfzEYH2zsU2c?8y4EjBE=;ngy54a^yzDtgq8r_FuFauGNKD)R2Qfg-zooF=
z)#pmX>QXI932|Wn3)Xu^VKHv0(2v8k(w5a`LJ1?RC{oL-r_V7ITyW`<F~<_iEd<<u
z{H8~LOOXn6D%`0=A6*W4%u$4DwRmA2LD(j(rqvsS7=Zv^)bpT+1>$%Q!%P_GI(l?$
z`gf4drgevC{w#I2TnFs4&;B#M-@0*>4FNN^+26*C;o}@^rCIB({mwrubPzJa=KhYK
zSN+?`{n@)&#rfyKtLbfrE#}))BOnlTOYhNO2nu#(RtJCXApXwOm~MqnAENqtFB1f|
z$h`ECjtW7ZLw%336(bNm7%1pcZW66YmVs5vf<DGM*{9%~Vii<nf6Qe?9Wwq}n<jIK
z7Zh~R$jmlTfucCoJ5xLMUwV7K*u}5$64!FA9KcJ*_)XpPtvJ6BSkT6rjnmF>a+i;X
zLPUrZC04vdsj}qARjNg|9=-a#GU$yFqsDym(;xr*j|mAOVPcUmY39ZbiHeD9(W+gS
zevRC&n6Oc_I0;guN|!B1t~~kbw0P;YVPC0m>mr)?>ktMyl+Xeg#Q*~sF~tm)EU|Lb
zG5a{-g#Fk$g`IP*;KkWZqPXxR%{^WY;mw-@z5*x`B$zs3!f6sMhK^(@^rXpTAX_#Q
zc}kcnQ{}iCwd^!%=AccNGhTS<q5%UOy*BKM2{W91_uU<H7I<2+$;*~q{^1cBLSja&
z#l!|#Vmz>=#)nW^f-1^L1f$GkiOWxsyt1?ytI3G1rmO^O%Rzm;offID3z~Y_Rh_-+
zhQ0=KG0>YlENdhmD|*)x{(UZ3SYL|})%Rk=HeaIT7D|)WQkk+^u25~O)vND+jhds?
zt`83N8^Q!wi~Hl{CkLzZ$yVg(5`&eqBYo}hklU>Oe(ZBc76lI2TmSz1?73^T<P<}r
zI@R)mfw-`WC3{=zYsw0;QsVmVwM)mQN=ITCMu$_thd><-C7PU>ftH9vC7>XR(kLvm
zG!d|=c&~oFyV=b;1n(mw@jpTT8jBcpY90g(R?e=PBAyLgU3`E1e4N)IdzGLA!OMT&
z{mvS#q;O=%nx0S~Ct=mR*x%FH*2c_0OGVCaU%hyAvKT~<NX{z{A~|)cwOy`By&45s
zsR>ab6-!6MWi6W&WT(dW+HddO+M6o@>rZhW{P^aXW2)a|BM8*LKWl1uKmZ&BRq|kd
zPG(vfG6F0VIKFx1!pcC#qu4UWf7Hx}&VG3}Hq_VEqF$w9c`_u35a^+mMrLUuU{mp4
zt3@1I1*#<9Qn=ub4a*wf2-MMN`_bgwvumjWSyIG_5X_I4L0y_fg?QN+sZ|r<ps9dS
zrjYU!lmB(It6eCrQ_xl`r?^S`VHilDgc%@~LHd4U|FknWIp-D;TzENxw}-T7#B>Q^
zd?l6{sb*_%vo<Jb;dXw|U9XJ^dRtq<&E@oV{=b~?h_l)u;4iKJ(^w58OVMOnoXuq=
z)Mn2cZ7DA8lFWCroycYo46$YgyR{`qn3GP{1M+FSkF7-C887RWV3@<(<&x{~i%xEY
zoldU4eApS#!jQd3r~%Dl$e=nd9i64~LI2KA`VojwLuXd)2-Cjcbg|`~Uc;+86QiKC
zG?WxeV921o#mYd^p(pH3KubCTHsn!5h6`dpv8O}}(vbU_>o8ReBSwrEnUPPCV#)?r
z8W(nXN2_7=t%^HTA3)HeSOP-^?Nu4j5+OiC_6nefR4&4l$2{dTBw^@YlEEdh?Xdfg
z6@1UgPIR{N9l}gJ40O~tinkW($zb?iASgkimDrF=zWNZZp!f$|i-!Pfum)?e2AAM4
zSoHyDCB+IDGHB1qfSIuSw16Sg***Ejyw$Z+L%N*!<|;R;GzNSqjJnDY7Z(?o+uTz9
z2?Px##S++=xE#(nXNW_0o8$q*;ppHj7mLN}cW1u{zBQ7E&nRQvY6G~7EARALw`wvo
zib`8krQk>$9lRSdkaU@eyABvhSHy>=_1UV?MmvKMhnBW_|M_$T-;@LopL2Y-(w^kt
zD&xX0?`Soy{#AL0`~gI51xMoO;5~I2FcK-kLwEUr8CtRkYf^HOXNW_SVvv$NiD@L%
zuKWB6>UQ#?f+KNs@SeCHIOEEnghG@U6+ZOBRUgL1mc5Ir@W5haS9WDr_QD<p%O8MI
zDL4^F2k*>fz)XyuE5*_2Mgk)KRwA_GX)$qNA79di5kE?!sWJqE!C<&>ZiCN<sHswL
z<e7L>JovAZjI#v;^1*Zf&d`7Jaj{NFft<$?LJ7w76!;II0C3!iN=O8Parx^AsLx{W
zW<XB@;`fXLHX}d-3haCZXux&^GIv7QByc?Je$=6$yM5xwdkbwRu$8tC*hae!*iL&N
z*g^Xo*x7CVW7ltVG3?FVKrU73#bQo1HNUB=BWY-mYHF&~(qh#%R$$f^WD^sAn=|L0
zdGr3UU;)EcTP02FIGoci3D|2g+9JDcGTC7OyQHx<BVGHyhtz5xk=ZfXoRGz7Px{+g
zE%rIlUC?W|q*ri7FX5VA#SJ;!lE)n*a!*Yj=nx)B;)#KHCaD){@ydw3buT{Nf2jZK
zqdu!QUtpNNS=RX>uU}I6W2*gAk4^W`!yNXQc11^f`~Kyz0}g2FU_UCI%CQ@*<1nh6
zFu_TuO)h6lch-5!%LS{;MJktUblG*=o^Mq9@s^u*yS46c)?K(=?)mb3zsUgbU}rYq
zVSl=qXP(J>?ztLXc%hz`UTfivH`;jXy-_~+V4ROWy5y5j=K1WqCG!VW`&rnTHTdO^
zoe230^g^&C;9q<m@E?u@{C|A$-@h;z3W#738w>-)!6-gVtpvCvhWV8a5$VH%%7Cbh
zVNoR^E;%f$Oo+)G7S}yU$TC<C+>4B?VQt;VA=$#Zx}U?chxL_%BXWivl?x5I2djZR
z$jKY_u6*dpANHvN=qniZtwI<m9QLas7%DnA7$}CR;^D9=fu)k+s4B&ArNc2*25V)*
z$@KsyJs3``a@Z>$j;)6{wGV^aM;KQjoKh7ztx`C(DsyJ5a9-7LMpfg2>fx-a!DThW
znN^F6YKOC{4wuvo=T|+P)ejd}18!(IxEyH2ZH>dF)r4Ey6!&cgw#^yUVsHb{lKWZ>
z?gAd=iN^*v0*~Y6iNU=<YXY?yJPx!aO1tn>wI^DK@I*aHjHd?A0Z)_YnZfhGvm|+L
z@FMU$DP9OK)Qcp0Y48T{GTAx~UIShsQ>XAwb*8|pgAah$DE9i`Bj626y*c<8c#ASA
zgHM3BDPJyUUOZP&q1)hRpgXP0<Ba)t2XyHfeyMlq_1+i10`G^vsuu(6!5R6_8w@R<
zGZ)@NFt~jY*pVP(Zub9T@x?*FtZ-k=CTLZh+4m~(uju-8|ApXh5Me|eg6!*y#2W@S
zz6m$g5gx43GmGCCsC0brIdFn1C&L$YifZ46FY7yMd>_85AE<RY%&If+I~(?|a~Qc0
z9;rVGcO&dof1~SGxTJ1#)7>z${sSz&8=UYG2rf(wf*alh!Gk$LDC1ZV`Y;>BF`NkE
zxRKk>=0sShlWf?av1RKWyKqQ9IO&XO=Ug_s906Rp^<pdvQC$^J5o<zJe~AoA-;mqk
zk#4)w9|+>(A$q?2F_vI^gov?MoOrw?i7@0&#xFsn;YtwcxE@62pIcOR<rIJN(0+YK
zVX^E=a(NKdlkL=?bHgjhEkQJr+k$x3MNCIVb8j)S+Io9MT&GSQdJT{^?2S%SrYMZJ
zbS%o=c}LNE@2UFWgF`<0NC_#QK<*CW3%MtVujJ|=rpb*#%#d4y1m^Fe4g}GH!RSg}
zh71M}h)JeQ7Fn{`WXtA~BZo(>Tt0d71i-)q<;xdVq)5GD#Ue_Sh$&U75lV$7WOQ8^
z7zQx04C3Gz!Xq?HLSkGEm8JCbrWu&5;NkJGCQW7x-J}H8Qc_o@_{xl6SuLz!Kmwyd
z8^j5M53xeg5GWN*fkvPi&`7iZ8r8a<Mt}O^lk@jn&?2B_iV01CmbB)lrK<w30<9cN
zW*t@0nS$*amvAg?E_+4Xt6tUPiYxlP=5@W^@P+|zdP}<-ZfIIJ!CBtpDz~`Hhdkxe
z@FoR48}o7$xepxQAc3%p>NNUFvt|dhXmQ7&K?kLz+%;s#A;X6KWQ#2xvei~Un>X)a
z3l{uhyX_9!VTWJsw9^s0?DCu4b}QM6rAoCaOO_JZvi*@GN2y%7wiGK?rbLPDSq_1(
z3fc*klbtHi-%vgIQUlrz^%E}*pnsuh3K5KE9Ls+lI@RdXg{Jep2H<e2t2ZFWZt>nY
zz?`_nev<&_RBEiZ;GIs-Y6gO{x3u3JAUc1`;r#$~E~l1Sf!?*$TI(l$G2Gv0JaK`-
z{9Su`{yt^B{;z?u+@dOXsL4I*^7a??c~}w8@=s{a*HM&jqcs16%PF^q!Du)XBqEGO
zheE^%<B?F3$S@HTN)a<mwg;t&9j4+yZQ_UN1W+eIm`MnY6NQDu&@5?KOa?7F3`-rs
zvnjxGig+$1*hm>2Q-RG?@k(m2l{z}51v_cu)pTGtUA&ea?4^&_Gl2aJ(Iq1|$QWHS
zfx}GEtrKvRHTq`<$Jt|K4sg~<jO`R$bQ<G21DBn}_|Cyq=P{uRaNR{r>k`~_8PmHC
z_uas(Zo*TyFgFT3cN_Eag_j;<M}F|y6YR_%-YEdPi-7MGiG9VuKZ?cI#le4yAM<bt
z2@;skL^S4?vAIQ-EPOH&z%!yzQhHI!Xsx{(W6Yxm27^N&^r2A2Fc<?kTnPff5Q$Ve
zDQqwTjaG)iFdi(9N;wY41doRx5SS8)kR%c_G8u|O;Y6j9&}f|LbX5$7t4t;-i{%=d
zO~&E4&gH7+@!a6^)d&P`3Wek%ky~Ohg+wA)DixH;gvjMW3WZXo(u7K-OszJl(J0qy
zP3d$h^m@|<gG!^(a+67w*=&WyqS|V;(q_|Ww_EFQc;<9k=W=QC^0MCBTeFXk4Zglw
z{QPX3f4F#o<MtivnjP%S0qdI|kRQOt76xB_0-v=w@UjGKYIz9B3b47=Aw0i;Ev*%|
zb?j*ae$a1x*(Us?KiJ<^^Xpan>I}j{JuvF~k%L%IR`zmJj$A2uij0CQ_K6bZZbLzv
zhJm+Ag-Tx|q5B>K(;6&%8wd#fLPX{d)oN@dr?HJTbV)MknPjtuE%6?9F8g@Hm!yDS
zSn;e!#Sgv8MXop^Cg!L{jgCn~Qxd#p9V#WGGZi<=ZLw3eU3MF{$6luGZ66EvwV&Vi
zj{`Ch9Oxi>9PAJR4tE48M>@^{$H!?I&zv4-WKwjd^QbyMF3ae0d0df6*Ojhg==!)V
z<CWXp;p4m$HOahcdDj(^?shlXc`usy9JIV|rz5yO9?0<VpoiS?u!l9yN6@5GLCZ()
zsW#&=yg<Tu9LI9S6P|F@lb)pPDNj-Gw5O@eXVJu3(DJ#RwDEkrknz}yUJ~MEFYBDI
zpr-S$TE2S4MX!0yWv|B@8UMT)Z)Jk<E{+P#d)|Y2-v?5C*gulk`3c=qn~hKL0tw?Y
z981_bdgLii&pb!+!V4T;dWqMoc%7Dd<E=vPyp!*Je8@Wa=%cf~_(I=TU+MVf8v{T5
zAmOK<%>9brX{JB^s`Sr4{qsMXo&!=L_g_Pz00h~ac?7v&9-VM(Dn)TAR-%MLsWLL<
z$|)fr_@JP1U|<N~;PDU;2vw-$LPDZOLqnZ>G|ZC#fnd{5A?o4^X;jf66g44FDx#$1
zr=k*~rlDnI^dSq204u8?8=G1K26S6uiN_3?(r?<dla`ya)S^W%*k_+N9CXlC+T*pZ
zGwcR87;%%EjJny)Ub)q+-nqk_#@y{56Yh7v_a5+|srd++{2^#vw<#om)(!3%8fxg0
zR$95DjW!%-2Q;A{wC>RqGC=EDJ1=3jIo8az#CJ=ru<QgU*l>EBm4#`3ho+PSZK4)p
zY14#U(5B`tjHs<PhFJ$YZ=$~XK54A6?a>6sE&9;{hau>yD>{=*g0sph$hufx^S?*i
zgk4I}NFz@*i<X(~XL~fIC}`WYmf~0KFTY~1JKbf!d)<e_!yduqaZlj!tY@)$!3*|z
z(TjxU%eW|NL5EsVyD5A@hb>JJ3_8}`MF4Zm!RFieuIAGhJ=#Ez_Rbn&XsAA}`=jw~
zaMQ2xeeky(A}E%n)|Zvg@gds$-$R{J6Z-Y{kGKCob_&mo0XPPrB8-tk6&<Hs;N@Xc
zmWvcCTcvIv%$W1jZ`=M2&&b9wbrYSI8JcA?H8T@DF%v(@lRlY~GkKL#VU^YNtd`pA
zY@j!NY6h94h$c`LtDDg?XD5#)!<L$|9#xcVMJja~^2WGHZ@u?X0S#PBQ?w<lQHx;<
zQspX9qd~JSO<hA{`xd{G*|>Q5)rq*@xHt2J`z>f(np7rP<sp9wq$T}Xoya66Bip2D
z&|$zECTzIy5vHC9F(z3<B#C5FNCma@Fv@#Y*x;y~+HBW2bn4!dSKj;Lr#6>3<+O9g
znQfkh7FlY!)z;Z$YwfF6S;Lyvwl39B@mg20m7uRk>7*=D5vhb!PQs7~BsR%PN|4&f
z8DtchNT!n6)CZ|2sHdqHsLxSfq`pdhjaE$SqL<SB^sjhSp5ozC#{z#t0scQU8sIDf
z<miad#4;YNs5j<vG8NZ#gExJ%w{RQT%C4Nq?XA9etqnKX@>kuE;z}ybmR+~HhMH@0
z?QOWJ3d-$eb<;(aTn6x}YpUmlVCI#NXmoR1+^Tl9@v-ABlb$LB>NFd)MS?8F%GGPq
zq0WR5%=`mxf)?;phAdcERB}GXGtM%{Jm->7y0SbGiD7D4fEj4hMc%Pu$BX|XOC!q(
zCW<63ian*0dU~1QBWwHvSE;vcU&WnA@y<u5#Q}$G%b@^DE>LByjg?L3e+4R183lD^
zhikR<>sC+dCoPi>cxhv~z?WO$?L8N|%5#Q&r}J$9&YH<hzpQOUne>Obi6Md$sltQ`
zTIBWvL70>CndTeiKLFxd^8UxJyq^F7%>Yfa0GedUln&4#^5*ktMu9a8tUs?Q!1@cY
zez#KR&OGKmx7}WhSeF*@?$^?@AKsO|msbOBJj$=mnYrI{cQ0@kPhPu5W}NHH?9XRx
z3wNRREOSe7(?fuCKO#W~zJiy3juDNm?#|4%C0qZL|6Nu8nQ)EO7O!fu3s*3K{w2fo
zKfWJ;Vv6lXlRZC!|DNx^W(6L<yo|?l2%<E~M#-oMMGe$%MvpAfqDf4IGw^_-;M2?@
ze|!@@yF%mH8d$|Zh1w7r3tSD{2?E3D0ic<@7ixH;IOz}441Dmr-*JIrQDR&(Bb8KQ
z-3+xHlB2<uDeZ3*UnJe?wxO2$W>cf2XXRI?L92F2Jq9c_VI_YR^9%pq8Ui$5cR)mU
zPdZ78Qe89--`qwplfTN{uU&LnO7wTB0P%o;G2@@u9lLMe>1W;V1AzEu|JLXGqM7eu
zX|GRvUrST?#-lSHekxo4w^{7`et7Oj9z&zj!DWzt-=`~Er<b{IDy3)O^c!JPm8?IG
z+s@y1?6yD0CmGq92GkydnT=)X5PaEdiguLT#xs#7hbRo911%GK(Iq$O8}q2+rCPNf
z4^i})AxsxQDkYRrK@~MLv0~$#^Del=*JFPC(TvHHuRx)v_oq4&CQW%~JwO@oh=7QQ
z4$&hL;zh#2#UtS6;pO)hiXp>Bj2hcN1t|1XkrL01c#*ofpkW@Eht4)~c2RPOmVMMt
zM(=FwE+@<}QCAX2N!i8td8F@7hCDNNH&fo(dX%dt9WNm3sGTe{`vN;91C1Bn=^{F#
zvFI)o+vQ@qSX`G%%DJ>|l-2Drx+NtYjaJnCYI;&}Uey;^M^SYbU1u@9D6zhh>My02
zCHJQ6UYFT;1--4f_m%dcvOZScrz%>kwbi=XsJGvC8fdqn{x-OSJ<w24vo)k;J_Kb`
zNe}v5WnZf5Yt>Cx(@eD;i_pEywHBUxy3)JZ(eS-0wUKg6_-xV?n(ut@(WikQneDi0
z%`Y2%|D-wjDRa4LyFXz5DPx3vV#WG{Ni|@y_k^v+(J-YtZ;Z5Qtd|R>e`@2`Fv`qr
zb@xhvow$vX62gm%fQW>O&Nng|894<dEr=QO*DC%MoQRkTLJcM;7rBlzh(c(LAy|rI
zcuo*RNm68&qNzs9YI{10VQpz#9Yo#%BkzPG?}8`qMj-D&B=1E>-iMyN9|L`rVkN57
zsP{~hig%)ltgGx)j84bwOsrhf<d(MkS@Ox=!<<ESwy4e(pJNGKDKV##yIM-uO6_{t
zxs;P@xw%!Ff9*xqRct-Q^}P6cOK70921{?atVYXith|=%Xr<16)!k-&{p)rA8)oiM
z+7^ILg`isz=mk%|;tVRuu+oew%eeAPLSz~;vrsuD$+@boChc0Xu2<cSYPy-cTPfNl
z+S&F$yF}hee3Cs(@hFvV=REE_zY>B=3MnPDw6HR$;R}sod5QdF<5WSqNv65hK`~Y8
zu&m9r2k5f&Ku_~<*FE=ndBEEj1HLh8irL4_yf0W7s&Ek^MOi0)x;VZT`tkyCdR7S%
zB}tZ2+kqn#zZM@~UO^~QRO$^?R9#KA)m2|Z<4rW(Obh+&cbf==B`KoF2~@=znp)as
zbo333&DvsO&b%o-6Eh1d8+#x2iHwSRKXjxUn`*d`&N!uBM4Kd;o>70H-L3f*QfQsd
zYtquc{Rd5a4E%g)#TMs+X01@NYz~n~#N_t6$|~$>`J8l!G0-xiTkL_ds;sJh=M+Me
zl$3%@H6<SoE&(1sAs09Gp7hndLbP-Of@*bp%&4*+pzB6@njg%qkAeQfwo4E6j5Y|R
z$WS}frD%!)h8bYqji5dO$36fTJplHc4AwpYFaU`_F!UXr@;K2&2L!s~M;!m4XnjUN
zGH~E|CCI2SUUKMe=*hz8g%Z)+-S~P-iohZV;5JjZM2Oqb6h)QR57))SIdUKt+vR`-
zvUFQB&0K7{^NK^25x2)Fxnl6GQ#S+AFHtQU(fTnu@>q16(5ZSmM|z1p7@zc&5G<ky
z#FS<aLg#s)+eJc6Nn#>3Jxkq5wYxUlMRhXdy8|IV-i<1;eVwztAR?_loRZpP>-dmf
zGQV=f!%D=aFK`JHnTfNmt*J*LaVf=S+EK)erUbP6iIYl1%OOc_T8LH`0)EGpR-CbM
z0Vz_8QU)W<K)R8jC}DbCS`%<f%DE%UOYB0FeuxTJ;)*4LnaK_IxRP{q&N+n=XEc`G
z_$kvQx4sL17PnvfbMT@`%@|Xbgd1tWP9YHMN*E1M);0n<>HBeqkAmKvJpj`Qo^Y+R
zgsd;P5<!YVYg98rZP-j6jlkZ?s|a@Oyy{faJ(-rbujrETYg$?~g*2IXE{UEc2c?Fn
z1ov5*bwz*=f`(PrBS4WN>Iqle>-prI6NS%EKh#6LARi5xYBYC#;VlPvMQ6u?V0=}o
zsX|um$bW)=mTKP4SGSN}>rPF2!j|N*o6W(rd@>){@vFLA8ftH5Hgk(<zN441-q^an
ztZNyL=&PzVi8ALg&U0`=xSwe+4_V}~x9i|rJx|9{mL)SpkB|GmYcV=A#=xTm0D*z?
zvhOfsU-}InryixGIUVWO;}$Vtvt-Wg)63R*)bs8}6;xM-&-N6}9?wV%4pjxwIiN6)
zsZ1wTdR(aOa^Tz~ter3dL}<das*Byh2%AWvV3MBmPS}sz)YpgR&?R>WQZgQH&!v<j
z3UNd%?cj#n`9ZiGS{9x-$z_UryN+Ewdbt%&c<~7MtkIkCqV$ZT9ks#9dD&Zx3`gjb
zSgbh*#^J&4C&c3susF=`2J{$}(JNpimk{}(dD0r;(MUl%QBP9-Hvj^n%uh^@sx_U~
zs<jsDPLl3P7v9{_Ccqkv+h=7(9gl@n4!vpsfLh&frqqP@+w|V^U7gt*4C1&MgTmOL
z;UKGO`{~%Q6bY?-QG|~wr9iF46*X)`#A)+ZsKXKjRYxW78D#upS;545WvZ&6tHMED
zA({+eISe?LtZ;UKkazx?$ea}dL4|xIR5M_pV~QWcLZ?~5gjXa8se`$9C#(p9EPzFX
z8M0fjBOKnwzO_<%xwm13N-<qIc>V%=2dh#rww?GND;2%lhuBV(C-Vf2L#M{4DKaXT
zxRH$ju;IeX8lV?97SJJ*Q<%`a<@O>UgRcmaW|$NB5CsC7m1aSpth)+&;y7+_-W!0#
zr3_MFAjkl8ZGtPgnGORP3E92XOe!#PLY|!PCX#DiXe$WUgN*UJ=huP#ERG{rs+0#{
zW#-<oI?z&isH4YIQ1|E5DFjlbfoue_=7lG7*yOv(l_oMU1RAu@8UpntGL;#DAAR=D
z)Y6WFy^IgY%J7fM*+`pPUM1zr>C)BL+Upq~g##TnwLf3TGc_P+NH7AETSS-vCFwX_
zOMAu0{{#5L)rl<5Q$;cow+6JNZ$$ZMZqP79Dn!g#7Dd{8eI^}jYt*kQfk5_8j$~0D
zE6mRhjQ6IP!Ce_hF{ssi)JE~^YV_|bgHf60fj5i-ZcYIXKAJqWQ;8ugEnbmc{VU*l
zGkaYw=-b;eEYYBDNPIUzPD`BBI<?p@60<7T?+NL|G52>m=5p8h;}ug(LgQ9nh@nBF
zh~Q8aoEX23Rd80eCps1`HsF5D2R-{KiZi(|Pp2^m?{TcsorjX$%$tDK6?CJ2kD@Ql
zV*)&>1z_a6WC*pa<GQ`Z!BDsbtDmTI`g1g8sdX`VJ2yV3^lq2RS0`~%BbQnL4N7n9
zfxmf}7c8>3jyBH-MizKSPfo=}m@IsjJc>sCbdo-QylE)F6&CT2Gqdy80%i!s&!Pu8
zGqYECC_#s2yk6()7B0itiVCA4jTwbwq_kY=LZsc(s;Z=SMljWsOl2&HDI4OynJoH}
z)hS#@zrM#M>kweX6|t$ppt@v#;*HJ=S$+L6s`2TK$m50?_*<B=sddDB*na?drF+#~
zJuSob2Qwg$nop4ePh0urco~bKr4G3`LVfS{>u<DDpnFZ4)~=2MFCIV#6dFht9>5c-
zCNFUAg099KJ*p>$M#E(f4HnfVt_oD0dw~Je=Yu>W0g-oGpb{q=w6J0Gzwlf+1jfT^
zo}Ed6Of9Ox&`M&|>RXpQp;p9m@lvcGtI^Jr-4-YBR?wxMBJ`cPgT3yEO8S5Hk8=X_
zfn@a-5G{WDS&@M+#Vc&7+zlIU(Z_8#mp2Xp?Sh=C4bC}~Icyiu@Y<#p%ruRw=ALy-
z9|X7?<_2S`zyNeehL8KHNN}JxhCm)oTg0&B5s4OVWmf+ZS#{X%^OQyE!>XX^`9%l3
zq6sXcSUIeKQt{m9*iy`)l^1fElthwB*J&q!UD7Tuk7tn<c-zyg(k~W7e*eMql-88E
zoWQ?<t}lND@K88-_qvzNVZ9ug6cXX{0GSpemFFtc((UOGxl5$2jOcNSa8;B-s(I7B
zpb<?Cw@mlt>8>H&lQrLv5we>PE;M}|UoGA+kL~C+$t24>IU+`^G2Hq#A0PGhkp?)2
znR)_@&<wHg%DcZIlV`Uv(XV*Cu%R7X3otR+nYDolR70A35KOj#IFnkbD0kXTtKTsG
z_PWl|T~j{!>#igJQ!f5**8IeQ6u6$!b6D?k|7u$yTGc+Ea~8F;u9M+r+x%dkJSHM&
zR-To<{^><Y8E{S*K!;k_saGjLzKKnD<N*!oOyq1@Lku8g+{o{+ZI(&?{U`FDen@j?
zKjKc}{X$WVH|}pXZz}zJ??PUWO`pFe>7R{JSH8aH)?YzwR?is98b*fisp->gIBIPZ
z8zur+jzv_VJ0GmIxJc+9U=q%oYq%Io1}xl3YYoj`_zunYKp;}{T|2=URY98!E=exI
zPUXLv5SFy)rJ1o%i_}e~!~tCQk$|4EIT0hRCrIDMajE|rwv}L8@yEi4GoZ^l)X`Uw
zut!6aym1dZpZcj^BsTiN6!{-xU(1>Ik*cfKrPb84Q{8EB2q(1qz&1`&jf!&WTcpXf
z_h3ExE-U+rOJ?Ptyn|hR`&y+lJvrCP1DQUq8z6)5aUl_T$sG~0TW2Y)kQZT0d)~FR
z<n0dSY%)Rd<5@#B%rBBuAAZ=BxU+r6pE6O*Nq((MmpSb3*=`I%0AlGu32&w~Y@W}6
zP>|_{77`1mQm|KJXXHUmqb^QNp!FFv^hP(O*ID%waBb+tgoV=3p8`r~o#=*yxWdZK
zAxS$oUBECkcg(3c!b#veDGI%g<VCB4dM}l4=9;?i<<ipgkMf!Mn}qo{0!p3{xQ9e}
ztRw%=ZpnbF@dFL7b#g9rD7Zkvt3-EZl4Uu$K432w3O*Q)6qzs+fyb+O4)c%ae3|m{
z46^g`Y=e`R&WA_jjQoKCJEN5ab(#J4glogr7AFp%z4d!Asu?5?-(J41xp)1^0Tik$
zS5No=7v+JwWW^_@<`Ej?X!yc&Z`=`Wi!CE@=UiNctwhUPTeqllMH*|4t82cU19%qi
z>$x_R2etF_YF|k+e|Wbj^Va)Dg#_vFg@fQvGo%}%qkrO=pT*-pqUF<qK=If#twS^{
zfsK{tnMg}kSI~k7nc&vPqP#ui^=yg%2)1ObT<Sh8mJ~D(O)X|L(7EgIFqhz<Tr54P
zIzlrPkpvG|Tyi+sNHgt?fq;;5R}#4~oFcI)^%DXi+{3Sr7)ejy>g4vE>7u``pBVuw
z%}S4vc;oa9)JDw3D1;n=!~_+G2eMl_+Ttv*#Q?kxDh!Wi{#*#pkpVkM#wNH-%g+Vn
z!OK8`9Osv@nOgW@uN7m62J^bh%5c(a;5S#j|A=F+RYfmus+}#C>m^L3y<;y1v^)@i
zN*WswbGvL?Ax0XT%W{|Z+P5ozl2>aqdML4PF9wQRSJ96w^113FpIAxcBTDLdNs0;(
zu_L1`SG$&{pGj?m&dsm=D!}ycN^|I$x^8b#ckJH?n!;HC^3XB*oyjeb^>jA5qgLRz
z2r`uB%+FRrk*G_U9AI5BV2?SE;3vTHZG2|9{>>*yjsk1Bv}q<r+ERqzVlk{Odc(VZ
z(|3-Fv=hC}QbgCPQ@JiWbEG`=1q6K-4@(EzTJX#w`Gjl3>n$=2voc|<@o9*fzr7I|
zDo%?;aU?H~DJ_mw2+ZIfW8U$Zxs)YTqJ+^D^{j*p6kiqk#UxN1c#oX8WR>uQ%OU)M
z25*Itad80eE(-*t`0XgxW6dGBN8L**PEWD%xI${#SgJ8M$kDEv);P)Ph2xELC$e}n
zuSJ>~zwvWQF@7odGdgs5BHjUU`%)GJe1ZI_fQ)33rE2R9o~*A3U(~n2SYI2j(-zzd
z==G&HKLRW6VOb;0Z_|MVbl;M@LqSZ~qDx9!UD`A*v(pfytPB4$m|P>KEqV91Tv&02
z?3+asd?Ghk{D_{dlP^0cw1Dtd{<zX`LQXB!kYWyQHls+9Gj6?L;26Xo*5C6o*?{&+
zHY$ajbzhzbkZ8Q>V6ILiqk(TptCW+J>?xxX!}ef_G#Lc)iE%|~L@f!0b8ERz8oz7E
zzEvG-x@%(wumG^@F$^)FCHc<BLCh+x=z0f)U;>KsiJsmA+QmS_(=#Y`qgl`8jRIP0
zk^c95gXV`Sp#DwQF)VW#(0HF@rtB^XQm@#-ipTc>GbGwJN?1xY<|gbil|pAX7Q~hu
zodjB617q^jKDSR-2?+jlMO-6Rq}GYS!$*1p<8+(KHbgKaPz65I_g6~eMBF$xW3DBm
z$D_;PoCkyQ@#(sDeH9q`?(ppd3JRPa)>|WfX72e<Hq1D7>qO(8V+PC`A>Sk>sNM;=
zmgNv?L$BJ!%i(@((P)OR;mDVb0MR<770B>eqs9~ECNgryvp%%d;d^GsWU^O8l&if6
zxJj_^vFBqC6#eu5bWPZM>Im-nFAMh^ndGKsQ-pMNN7+3hvRQmk@a^3*V0QRnBsT0Y
zOx=AMUMlJol~uUX(wr~R!Db2STSeDGwfafr@r7pf-7fm^r=_I~NEoP|(Zs@3afh3q
z!E&|1180!t7PHp>IldPY4=ppUL~|5B+CH8r_wj@jS`3JSH6V)2fG7+D;xZ3gTfkw5
zO9S|!2ZH~+i0_x~-F*K=_B4ESvIC^ZeM-ouiZGca41tiNj_Unlq$<p)xT|Huz(!-Q
zRt%imQFp7{UgR6??ToBMF9lGf;X@hK({(&N&&1fa#Y;(gX%#N@n`ecmIw^#Ym|HKe
zz6oU0Cy}qV<yaQ1$h3uJmTtkc#0h_GLdg8|-)hLZk@2P#`|8B6#12S<$I`J#R!o0l
zTjAZ^Dxu-L6ic??tITpj-ds7r=R=$>0xSWeO_dC<t6NTh0>v-*d@jiujcjYBcxrWq
zgVSvtxEtZcKrlCWoscbYBVnM{%bsCGJ^F`xn>hLmL~kA!!i@E7W5Pz{i*--#L9Woo
zQwPzXH8{?h+mR?NDfy`o87J{;tkrOOPyoqpz0QVIboYTKMxReqDnuzWuB6E}7;S70
z?}VGlS$BB+9T)s0pL@Ij2^_5vLOx2t@lL*p-OTVH(CIQ=JhC+$m-2pTK#*xc&nx1%
z$%0P;?(y<Oj-lY9dyRHO!7qAUd*$B|^7CU$&V2hLc(@*m^qh+sk>n^<Z3sEu4o-ey
z_8E|i<Djr7^<xOrmbq6CwT>MgN@Hp-GMHz*CyWY|KLkWh5mNA#jR{3PixiBqu~{($
z8k04zitv!98{t&XM{QESs|3RLY*tIqY^Qz2JXjxoaH)Vql&;F{@2L-iqGkqj?In<t
zc)=x)-O4Vwc=PRO(^>?5te0*;nA?z`<DI_{EN{HRUK#|v32b|(GXd(<7EDuK(!tjb
zBnOqTI{B-8cTkUI&g+kj+XuQTJH+P)I2QiekSFIK`)&iTX9MK-*c&;w7h`4n31xm9
zdQ8}M6>3b|yqKKEpgIw!+0wn;>)GY$KIVZI72aTZP(O|YIQ6O$HIt!AeAMJI4vNM+
zmnq^RBAD&+J1(CP`8QabVe`m~g*zP?5{Crt7aVNYGw@<W^Qhh$tEB?Dhigp&O8R~q
zDn!mrvN+>`W*x<*l+OOAAM)Gg!QO<k+m{0xuKFx38d3tGL2f}i`a>4ot}aTI1*5Re
zlulT(|1p2mPz>1+KbJ%>gIM2J-*gfHQ)a)}#@4Dc^xyW6`a;%NDokF7`7=Q}^z-Ix
z!0I#HFW<<^^J2)$PCCqgTC_M}G{yoriNNjfR;-^J;{_#W>z;x<hLf_<gMHY(+z-4s
zmefIBRs)f^Ng>)&Oz|GwtS)Cj0Us>eRrtkL92q~y?nv0!PM8T+pTue(vh#Q|20*OX
zh;JNK-RrKnI{}Ot{JH*9b6%Cwo7ZEL%2vYrZZ|z*ZU>7n!6UA!$vXWV&p7ddUWhVU
z#*8&9p~xoHFGJ(M%n+*c7R?jlmG7Qf<f`P4ntZf)^WrZbsG@}J_Ll0?r#GXmaM-Im
zFJ9a+cm!T%Y#2xyaUqS6?`d+~i`gwJ{;0X&+f-M#^g0X=esKk6WM8?WXh(wBQPX1r
zhHT8tym;A*@FKi`_hk|FpYXm*2=&joUnuUO;)SSXMKMp@fJ#vyn*cp6dLhPPwlF>3
zqJ%-PZoqA{nm9d!tL>%use?W_J?LN|@5{>+j5!1!2|A#WhpZ$!LdJ#8XPhKNKN{8&
z*yjIEj!yv*dc4Tb$u@427x?*D06edXM@>zP{hzNchgE6;ML8JgX|X>Qd%*Gyd0NH$
z9D?yTF+5N2LE7WK$RBZizsl|1y5#%mH%m^ub@R2A5+}L1eV%ou$`IB%m@ZRXf3NZ5
z%Tt)y01u0RJwYPwf!j%z54L5jbCqoN`B~fDWc0b?F8T>4z>ZCp!$1v`P~Z_boHDd1
zD{TjF%yP#y1V<JdK<?1cb&`1=#6V<t8G64cW!a5J+nr8Wj)2bu@2Fkcm1e`qOjF+9
z`s$9*D3FpsEdDw*gZgdJnSadMw0~5P`(HyZ)#N@Z{r4GbAn%m)IAY$zK>c56p3J}n
zJKefL=4AuTE-ITIF@#EtBO|m>)ncUb%^Wtr<p@f_5hMhxh!t)_DA*3f948Lp*IgWT
z0TsyHcz1)K74Vk7Gy{Qp_N?Yv7Z?K7qt6=!c9a>SPQKx`au3U9*~dPP?~*se{z-)e
z^RECgMZuCQB~Kcz$5t{plm@cZ(d6@g+zY7Pr2%#qZ-Nm^HdJ{;UXbqa-58(%ILzaJ
z5iVL*eh(U9<({-~(H{P+nF4C%FvIV#<^x1!O=hAV^Io0ks~n9M+bzNjew*`>Z{Y-N
zI2BN{?LA|`wh!|QqxkGJ?HD*3vi<<B7J5apgAb_Wr3xRkTh7<GRRFulO3SJBJl*gU
z=7XU9CIia3FRbC*oq7)3@@^1F>CggTEXVVoHoiBISVrl5U7z7AT;#Qkv^LDyvFkK~
z)@5IIvOeRDagc=8U$Lw6J%wqJho!rq$JsBjm;Vm=a!v0u?h`ib!9>z!w=6seZ)0YC
zd<kY694t6o1Y3r^sgx&fvbz)a1yGMNXAB!F^RUKkS>8=^ZdSi|XP~CX`<W;Hh27=z
z^OQAX@r@gKsn&Js(t^CfSDv5nV*It^5t7j{+K_HnytYmKV*Bdf2xbd_`=ct81gft^
zdXjlDFA}7wNhBNpqx*06_0luwn&-vo)jl2<xfodGGh_kDSBqxcbj0_9K;jqOm$YeC
zl&ehnkALKyJLz$AM+g1k5439t`qhrIxxejjc0KY?(n~<I5b+%@CM$^b<j&IJ8en6w
z65MDmkYoOjG_E~YDfIbORwN)=*l0q(rT(qApsCK-m3a%#XScA8_U}|p;ysPh(VWWf
zp6jW1O8)j_McyR(qsj5NF{*N+tm(<%3$yNQ4KYKpxladh7mxP?v^X-HdyNyh(eg)M
zM_YOmZx*HBkRWBl;6b>7^(*@OssLMZPR+ulWG{Y2Y;UT09SV87*LMfp*SiM2CND@N
zSCWyZ1{)8-s_3$jHAHbcKU_92Gg$r9%^9+=U~jK1ad5+>g<@GE&IxytHoEN1iCW)`
z5d6Af9D;pCRjAaT#73iMfHQ9#8k>mUT52=1T<&*wwKDitOjsPqdTA;AThG)8)0XC|
zTJMfD8~b8!ednqux4%ygf2H@;g!NX>_9^7W*{kpwz*tH7CK3ZG-`|Ie=*A!M_)crT
z1UuV4<DDChN%scUN*-_ITotN-BOPlM%FS|RyBWVxUb2Ce8EV<Xw&+W?ht1{<@K)^S
zqvw=#*g$Vnz$<_D*tI4RaNimOULC>lcXT_3&joK7dNfOG&V5&gqr7zp`vmz17y!-t
z_?*`nsGAiS((WyN&6Q=<(q?rDy-j%joutkdk^VK{n1dV_ga}>m+cd(QmzLmuwXc}F
zi$&x7;>~_fwj8?_MnF4YyE!lj#T5GlpYI-EL>{w#ulq)Z{}1)%;X%I747eF5O-DnF
zAoYGW=&7vx=l0v~z&jxXkh~9vW~hp{!((|D5m5#Av}>5Raomjp3W|^6iw6>Br_*p}
zp${R-cXp_c9(fO6MHe^NhAC$5(IQ{CmsU7P8%pdkuGrdG6jtZrAh#h9BWXc#CFW_(
zetf^|oB!Fh1|5vX50u9QN}iga`bM}X-|WUbs8s>(pH(BC6O1`#kb(rrKuQ-UR7#Tw
z?_!-VsrHMUb)N~!Of36I5<UT2_TbtXT~uJz>!RPXY7u`2JF`YfLCJTlweP3hja6T{
z2k(`TK`P>d-ph9fb+@atcTDYWhy*78NOJnF&TW^r1()&OyV16N_UkSv*~LkC<l@pr
zo%kX@58s=QWO?T{;XPM8$nL!3#rx3<IR9{3eX*^ui&NpY+l7F&uFBSmg0N=x!DsiI
zK*H9T+54j@c2qO+7x-w4{v%R^&wm6V>z9?dXZupFY-A7a<~2;Lbk}*BN3N<0Ha<Eg
zF^Vlk?^`to{$Fne4=vzw0Lu!kYX9yJg8N^pYc>aJQZw<VI~vPzrEun`G!D<z3jHzy
zW`(@lUAlz(NFcbkA$(lQN9Nmt*#Tzob-q;O%=X?&=K%L4?{=G3OfK~5`y_Z^T<7tK
zL~DQc9}JDFj+Pl_lkj}z$G?02bPS^CFZ-uwncY|gbTK7z`eUbr?L;t-nMYzT(f=xv
zgSJB4y*n2r7ps2j-|m|Of7s+HN?_iFN}qW<xz~-)(FqK6K}uDCO4jb*46)1@nf<d-
zKsTq-pwJv>Pz$x;<xWC8QCo|jg-{+lHI3@d7W#GWy)7fcIqRiI|KVW+f0aK)|2(#d
z=f%gf9b++gJ|X&+p;++!ax(D2eFP1H=a?DVctP1vULiDJri>J}TtPYHJWP>5^=icY
z+H>;MXq+&PZ#;PhT?3nY<US%&FnNl?*yX)!_qISq6O}jTM@_2tW2+yd09Wip5j)cT
ztuzE&J@?ytn!cm=_8dio%M~+%?ccq>^uHuw|1OhM$N4wiHJ9FEEdNuYh64sA+m}yN
z-CNc2#xAF6wwxkAEPgycCpR^jr%>!f&E<uD8RfP@OVO0>)znl}9zOMs!I29cg^}Ty
zXO>u&Cyxv(=j2qo{Mf2j9+mA6$2HVO4Ao@=x=MTCjBZD2Mx{j5#t3{=#Ew5QwYkJN
zv<;kZabPbR%)-E16HinmJd~oKMP>m!8f4ez!8Eq>Y-T_tJsec)6qDJYs6_*tLn8dU
zAr3Gz+Hk?r-g)i#NFKa*cbJFq`xDk7U`JGbgfdu(4}G3H80p~$Qq1oECs)7_ANJzp
zk<6#zcGMS&CyT<5Sax!Eu;;544_6X#hv~Ol&Hn`TE|x4dG#sQk8BGwQiSZl6jNjY2
zFy0hD6F=)5OvTQE@3y};{CpPEdkH$h+4I-ZD;uh=Y)GT;eu=&tSW-VWcH=ZA4V&Yi
zf^d4f&R_^EVOZj`CTT92MwFNj2gd8zCshFuCHdDm{ENLkwL3R@{hAh0nkzQjL*`h8
zteCzv*l%TgKIV$}8i9*?rgf{qJ2x=k**a%Va7J*|emXbec600elxiHXr0$%^T=i+$
zN89&I02lSXiJTqN6QBJH`$_d%9JPzRJ)xbOy<tn6_^vaydXnXA>~C(3^he6-&kppA
z{m6k2aDgRt;qOoXeuBCP{}c`^sS6vySD3v`j%l&M|HqG(>mFV>p<#DKRn?_n&~thF
zdosRWlfAdZ(el`PKRo?ex5~a`<$d@)&>p7yoGKsOID4le%bnxlL6Y6kKYh_Z#k(PO
zwg-F_chYk1IAYLjhQtNa@-H`T$~I~?L8km=@~=RUR5#<Z@9gTfFV48@e8g?v*3}i_
zeU|W)!If%mcJ&$@^zMcfa8W<84$({zkJHqY;+cFO`mJM0@n1?K2;MNbhLX+Hq<^K*
zl^vT~Nsf;4iAUBG{o9>Y{YT@NCO4j0ZoY=@LLCQ|)bC77D2A}xs*ai$phMo@`o2pz
z<<ANPFUXys6sDcx;{&bSAeF&;4o~Flt0fm)6f^Oq@^DgYtnO#;vPb{C*QdRKBW&6d
zsC?KIFiC47y)rNWKQVD{;shL6lBQR0I~ZT=P1HDKGKC}2I~PB=avNyt*^uVq-$t~3
z0o_2hU3c=gU)}&g_crX{2>b=@0ce4>ecmLPGzqqpbSy%x`Rz>{!KT!Pvl{wvzS95&
z@}0v<Iv}02I-)#Sz4TDa8_=Wr+r&%v95$S=9MsO7ZT=8?<iru>3}~Hy{y;{}w(Dr)
z3(yU$@p<{S-OnGG2b6l^Q<)Rz>WNR0C%^@g(G$|RSB2*b;WQ@k4~Zo4eHU5Y*w#CU
z8=Hr|Gn2BHpv|PPEB729>PuiGRq89QLMPoXEF8~pykfwSlwlQbz!_AG#ns_aT9wH;
z8{%xdBAf&$n5j>x9r6b(sbQs&XU0EejB_fg)DE3i?G&J{^J*GBK@9jMM*G%}`{YA$
zm4vx$O{U|>!iBLd&@Mw#+9;|8b*1u=GIEvPV&fSB0cKgE(xv=9eX3inute3oE@P<#
z#oT5R39Gz<y80M?SIr4#D~A*Z4L<r_9fYkS2R&i~QSlq5`}svO_Dve0K2<*ne)@_$
zh92c8&2)(KFcJIHG_+OHz*g3{WArKx?9>fU*NU<lu`NuN;lCjuN{gA^XhLof8@$W7
zwwLjpOnMTJ?_e-H89kz3(8zwO7@huPAsY7@(6ufc&#F6PXNi2)u9#$@Qu<N_ZfwK@
zbgi4`q5FFtEW2_}<bnQY)#jz(C74s*;2<wBk!iV^32$-FNi)!`jy(YVXyOQ~v@Cj>
zO(68z`<P4p-+l7m@zlAud!c`woGWB2hiUqhh9Q5zkU~kL=~YSrzhP)6t4Fw8r&h;x
zaCsbuPRnruZNuTQEzm1g61|~gZ7Qf3jjN><=XOHwt#0xh+S&JyoNU;U=~$y9kml$_
zd~g+d-2L$9<fS1ada1|_LHo=FwDOaS$f?V#Sa2^3E5Ha$*iMb>BB*bPmG6`mzwq|1
z_XqAVP03)eCPe#67hb5s)X-6DWA`qtJ!t5Ng8xYqcW3AoW3M9<zG~^rXlnE&76qTb
zIu_AI?FKhs)8(t){r5?I)VgqYEYFy6+r|bp1$P#;zgc8;Zii-Bor~IUHf7%dix2M1
z%Y9LsYY9Sa`L>nPFQ#Q*%rINpptc-KEANZ7o_CJRzR;X+>VP`(OwH^UK;aHFx3pKr
zv)Hf*4Pk~VJv%r5w{vx`obP1!NoYoGHO&V`I}w?mqx%zOIn>nsofkh_G`hZTuW1n)
zgqv3?u5T*&wO3Z_W&&}~Rqol;fcq-%X3B)*`@3GC6L5+9gMTt!v+X)%v!7%WN}J&@
zYip&AcLGR##McYBJc(l>IzTF&hvzY>j#`Xiini0i7G`u30cmJ4?_AY}uO{xT8eMj6
zJAPuvwkHgWz%j=jv1P9NqOZO{jS8mNwg)ohTRbL{Aw0;k#5S6$98^l9*nHNn)K*C(
z|Ec`qsirBg`;$N~;1X7tb6I-lo-z|%W90+#0?7=}-S84=?&+HxMRt#uWm;Ch>RR56
z^Wvul1iIZ_3a{?^urAzMm6;969eyLR<2Jgd`Em~8Wn?M-qBFjHRG*c;_}&_^WO^68
zpL!R)<|gwkvzD~=Q~Rgj{-H}8v0?eiEo_`7VoK+WV2suZ8}EQ7D|7k3nIAT$8Ie1I
z&B%&F;Vy-B0or4?+`q04>`tFBPb&msH?xYAq@%_de6?bUsZ&C`Rig7bbUd~L*Qslr
zyDo0#mr`&|wYT6xN#)-n>+O@ByXu`hEVy%a!5rK=Fc6yCZfH6-@yDv+Wp8dr6URo7
zdyzFEiXiOq2qGaGup8NX6xT;D-Ki+s+R(#(rj#JvJGYy+JYY&$3r$`Ll4r)5lL~6K
zwA@;U^{E4mxMfD<tW}_n_W<43^~wDPOdDgLch-+yLR5q+2nLbAFgMsU@uHZy;{Mf(
zyKIWVW%{P(>DF>z_qYww5U^MALiIv002_(MAk;za_^LfP(li1CZd=B|mD{F_WZW!h
zm?KQ1(_>_U%Ay1HqdgI1PfI7Pf7^DAI>Ls!O>vz3r}E-a4xA1+^$rMSNww{pv`liq
zi(yN|GDtHvcwDBY6xS44cGo|a6u+$S10QL1^05Ob#<8rh$8X`8DLeG7{sFEtw8CNC
z*57B{vC>&LTH~<idJ&mEvklxwLRNo6oJvUw%HXASwM$e{8PURA^U?x!&K#~|inOg-
z`PQY6wjQ>*HhI}8;+o$uJ@ch`gm&iC;!<fvgHsCp-mrh*5+=dvTC@8|v$%RX*}wo?
zK%>9(=;k-{p9HdO1w4=5LeTN{9hDjA*Wf?C%=wT@M)K1wW<6i--;WPt%gVOG^N{Ul
zBJB4ZjH`Rz8CKM7EhHkC1SI|fYa>f}Cc6I@GmWDUY1lo+G69N^(h0e^(#M4H`Y4_w
z3$T8wsUr<yz7#!5f~>jk<56G!`0T?6WK0qqIeadw#27I^js^RXrX#`($IAvhNg1x@
zwHcg>zPLO*N{g#RJ2{9&^L@fe>mVpUEyr?xHdRC}?6O$o$+%pNcVafvZrf(rW?!%y
zbq0vLYy-4bk1%#pxUb@^qE06N9(2CpT;Niz{1wk;B8-#0@LhUY>B^EkWD8!$+xq7J
z)`nKj?ne<xK3EIyTh-O=o>qN0R)Bh^FMHc-sOIlZ?awhr?6EP}=Bo-DhKaO3>dAU3
zc;(s!vGk)c&y^IuRRVOEYhG6US^MT((88~(Fag9&euMF`PtQu-U09v^4_P{2oSVIh
zPsiJro&lrYBa!~1Qvb5XJ+L4~-n=>cGIqUqu;|KDA`kRGEw>C?Lv!%_`D9<uyg?J!
z1r2?Qs)ajNCcj}!^Gc)M!aYOVZqsjFo}fL4#j}1Augc*Jb$;^ze@NQ7o#n+-*T31a
zRX*-Ajs5g$8@I}#E~`{+JKF;CV49>-J>(B)Qe8?-m4|!gT_2aL4@-oNh(sv13T}Y=
z^|x-ec!W8KGcXy!tn*UQ&A8vQh_2lXvx+x$_V6Ah;glvTp_tyNw&659#aC8=8LW%w
zWIeWNcW6y4v*Y6LBY2I`#q<b?%8p-U93*kfNQtN=gNJ#w9I2KIg$%sy1uGVxMdWey
z@^`k*=|ruaHC|H#pW|RtmRw&_S|*oE<UB6Z?q#F2CfK}r>O9agW7LolY<Az)jy8>!
zpt{q*t8mTIiuc&Mc^6A?Dy3!5Wt68C-0)I_-lCWD&G-8iqrpI7pW#v_Z0rNfUrz}T
zo<Lf9n%&q*m$BOB@t<y#f~dlv=RHs{qj;UklGt4Nh`hQq40}AmRww0}Zkx5HHCiRX
z51P@=hc}t2+Ek6|m5thUl_qA+oH129syyb{Kj5vN?6d%F!|=kf4D<HCNbzoDeX}UZ
zZ5cMdyITWH>()s&e4hnmpCXhJ>zz^{lEi<3c98S%bAMV`s(6-VgLMrIrVwMtp=aH6
zq1NnFcvrP7z<E#cE6#|;i7RcCsWNxoc|PPR1p25Im`Fqe{v+sd_bBqYyo^j;anFfA
z5Mhii<BEgIYG_}Z3d%<t)!|Y4=%$6oFp|uVK_}dQmD3yR<#sP>=_4p=moQDQvQrz9
zGyMTYDy}S?Ra)C*2+n_l(Kf8N2>aT#o|<-=)}xjSyq`d?xWo3Qp1}r22uaBFZS5y>
zY6YUz3QQ9$+|F80ZrI4!asn8YbIWef@VUhm-~6#!@yP5;j|<jUyN};eX~G0oagD)a
zB(~X|ff|EJp^McAtP>0QAnkNca+i89XK)>S1RCM5=M3)Lp*h&Gr)KB+^dyu_yH9l|
z*mGHCVUmmtV4wIOS*N_IPAy!c3XwV2n$g`aSW5YRO?L+9Jqb82U+J;)G^k&nM|aQX
z;Z{-$9oF6WEsWEIujki!<)WXrN#z(zjpD9mwME&cR;7G?O{!nDx#mRtBMRp>c~F>A
z>&7`kZ;4th{KS@Xn?8ot8PU^8w|)hyOCIPT8>&}{X!*0c@kRFa9{1F<XLYJkUan2i
z)+|wI>x6~6h894iAw`_!<g(f<zIoM47ktLHKx=0*M(O`tfvZa@czTPCWdwhU=D3>Q
zV=Ob|Fo*W>aoz_6@%3>8PoGpNhkRb`P^VhkPf<0UU=M+RL|atDODf32PdjniTE9YL
z2&N;cJ99{%omL_{hbpAC5KMo~39xliUG6;`w#Zzwq}{OViRsIgOtGaJ%7#Ebth$|~
zF^ELF-iPkLP7qB-@l_!!rz*bbbu5vE<d}?2wRAHE<6<DykJUt9^Ob=~m@ruOPfheO
zH-f3cV9fMDlflG6=2c)n+@u(HaUzls-X$V*-4DIL>##^=NRWUm%r;tW84T6gQlm8{
zX#>9ZQW<JPE2+Al^auu%MdmdTR2<~GGNIh!cB)LkDs!uRBODDumlnEen`&QOd*3q9
z`fF|2V}eGKxtJhJ&s44cj;xBPgnbsLa-dNqp+(kkm=$&hUyDFJkM3^1l#d{j-|Sd9
zkZ_@DnNL<eQbw)Pt5pJhFIWEO@`v!%i}*)8KkxLNfC$s2WacGxwbr2_rB3at{7V;Z
zOp)-76*`Go?GO`H!P@4xe*J9|1<=23u61juc;gp);}$hn_lnL#D@FHeuWm|S{2gzg
zYW!|<1Wqrd<1_F6SYAp8&J8=VVi#;IXyw<&j{h*wRRwb(FB&)tWudqqHL&R=6@y*q
z)>ui?WQCM9&zd5C_aK663N1u;JeYlePQyM>Mj#Lz%P{#~t3|>+#w&gG?C65-Q1cK5
z%w5)6#rUA)^1=&hB`W9gdM1IH&ad~oS3di)z6LE9s72B>2>!3B<rC@jb38~bGq%mX
z^z0-yIfT!p6nGC7eQ{QOO{9Gst9qA6{a-y#^|6c}%^aab$EN>e6N2D|9a+(0J(crd
z5TZ73lEc8g8ymiX?jHO+2ZLaeVmbpZM1FD!rG$E`6v$r2$<92agV(ZAmDGE0vj!!E
zphXP!UDjB|>yb+6hD1}-!gj5|>Y6)m9(uJ6r_7E~*R2bX=Q&FbLCzO6@QlO=VKmi^
z>gUmXjZ>>rICy9r(G-8tkC*6r6uMNcUpLgJ1iY|@uDFXKX>$dhN8+%|<hN=xElgr#
z>qt}#?^{NajYBU6T#`11t2<uTkH1d9{d>6aUmW2!D2Hi#<%U!+WEgakR@)<&LP0|+
zL9^RmoOo%f<>iD5yRN)+0}@O-B(n|Hg>9*!8ZAD<g6n=g{Akmotv5Sq2uXRWJXjJe
z$8r9ZNdIGk1z1C}ce&j*z2F&0&AZLZ9RrDpD96ndLt+cFvR~QSKHFXmLy=-SS7W5j
z8W57*><Pd<{kSn>Tw(9`dhPw=N@My9v(HWGW6B3v6~>Imw;nT8+e8$Ro}t@lQrYwr
zeF<>i{zC^)Q<sL|_?JaQG@(Sl(w{op_Y18ZFLu}HxL7A|@Lpe9yZQI1m4>H5bO-u9
zn3l;B<{t#A1l7!FgVahLEiYecT7@V!&N1OYclEWJC|+t&i#Z1J(q|8x+%Gu*G3Y_O
z(!~IOFL0^wwRFaGb<b;eAJ380?>n&c88XKpR!c2W0;ug)nWVUS=@y}`GFV(m{W4hh
zCTPtU2aBFV=aJ{p$?H~>k|kYMS?`ltaF!Q#$<5bt$WJjd<a=34wf}4NGT&9QTDSd}
zxdJ(6PNPOG0x{L-?)_^LK^ycdI9^Lv?76zZ`C_tU^`s3U?}P*wa=bTRUUdcl@=P^^
zBcaSKv0JvA18SRU|3{n6HSgPt8y4OUcwo+Mm8_{s$*Dh@;ZMEO_ypEjQ^m3J`RJ{x
z@y|w2G~P)0GtSA>E30HpT`Ir=Yf23cA{WZ#Z6qeE!80t$-M^=2lp}PqIT2f|YD2dR
z<nLQKQg~-k=bM>*&RJ+Xt8-EF4M2q@9ZmV>Lxy4ICe{l_!kBxq)<UfX_LWt2nXE%l
zYmPNL$UjM%lm<L3Ir7)ry}hXv-Gzlp*2ft<nDB7@eXOp%p$DMH>>g!w?RuzwJLtG9
zH;8Z^HUh*e=e$0tCN|>+9i&&l-~2qQAe;CK9J@BnQ^<>|id)h@uL<ot>XWxWLF+6o
znP82OO|u4A`Yc#h0=#|M(!#IMHLQMv%I*+x1RSg5zsYyJbS1Uay?EK5S=Z^dsoUBm
z;06h;{+5}<;*c-+-I7*@yDQdE-yL%^B&}}$HZ+dSNPf%1Q0vGTR+tPP8wSK?C!b4X
z({8LYj#86io2r$oYA{OZev{#9F(}>pjM+f<ON^?9cCO0SE~Z+d<1f(I8ZO`L42Vr&
zgGXPaH8XdBM5?m0sdES%_vlSK>N!ecEdyOmUC?RY=;||0sM`0v{mq5RiKYo(VZ8<%
zv*kkQKmy_3!vC2@p))8nQGh|Gfc>!c>652VPe0MF;E6&f+eT35v0d>fHu*FP^)z^+
z@gVg)@+nL$78Ag9ov^iFyU&ryg~Y~t2Ber8@CywU4Oy6;liSMBa5C};CfU)$RLB7P
zoHj;r=#JT4KF`zhp8R|2q@C*-g3V3=_T88qBoQ#==wTS)DF&_%)<r{5+NFiAKvUp#
z5R@+nmLsRob0~!2&zGLAx-n@biEQ40O69cca4#K*y^W;swCvVIX(Aj5*S{coe0pD|
ze$TRhjJIT$An7IWOKL^Wii_Ap<bm0jH&mtXs&7DFlmLnoZ%=G0US?ai^52Pzo1@$8
z-;J^Gn{Xgr|H_>gzo~y_B70xg!C~qIke7$Ya<>MJjBH&wmK$0b+JGNg^9&MBi)&1t
zo!p%!*9w)|=sL_jZ1e!}t&yBHzO(zb?5wS}hLr1-A(^#y=azl5v&%<vZUN3{A7o-1
zarM%OZS9P!zTRM0UPOwoXBmS~-zcn$AX?%KI(v*pz}3U8a0#IctgYX{b~*~jUY{s7
ztG_4eSv&4m4YjCiSZ3}JR216!GJa**Fb#d69R6Ez_lsxwCD%X55c(vem3`Q(AR#0t
zRqO3mjvi<pUu72dwd*{xW}4cg5wUFRp!HUbW}7?~;RqN(Oqd0w7`-^gRx$l1A5mW1
zwc`Sd`3`~2aS+q2>6=WS*CIh<C54<%;^S9HwwTtBZX<g6U7VH0X2`Z9_lcNCF@4NF
z%~HO75^7@s7MP~9O5JXeFg?cVfjPCeMp$Q!NtYl56+Oa4IgN)cZoOx}s?n0%QnRcx
zDSzk-=~_AisbXKq#mNl-2Gb@h)dsOhb{=v>38D)Ld^M*YW2uS(C3!cJV}^^sHQgu5
z=u!+uB|<&+LUr_~Far2D4N{%6rDd%f-wW_1jedo4x@*!T(c05I>7NY^3}qFBL;7Y~
zoTjSM7uXB`l%uirAW@m_f{tT*RHZvAF$Yqzg*tqOzhhNy5c<m|lX!Gpu`fUgtbO9-
z>C+QWw6{$>;j*4=jg_kr{&e?4>26`=m4At-Km^lWf$D;nK>-+q$zDb|M8U;eXgO|}
zh0>K}l?=jreoq3O13n`#GH+3nW00*j(X814TkBw;tlX^YvNZjAkg>*USW{v=hHzHn
zK?&nt#_K;dR%cZpzRD(!jI%hQjuv9iV}I<u;DUg*a^FIw<UJyKBUycowk2io-^v&C
ziX_qxQC!B7KQ9n7f(GyuQ>6NsWyi8@L?NxdvKiCZ4p9Q+$FpkZ3q$NZroGY#Skp8}
zjn0;q4KHKWGKEexn`*u8fF6`Hb1_RAAOCsA<LJ;ZgU2L&MKAxkDplK3CNfp?NCy|r
z*fwkFXk0xgg=u<~`XPTnpK|jw+MehihE~l8p9M~qgU@4O|EvdcVF7K_Rg`8+i!f7l
zMX%;I&F2)i6u;o_>9b|#48>UKO~6h@w;-}f55l`|d<~S3?~SWQyQ>X7OJ_!d^3j-D
zLewK4WkB5s4~{B{<~*x2B{oe*$5l`W({{-<1OAY4piipCjt^b;LPmP9+EUZeCew~E
zI69Sr9bhs(vTC_zAceV=QP;=ww``exsqOr<F%H^LT)41a(mS#a;9&M>6{}HA&ahI1
z;X`N6sv;9JJ4K8&L<ZC36cqLp>o*Z#Ws~aZp)KIR<45e*YcnxBah;BA9WLvEmL0IC
zZJ(BIAr9Vv!msQqHossJV=et20;0zc#nSqWyncQ6b3fnKami)bnWaQa3A<pHX{(we
z#w%#VZ6Y8_2NWA;x35S$1V3Q)$u%pOr46L8f1TJt>s3n#TB0sSYO~*GZzD<GCEzM8
zMg~lW(a+8b%9&%X<%tcp`Tyw!XP%{~&U2-xP2XS*l^qp9wb#%;AlLJ3_=imKe6mnx
zQL3u$-U&1_G582j!vqajtAf>J`q<3xZPq$v%~Z8pBN8~x&<&%I?%-Rrv2KoOiaEz)
z+>@4m{|GTZOTv}=f>4RB$Vl6aWewxmOdB`@e1~i}OIC&z=Y8-&xTcQN9ZCAh#qH}G
zC`fU61&UbOkX9GZ8zbrUXlI2~9Ih8vFI{=|___X*ph=m&Z~MR_M=}qwm&o?RZP7G)
zHHR7a791vE6+aUAHo)ZAs|&0jWA|H15T`Q1*2C-A;nRw16UEr;Akl7WrjuuHic3nq
zHNb6-bW62>EQmgtPU!O6nE2nxx*h>pAiR!reG7(fOG*qcO-K)y-_QVxaY>^Exa&7s
z<uwqz48I0-)Z+5{_CJo)$dJUx3iDni{@J{Wf+~8D33guY&z6--56->yCzpHd`1`(e
zZ3U5Pq>>Fu4*uFCP>H$<U%I|~pU*A0jT+vo#$bL`gEMoH4{A!UuS6{=&njuwC#UG=
zTb};q7^B4;I($mqUZK-0huYV|XL*c(tQ!5w%F7=6*QMvS8I<>vq$M$JF2_N^d@$KG
zNbMPg7mvTMip!Pl&X8$fL~46zTv$tz8PrzsUVX7^iI;-LM~%`mODOe5+TO;dr<@sc
zI6wI9Z4vMlIrUr;Pu3yXtXTSYf8BrE-;XN|6vfheedg8yN4)#^@Dq*Kgn2E%_oRfm
zfSBSP1&ZZXO$2kmG4wO2;pq=Vk>`P?q_c@CYlEdo&S1ObV6YUf9&8tnE}#7zw_I}g
z=l2pW>V*l`ss_^l$>6uzb&)=XDYnF;xR1{}C3gduEniD)Z~JobVf*f5BTJrMm47Qr
zxcvh$Ug$njR0ogkSq1k-^KY$c0oZw4>BO&81ax;0HFNM<L3Kb#G?=%^0Toou+bRsT
zLRsPEMUI)lPcjkZkZj`V;NG=mhVqT&hP7pY6{cOr5V%@(9z0w0FN?WN8SXVGekao^
znY4R<*iChwi6z4^AD?Mo3FT`&3WK3xkP9rS^IysfrVWs0?x^wpja$Ex7c8rSG@FhZ
zfs48TOl-DM^=^@@@Y*8B%*szP5nqW+<Jar%J6>ij2f8Fo>2K&&iAy=f2Qa!qQ)xrx
z8F*}B<05<%W<*ZIv}HY#F&iJGlW?;)(9<i8rM!ZbA3nX`{DSm8NOYg^!s5$+c(!;D
zs9<$d*;{=^N4GAW$_h<~rn9zsZFa=ubaq{4t<hq>jk|5pZ!#FIhR<=gt!D6lvvFeM
z0{jj50@FSz!8ZE9lNGK$t~?puvvrSQScPx-tZ0!6EU8=I2jQFG2jE+Z*{t5ADflxJ
zfgjE0A*Lm4aT{WT42yk8FTWxREmPlm=trIXwwNw#bsJ+ThD|k8CD*cfN7W*OZ9HqM
z#phgx7*^kqP5$>2&<cKpt*~!&MRpp<Y_-dt8~A+Lr!cEiucjV5?TQI|McTlO-L-uv
z<y}~91|4pCbE>)7+^g3a*}ZJ0v{NGs+X_~@z!x?y{5=St+`2YZx7=;s*41U+x!ecV
z{<N+C_HY5XVia?_jo~E}({~#`H9Af^<Sz)Cz)cwQ2%`V_Ld14nYd<<89lHpBU?P3u
z>hjAelB$!Xi@R-tx*!vrA=R!kdlyne{_Pv=wc35SYgX3k3#^|k`#iVSZ!^5kVr$0I
z2?RP8i?q{`Q+6!Q|HOGJ<hLTB$-iM%c`xO{4`4+ADuyM0lrnAtFTq=2#`5LQl=W1N
z+4<*|vlMh<tUb8sX16sL-h_7zv1mP?1saDxxdVuv<sBpEww#j|D@qLMSipF`<)U*L
zTG;qFF#Qu0qGm>iM-z*Qo5MF78J59Hqg(IRMFwaV&Js$^4iS4sT>)%K;Te}>XJ5Z#
zamF65n{n6|`}*uV_n|OL4pYgqk@9SIyZi~2Bbe)><@%gKBvr=^Wb4;rPqDVXK-q|h
zxcpYkjW5uve81!%_D_tz4qVjI(qmJ(^c*;FVsJ(s5b3^&oQHgxCUYTrq|x^h(fnI8
zEeyDRc$z$4n;l^cu@6meW0Mn}cLsjVH6L^zf5wDjf~TumlE4}~?twI%bjKrQ77wa)
z2Nq8hc59|3fH3`9z<&O;t}y9Wt%>1szsYL!p3=NC(E57QnJ84a|1=&hzPZcYO`EPF
z@s8YoB^ia?THc~W<?RWi2Ut9X$Po1(vVJq|s5`UejB!YfYx$W4>RE$Tej$@(RqNlO
zqZ<<01xeb-^pTwd+|B;LAk&!h0;dx@&ASUpEd{TQYWLU)3`s~NZgV;ngGn{eUA<Oa
zkF<)2UFV^1+ePB3D6YoCl~eyhAitq1cos$>8o{NTfo?UJx-<zs%hi_KZav7@6`nXg
zU2yRN@hMHQJ==tMesI#0D7g6WI3Vt!+0|zynJaV=YqF44cGlC(2JY!qr@73Ar|qmN
zWENtLaBF7CXK!3g|Nj7df%oF7US9GAa0@1iA%Cup-u~I9yD&nhr^##<@EpWVm#Sjx
z8c;%M6u(DAaBPIG$V4KIp^XG|SLZ^h*-=%-Q{0D^zcm}oK+B1!pi|_N<e!~94I*~K
z9V@*Gf#~d6x%91%cNb*rbA3VbBG8hGPhCf@@;;ee_M9cxRya>@>$|())6t&aHv;qf
z>VR(bu;!6HS>w<;_DwZM9=^Ns5f*Z1d$7<JZrfuud%g0#4`3aSLhLM0rW-rmQK;sD
z6WF@Y`oM*a`n1a8vwadA_nA+fNwxWa>hyGmo&6I!-0>&wi$h2yAY8;|SQa-gLXM~o
zTkTbG23$euXq{RtSPxmIpCJ>2cV4|&NM!3RHl`6tVw;?^j-oR^@7y{KO(n;d-d*sS
zpIn%9CkigYi6XI>sEE+S0n_G%&9v=2`23}JaBrepea0s@nZENrQh{ty!3v*kDaPI^
zWg}5$RcmE-*HJ0y=XsPh9^O<A$e<__i6~J;?#Dau^4n}RZHP=&szxR47rK8=xrLyK
z#IC~-tAcnEMtEm!Y17g9-CXn>R~^_DAn;B7)w;pDkS5hv1Gdg%Gn`r-!@*{79Xc)7
zDHsVa>nw^no?f`SQ0pviSlSxYv?-OTfL}S(rUaHbvX*@ZRy|`77$j<$C5ErLe)q!=
zf12-A5{3ZxGS+ef-94X?hdqPtOxVh-<9LLnow&d;>hPJKWR@e2th!xhCO;CJTen$u
zpu-4IFmqpxCKU>s2Zw4*JPZCQbv<ty#d-R{BTdI<e-dJ|@REA$^^-AH!^#MF85V27
z6D-RCk{Pnc<?jghPI}`|tF)K03;$h~Z^)U)d0O`}mbAqA$$&a<*@uNjpS@*S<t(zw
z{em`imuu05O&5s$nURmj@W+z6caqP2lM8pZu^a=bMJt9@gcrhxhYp8D6~e-PcHwm7
zXuiE*LZuc&*cvoqZrnyK^IgkD?4JnAVf}rsvSVYpgv*m4SsRG@ptM`T)TQKD)7Z&#
zYuIh<X^-P`y!!M$JnS!l4&eXFW*;gtk99Bn2!xtvwhYwFlyIsX(VoI_qXF(ZOga<!
z7atuDK;NTw<QV>lS$TZA^|^$J=>Hgj9|mm=XP&&XsP+D8Hp@21!PmA;rFYIGJ$Q3b
zCq&phm+}yY&b2kIIfFnx*E89-9BF9eJ%CK*YZCdqfY8G<?Ny2vV{NR(RQ{;J%9U7~
z(7KHIP3xD~>8PQoSf8QItjU8xdrS;$N2kvu@9a?=`do6D#yqNKzsKZgO`wSc|7;)Q
z5+vaMVxMHI`xQz%#suXy<c$dv+G@S3__M7K1Oyx;DyTJi4Y{MD>@xiTiesm7ZBi-M
z?m`@n!-HM5frVX<I>=xiL=`U}Ovb_PFWotA@W~G)4=+&utwctUXapQ<Nr(isBBQzX
zKT?^I$Y(h{JgGhCF|z3T>xgIc%9_no*M(V(q}P9E<_T$Jw6=1`TpMY_C2EY#T<10#
zE?2Aubg=e`Bm4JH9Bc<TnC(d067&!v77imK@=v*_CCErPjEoHd^WF9Rqmdd5wzLNt
z9R<`{uXAF;l;rY(6sdjO<NmZsWYoljk_J_kyf4yMHFy%Sd;<I|x_X3kL-dM?%;1ku
zaA$1grex?pTICRp)cc;T{!|l7-aOV25K2u{sNd{VE42PD7RaQVbtXdI0_be~`@*d|
zOWVGhJejf$*mi<V(cLYs)kR-1P#D6kLctOa&h?y*S*%S?e3Lg)NRu@%Wg(+k+tMip
ztQ0gym}?)ato%eO`UWph^=ggl`$w%ihO7ong!7Rz{8JZ>yhsYA+csNCcz;*CO<xm_
zi$Nx#v+`lnE`=XIajrqC*AG*c7H!5wK^9EY!me?P<!akYkb`d#NyY96QxWcrdw4=~
zCiJexr4h+Itz7J6kAS+7f?uH0&%;>M-x;{Frw8;W@vOa|uuAk71<k3<wI@jxca^_r
zqTCN%;h!3Clo@g;%{FHx<E6DsVaTAbX>1hLsC%`>bps>TokLbo3A1#$<%`KZD~@zq
zx}5T@$)tR-%WWRP4k4m}T15R4EOteCeQlsTIs-ChM<YxtHlueL;MRJaqZ5WCHxVSw
zj(glcHw%sNzTRk+tgo)GeDEZqe*$bHbXGiU*d_NDO&o8i((8sv<6U7J>0h)@MdqD&
zSE@z}r9<iD1_mug6Nzm)e`FMl&z1?HnK)>M?SD7_`Ld{%$OxF;l^9LlN+5Z*u3X!C
z|Emb1hk!dG_SzUtLb<e-EOaQS?>>{UU9A0?R+glfHPJG6Rw>9MXVT4QGPjeKSG&L~
zNMa-YUSx3*_n(IMyLA!w;!yCs@nG>dk8e_0Ox+gJ|63*po|RtlB8mDma613L3{FK>
z5TYF;#jQs57ErIedUJ9Lb@%NUO>k5BLc4FHfc0|nck6sTzCI4PSM$~-KpbY@aN;u+
zKvB=Z);Z=yJ;|dpcqgc|6Fdf;cM^~`Sbq=zlrLjDbbm?oZ%hjf#-h+068&F0bitJ;
zwc3pz&iG%jwnV7Xgz%m2E{I5*z=rBAFKgnvy1lZ5pPlE~1B4Qz*W7K-wz&a!hr9jR
zcK5X?_;!ch2R@2XPsF%E2)Qs7IuqIVfnMV-B}SQy3@5KfR0q|GYIqqACNoMbtrjY+
zaBjRA4&JG^LRNi^lfiUWY@9~_fsbs`RbX6cA>igF>WviN2YQhI0C~YFVJslH{dMAN
z@I?p*;J^kdKb3f@QTSrwMX+$@ioBy+fUu;H`NOXKkwFyFLbxyEil+`-_T*$fNH_9e
zPR?=9oZ~aDjO?6D#;t~6Ig=x{p0w`6|5CzAK$c`+YVGMt;!CAv4QKU)b5t###xj_$
z{%IRywYBmF##j1C%QB3VUefixk@!JBm(9|3Ja!6cXlgiq5OtS%_Kh-Hh1pGPp@HC|
zA1r+MS+@*{O&!i!V^fM@;=BZo%@!ZY>mD&=TD>R8bO)X6c+zW|>EYI>6LgtPBCIr&
zuyA<Mku1Z$=9;^$4J=-1cV9aJcFHIEf(~wQ)7{?Idt#f$5V&K{#@z3_M9+%AfgO@5
zh|cnc-Tp_<MH66Qe?rnnGv__pm)O#B6TOcDPkQ|bHxiO8b-N|wk=hZCUT-!w5)_ZS
z+~TE?&<Izjv=19hOZ|S+*s$Ji8_}D_{O75bju>j~)givHPN}F0*6~EVw?}*K-p%mw
z95I%K7V-FoQ(An(TR|P_-70XQ-W3S%xCnfD<YA&yi|?co!K_qPFRp4(C=k1OGFcss
zAt9mh_|0ZvXf$5H@cm=t3-#oWNz@94Q+W%oY%MSP1P1%Ds2rTS_IWs55DtI7Qmu#9
zT&{x<I%;#Tye^S92vr|6$__$#g9)(VtRVp_THKE>&sSvc53|#lTDh#E-TT_Tb}{_5
z+&mU?>vw1xL$4lz)e%H?W>lB!XegJHq1=xeH((qam2H(uxlSvCMYjI@^=|KC+(w>Y
z1FmH5wLc!I_%ll<A9jUp9&gZVN1ID4tA%_~Whp2rajfBX#grQpo#vwx<NI~dp1lpB
z2RcoRcD>PCNoW6&N_QG4M1|FB;^9M5la0wnhh9y8FT%Z57BmpLE4?zSbm^$0SvxLH
zG*z#yZT7C1(YWb8#2upN-2_4@gMZFI&VElMJc7^>3?Q`soIM^a==H=SWe00Z4<=nX
zu;lmF#v2jmf-$uNLzSqGej6mg=ByPXwIkDY)1$ScD?p}=sTQ0knIpZ;&5>@iCDQG(
z^_qQXy4g%cqpA42D;?x>)$3PZTW&WC4#@4Q#yA!KF}9SE`I5p@uX7tUe06BkNCP-a
z68jk2v?9I$nS&6=)Rc$NW!sRYU%dIk&r>3g@}8GOeE+fcb0U;&Mgj;(^D;AsAi9(K
zL->Sr<DauX<YsvooFjErxwRrjI~x5n3eQ0iANm;n-1m_k!AmRYC3b^CUh4wSKE{9E
zCN3{MgR5em_k{Xmv3M%X8ZTt(-~Uf%@6ZbQ)jEAOUHv&2)<7mW4JD5@(B!9iZN=Rg
zI&hw(4`_L$%a7t$FcL(b>T0>WT7+ZwLRVLb@d7%*Uu(Eahf3fnczIU#dG-%Vk*i-v
zkjg&*D;cZA<O!PyQF;a=Vs{oY_3!=PQiY%_hU;^>H`pJGHKxF>lPn#7MMJ&8BGFC6
zRZbWTaBw_uJLw_feO8=@$kOpv)HgsXaHhkGao8#>{hEvu1BDf#ND2m_<9Lh@OVaUc
zv>vd6!s}*K)zviRl(nPE-khKqGOS3t)@*ZJ2yBIlZ)UoSdauZ!o?-&{(1*BP4h?#*
zCYJ~+o<}N85l0Qp^NrGn#0xoxv6y44SAr&rIojZt@>~uEmu7m6uiM#KNL<2XG!x4o
z*~!%ZvlenF8e1$VVc7nx#0=gsb|<d}r_;exm=7DBnL#62Eb$NE**?CL$#F`n*iH+J
zCHeqwVIg(T*M3+*E9LC}x$U(f)Gz^w2kImDxX#Nk%H%MwjC!)fcDs}!DUy5T_rS?T
zxrfGKz5~6KS4Oo!nBzD`+dT@gZrmZ>jH+=}NpmVs80&KK>#<duKRA*Wy_;V;j>e3a
zS}z6-+vsk^FdQYQgeCSD6qPgs=E&9LlAbhoWi{WXx{|y|_y|+9W%(AD&z`i4hcN|6
zWC4bHCjrbI#KHZ=PVJ?fvKMi#q>UOgBK}Dw&1^CRC8h>OH%wm`uq|Wxz*>rQPSTo8
z;)^r90+@Z(P^~9XyEI+=5sCD{t5wA$nW)W#LR9&WA9T1F0g3qNgB*NdeU|}My@7#S
z&r(=62G=Q-nFJe?#kMj<qwLXh8h!XD7|bW}`29@AJ|Oke)j(4Qs77z$h!nOzQx_M$
zv5{m5zd?<s3yaW2lIG&NCURbB=bKMM1f|l5n&)Ugq0=#i1G~Q8AjLDu<&1TWA7c5%
zWK_{yh<WrNfoE2MQi{6DDxc!IN@2C(pv&i)z;%@5e9}^EyJi8KDKeo|`Fh8*gzvG~
ziytKIfg|Z@8gR$6*VaMbfo)4iw=s6K^w>a?r_a`bTPSSFC~l!H1n3JTEg3~ExP?ZS
zZ5%gMRG(f{kDUV9BOON*d;1SO0SN;=iKA_M`!4-LSGfWI-=gOI#m>PknaHPnuI1_^
zXYJVTPRMd0Oj+B~Z=L%GC?nNtpB?l4Ww*+v<6xEN@waO%Qr^=RJd1CrOp3H`g^>gm
zo_Klj4JdE9SX6ok1ya2UL2&PKpWKM8@75vDKLdjki^4-3w1eLP>tL>~eWE=h^js}t
zbxTWbg%i!$_Fvu``KZo}ZDoa6kV_H%gSWB@E11v2bZTm;a{p%pYdGeSuw7;r+l?v^
zq%bp}KAfSY(6lU;z&Mn_1m&6t*2)Si0bf^9SqGvgthU$jI!(a^NHLoJluA%W)9&;(
zaN0`5@2^{JCUds}BmJt?MJeNQ$|;m`4z~<U^tPT%(D<6>h!IcmnJ~4_7%I=lxprT|
zRM64X_Pd4shAnUyRY8f7P~Hm$;svT!V0E`U;YlEfTvmFjvh%ZALk1|TWo@ZO8c7J%
z)qW<z<AG{Xj2{FgEyBgfimdz`ieV{~F##^d?lSL^?J_T&r|b~TJdV;`g`P#~t_o)s
z=P66gyJfr0yBEMQQhe<oqF-$aWaVdP7i3C}*Ae}j##^~T`folrX$^+G>C8L!k27JJ
z*+p4TnIC^=oizSD)9X+~_<)tsn8+Vq*=vz?By{gJ`C={KhxGL~_p=y8-^rtAjJUGK
zoe?fY%e$x10Qd8%xze5kfd>a(#MQyKI@)ZR1$J0(B+*hT{}S7~GF(JriP}55Q;4U#
zDG6saux885(+YNf+bTRF*s^0~;Zjp&VEfSe$s_G0unrNdDI+r@=gkDHMN}}bJA>}^
zym5;^zcbh8pa*%Sux1ggd8=qeekbENC*N|8?$Qc@d?Zn$>uNRGAOyQZ;Wur|;1(`m
ziOf7`ulXF?f}OFih}-y5JDBn(vE)gA!S`l~DO2F&{BG^hZ<XJ5eP@!J1V;US`;+!N
z<@e9_K>1VH2W$8rQy2ME4Ik)wtAp1Ml~%`y8uLa)M7~yQi&JEk*NN8A)t}N(KcH!U
z432`#?{YS==WJ^Du99r1I#G#VS%jk?f9*&AN-e^T5^yrPia=h(knt$8vK`8sSH+@l
z%;PiXxo|b$YswaGj#LXg4i=+wzac|kw8d<Ta9n6JS~KSzS7lI=X$k7J{#QuYb2Pqk
z{<?j$9q3M}CD(cIJKl;?$50KzWRO>96=XxXP_^7pZWz(oE3Yp*lv9wojJpiVT{b~U
zrevre(6Y6iAg#CkUW-SzHok7`NONhjxvkwyf5YnuzFVQu4YYL_do+05Qq$PWoEKe%
z?SKU9>S+z41PYTav-FW8uWT`}Wj?xyE5;QOaXC8;-Q_`^D$*GV;m7s%fe*jF_j>cZ
z@g0RY2~A^`E91j`bim)+YRE~t73-T~@^#5tBP{NV_;RZCUia%KaSy3q_c>J7U}5{A
z<A-Z$yXRR+VC);#HI|xB8f}@Kdw1}3!yD~0KV7xh%{?0L?W120MZ65^Nnbw3tq*c#
zeB|W?-!&FA_6KFn2I=;P4jJCEkTVN0V^}piXYIr$X!Gk+`uh~pN%iUEQ+vCwcJJ*6
zN@V<sm%+u_y(W9+jQQS^0)hRi9q1y}#_J-pH5f-UNvg`H(`kJj6cs^u*?xJm4Vq`+
zRe5-5P)uq(5TwrFP3+9$$;Z$1xP^dFdGfU+7`tt?ZJOJ(`6AA3p2I5+2ymxGzj%%G
zEoqX-?~_QG9liwcL&ufJouJnJ$7*JI5T1_%ggPiX{vZMTu<O+(FH!6MG4A?G2n+v}
zlJ<sF?uuyRnHoJI^{qX@k0&2L+;iB5*JAf*5n=J}4I^Exaqcu{7Q*uz3}oi<`i=$b
ziVr%<E#q;EZ%hzfA%5wSmeX?`a*KmUC5&?J-|{D?od+JDJ(EbjRsr-})bZ-?p{>Vj
zss&B~$H#9@b_Z)b(u0sMR->#6ibZvDYgJpFWX}wdtnzje$W%OTa$P#>S29P>snjuE
z{^ot~R44m80!^zdax|i`tQKWvRXtx4R+*&jiE54AnVFYaD-0{}w03pFU_DJTl-fBv
zY<YBf0yL+W+#W3G94N`7Pg-0h3ne@J7F?fC>n{FvNnzIsB!iqk28wqC%(#A!7L<9m
z?Y0rn#z)M})W8ujL>?F4zpuGql|SGb4Zl%&nG}9=f&e|d{pc2?ngE`=ztDbJa0e;4
z_p7NhtgwXWDlUDys>;}HE3!T``I5B$v4Yq;Q=LOTd$`UUP0aVWQNs6$`0t34y8Hki
zL^0Zyi<=_SakJTAhkeXupB5*ATRT?+L8pl}%BBH{);OYADaqSvEUG`7nR$lJF21i%
zq}KLJHm=V<NdRnkc^)(+8r|DgwGXwcaf0n^`>JhjV_rD~EB6>zZfgfhxGCaj8*0Og
zoEZW_G<w~pj8NNfoA!E4Is{&o4icz8x(D5#71W!B7Ug|Cs%?=5gB|u}D6|l?H$*U4
zgW>Q-uWxfAVSF1sAb9-9pT!#rtJ{={q(KkZ8ESPamZ3K&I$IUs)vJE%v(H-nYjgv{
zD+<0#N3~EPRDhZ;W$$ae`sL5y7p04Qt09v)OJ<2Z@cUQ4{{o0VyO{|A)RLx>a_FnD
zoqmId*}khOS*u^FlL9t|9=q1sthFO+05|aGd-Wj|<Ar*6WtiqndV%^T_C;Q;T)M6Z
z>(oy13^64_&@Y2<&Hi%&-+qv{k5FsdAhE@iJ<6#~5P7uqgQe#U#(Gz4{4`H-6RhRI
z3Ns0mD=sp>?Dtm4-SFl?Uo*cdrextg%#4wGET`J5?QH6912=N_S&!P7n5bF`RgG~P
z0b7r#AmX&n1NKSjz5nvNLu<P6QL5tP5MDOGI%gTt%TlG(T41Y3nN9k#saeQKIcZc!
z#FjWy=8oAUZmgeAf0RkpNpQprvY@P`2b0`YEXjkxfZCJ!d|ARL`k4<V%AihwgAAOA
zlMZKD)TWk>>-0)t?q+Dw9@4&gkKhf&FKJ`&{Q+_nC+}}g>^cP)9<Cp8#gA?PGA!4P
zIgW~3(rd94Sj*_uwIN0sTbhb1Z$Sd6ckEudeUefW5vVrkEd9N{@4-p_-VuO+P6MU?
zW+k~OmlJ`~oEp2_-;572>jum<<a}juVHGQ$mEkZOB$R)gaAGvO$p{vX#uzcM{gW$&
zfHLT7NYe!hJW~wDoW_-trt>xcWhhXWW*<Z^tEkwJJE*WI1kRfIOj&wQLEk)yG~b8V
z<FF7od%^8uPvBQzv0Do!*w6{oP~Rhy-=n&IaN#9?bdQjQ!G0CuS|VXBu_8$zCeIPa
z1R6tQdB#9rGqHm}=pd4r&yZySmh3EfFT6zZWKMlknnzbf>i%+%o-F_Vf<nQQaBDQp
zAz+XqUjm6vuVi!d3Y`lnIBe{sm6ohWAl8?-S-`U+UvRm%#iCy?$-g0r*OZmbuGK2n
zfFlwoDRi=#Z8}Eh1X`yom8}m(#kx7GTO1PuGo6K3Q%yT?w6(tXj~Z9%9~c2s3O&d2
z@tNi}(j@}C>&E90qj#_pAvzb>D9oi93VG+3*KFQ@8u;sGuE{=|XzTXe3Xo0jXYq}s
z=uilrS$+?N{Q<CK`ro@rB9EdeJ;%4-SOVWm212G(F{}Jr4N-VZ11JM}H!VGS_Z83#
zSKI*ad6nnc<lJ@uuPMIaAs6py=;1w9iR0&c2|()~UxrP|=i8J%NUFVsK-|)Tu5T7&
z(w#I~01aF-Fu!9qb^;pEGq4!-ZujItSDWP>3us$Dn)76F;aerAJ_n&hUh__r7u~+W
zZwg_xb-oHwqko0tfzX~=>965_@FD=1KI5_$Cf~fj;n0uB()}N7*?DROnXh+cz7D3}
z&q0K#rOyIVMbt}-ClPpmq&VGBtryWQp)VnDfx!Mi{f}%UbEQ6LZ1@-(=bl`)Iq+!n
z6x7vM_1XKtxdpJ7f*oHEtq;M}NZi0<mdjU{mKUNBW(2AbQOe_k!#FsJRBYiT2K<eY
zh2O2cr~*4`;ZnG^fPAaHjB^<kV@Dx398}#@35{}6S6*gzsS6Hy69w+Y8(=>NRo|}u
zMmaWSu){u!mNL)WT&z)VDF!RJsfHz^F=TA<3S-dZx=kt9j7yxB9<=~UGqx0iDG9tJ
z3|J!*U&gmYs>}Z7F(48u>8G@Mi+xke5aIr)DW2e3923i?1nyUm9pKWZ))I$XuNQYh
zy5&nJ-{JcHibI(t1(n9%El67Bw#*XT?C(;>jm@28J_EYx)k9Br#>6nu&Ik`mf6T-)
z(T@oh)lVXkzgx7>r2f4erH2l+Va5FtinKixvqGpoghL<MRb!vabtO0}ejbesi84NK
z(?U-Wm$|20B5=0!q577o3qG_`3$zP8aXARfv(iV1$q|>>KgB-iZK&0GFA-wjG#kiU
zNB>S1K6c_mU%Hk_uK2Cq*m~llBbc;KSNv)JRC4sRk|=-zg=CN-hBKZlLJsS*V14fE
z8J;gxDx(OB6jwv4dhGCxLQK$<&G?OlYXe8fl;e41@7Z1uxXk992-pwloccSuF{FJ=
z@7Yo?_zso&WwYgxuI{$*;%g(-rCQ=ssZqlHvbk_W_u!rxcrE$vJT|fNEnGq2)#d_^
zKV2_o3r(~dBAq=K-)7}3eCEUlzVumGCk?mR;IzQ>S_VU_x4@JZL+PfuIKMrsp32-D
z#Ed<wjtbh$oGPCg7VKj(`+{be&#5ZdG9xpG5dF&rKO*qe4f*N>K_!$H(;XT04(3s5
z_XfSAM}W5a`4I(~<C6N)vV6L<BDm}A^Fp^q5a#Q^7T>bM+;m;WDsBOi2+P$$&{f{@
ztNL@f**VV@r206m&VB!|1Tk7?-*&-^e)47cd}%HzhpcFS6X7eWyfuuV{pS#kBjS<Q
z+-NGWdOsqrbo9iletRWhqu)NE<m511g2;HZ3-%DHYdjveG{k-OdJQwF$=*pfM;bIX
zUjw7Y@4GXLL?Z%*%gK@28nnz#l~PsnleAvz=_W^oR37!q3dEsmIFA~)5e_1WUjYi0
zN4rTx9wgYLLMMfA2vPA4jYmrDd}t@QNz#b2`-9vDnMD2Oet^x*c0<|r4SQ8R7oNXR
z_i^zvHtX=ni0y%?(V<b0b!Y^<sq*iwbWbFp4$s;4`tiYwf$7o@--P<9v6fDQL)LC@
zHOcWT`OSwQotD-B0C1TuupW$gq`p4c*aIvo)9^f99ZF6~$AT4`j0AcPILC$I(zt|Q
zBg+-8aiiW6I<C@^>FJ8PJlDc5M6Q@P!G2C58oR|K704NF#Kf4ICPFpJXJ2+5`x3j3
z-2o{%BOMD?G!dfL-d#&@z&S2-OY_>BBzk>uR>`HK%H-Wj;%jcOqG4iWVW~vqc?s@G
zh`47+$tmer&@j>)K6YPZS1D$r4oT}NClQ=8iSjvw6zQhDZQrhcO$A<b-<lOEj+Ngz
z<%;UN<U7V#glIZbtkM%PBV|n0*9JAXGb0sowWZY5Ag82b!8Rj-o&(NtVYoCd#n;HX
zD&9HFR*IND$jmD_z27v`1(q^3clkmw(!`XdgIObOCVk28oI1+8ikvZaLowBcWk^Gy
zEF+rOt+Y-=$P8s7_JNd~l8yx{HrZz66h}D2F@n8*K??jTP#W|*)3gN2B_bualO3@G
zq~vro5z47OEYlG$uM#6ogfPx>BXW*}jDnVmB^wM8N~>$I&sok77sn<18d)xLmFxAU
z&@pB2N=q6uW4P9;J}>Ip_j45au~SwgE|4);x4DzvM2O(5AR@;|$QWp;SW**MQ?Soj
z&JP#IsTZU4-kK<XWc&hIaO<QBHB&698K^82Ug6c$UWXW{Gt^sN(2V9FA)}zBVrc8W
zsD+=+<5(`WlkBpn(t3(Y1ZS16p*`GgzRLA|L*?BhcZm*Wvv?XZ#mj!@tkh6{RJo&#
zMLIf>RaW_$h!`khico2+I&4rq>gRcnt9GX18YvPo3R)_*7znJ{=Pc*D#W{TpA={RZ
zjbv3`Rz$3$@H@d>PnD*wm0OK<(!W(qg6g1ZjS^V9qh5B*$XU%u`fX%>FvN~`OtmJ1
zTF<nS2QYT91QUTdtw6TR-CSQ12^j?~6-zeQV&Ei)IgQa(b7i|_gs*>qKlr2l(O2Rh
zV)?(WtFw*_DH1YU^&)bVgp8K@3iJ%VuH7l1ekA>!fjWZqCK_29_A5zIY+<R0xQ@fW
z8vMcv_f-bj>R&#xF*PLI@3|8PxtD-wYz-js2?P<aV<~Wmcrai@#%vE3d+o;^m-u{^
z=Quy00?zJp_JaSDh9XO*U!%XZDgX07I)<hizVUZ<a-Hd*8ulsE0g2k+$wGZJBP^jZ
zfnm0fW-BzTVDu}r@tfs3`StMHoRgpB^%7jTagGr&gPis`ZRbrxTfU_gQ?z_~TV(RL
zbU8=YqKq2HsLtLOlv`XgR!Q`N|C3~RC}5sLCf}0M6e+ZM=+z?7kQ^d9j?_LB)T8sT
z05dZ$uqe2axlyYR<sf3#zQx4X33-=nhw`+Vxl*-zRq4L60#>T)Ukw<7YUZ2l`<k>B
z*$a)jUj^fm7M5n+k(LFSpJb&w8*OTzXVj<HkW<>|AuVf1`wX$iB=WeJUMfbrtWQ6{
z35&G1UDIdixYiqV+Z*+{H|c%P={;}OB)9lc`TdwQeo}w<gnsu){oqsj-q*5E>Ab<|
z)o^R#?p!q9p-|Z*i{LQ1bF;}8BZf|)vPqVqK#V$c3YAT=2oBSx;Fa(oYP<sql})k;
z4wE}K8ZREc6}b{w<~H7;P}wBQ$XG1Z98)b5ZgEZwxmt+ICRqfBN#o9q7Z2arnwzei
zqwx-f$|hL^hiQ{*?@atnF~-#b3#>q)vPl-fVW#0UkYcZ}L>)`ivE(J9vPl-fVWv^G
zmQpEeb>*BI?@*|0l0|TsvYo~HxE+sy&KOqW%rx$Z)LY}69A$7m{Afr4hQzoyDtPYi
zb%i-C&)D=W{ldRPrq`Fp5~oF^(TqdZNu4HQ_|Z2Q&<WjvM8-Pt(XeUcd7q7k)oE-w
z*a-m-W6s{9*1>$Qm38#qMJm(@Azlx=gn!caDdV-1m*^qD`;&OXp=$^CC~)e1*q4`B
zjbD$J?g`avhv?kr{Y7($PH3az*)ng^bzkpiZyQT8-^8B4dW^>KD|?*dq^+{s#!_Lq
z*$w3vKat-YcHSL$Ft@-ergkn39ZX&9RKZh9F9pohQ__|I*p0c1GK&H4>I7`poCm1D
z+i5HUc(RyhSb;2XFlltV+1T&3EbIC}qtVLA(tm%T<)!V{hpUeFkv@WMp5SoQolAbt
zdI97cXC0?ut4y6^Yg#3KC5C3qO5SeLCW!79UffnRqYeSNn+#<bsSIZXBN@eL#wh<#
zMFucXVtqaiCT44lEEq;A!x_OyMlo8)jMKi=j*!*-tKt-H9arQ>B8eoDNFs?Ol1L(m
z5~~@<c%4uY@r8Bsbq7DL0q0WaSoPugRG|vFuQk!1R3YywV}AXnwc|$NSLM>Svtc(r
zzj6P>i<|aLADyM%;QR(y9^;$eVoM?zF~1Rf^&X}+HFJM1ytF<!8+qLma}t)m`E@Ef
z>LTQ$=_17FZ!?GaEnB3~H$Rv5F=Wj1ee3J5vu2v~b?ahiYTmj1!RIVv-|u*kHG9<6
z`js9KFr|2A<%P$C5RKYPeJgYJilnH|MbQFvX&)Qf-8*#Z|9xonpSb-sVR@8>Vyb9O
zTUrWb^1~%h$r~Qp2**2D&jJ5N`6~TrnzB}B&ta<PG?PA;;pR7mL^C&IFn3-o@*lA6
zIpH#hws_Yt5`PYy0340>eFtrK=Y!7=Um9)o@BI7u?Vt1iG>w+<tc+`a|E>>S<?QeN
z{~G;1=ie=t6nZ~->EHJkF!w3!UZl}J&)>azt6jb??KddieQyFkd-J~7p9rmkxoz!p
zsjnLV7v{gd721CQpfuXnRh9r}e$qPP3%349t@tkhP5_(-aNp4lj)sqOYCFLD256{&
z0$3=8Z4;b+J%b@~lHFgYfwO}RZW-h2u8GHTz;O&OVyV~rMRyp}<ybzZvOK^ya8eUl
z=0d7CsvsqJ9^#z4Arl%yM~3Fa4s27)3*}A)DS;N2k{QX2Qi9z@%umSGC<5B^Kw@Y4
zjSv%K5232B%TsrTz0jm&p69L&ISCL;i<nigG*{i!m*@sN1J4MSP^NHhiN19FBwm<x
z;;IF7Cw@!O4|tDrt_REq{L;-%LVi{;A%Wy%MHz~?DCR8LA<#|kpgzlenXKu5ArClW
znNUjJ3qEpNkgc6amv){<Q;^4o<C1EgmuMqVp-2g|u#|lOg^>%UbR$jUEH)+q&K@!0
zAssVX8!f(vpeJkqcMu4ZTiMD!VCI^Ts~%xXU7{$VG3!v=2nt0CQ1o!XLg50}I6NCz
zT7cpK>ex9TG`qcQ<gNfIffkmMQLv9d$?r*JDwHvGx4t@$*bM;C=tZn+%YasZblNic
zLY7yM(xP}UjGQ#38?OhVApca9P&|MoC(-<NVsS1@BA=+ZODT_B2H{7c9lce2Q1hEV
z73uu7$X1|TQ{>avbt?A3D2RoQCoMXBr^l71ajX~MS1yTAmTq@boU4-gBcJq7veYPL
ztpixnocrWHq@>6v{&1I)kGN16MGqxzsDql`{CT^OpSQYHa9|R|@ST`9<_t2_5e02S
zccY_#CqD9mKa?+5Oannv0fb&4H>8he0Hu6RH;8R%0ur51V<uMBM2W`TN!JNV-_3u3
zfVVKpFyr5)suPOkezA`;{}!P>F-4}t5@_-!oX<uy-lOjM-s{}7E6FL`)<?A0sOYv8
z*&%@PJvmH`d;E;<pWMDi4H35GXJQWlrwA#`l`+r<8w1MT*&5`fJ)d$i;0*huj6)`D
zDU8srOLKi9^O*ZWOAXj++?MWKX+7r^W1gp*XcOB39QB>l)^uai>aPH#@u@*zb8ZeQ
zbI<6Us@}k5^g)$veGJsW`zKEEQ^R~#^Vq7W2Yg+qIBe8IVedZ5YednG4H46v$(3z#
z_SI7I7F$(|oaYStSk|0t75}~rI3_f=MpXsfCa;+aQC9n0Sjh8F-b9<&4&bEkq;^dd
zz*R)fkN1&iTK!v{kH~rUVe~WcmE2tpxlWx?0;Kk-A!<vF27~ZcHGif&{eG!!Z+Xut
zl;~JE-l}U`9M1M~{f*g3W34PeDFm$dn%m2j)~+5yjg>GT^(}zGz*e_;6nT?n<%+V>
zP80HG26tynhgt+s*6=s+Xzw<}N$Y_aVsBTvJk^o!eCV??%(S>19g(g(6Y0qL-RbCw
z5iSz#-gATs?BNgUfQsr0XU!SE%8Zj%0LB*`%LO36QtYOx{<Nzxs=CR;IOOL`F-+GN
zx{}2FWj;o_pvi^Y#fhj$1<F7ge`G6^TO8m3Q<=hOAC+1RRj@i&D|sT7lR-Q7?bweL
zS0ZMT*Yi*eX}7vusqHGB-5xX>C1Xi7bUTR!H;=8U@eLZxsP)X0j2JSSD`#|HsiP(g
zsHp@Mwk;xFiut>^KPR_i^~E-BTm4$e4#-u1mY37$fK$22<2a_~m-<SULd#WeRF1zU
zk&{7tLvC+K?G4u6pw^Oafj<MN^_M2F*>IUEDWQyEw4O4`_JCx9D2;3lPGOOclta~H
z7DSrpP3yZjY;TqzN+Vl?Q`oyI+Pz+7B86ErMoiFE*3qb=KomelAv_e|_GnHSmia2u
zPq~jNXPTA9j)+oYzFuAPXpu}1rI9VeFVrMM%@j0(BojnwWNUB=i&T7U%3U>G%p*}U
zL6k<e2B$F7I-k~bM@Q65qBOEKIE5{#P_@<Qh?+^1Mz#j0u*XzXo^m~U)J&o@vNib4
zEHBNCoACKQ44_|VrrI6qFUs83+m|;eyX#NLN7rfnUh=+FZd4`VR6X#D-7h%1A$6_X
zJ1zv|n2FPf;i;pSD!wP*F;sP`u53qdD!Xe>2*1Bu#Xa|oR|A=ctl-!7&#?-m*@~Hq
z@{qS=SAq*Z($Xfw`9}bSM8Ko&Y7l^rQX^TpyjczV2$4wIx$;I=mYXp^FFo4x43FwW
z%(_1D@2ESez7+c>d!$l?Bo$xNRnxh$(Ul=2VqYNX04q27%vN0K9-LK}-HnX7DstcI
zrm9wK>wjnQNR+Nr;?b!2&x0$@Zg~z%TrIWO#4%ZSy)veFWx|v#!>h29x~-06I)_}D
zxWYKfs!*BNS|(tZ`MIDco>4~Z0i@`c1Udaz(H^h{9oR&3q_rDbUA3_7(s-}8l;(TA
za>MxV?Mm!U;y&-0-DA)1msKhupS#Xbouk)b0FQ028gKYJvQ*sWk4YzCiuZNF4h=C}
z`qBDqxWB!#VZUm3)TBLvDx`Z#TZo<RYkaw2k<lxuQ67ozmy0X#fd~u`llldsv{rB!
z>YBtk9wc&S@y_?P36`TyAs775`D^&mZ|Z;ydL0`--JITKX^c|hH5^2@cQN3DkQ*?%
z`GJVm0v)JpDsen0ZqN9fx6#77=+}`zHuQN6&%K=Ow3IBw+C~lzt9Hu3aR|YMnDm4o
zqBepKI5d?w9<(iR+$^DC!sl~W`R}sAdxXf0H>WE;{ip2}7K(ajs{_M`C4pzRp<SJD
zd7+w7g&+b;q)hO`qcjB|BMuOXoliJiBBCb6B<OTCe9!JHx#4nMY%sd1Z}hudyh94?
zzvWwlkBR&uCx2${d*w>-FIU?NPqhUJ9(J`?d9_dOUASR3DtwfLVLGG|v17;U5u+2T
z@@^*H$y-tM{|f=@7{#flT60(GbK5N(g$rMpo@vfwDctUdhximr$1y>-s@K^yuh`y3
zKv1`X&A_yq^;)cK*ZP*HpWG&wil(AB#V;_8%qQ;D>Ua;wf1_hM0jD=H_TzA5T>^%}
zwe-g4;=1SN3|L(D&R4a?%}i}4eWEt&(}=E^ALZN0d->d<03N<t@;W~gKmbSz_-A25
z{C-vbPmgf(0Cq2Btp?!!ZMnNDUp>=X?<Wx800RI5(5at&a3tw~l!r@$`?xptRa@g_
zK+Tn&<<gAjvZR!Nd^)wG{l0K<{TCM7xy*ulu!|l)>9rc#3=Xm=y59J`a#r+!LQEM9
zW1?-zhhh;(tD?&_ksNfhc2I&)B9K(jrHm|yS&GtyK-YRYm2|SXnvU<woNelPMy3^8
zO(_h>IC|hT9hfl&Afo}LTw?af?vJSD*5>qpDI1keCn}{5ck$MwbP#K&g6fo>sEz`E
z{AJm2cP?;_?PmJMdQ6&UunW{<OeV`@m6H|_bm%O`QJ7Er(IyT(HoKnR$2G%BJ7_H}
zRGKZj#x_73r$hLhwH8kVwSM<-=wreMJ*5%!R(d>ZJ``v{vvc18U3Z%e(3_p3%SQXl
zJ=qd`%&FM7pJ^1t(%;H<bXCv8ED*g|+PY7So%Hl96m)-V->}Un(2XrHO*8URbCLj4
zww)Pl$)k~`(O3wk+I(T0KxF0E^7$fUy~WYz&{Lsuu6~vg*%@5azV1t{G!$yabIQ!*
zr`vnM*2i-i%sNIlx>MlDHpluX17?N>m>sDBb0rp9nib5mpvwB@lO_{Eu3Eke>K^n5
zqWrM`Elkz92u|1KCcSw!-q5@=@=Di&=B;rd^RO@=V;Yn#n9od?X7Fs#Ynj|@wwRJ_
zq<(+He}aDYc-!cjU1s{`OxSO6(;DzP(swNJI~6|@F=RBzH#nA#Q&~m_P>>&_h4pdW
zQD0ACGfBoAhBAdC+XCl6GI1vItcvj`r1L6T%+~8%{v4-^1#V^akc`JBeO%`E;V#Sl
zWBrSen^;lY+z6K|0LGZNe{KN5Jc6}D%o-otRH#z0gVthD(O~G2Xl^0DniO6|!I#wS
z+h0?+QO*#O=Xzl4GSD{ckZ&hekzKS#v5waA{ju$sso9Iu+p3C4r4ocoCrOnI1=tBX
zVKf^0SXw5E%am9{r3xkAvn|8+Gm(WrkF6r>w<@_P(n~9q$N)-iiWHHCOBe1U2@*nf
z!Zo?G)M%Tx?W1i-*{>XGRcTojeU(il(`Mo3_l6ZleNhR%FjKdXFTH+4uO(c7^I!l5
zPR^amN#_h^;S+oa`)+=hGQ2-ZskDW1)zN)_bfec2u7=69d8Mokkpt3j>XpBemxgof
zR0cY=!#6r4H0bkBz<aS{3*ts2z<)mX4ztWx+dHJ+R+*jZ;p@&0+jKQyMZIOpZoRyn
z)@{4_v|G;X&vM$}1U-&9xOo-rv%GXa(GBm0*@O)f;3>{R1)Ded>|9b`mcca;0s-Iv
zc8HT9b?Q}I4Y^5b-Yby8CEziGGuniz=!ynUzX6tzf@!nZyrp`K>KdvWTp9ND<y)0r
zEM+g2ih#)X+D>|!l);y8mFo#pQF4(iUVsYxsa3Ll!qu~pv;p?fD8SO6CO8H6!zWOy
z2LLgBDWJ|)U#Odd`$P6NxH}6mT6_!@LYi%So_SJwd4U7hSghJBnYXRdF$H7~S|;c-
zw{8=#KW!vdoAEA|Ee+e{08Ot_M<_dIxqDa5`?3uxahzs|K2_BzU)h&jkTq9EBadRw
zbwbO(GSul#1eZ_WxY7I4A+bn&a{xLOQ@tX55ecU2QiuEK4=4Qz+1V>?$FpEqfQch9
zJh^(VW<f>Q+RTGj3KECxM1imoJ|Fkf3O0Z9{RI(y;A){$K*G$;!s2GFGAEnV>#Apb
zC+7kgM*@kfC$+9S(+EnYt7`rl7(Y)2aSfw6T2P^A{amEnH<dDEu9{_JYh+kP?u<QH
z$w0)ht(!rG(;;gJ(_1MRCKYG7d{njQCZpuk!AZBA79|*RZEawr8pR7SZGzQ-<VpF{
zvywNYL*zZ{UBlW_Oc=c{X?UNkaMS=Z5C8$CfCMIRfR&%5QB`&;TL?m&Y5}TKL@s1d
zNtQ0^n<k#_)VD3AmTwoYs?xX;ouUm68BU96GG;l6HYkKLr1=E+M08?1YOUZmAMi(Z
zHVZeE7)#e<<X6bb1v3ZYzzPBg1CJ3^-GBl_20IS7^eamF4_PQBC_I6l7ag*Lubr6Q
zk*p=vd_s}&kdRYwsykPkKWZqKydm%?3aZ2MYFpQsDWlR7#u$viX~XJd4HOXRG<zQm
ziTR-Y!!Hu%;kNQ7Ro!NCA;}%^8HUnzSBO&s<*?H*PQE6Eu0dwGn5TtY+~>G2^^)=G
zh>L_NAruZ}-i{9kWb_C<Epjjtup}x6U5wFGpc95m8tnhrk82a|qNjG&yOz^313CyG
zAId=q1YN2cGr;c}q%(CI52RoMNUxwv$bbuDORcMiSw5{(CSKi95mZfib|3s9eXyNC
zRtyWzsZf;)A+W5n8K&>tI}_;YVvqFzx(GTR+lEvgsyc$qigm(@fbm6Zd53@##IqA3
zfDQ~Ny}h`A)`=(ZZTvKop{a__KB{YQm>{$ilDXL|dUnck`gsnUiqJ6dZbf5B7Nn4Z
zELdd3_tRi{X62hFaTodZTZj>_dlbyuq5D6;N4HytKwWC}Gi67Qnw#fqnmrq5St(Pp
z%uxz>i}2`tUlJRJWgo6Z=IRSkw9>Urx&Mpbl`V7mb0lO+^_(x$Vo%Ra{5p#-!*gn`
z`sl}t$I&73nC;m{5B>8OF4wyAy<eVi<~RD5@2|Aaj$;u@S}*o`-9L|U)b}3tcT^RM
zFT?qOD=o)^?nRgpd7Yn`dJ{<l!%P&}>3%%&HX35$)LFNPS^~hk?ej<=eu#ka5rf#}
zAE=6_VVq$ARz!k*P`O2cYf*PL9`W0!L|XYysfm3lT4k|*t<-NGBAqA7x)DLv9>O}d
zN)x~65tUc~X+vd-V?81~0uogel9*KFq^r&eDKGO2)KKUJl@Nm_%-cZ0v`U6lm7pdq
zg?)NAy?3kZrNuRL`094HJZ0eFQmZ!!_Th=h{v^o+c`T^FHK5wiiI4g+gl-$9i`9W~
z8!Rd@YYqn8G;aMd>cd9A7xXm=v3?M(>nIaPMR(0nnI1pus-Ulgn7QCUV{TBL#tNH5
zK8M<j;Yt6zxV)?AT^MGQFA*vlItC^dHV!Tx{#Q*A@y~8xPRKL1l8TW)B#|jpJTVxb
z*cO|^<?#W5P%U$C(kZ8%aaNg^UMP2|bcBP;;ECr>2E>R+h>VyJGune#6f03$RBXy2
zAfa;fFRo~D!@|KMAoj`?eF@f|5E3#9DjGTlCKfh~BFZNqJhb%%Nur9BOtl(v3d&v^
zFqmdTX|<C!Egd}rBNH<VtLk5M8`|`egE<uv))=mS)UY=yIM*P;iDZo^Luj_NYAaf0
z-@$c=|2@izPujk9&$y+QnJ{U}wB;W2^P~x5#`EuLs|A(-+`DiQB4YsJiIOBEB)w@(
zEWPG3(2j&6+1%`Y?)1Y_1qwawx@&H@<z`0|N9h|DPfSWqNv&18PThL-8>EHOWf_@S
z**R|e^Ihg?g|^btyL>laSj4?Jqhh7XRjO92UZZBM+L`UvX)j>An^liXF`@do4MOgS
zrTyIPA6zQrspIxF866PbkE@ZJTL>zAlqNO5-c6uOga;~A8j)hc^o(&iN~}FS#(*(m
zq}nq<wl~MTH7pfZ(zQ)sF*;1xJb`ueg@RQ^ifmn?QKLnVq2wLYG*c{3)`||qi=Qko
zHBsUuRV7VUbv4OTq-+;p+I^`rWX$AyjhxFkYqsn;e5FOM+`i=x9?hFCe}QTX7Ajm_
z^)(bJS`1#HwPn^dKrC1fze4NJ#1k51LsEz|mBjH+HWfWUuHhktx+I84Vpwc(A_)Zz
zVWyXXgBU5hoN~)6zlk7dM>{sNTm=>)4JYxWX!J~zW-VI#y*BMSY%18I(QVsdC@Lwd
zsH&-J{1@-kh&HpI@e*kQinz_u$4}%#hOiOBdxr-m2nsgWPYhp@{)vpE!~$|F$cf~d
zf+IXh5J4wlCW(xlSbLgEqcdcfTnXl)D2C+(EQ<Y<RR|QrYw8FJv#ZCT7(O(DP?!t0
zQYeNQ7%>!W9GvM9NO3P8zkpgnAz^h#8%!oDCazIJlV&YiwRtBtEvZwNZasSS={I1B
zK`BFqjWC@B<8)ctWcHA}iI4et!e5&}K_ihvUepsrs8LATkX$TYg2bXBK}sx5x{Q(`
zxkWj0<;5S2_EeE#B}$dyok`M>pn9}gb?P-}^sGRF9Fle<=oYCJ{LVt1?xYoiBjn|)
zL-h@9TiYXf5#Hd0mI{%m2%#HBheZ)W67!D-F%fccc0Z3tpn@72nrbD#|Ca_1#abcA
z`7m~RczU_KeI%u%Wn|^b63nI+SH#)X)7OUe5X5Jp9J-j!D{C8DJFdmpM<-_pPau+f
zs7BiJ1R|+qg-WB-Eu0pcvvD3D5C{znjf_o9&CD%86N$u-L@JXjl&a?&2%_<=)uEV`
zwT-Qvy@R8Zvx}>nyA)%9eXy|~b~xaK3vPJe%`+RYfg7~J%HiGKUiJVV{FJ~$E@5&o
z0s-nZs8y%Ob8XrcDaJyz8vU@PZb9^J-WEmzGH9XWoC{bvPn&s6;HOKVVCM0%A;g=L
zy*Zm(*yR=KFHem^V<G}IoZllXl3FGNs@5)VA5~A^fCkYsY6Vu6!xd~T)@|E~W|*{!
zs+zinrj|C-u8uu!#^fwLkj>HO8bC2+;7k6xFhY2IV}S{3irL2zCX{g@m8*^Qe3nLt
zo@hlUKth~<Vz3-em)qmz?c?hwP3?U(dc0msf}CWSELk>(%j3%l<Q0UXWGlGDVnHtd
zgm|%ZBV8<%Cq|Mq`I4n9DXXZ8)zmdKwY1IX=<4Yk7#bOywWW8Tm@{v|)<Hkql)<2^
zXCH5U=A9l}ALL+(cOWaOrW>YZJFe%0ARG)w;|ZD6giADOX_TZ{UX)c0BPT+5#Y8e0
z%2w;mcDFwqDW#1UAIVRr>Jx%uI6+c0!*aYJN-|JXO*f!v*^cY^K^VogdZXEDce=g)
zU^p62rnC8Cxms_wI}VrEs`$_CX0D45*px$AvN~a`BYQm$>A?GVpl~D_i<jsUL*b|7
z<74*Q7WaF<)%<ZgJplr2s}`(GnX#sZgz0E6Z`=LlBaB^NtiJN$tDASZ4Fs3#7kryH
zbG6Wbn(0R!s<RM5h0Ysc?LjERx6}8JBuR>*qC&_JV%&vAgq3Rd_f5H_{#dCxw3q05
zq+iPfmF)vr^L%)R^DP(lHY)nP_#i{xER@~!*OjHxYk#?ALTRaOtZH-h&QTZZx9V1_
zFSeC?5t#IZTzYQ%yHb~}^%m#zgWk=<I(<5OK7f(aLYG;NAD?<}A1yD4TBs=2?1$C4
z^=E5T^^kpj|Nocwqo`-_LwS|x4u-;!svSz-r}WVp=S@ALR`3#CW2M(~h({i|4$i1u
z?qC_$@A0mjnubzaeR&0*`RHAY741hR#vKfdQ0>RI`%Yqu;!v4~ptR%0E^zB8cxVh*
zx&_`3^Soy;&dQ3i@cD$^(efi0&(K=1c!}=}et@fVbkWmS7}~LQsjGoWh40^o-Bg19
zba^p6{>;bWqq4BeRj$Y_eT}Mm*28Fq2u`v~4q@CAOVk`wI8sl*NtTAd5GV|eK!U&!
ziF&{+m{yMA1UJC#>yA><xR~TLbD=|udOeS3*Gz=L5l9diB2f>Nh0@Mq+VxH|(@A`#
zg2tYGXS1qkaASXd$Rr<^y91co#U3X;M?ZJLg17Wj8CEm?O~cT%i)!XD)$&a>#g;`V
zmO7d$;{@O03s1F^{K6Q@>id17@b8(9?ytsUN~Yb32t*)3U<ee3Y3GjwM<799WIEqm
zSKHfS^Reky-H@Dvb9LDrgM)AJMW<U5CON+S!IvCd7lR2iY$AqWY=T0xtB(wWBamw1
z{KIEiH31uzwXD-?yOwSCmO-EnnroN2gGI+A6XNBEI4BsX+;`Zj)RJZEDAH=^f-M-k
z$04ZGASqfV7$^wAC?+d-p&LT|7>A^~`?PHsZ`=Y9f<@4lm7tg|*f>FQq}>J(f)Uvv
z7C1p_!J%cG16WN?gF~8D5l;xj5SBAx>1@+(zfZpVhnzNna(>Tm!oFqj^WPH8E1;kF
z=M@`&0cRWjfoD2QyfhX5UPZN3?|W^9>z%jrP@`L)2={#cgoaX1nW)v*RU190WYg6c
zKjzP1w$?sR5bJ_Hi#wg#o5#Htzy2*KCnWa7(l4XhTNYfY-<^5qn>cB=+2}ba_BdbL
zWBIas?@Cfbv3C*_l6<3UrNU}I7GBY?V~u4a_1Z&uMizCiu>;byk?XQqDcswXO|m2{
z>JF3)4I<SnYf`T{Gi!MDaFIp_CR)Q6*lnPTsLPRqfE~v=QoR>`4s31x>+8fN>+1U&
z*cxxzxI#$f=uA_`45p!a>X?{B<qX*(rG|Ksa&+eK)_9MNE5}ATI&+RDW&~oMIVL7i
zIeOGq>qphev~^5v?>4Y;>@lMpy)S9}+1qd-m7_CL$Bu8fkjl}S8BS;zmg5C6sQ|$)
z7z7PND9dVM<mMo-U7#?85FP?{Q4&Q6y@+K^r4NJbDp?lB7-M`61|d-_ssh`!y&n~X
z3BA*LR35ELB<Y7PA(Un5Hbzh^YD`|Hau{QbF>@t58#LIY;oXD@Wm)nnR)=7VhSv!b
z%Cgiotbs#1G`vAEoFJn<W_^9#aG7&8{#pHmwf$TE%9OW8<hOqOGQ2+h-~9gT>iKKs
zZLz;LP84C!Nr_LV6Q<-jh@vFzTTR$DhukiIw(i%u6PJ9W6&Bz3y~p?Xo|dfsehGp?
zgb8Jq&4pBs&XfQmOenK#E~IjFrT`FOLRr`Iy#Bg%w*mkF005WKvm{an#Oy=^kVrQH
zu|x}kJwRA?o0y%Rc{vO~gb8Jq&4pBs&Qt&*OenK#E~IjFrV0>YLfL(DeJZ7tQc7Qn
zH={soaS5?B5L*%%NG*;nZZ5t*@{O-wzrgmJBHGh$GWnk$eBO~-79BlqT^>9V6LY=~
zR3tAS)4^udO(%tAregV7rs5Tzs@&+0P0}u3{1oY<%iA%#xdu>i+&cR(sUQnn_c3z@
zj0J}_ldLwgk|u%?qX!We^S%>Yj0{>ledYVS`8H_luisZ&5)g(&I067ghQxp<5#gPw
zL&ti*U&)8{;_vzrK&sEb(&xIoZuT~%xOo$pK!PbuVFC#fOkoNM#vp1o!5DZ|A3zHb
zhD10507ZtxfKYU(zwE3aeSP$;brs!*S86nB6|brTXaT~I2uA>*$dDKiiVl>W6{L;U
zhUmV47q(k0KTD6s(PTQCFP5uyoNTtcG`qUKxwUJ;%sfJ0BQ@npZ1!x!rxo=a{TnZv
zGkbr7PM_bZ4aT4OPTl3r`KFpS`H>$ByPC3P?B-to5GM?Vm)#&FDukf8L>%pMoAVVy
zed+%4c5MFolH2Q`49BL{eHqVfEjpyC7>kV)XW>a|xgD0rryHqSFKr)hAkW;>wc}%7
zL{Wvp_7?i8k0U?B;;GvDfWrfBHuG`6dN)ST!q1yZ8VyiaX8iP0dIaR34uuAq3^u=x
zxvt7tsHzMO3_%Pw3puSe>VZjM|6AXX4lUzq;{>VYy5tCEfalul@9*{R{h&pQP(<=j
z-m;8XL9JrP?e%}LzsJ8kbkSQy*u4#Iov=aLq--%mGm2Q~G*CjXf5Vn_gA*jhp=BHa
zjG&kw7fXf;rj0rTMawt_5WxwOl9LEMyH0~Jh^X3lM)pN7f4wj8k4U}G>m8ea&oF>G
z>HlrhXR|Gz>x!bxVQ)i$rY1uhvbR0h9B3@i)MRKw_O=I`+WFNOV#W+(Za8Cx{UyB3
lcZ{)hBT6H0_?@F|2{J3o*vE0t7tb5zt47I|EAW+KN&p~e7C8U_

literal 0
HcmV?d00001

diff --git a/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700italic.woff2 b/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700italic.woff2
new file mode 100644
index 0000000000000000000000000000000000000000..ccc64f7c5132335447fe47c2e9d2f88b707c9320
GIT binary patch
literal 38496
zcmV)CK*GOwPew8T0RR910G40?4FCWD0enmV0G0><0RR9100000000000000000000
z0000QgH{{jP#mu?24DcsZVH2(2!hXB3y&TE0X7081D-epAO(de2f#yHn@y3ZbL{8J
zfN8a|Rp}htmMQ#T1k&Q%L3M1+VE-|qI&XBB%aE}u*fB%g4v>`o_kOeg|NsC0|2HKI
z8P59yF8L%t0RW`6wzcYXZcq@SiP2L=C~c-ev=f!6dLC#`PeMU&!Z3D|rx`=`0u{I~
z5vy@eQ)jZHC0i*OoA#X3w9f_W2xr3fLPGIC=K4CSealXcIi3;B?3G(8iHm9FUE7j5
zh{lo~x;VT)p&+M(*Jxu*eM~a049_w0g&s48J=r7CMa@a{sug*#Yvn`rztO1eh$L1{
zs=X~}A<bez5-TCFBLpHzRI<sDN5>W0KDHRKn3r2;7j!!Yk`Af2;?7f*JA1fEn9#>}
zJaLBmM<{kgVS<?WP)pk;`?;SlGVu#BlNfM++UV`b{)~06gZEea-P~(RDcM`|Uhsai
z_i|^kfeTU~k*bD?s=k9K{@uJAHnSIe@;T5qQHf5Xq54m#u$W*^Vc7hze@!4VGW$mf
z*$gIE%GJ)u_7ee4)sV~Y!^n!SI*Up~_CX{m)bm{7qy4vdl8y9N4VvJsiLJSG-?&tN
zR><|gZg?e+2G8b){L=qY#Z=!qARe1Tm54UhX~}cGsFUrfMJR>;Jk0ISxo=U_2nP%p
zwZTZEvEo}9U?o;27~NRNk22W+Keztzh8*~)?TyKxN8A)_LM2YYNF3oYn{0K2M12Gu
z6(Vg791|vt0i#A_DGcxvf*c@hlRE8b9XtIn0SyZfPFw(X&UpxdgIsVE*O3FR!m2{9
zs^{VP{pKIwLciiYUS`50A3Rz@Krspx5v%8{-rATmR&FyE<<|cF|5xGayZ)P6OD7p0
zAv-rd;DK)s=>hi;cb`BORb^FNNtilMBvk)@oxcCKouqanqM5*sdzvXz%foCJ(LiD0
z6BtN9wgM6xuJj54K>r{2Y|s5OF$ET5#Hj`Tc>bR;ci;JwxVS1>8XA`n*94tj*j(!S
zWy@nrwqF?l1<|DIcmOQ|1+0J;@G@Fd=>OU8`OWNezp0`c3B@e3NJLG9L?gBT8j)-s
zve+g94)y-C!J{FW9b+;~@sbv>;Nky24%$8MZwm>9F_%aH++^6y`tk47UTS&9T0*y0
zquqUgNf)_9GxuEUx^dVK0Ic7uUw7?<H-II`0&pM*mgTCGlz|Y^P}lJ_d)@1bx*IGT
z(7Nq~1cbvFguy6;dPgwA5CnvAx>+N5xWA<}olfdfX_YRUZQ1-W;0Kr`%YC=!gr{D%
zr8Lq+1P@fuMfQ$7Q-mma4ba`z=3f2nT=H5(d(yVxuub?MfNj_~%KU@p1eOF*!kbb3
zr!<Yis3Op(Vr}sE48oRF49On#(`EIG4ueC;u5y&R9VgfTKFKp^qyp$d+RYdLcZ0Dt
zw>BmSFpk<%S*j<*yN0ZXn)81W6DouRmQ04nuv4&v!V*sTo}F``7xr5z;QQnD5cjC1
z5e$%{133^bkQ!JIR6~9O;9TdlB8U{;$k$YF7-b&^Fs5^+ZmIde6Qm=g0RbEqV{|*i
zhe~a_<%mujMRfFK{Yz+(mln}nAcpDwPt~%W5k$qkJMp5OCC3Y~aw|E<)=dfg!4Q}k
zKokK{M*@nZ)^Djz3KtYEU_ep}a>;$%lrQJbe$qPRT!%j7F23HSi`td0b9tqU@|xPA
za#gr*UG;7a&;Q@I=eGiBH|_w#2bN;@Hl3G+!=%HA7GWA_6n`QA@cg%YXESpX$`0*8
zm!(;R!^)JlbJK^uLdBJC1WI6BisF13iBL#1%0x<>L}>orrq;d}+#i&JN^)T52z6A{
zP+rkpc}4ekW!R^UOeBY7Uq&009FhV^)j@|GSjhodKG>B*vJU{MFBprqy7v4^SAMFw
z);pHVa^IRTBFrgGc4%qT$1>^0#FW`tWPb)8{#(9Er89HAYU@%8;a_V&WHa>JNMGf-
zk6Wju!pdyuo-hRl@h}vg?|+)oeZC$SsPmzb0f8zh@}zZTQ;`9pVLXJ*sRJEURLPqV
zW^PYRdH&}fwK@D=XxNk)yn5e3&4WaQZb}S45a+ZHOPyPUa8rlEf9~|&+U*Jh3_nI1
zU`9cJ5^$6#2mjU5q>{e6_8cS2?L<Jo185kQW-qrxi0}+e*LjS5Y?}rU8p<m4KR3F#
z)jF*4?mrc@X|$C!g8}&W<f(t>hGf|pw!bRAs1a4;w_%@*DY3m1LiP?H2_hmQgO%ZR
z5XoMJr|td!_pTY}-+LocM1qKwK}1ACkdVGZ|H?VUv*NCqTrKgXn4TIRo^Lgs$5u)A
zRQWL@&Po)L>WNziDi4_|2~m6S;7B}=oVL3kQ~%kT^v|6pjfrCeDssRbL;K<1wPEpB
z4MxKu#~3n(Tr%|WSX$`ssY~)<VH;&Sj6R~H&)6s*im1ehMvjW~Bf4Q!VjM9{BPJ!P
zphYZ3RE<GaM+njgiXv*Ng{ZAIK^=7vee^~2(~lrsIzfgEM5au{G}8zUIE2WOg~*mo
zaL+wNjvPd;T*Mb&2uT4Mj2Ib;l+cbG>B38x#u8bUHDMK=gw^>IHr1H0g?watg@j%8
zMo#o9a)#*0nPL*IlAUm)Pmza|MP{jvJfSAxEd!DFhl>(DRwB;v5{a8Q%F|6md9(R6
zxaFx)WZ^NzGeuDpMNt$*Q4}}-(^avF0bi7`#Nn!UzTwFO{CILi127MyXpiq2NJDqu
z{r2Q~hrgne9JeKp%~Elm13>8e_5U~$|3L<a|B_{Z(f#YrJLNCfe=(%!p*byp5rB&P
z>B?F_2mk{l@Sg?<c`xvA8OhMoTNMHd(6o$KMCRiwbT)dQbzr#-`KXMjLGBA8tP>2!
zLYCSh0a(kIT)o#O2G%@5q{KbUK`)F<xdB`LBFL_O=ru~xKHgkyW$#LKFxh}?waLqY
zz>VSVHm0pJyy}w7`I^^KDTgBTajz);H1!4y2qa~A1lj*ZayNV!aX(66{O+~`3yb3B
zx_$hl++;@&SLGA;r;;Q&q}9xxA0tz&(y}&N!+1snssukZVH!d1MMc5fBdAem%Ls!r
ztHC!lwBt9n_gU2TQ=!h1P>I=6lqUPWWwU(h_j>eU%WV;p&c|2i_r3ye<i1|s?=jkK
zI^v_$NH5$aAe8F#<CR8OtIIyBkcI-IE5=V*F9ta(7XB-awgmA;U@utWf)@l)NrM7e
zZJ7rVb?vXAW(~h@m@kT%<!7|@VHxN&eW~2t<ofxEo-AvAOF#N*%3G&cDR=-ypB`bv
z2#-`)GvB&s)=QFCm8n8g(Oav(f_V(@=F5)UC>zGbp&163SJB#OJ;-J>mEA5uqcOm_
zI@V!~UK@26uRm#O6J9P?&O%OAS}V!j2-+~GuMo28fC$9Rd1M|F|IvY0O0_Q%!u#>=
z#m9g+LK`{<wzIB?pw)61FZcvF+0%C9X0Ov=Sh)aC$%F1|ax$_vTI2=dbm>%5gg(DY
zH1xhW$;=4NzTACs*@f=DVfPN=QCgBNTw16?cwN9!6Wc96%M}*Y0G611Hb*UBkMf8u
zM8V(tPo^2!S=^P?s~RZ|L;h6gwr6PV({@s$9QJpE*#)3DAO7|qFRA%tsivNTXX4>)
z$3(fN8I+8YaL<bLtkd3A2&ia9-nQbQ_eAdX)+73xbVo%S$tg}_aKu=!7oPz3G=+_3
zdNdyAMnRnl*f@)*bk!=(S!}7@lLCb0{G!TuEAcT1131=xNJec+HSB=IY)N*j8?#k)
zY${7TdE|_Cz*)K7P~02{`n4LQ42x@L^V$;2I!BojQR+3Xh0TO=M7gGivS|;37AccU
zV}KWOPj16KsmTCFw9Gv5{|pfZI%11V)%Xl9xWYP)sFa08Y8A7tm2y61%bkpk9wwy%
zErczIK;OHroJU?;1;aH;D37m=$*n^#1<=YGFI9c{<7RuQM)sz&;469+ryOExy%RCw
zEtRKA#fP*VrXC;mQOgX|7F}!0L()|-X19&STl{*)FvW>#Xhm2#cU3uV3>jx-f$kN-
zqkn<kf<D?KR8>9F?GKOQo>2f}m+D{vz5EI6w+0)YA0mE#aN?o}f%gBehXERx;RPLh
zg)_n-nvIi_U7Xs&)Yn=i17xUYw9#6aVX>ChJD{sWffyb{SLad}>0=M%)v}d#b!@Ky
zsn6?>-qgp>J4U?pfiZ#pWlE6$niK51??NnD5^BZ&g;}#E!md59?AsTGi^t6IiI&qR
zC>G8cY6QEcG?oKX9nZlXoxtH4%;(5%Ea22`t;y*<TC0n*UYAR=UAN1#U#}~Bwn<m#
zza^eq;Fh_z;00?~^O`lTYh9YwzX8pg-JI40lL!PcG|<4X7G{F^Vt^F`0x%*FA_xl#
zAh6+sU?PN|5Zd%(?+@o-7l{s0*u|Fhh!ZcC8@mKzC1RIEtYn;0Fd-E)3gU%Ac%v{O
zir}m0XP07Xi_u6k1`L$3su>)Et(RSYf5A0I+;9(Z-xn6-`7<B<)wdMBm!DrChGq{L
zwa_rxvd7MzjurT`SN~9Knq_*nT@*_-ww4n%9oQ`8H@ju#%t4<rag&<NJgGi!p4Faj
zUe=Q<Z<)pBw&{7_%zXTmJs+7AADfPUW3l;<+4FgVFD=J6m=|-+%-=0GzYWQ)ls@V|
z{K*YfO3z=o#iD_|GE~$I5!*W9EbI|_@e$veuwwS2zsM{B!xmTEaCwPs#9U>Km#*~=
zg;vP>V(XkMN8R&e;l&*FS!Df|*nn9Zd{a_G3m4GHWB!erM(U;_zW8JPC37@|g*R>P
zW)ftVJ>}L^SZk*hZDv6&T2y-y^sO)YvFHw3V24aA11+)>X6?LG%->`z#iF`A8B+_1
z)mVW}o2@sVO6aTWhBr3AyBm%V7?Q<NDrE5Tb*5XdA*QAZO-)NMJw_Ptf*D^Hth@;1
zOE5n|SPAA&m;f9Ci57%Y0pi(65KNK~QiM{F9U=^ya5QkBM<fPBVL>!La56_fc_p7A
zflXM1Vkd$qNE~hwNhWo-puUC_ZEDe6Yx)60qtx_5X!4%a+rDO+&1y~rn!7u|Jc|XQ
zbu4&`BMLamRK+pJBTIIFg54obIxkGDUmUKZS+Xg5)H_Z&K8uy>3#WWZAmt(jdDMXb
z0+A`9AXw0FQs+frWD65F&6~En{Uc^eFL4aJE&NR+AE8&GzRT}={$IxP;b*3^WsQjR
zoQzyhHj2%bEmE>e|7k=H$eIQ~ijwhWZm^0;HPbM_O>#}ukL%g`A)Y@llC5e~q|4T2
z>(aF>03hyjXucaQ9}M)==5FM745jd4{&v#c@%VUvBt73c4uT+{69mX#=N$qM0Te+{
z2(W`;w_hL-0*Hs*5kU!qhXK6AAF#;ZdZtPy22i6ytrh?pq>mXRCXAR+qeG7lJsNj#
zjka~5>_F+FlsMMTe1Rb(NyWV32DR%z*@3bHWe3y_s2xxn5WiX6LETG??QT<nVCb;D
zVl&=?bJ}n*cXPqCh-lAGd&W9jY3G&<biC%;NE@|HbWC%fZ4OG{lAMo)s#{unI<_#X
zj|?0&K78p1Y3R^5whg9}ioH_y^2G|BT=%9=bkw<fl%f`;5YT3#X#;~&FlN!`fSzNG
zY=*YNIKq<fPEnmBx<qr8ItU1cgx*2InuIbA1jJDc5KHOahl=5;!WV<x*)=f8Xbhfc
z15ULx3pJ3vgMeVEcM$po2@W1T0)jL21pop;Qbzzm5U6wkitq*HmvkQBfD}24+78=A
zVNton8Z}qxxS+r8YI|7M=4nPeq1=AYZEGzR$&2-*MAp7<-`+pDb^fG&b*OyO-(k*>
zpY6;$ds)&0I##bSzNRpm;W>;}N_5)`O^q&xjIo;c=T%L?fGqr;6qeA6l3Mb`Ez%lJ
z+lu6xOS;=7-Cs$<#_byxVmEeUH#*N5(M>yb3L9kPv|C#>9o1+ypX{R<2h`h>swkj|
zcyFUV8NOifP(dTDu{()1O!<h3NnC~%MUf;*JHQarxg_m`C@b{73WsSHFQ$pD9(+ZS
z!6AO+bp!|l=vAnSXsMM22BdO};TF!u#)_D}(THj5iwLPcV&$V9F=a&&vo{@KP@S&t
z`fuO{Z}>)UEDemGfU8!v>ppz`fu@^ejC6zak*?coR~@v{L_IZBR(4n4J%uEWmkHe6
z1wf{`Jg{Is9Xal`48GP1w4j0QF_`QqXl--y_K^rA(7^;>LF^o3Uv_Hp-Z5p)x{dLP
z-vkp~dxWT27dO_OdWu~~<w1*>c`c}JWs#d?$oux>D(gze?dpl|rsvv5xy8tC1?UFK
z1+SnQZ%owa(;}#1b0=f^TG}k+>%d~ey_>dTFkPZsY)Zi`;|6tWvqYK{^UN^CxXt)$
z!wqzSW6rV14)dms>eu;=+M`x^Sqo)L6>oic>Xc4FqJXI)13bw)Y-pp+AeHB*^;0mR
zD=gc^3qN}}K@RC(mh>W{#1Kg+{>-;-H*${winP&4k}zK7$}_ATBWk4ZVM12Rvwq*{
z&qGop8f1z2hw__Wep<Ne{%!1pW#%RfoYrZ*ss;OuT)|lSu6k5~53;05K;9E;1oJat
zSl@~|waAJKa^He`hCV%I#9yyVe01U7X++*#GyC8Gn8R^0nZgSvR}5L_ElSt!95_^1
zn``x^Hat#+*7GK=oR+id+!4H4L@S3MYA@Gl5npCpCtj?m*D0)G9nJeUm?{NLIHo%=
z->&NGF20CoD0($>tFTflzQxUsQ#|u%0~&ePX!%t~>ApKtIk&KT&7*)^vhYZb5@)hp
z%Wm3HF^3l%xijL<Y_I|am(87@yMn8Axpv*ObuQZBd|@B^l0QB1{IN}A&lKg}1&_Iy
z-+sX7kmkMV^1H^maLZujL4I8rN@oKkr!_q7g;@6;=xCT^S3wv5MI%_U={jC3H}Mxg
z$e}3T7pz|jJ2aw*dr?%5#r~jU@fWF<{DX_7-kDO`v{$8+v;0d^Dx6<s{0W*nwTYYm
zhSY_xNB?b$6aaMk*v8AZUWwDAUA9(@xsaeH963>QE;X}Sav50%M=r0REgAE5OA}Tt
zH_82a%I@Ig5OTR^#P^PMoZ&i0*vw6y=Fc4i8Z1v&1D~50NtPltpW=z%wI={fpPrWR
zov0ZXv&pXux@wP46IkN@Z`#GYGwz9Y`Qva(&F{1qU1w<J6~>Rm@k=f|@3@(!+57T)
zJG<4*Z}QX+^Q(LJe(&~TX!*j~>(81pZse}_x#wNCZCF?*iV?2HD5yk!LTFK!0?GMV
zf=NZTh$~u7@&-+~efO9O9ZujJG}Spp-kPqTN&b&B^i#<$;&`nes|jR*!wxgX94F|Z
zgFI=X_;F&kMLJqn_^(;y2swu`RPfYu4q>sV5>$vzbwf13@2Bn;t2o;>XTp#nJ=!#=
z#zaT;NzUT7EnU(8&J=TKe_)Cf%HMpW1{A%%6i+ltMmAXm$N=eZ`w6$KAUf_%go=np
z3=@&yl$N_I_(+|egE^`9%M-8zCSrhZO&*U*C-b0)Xf6G~%SEovcn(}3DAYID0IO_(
z6<11l%bJ!+K(ELW>q~7_;|J@2zf1|K!mlm#p#r%m#B~{)q*|qc3UO&loz@q11N<4I
zfpX$vY0adiGrr;SeO;-$lvwOL#GKM|jLWH0Bq1)X^g+qe26pFa4dN9)N$eEzXAO*X
zS0{M_X26?yww0_;sV&kGFq1{h2CTO9Wy<jh`^iUF>0>Sx_mHo4V7HXadKP$qMYg*O
zdRWd*Cez?h3S`0<08|GspjGGZH3Tha3|GLU)%Wv{7XuZ%bOF#HM8V6K0k4K7c<o|9
zfS{qk1EZG&V#b3FOk5boOh=a71?GG|miz*9`F<(IfoEX`<`E|WReJe1JeF_2JE=&I
ze|+Kk<Y!042W$@U5Vpfqs2Lck2wNdQbm9<~cqAYpiAYQml9G(%q!48&MJ<ibzb!WK
z7ybfb00|I*3P(Kd2hlp*1Fqlb%(fdjvfqBrC>5cDQ>LL59pLAR3Wx}V0pT!&NYDZL
zF-YTGat&{MvA)iaFP5LrchTqh(QNShP_Hw5frswbr+S~+_x!>8>hC(%3(l85AKyG;
z1qa>1y*pwlponc$^omX~U~i@@z8RJqY>H~bL%v<s*~MqW)8_4&^V+g?E;_Yev|%`h
zUY@%;aH7@G{u~7{eAK1ouV7zBUEyf^x}p`2zHcj8=@<zF1OYj;h8VWE7+dmg?^w6=
zLtqdE4o@JG$P_9KY-(<4?Ug_5qhdD7RLbq2`WZUdT)t2&9iM-TkcpXvm6v|EhjsA2
zGq7IY=b#byKpLDyjOkVg;JrYc2~x`P?#S{|Go&C0&73g$&P@<dlBWyM*?23dGZh5k
z0uaSKeZbEvzGd{^l%Tql0%1p3Pl25RAdox6IFIBX0Pnsw!BzLhwNgg$MHubQ@nLK6
zt`1ZNDirj>Q7T^=bLFd8<yfm)^=ekT`ZcU>>;$S*a!p+@Nyillg#IQbh{W&n2!XxV
zbLyaTXG)%!pR5)&^@+gjYB~TKOj3)ZWE)ixZmRCfLX)qn*2Vf@VIo9|=H!x6m>;(G
zu2r|S!62v|rTSRQZZkJwzz>DDld>TqMm$tx+%8&#W#)$~_D0NYZiK+$_WJ=4Z-nFr
zeOeSCa}(#qhwW>5ZaQzXmFCMd#t^-9&`cebl|pFvCXqLf=tQUL&^oiVS!>yr&{OcG
zHM@0MYd@v7rw}9$hgsqoSCd-qSy{6~kf?Z7a+r@Yqe(Hnn-;fEO%XM|DzHGuDzP>L
z>o-&v-;_rGOKZ%<t`tlfshrFqccCxC`_Cz5$?nQdnWmXGWNAA6Vi%v(M?d|RO{%H3
z+NnB;kn6Q%gQbX|s32G5rAQS_S2AVEmCYXKY*b|qW<}>x=%y@piGy6A0N!d#qE;St
zc~pGZoe|w`;$7}|yu+QWXm=&&s^h-6LJW9TuapbV|DxD?j-T>--8oVoRvs-7N_A@O
zQB0mzUU&~cIFrZa{oVi~fN*wOZA1%vaw?<{pO`|}N06~$A_gGmV_HoVGJp{$fJmG9
zq3LK#r!72JdR?%cjh!&RZ;g6FfG~I2Ex(l)28Mr)X_t9fmvaMh63iFC`o{jj)%VZu
z-^^LF=Pg*YZ1vi8+mD|)d;ap3YqxISx%>9>|6aG8K2nWIKuFCaC?qVaMXNSlih2wf
zG1r(SHi(xbMY?w~<;wHk2OpJUY1OT#z+Oely-fH|1A_93DGMmCG9#+`jW=qm&8n_?
z{58-(pvGDV(ne=?UG);9pCR0aNmtMaBNQ>lL`6+DMQPK_P{tf{mAAxF6)m?)WoxWa
z-Fn;nW`{lM+h@Nf4m+lqY^Swy!6ofobyX)f+|=29Z*=v}JA=LV$q--sSGuqLY(o6B
zU}~bYHa9d}i;_laS+b}tPXWD^DdD#&b*eU`$=Htcx!c!OfsSS*Q+7m6o$sOME@q+7
zr5yBkC1=B3%fo25dTw#I3ozB=!i4vtNN;*ojJV#FAh8dndfTTmWb~zMIpy_PNq=Bq
zl#i)0PbaiM@Uku<5CDV$l*i_J{Fspv_c}aqR;T{ZlBjFmxwFxcAz(sof3!}ha)reB
zl7;ieWl9s<YV%DtTyO7t*R#sP#<kPpBD?Oh=dNuHRV8sxC*m;uJbCN&!{;u1>+uKg
zzU?Kao$|bAJmqnZeCYi@|Dzvx@ojH>^5J`Lzwzoz&p-3zV~>1|Nn`vuWoU3<=_MDQ
zcib2&TERXnYiUauc@YcTf{ks?de*W0(u>YN=giYiKH=D-4!`=<8FfY&Rw-_|xu%<J
zxZZMQw5SFB(5$94q2xw1xPG1JaQoWXmS!7ou<lx`ud?EDOE0mQ!VLz4Y}%iP;BqdV
z3_2OKPdVvHF_EGE^G64YZH>vW*KT~hAEzc0{V4&cmMWQumlWp3G0|YHnm1`!ulL@0
z0m+4IeHI0WbnVl#tIePiA%s4(qXefKIUwn5BpQF5VTK-RJ|!pVNlHv25}5fJPER`0
zm}J87#vWtTk%k{;$iW7gD(#N({Ufb9%n4iZpxahLqvU0z#Jvs=Trf7!nNNnjcH`^)
zI5nBzd&zYEm7P4llLWDfsR2+?0&&nM*NROWy+!LMU11}PQWhb&LVT)f{ya5+${M0W
zB7WR}rPmB~!(EffeF+nv;XPa7OY>VBKW**b0LmqN`I8fNHFc&Qq%Yk2jAZ-ox?|6&
zZAum?XGc9MU$eEVU1>FpwaEUq>1n4P|48?fV=#0Pi>aseASNh!Jejyj3rI$2OgIfB
zg+Wn0N*NhljNZ8#{(1t0)2OAW2MsdVX)o>OYZOf(dWe&QO;9)nMUB2fz;cl?Mh_&*
z#b84BU6MxYS*u8f6?$l=-rG10GiJ<~$;_j*1Pi@IX9JY0R%$Ek=D=_g6plerqe(!r
zID-m}21uc<Pa*Zh)E6uxJZc2?#dMo_$S?54x;ZLv=;jPT;TUvMca_};#13(SVM#V7
zv`6>dnErd_RlJ0vD2km!=;lDO35vm>s8J#yXAGAN2IVpma>{qeLZ}IyPiEVExoV}*
zHegv<Sy|g?vBen<HbLPQVGMV@xa6{6hR2!LK~`BD-I5}N^nW=1KzN-FkEKtr*LL$Y
zi>DYp#o5s=syvIM$0T66%9&$;Y`L0jxcQnD<M4uPhPxm7H>^AORC{!K8S#1ZIYaN!
z*#hOOm);7yJ20I^m1lAEs03t-H|g*wAcs3op|YI3V1`E`kkzq|4y!x9aA>G*iYm|I
z=;7TUb~s)%E!ob7ciWu}=iZ-7c!?Ai78dS!2;CjXc2PB196byHIkR;r&Ei}eDjM?r
z+Mr)EeeZnQ?VB%Oy)@niEVVaMQc}_~T4ZsC8?3kP`s=y~iTqpf*H~!*$sF;uK~4Xk
zR=KtcMG(ZSS4yLdqH%<w00jU5P~p8i6UnjTHSZ+=sE3droEHH8v7`V81waEp0b&1P
zk5Mxo3Z}^dJo!(|x03$S@d+;@DInDXqL5kv(MV=M4DvA`c2pe%C#NJXE;Yr8*O8lB
zZwV3vNtCFPBuSb|maL)_DY{D?C0qK5Qe7IA<<>Ms*#pX;LIcX8!UD=6zXg=PGL=;L
zTM$_-k<J0Fke&gpkuCvkP>}&`x3qh3Rc+G#n{VvR5Tt9s2&6~ANTgf9sF#WkSRJl4
zNcDiV$d`b1$ftny$cKOp$mf8KNUwlRNWXy1sHOp1kZ}Q9k#hmtkj4SqQLzC#kfs4U
zkqH62P|X5%Bku$DT;(8p|9zGj-7ly*0S8cV0SA%(0f&$_0f$ko1CAim1CAo+1CAj(
z(gepx_Ec(};7ARe?6WAAbIRnrI=P^ci!N)ED>}I9x-q$7LT>WpmQ`-MZ~g7TgR%uY
zbikwiq+~zE<2>{C?Rg;py!hqHe~9e2MdO`!%yQ(gd+)s{AAFMNv(HlH%2UVhe%HVs
z{&35m{?x}`{xfL(FGU3hd_A0qZ+_Ucep0wC;8)?ffc(PS0iMYVoJRzufyAf;X+VWZ
zO;8i4C0Je17^o*&L(l|hBt}!v3~0uwC1?utB3AF9InW1}zCmlC9|>B6jzE738W3~>
z22#kNpfj)lg|!8JfWf3060`?~lA=8r1Pr61;lW^F1eJ6ILx7P~HYykjjHZe)!3bb1
zzv&D{16|ZME*KAtr@roBA~1o5CI-`iNi;V($ONX))YM=Suplj_5NZl@&mzGLU{P9H
zESL!_POB+FTT2FWfTd_>>0ll(jgFQH<^s#o-g3cwV0k)NAy^EoNLMQb%Yl{YX_a6#
zuqu767OVtTr}zBEz^Q>uP3~AL*aEE0aO(v7fOQ#fy<jV_KIt|H4gwo8$wt9RU}I+6
zBsc?X${d>or-03wYm49luqBIZ6<h?iX0dI8%fPlQwOw!t*q$YJ2yOv8vc^uq4Pa+h
z*(JCK?8-*F1&@H;*=mpA39u*I?G-!)_GX8Df@i?K>^%M6eX;#vmji-a;6Sp@ptt9D
zFr0Qs@K4}S&O7YFzk$Pp?}6!DJsEH3?+CblM!tJtN5QojL&VI2&b=fraNdOs;OgKI
za1E2su6OtCZaBp0@608Rz-vKS;B_qC_+ha(p^>+OZNS@PoICF>-n+2dd%;WKefIbu
zcm;gOULOUofsfheli&^TDf@jL)C0aD+?-$-@I6)i6l4KEGsAy^fxv&M;MZUU@Eg7S
z8Po;-`od26hz(o;35Lspgn-*1p>S=G;_z;eN}xVSJ$OGzefBwgVH%8vlMgh~h(}|M
zJ=SD2n|!LdR$gnPqnzCd(7C%JS2x}Kp}X$>(nAk_>Zy-^^c{mHzZu*appix~7-Irc
zrtmS<Tz=+Tz@EjTZc7SZ23cPCdyo}{e+OB0_!Voc6~5N<z*j*w@y%}6v)9e+^B{*j
z&0)`PM~<q2V~(pWdz_f6=01g&&X23Vs;<3TUaf}|)jY_fqFM!cTvUr7Pl{?2<Y`e&
zf;@Yxmi@f&CNI6sE4TC7!|Tnfb_4A~9U?kK=@N}@(drSMUeW6lgMKj@5R*YM8xo6Q
z@sS=sBUt$x#l~TbXf9I|XO?(wbCPJDWChJn5sQ^n#*$RDQYBTaPF*L`-nz_}m@Sg7
z<1gJO8P3nJMUl`DwkmQVgzeqs;tbpGgL2u46W5$MbIZANcU-!3&#hbc-MRP3lP6Dn
z_;AUOA6F&qFUX5g52zGoREBh_fLT={gKA(-waBMBm=_EM1cwD7P)JzVC>+{|3Y$bj
zyXdf44D^W&+r`14gs?**3`+^SkqTR-hCN7wZPLO)q{E{0a0nT&TShpHOxPnU97Q(l
zlO2vB2lmSe$B_#M<c1T-gQN1oN#w)1^1~?<z%eD^GD_iUl!bdJhnrC&JVZ^n9p&LM
zYQ`O?1)iW*+=<%YDQd@Er~{s%0`5bd@EmpFel!5D&>$W{bKor+!lP&y-k}jZhE~9P
zG=<NgmGA+r!e`NH_@t)s8rlTk)n>ebw!uHO9bZE`;J?~Aj*(s2l~8ws$I$_Jfeyg{
z&|!qp5g61_gwrt?(s4x42^iKn$^xB(1`g)|kJljxNgyC15g?JUWR-zQW1M~<lm;e9
zi%2?{Bt2poV2X@LWP)ijBb5af$%;%iSRy-eaj;Ad6mr4}xlqattH^^&URX^&)bhg`
z3ZPLC)=~(q!myJf=oE!r6hp5#oTdZ@CE*OEFlqzN(k3Qt!8zK-EFR9&4i-wo1<GJ4
z0WQ)mRubVlWw9238zf<)9NeTlwkp6aDq<%YZqpw2g5gxcLFM7t3OK4d&>A?aKIGZ}
z7onl7``{`()U*k1Y7O;mgS$H6)WriS@IwdqA_6~kh##VxUr+d>qIdkY)eD?vI)oZ3
zFD`M8<bVtk3Q7wYS|bS(T47*}k%Sc?MM{DUSut|tBq>ld3<sy3DplTflA~_nlv7Hb
zah8uJO#$b}g()ezbdA%aXOg~u6kK-M|6Oy<gzK)G?}i)Z@!(-SPo7@$T%gT@1i39(
zjJ=X1`An`{cYW}|4?g+qNBQ#o?29jcK}Gc~8k#>9qx+u{rGCZ4^p|oKeqU7-`5S;p
zxF|UQB99zd1qBM$z`>bbsvIT32`4BJ5WpETfoAG~3J*Pj5G6{3IEj>Nk)o~vAPPK6
z009ET#E6kWLXtv3!7T}j{If-2?}~UueM3Z!93C}lgs!`e&4L9c8@7Y`jz;jr^CU@n
zhRl$kvS6uD)UyDHR=ca`K4Np8(4zash@p%bOBJhHb?lln(P`C6uT2~8>fnoN2f!)b
zNH~`hMR@>l!AH4a!i2%XSo|YP07%BsDp=+MogqIhem4Cmd=$2Q3ZH}@9f^jQw-t4j
zvqzSgo&Q4AmH6k^-}#12PGb^)%>d}pOp21qYoVQVqgrN#Sc!5KsW)NXq7}dGI+*ly
zbFFbL>)ON?Z`oEaatTY`+hs0$dHb->E84e}kF}cBtz*5L+PuxU93h5)(eVh0DX3X^
z$e`DF24@W(x#S$1n37hzUT?~2OdV70PS?Y$-uAUWQ(Ys|vlgxV1_C0B0*<ILV9b;i
zdoEa&jjdOb<oe*Vd{i`ar7BbnM>YsWEqd|3`|zhHzNi(dij-DCt`Zb6{mc$#H>-?=
zXVF+3mWXqRbC&Z2=PKt}&WoH|oR_&M?f?(XOY**ua-^n{=O0M@332}^K>>$UrBu*T
zdl^<wbtTA~uh=@xS+H!&j{Qk;j<0ELD{kJFZpEWfOIq48JXh%}Tji?zruA%OGY6>O
z;g5BEq+`Q5*~5`AZvp_df?7kxQmIrnRY+A*t<)qnOC6xDpl+gWdpOir(~)#MolK`!
z8C_WobaV63N9hy3f)hM2dyIaLezC<FDMoW_0TqN)bh19qxxl%?d4`*g^hfNOpG%oi
zW3w}W8Ri38XQ)z($!uQz@bX?_qM28ec$CQLWN*CoO3npVi>3Dk(5quqx@1Bdp)m`}
zqPJYYJM;i}dwpR=Ism+jvuVP)u=^vWPXfPx5cvIL`_O-{e6Qc7<yya75Bz%XcR{L-
zm|kf3sR|`7{mPK~y;tc~v~Zz<6e78E<zG7XDE{rStIB3PYl&p@oS6OFnhak9R#U(X
zd!~ZA8OnRaK2jw+W#ovVgL?wczRyfNnK(WEek{eKyS)c7W(qV{Bbx;d3LF(U2{{11
z^HlC?*8x-g|22qP4BGJ+<Lh;2ekq67o>`okX>Db+&t5W77vD*81h#%E8xuEOYy0p8
zRunyE6|w5-dkYWHnE25T16aZV1<ZIOZ{p3o@M|#q`SUK{LUi?p-dDTps(#ta%HGPD
zcfYK5C^P?GhRQW>``V@Wz~kQ1S{q%%XsEdcI(peF$t0buH;mF&XYEqdqC48_q(e%S
z$aVkkvK&`*(Iaz1ZS-C$nj0R`#T1M-CZq6r`lQE_ZSvm`2z~@k0j<=inBqz(sgyG6
zXrzs{+Ua17vBsIe<8$k6u+b))AIT25?}3LN`y0TO_^G9idKze^9g~=Zlw4FyT+$od
zOqgfBNehl(+GiB`zG&2^xzeddT53=;LXBh9BzDc>)-+Dd<JCG*9aGdPWt~&iCv)wS
zH7I9;b2TJ)L-RDEK%<K^KI0~4+Vt+1nR%0Xpp5sL(Zgo;NPBa#XkOOM&9eDfwK)5h
z=iKVtTbZkIrM%OYeA`!8Tl4E+5uGfqGsSnRgf5iY#nQT5dY5|Jt#Z3jcK7<!qY8Qw
zwWk&KELzX|T5eVSf!#lv`nT^o`l+iQI=5PeL%k}evdX3olQU~uFMCl@FDvd<^j`O^
zH<eT`YQyrDRdfS$v?7=4M(IlLx?P?j(}s=U@v#Y$rUo$A|E*g0%Z4q#ZTruzJ%8*w
zz#Y!Nt=U}9hBvXPyLnC5a`|h!>^1L`eP7>3Hu-;9bl$Z2;xFO<vHs`U<*j9HYhUmB
zH?+}>)gXEeW7HykEfdr#Vg0i;AbZ2}HL_r%3OB3A&F)DHvT0$qEy}JXIkYs#mgUr%
zJX)J)>+))U;hiY9(<OGcq|TMx`BJ)CM%T*hW;xyIeRum%UbX#RU4N?YKP~;zUA`W-
z9IsqpC?6aZLZD*EDut?Y^;Nk%1%hB0io$UuiKekEo+pZAnX1xtrpb1>K0g%3;#8W;
zOT}8bRqfSB%~^ZZ-Rkd#hw){8TRzsW?PvdY{NMYv?_0k^HP_rn620$Zy}YB5#@>~n
ziEg_4w6;L-nciAz<#S2C@QvMW`O|%O-Afb!hwem2l1i;}T~(=$I#pJ7H~~=C1E60X
z<Y`EK0xJF?_z&=%1ArEQK!Ff&jY%<Aa8J?m7v}$bxnn$(6R3$i?~m~qlCF5@I=({L
zB{PxT%TM=ffr3QolQMJI2lQRG9E~dNIH?O3W%|bWwJ#(>)g`RF>}BVEXJrigVpaPM
zVwcMz(nnj43Brn=CaNgOIFO<=X)CIi0+OdbEOtZ+$RHzT@YiVqHc1E<1{uXkIZLMj
zl7c7|&oESO#Y?)Kf(9Bcw+Uvz6fJmJ;1>ea@~R+nZLE@uDZ^T!*}^zkR-q)AN<2%c
z=uK4RQaoeIguEGs*1T*4P+NVosZJe|xhb7R8d#*M!po0}mp!)ntS_330XmUL-`nB&
ze%_@-{r!vD8`B{Yjs)UVop^C3Y(sO_1y7Y=${BYVSEd-acIl<^oM|H7+w$~pV})49
zs1K4lJ&XkKmO!oo_5x5@8(}N69Q|}<4o#zH4@chliLm30gN|?JW-0?Pu*~4np!E!Z
zC2ov8FZ|X9>vp;Dob&DnTzKLt#iiPL;v84@+I&!jcYQwPX?f+ba`pC1l-eYj)#duJ
zU5aiYud#APS!f-{%PgS|^-n#wcdT)rd8(zeZNC)xIAqF+(EaKEFcxGBJXsM}UM%*~
zaz`Ysh$+cQzyTMobSg~`2QVf}9VL?2`stZlC8X?`ff}dmfCdZc-;pS4qKJ$zYn|*#
zl^B!!BLe~<lW)p)uA+vltHO|c%qcf1mzWQ(1`=|~sborBytXA~QHD7HWLOp08K!|R
zOLuG3wjI<B8URQG1%*<rg(gsH{jLvVQy3@>P{`@u-3*sc6q8IXJ=xL?Gb!9yn_-O5
zGzE!>dY%Mk^MPVNDGY)+IKVKjb&<(n$P(jVJ6#9BfcLbLa!zXkku-r+<{Ca#^kabr
z5;H5#xK?PN(kW(?<U?R!j9W7?sxtL%5$zrPbqokm@jDk+qe{vEsbynG1g7l737fIp
zrt`4>Yd%S|Dpxtr0GPk!gTMZRRVn3s1G5B?<s7pobo;z+;z28#)*%bR17rf(VPlvm
z2i~L-G7J}^T)h?|A>m04MtPv^_H{T&LlQ2U5fEUzJYFaau8<?U4OBFHycMk&XO$e=
z39zY}woa8P6)|#N4wSW=JN!`NxN$d$rPR;}=vJMb!p^^eeBB8sN&94XQ!55ZNO_D#
zL>SQzqa=>`oqO{fcW}bz=~^urS;*F{EKzD)`MR`B=836C3TFs2Q<zzUhqbCC&5Q_2
zEb#`Q4jfXOS;AF9Bvk3?*^f0x+E$m%M<4<XR_^5T%ULsD!d;I11%Ozr(wSBMD;!by
z8Me5fniHk0gNF()jWh`EVrJ+_rTM<hpgsF&X7D-OwnCo}Y6V2n$4TYVv{>QYY|RSv
zI`BMfLtE?F5<Y;$e4^6Nsmdb!8WWV8Y!e~*KE1NERJLq#k<^(38AnPdk=z2qLsa~|
z%w<m~Oe{Ja_!VxpvIwvvpfq(~yxP2{=tWsWIz9^C$L@^<10-fZgq7*13OtIlcV$bs
zW(QJXWv&Y>$gHG(0kd1GWTjChRJ%%pNOg=IS36v6yj5BHNAnfS5i(9gjMk!eZF3sk
z#bs5w-ykLtC+ZvC0cf1nDo1D?pL1zZP=3^ISDCrOtvbxKL8%nc3N;n*{pc0FKzheJ
zifW=EYa7_tWnP@z;QNy5G@4i3_npKXv<z6jxIJ4i0y>Xl3py9TU(L-o<CUd~1RJ#5
zG2Fw7_S#zFiHd$IfhP0Rx?7qDGo#w<z7-(UXwgPlyDd896PUTL0|i__zvh!4I|0wB
zYn1ZX^{sgAiFxs|dZ87~S|i+ZqPxiVQ~?aeo^*g2fIX71*hxUWL1&WI8%aSE9%9<K
zF@WoiUI%oqk^Dh|(6&xo#~g+p|47hcR)OPg<AIrpDD}EDtH`Zg1ypS}UHX)93$9Oa
z4AKX88>(_;nKwGDveZ!{J9~}BNkPjpq0=q~__jmGG4!;hh+{G+ud24O-V$qaQA<m1
zYD<066}3i~&m%qTSO~QE^YQ967iQN(x&Wrnv~KT+GZdO5?=x04&kqpM)>2IyW~@_S
zEYYr~mRwa|<&)}!gD~@kEi0;<`TF4Su0!o=F$Pi;#2Z)k%Hsrfl&He(D6|85DQJ^g
zpm#oLMOlTFbZ9h>E|d+tFp>RCU-e8vjmG(=0VLxvY>8ULh4e&?cTRoY(`n|!iS?`!
zlDnIP(3|f2%RXlsq}_!8i!M#OPCm38BlAY6Xl?hjZ#UQP)6lHI%({ABzk#?$-vIpP
z6%0bOnukI%w5P2klRW394d`DQBLkW$?l4N0(~cI_m1Ub9ezf>Qa+#%?sLvk6VyBRG
zS2l_N2^p*gZ#n+q3J;qu%C8#M@^7XT_i`j?>2tX@(dH|08ExRNmwy;6!feyn6Tkl@
zz<Vspnqu3C9dc#Z$F>4A(?J1Hnnb!=j`6cAtjt2aECO9wZ=XCNf4bb8C!RRkI@B=k
zTPStiiX?n<{VmJ=x_zOrvY1e3NGs+Z#X3gC#m`-Ht*kAfrq;WiUKm;}Oz$X{^|`Ce
z3twi(=YybOXB<6ybxR!k^}lN%4<$>usT$sX&WjfS|McZu3rsjn@8VLR0DP~bXsf01
zS@VWFp#k7j9ThgTz|cMI26dOohdGL^eUI1YD#(-1jZqaLet2J5n-qhWG#_dfp(qgV
z$iMASImjo%AWR}%64n9_A}V<}c|nALJ0i|SaE>R9^1x?>L+U{ang|VhVYhbS4y07<
z{z(8kdx%t{ekH$!eyKi65Ywh<jkloXG_6X_ym$iUgAZ!rLF7DUb5{7iw2lb)Q_eVb
zUcnCfd;Xn;`lqaG%{DblZt^b823DNXNcFDQTB4njD#;1Jtp~p2*D%|^qUQ$z^@Zg1
zY4t=dG;;SirjszfQgHnI7%`dSuEG=<qZcW7D^>_BL8lZJ)I>%zvn9Maj;*D5iNpAn
zUoJ{ll24HReSn6jMq#pYIf+EB#7hVU!+F&c_dDN0xu!&Z4$>_-RZ%zInP_T#GQG4k
zaUSlXMQ%wCZ`C2ad%@*9&^-WnuaKkF;oTrmWoF&PdD=)4^luZM3ui6Foqtnir=Fls
zvix4G;`}^N4-_WS{3))qz+ldgUDL&!w*lx5MlTr!>6&GDqQFMFC%6uRAOY*4L~{{M
z=6KhJZaPA|y;G3J@1dbc^v{)B4#D8)VgFF?XSk=*X$RnU05=0+o7+W&6{+=(${RhY
z;+jAz7kxAZ9YD<&%su=Tj^rV$+beA(*(ueY?e?sVJm>S7>*G~>&v8BxL0Z34tgWA<
zI4-U(Jn=!QfoK(OWBNWJR&>{*49ov?t&C8&`8u42J%6eLm2oP+6-H<({R{VBsjf7i
zN2OMZ*9rx6?NOTsx{?Tl3q??;kGvyEe^C)BN*x@B3PeOjWrlNUGVjzh@J7CBaGQ&>
z&%)0LB0b3UhVe2b3`Y_L=a*&1nOTk<s+YS#Ic=PH9$x113Ge$|q@p5T&UD_0lQ@y)
zBPVhj&Gk*)3DRyF9~NeNZ1x9T&wE~6w(hkv<=u7FS3PbF)muG-%dM^%t#bNOsR$-i
z-uPFE?gaTsms+?}FAE%cKXK{_qxP32t2LY6a`ki*4r_wKrDp~{h<=R-^5HvfIJf&>
zufzz{oj>(kGPm^_t&VA`uRMDK8>pgRH=swpMJB=^I<2m^jqX(KpO^iF7OQ%9M;p_;
z1e&TU#X_`JvZi=SS2CbDCo$#Dk3!HAuWK-3r&C8NpQeER1y`!*E&^^ZT}~i_goSv2
zwKAEp+@ujG3*r9ES>s_jCc1VEu|CN<QjUoX5x*WZW6&x8*hrJImL9FcgU%8*-_&Ri
zS%uig<ix>+Gei^k&h{$0`OkB8xx$OX`-Jl3W@zy}W2pO*hi!=rh?3A#_6sqW5j{CO
z-*Ao7bt>+$X<k0Mvb4l{$%F?=?weNYf3vt~iE@IwonNsGN4oeUk7r%Kx!t5BkqUu(
z`VYY`NCtCjc`M$6Vi;WzQOMDPnDqpcdt}-P#QR2*i;E0mkKCkBy-?!F9c1Z3iY;<3
z6dH3Zg2($2Rj<?5U49)2iBAhwL_11ExryPXt~6@IGy|}`Hkzk3ZUQZ31b?pU*naGy
zL@^fN@q*3>+G2e<jtvdf`3DX7Q_+mY*DhquweoeZZ5I5Xb29sY$A*p;$){9(_)HeP
zh1>W%jL-O<O!L8I^79~GSj=1JjoE41pkdR}8rWg)Bm7uIDoOI9czSUm2D5)Mwmu-&
zb6#(bZ~HX(<h>agzkr&N_6$P}hv%KJDvI@nbK~&vwmC?wVB)S&jJVz_H_9I&^<FB1
zeMW&U^@VYt;V3$xdA8(RzZ5PGIYQ!woxv-EZb{vy48Y7j&08<dJHR~OgUtpvgDos`
z?qoiArN*d+Fc-gJjY{EPY>}KFOFP;;SdvPrGmDzfHl?dU4VCbGSKKLAR(!(bovlmf
z@NxYAtG8N7zi5s(^5^rni|bOOOuSdpuElvBjCbQJYCsW0q4n^55&Gi1W3%L;_HlFr
z{O9bMPTp}Xy$z4GKvBybn(9t$fG4DgC$V)zrKCFH2w$)Ko1Bwwt>1%6{Sb*ve)~Jw
zoHhL#^rA4I0A2a#17x)wy0!j)nC11I7!)Sn=m1rwZUI+G{6k!7=?9yFncRzW_wM22
zE7tmd0)HY=9|3*B=?-T2O2iw0cVM%wK8~#^w=bMUB?ZFgwpnDM)FUU(9j$|lz8}vQ
zl7I6*bSrPsfAK%vM&3}FPjkm%pfwXzA#1dn0kbNZl>nzCE`<EhNj=JD2{5yM{o-iD
z(9kv%3J~X+KY#Ku+kdLHG%I_r7R{}sYuDpxai_|a6b=2DY+)S7BG@a9&h$ZFzim?&
zSGfh8ax3k@WfW_vFaM6X$PDP5bfSNp9Ov{ab{Vz;!U{`E=}u&^0JL#vtif3kM{$sN
zBUd+@4W3z6O_~@i^oKf;$QkN}cO?&R2tvv_Dep`LL|2IpiXmE!PD90jcYS3z78-hF
zNSap;;v*87U(D*#ql|1pkL07Hb;SRl5iLGKOMvqQ<@*1u_?9|0;svYE8zav|Ulz1$
zi~y1oo8`5=-xL6m$Oqz496<At=QraqF0rh90g?p;%CbVB3RH3-L0e%CfbGz~8`z2@
zZ3MFEFdkCKBMPog!Na0JeZq_#qj)_YqPzD6O0I=TY$rjONzOg4D=h_m)T$#=7bUJO
zAuq0eep?iHI8_Cgumi3pX<uj=TGYAsNjf+3^ClbnVYoBF71gw?{ytAr@sgmQuq-uo
zd-VZk*Nwmaph5Sh@AkUvy5GAUaopg^ofFysSCP|Y;c5PI+<H!(%pb@qZ#Np5fB6Kh
z&o~WbA6?tdAw8>yFhGj2ii#9{0KHs}wq3I|x<Jwp<h6V-RpAm_D$(0pxvqg!ns=gz
z&uJ<Z9W~XZm%=d#W91OKk|Ilu&Ls_tdKGTIKd8OxHSGe2gXcYdFv>#ca<VJX$S0rj
z(x4AQ+*l*ohweTO#dGAx<K#Q02f>O%qg<=A3StBLXw5!wNR9p@Gv5@1pgt<(xlp!E
z6GE0QAi=`|sOEOG=%17g#Xwp&Dw(5V&r%&C>R!JFj53O18+lb(N?T&rf;o)5?SmR^
z@)y&};!y12)Zj*7nKvVoo5+qCVDzwnj(~^37C9Yeo<uRSd2PQBI)l2L_yi5V+{KKE
z7cCuf+S7F{uX;144A_f+amyZD)?EZTMomc^wjm*z#GyRZ5%3oa`AIx>j(#nI;r3nR
z&z=+2oQ@9S>8IhHsyHT)+pFcyL!RgXGe(V^UR<p5$>?YsVV=~0ShAWL)aD+1G7vS$
zfis>fOxN}FHotA42aVd&4Ptf407*c$zXSarT+Qzj9(P|xJJ^u64O64)mhpU3!)`{+
z7>i;xb>lm!<>92o-&e49=<EnrIk}TK24;FHdA4-yGqmobD53IehQ|u#W5PcVddQ;{
z;xSxxszj_|yv46?8)SSuwEFHVK0Nd1-}JpvA$*1t0)~8@&bBsC6A`>dFJMU+I|O#q
zn-U>A&H&ysQ^KBRhb;ToYru%Lce0J95IHYr9^7r!0EXzq$8;r*q>dyzdqEZGmJjQ%
zy35Hye-=CQh5L?+b?NSP)jZYFe?D*?3Isv`gdu0<t{;x6Y(%@3ZDZALAuxNlY}apc
zieu)~UG7U@5|_sLrMBcN_pr*BOiY|=fuhvJivU~lyaL$f9TP~NzVnu%I3gwsEX)$a
zZKRx#FD78QpsF};y0yN!Ch-3P?}lo^=yR0pS>K$0Tk%dfGWmpJ{b>P{5|AOgeer~2
zwM2w^&3Of&s0{!ya&C&<F^4XF#<7S8WBS}x<T2p3M+r|!g5w;iy_y((n_fJSj?P1O
z;16t+*VKbw>80M*L&AsS2bwW6t++B=Xo!I)duTqTx|hgzTUIA(yu)v@s#eY8R&)MP
zfJlkEFyQla=vTrts2(cvRXUW1bm03lSkNv>@{&}7gggSzNtBdzE@63MkX>wDgXxlK
zJEuxruKR2L1x!D7E)0PsZ{VDG2*OSqjmqh_vey&#1|oqfLLf9I><(V?zDA5JIFq`-
zT^pU_GW{o9>Ik&joJTT{3MkxAkY2B~Q^-GRM$@jsyT<tw+K0Wc5Jnri?auV|60Lxk
zV1ZpRg3)O>c>1x=C#hvn040vK@OxNlb5EWoXBD3B!3kR5QQ^#rR=3H3Y)wt2xKJ{%
zH-x)}to<>!I7K)slsyQ|Mx%lpJ9h%P^hkmLcMfjnQZaa?+{CZ>AG8=dDe3>asK<jj
zTy!6u?+34Sk;v`m(IUmrrC}5lZY_UsYZU0_>o?J6+Efz)_4}VUZBT+?!vLP#G2z1k
zI+V$!hPmc1=r;Zac|741e+>gselg6hezUVxhZ|Lpoq@2Xg7Z{2im7q`-`O{G8x+Fm
z;{8GQ0CXd7*wA-u>y29uyR7xsPq95s4aY$Cn?K~S&A5J({O<bA*BuN0&HoI37Je6{
z$F?%-AITHY+w<?!>0ja0ZwuvrZ#mPGN$Kj=2C~uSLOwfMFX=K2pTE<MD<HC#8(hem
z{cEnDlvUzc=0tr!7D>!@&SpN<x*82>e)wo-A7=UNhINXij?3^QAh$wsj_EcB<*i=c
zO<WYAkxL(X<KDY}4NY0Kur9Ax80hy^I-dpWQA5?kDVChqu3e*d!q7NzHL_$XX*wyT
zDF6z5pI7yHy@aM|n`~`;jH8}{eo)dX(Mf1}1FKP-l$Nz5oD;~f){DJYje8PHnp0c^
zoeY#^69Ahz90TyGnw?O6@;*TEfo-Pq!0)r2P{uQYF>**cvl594x;%PC>8yA9+@%s2
zatiMpZsI$p6`7)5zt}malYE=HS~20(bM>8TyJo`;ebxdud%yoqe0gtCNI`h&AT(K8
z4XWp)?W6B(e8A^E@E3q(Rl<*St%-UKOGc6>j(XVez<`(E$XDpAn(VAc4uQ<`0A9td
zY;ixCb%z4jq=$JT`KZRi$t)?ubjy(afnog(;Y%*NOS~RY8KChQw=>1FCr0!PI@<Vb
zry~@_r##&c4bOP{7He8j!@WNBX$Oag+0$R@hPzTd4DBjkOOeG=dTH4&2}9Ii^2QgB
zH|dex@&e>Lazyg@4r-1l;|VE@iBuUmB-OQ>$CD_oUv$vKwf~u{lZ}BBI*}-Pg0?10
znoRHR?5E<;yN>S6P!JkP6w}9gvKfu&!4fKr>^{c?2->>y_KlS{$Dv?=N2BQrIY%Eu
zlkmg}dmKl$3d>9S-NG<m#cfI8qaH$g*!+laVzs88eEtVbx7bhea+Y712U>igp?zI5
zKa4qyx==J5a7IQE1)(X(Hx$y|z6g;;N-AhXFQv@mk+A(1ewm&m@wq(h@YKU0{q|Rd
zF#2T_{3?tB`+9)aZ~9%du^`<P%&8m6*lN>;9^S~e8$xbncj4$Z^*bZV)b`)`YwE$>
zkhxv#*@N~hI()PtgYJNg9g7L8p4B|_<2a+0tDgZ}3tnbJS%y~DiiRA#w$#?#`eXL>
zn=6k#7d{Heq3f@AF7QS4;oMK?mIvkGaNBZWq+x}_eN9AXYK)CfX1oE7k{{G$fD8(a
z*v*SFY4x_Yp{169p;7y2t52^I`ox+rwNo3m<@}WO)B4=4qPo_|H_z@`HnpPp(L?!u
z(U8E_Wi%{mPb33w;tkK04P$?jHoh&Ew;9LE5-!cugSSruRXI2hEnK^KDy`nuF*Id~
z*z(#(TYTb|=;pStW=SAqZwh0YZ<3Y|Vn#kOX~TWos^Ml;e|@a@Yc^#4Iz9Gd4K@+i
z$_^fZ^qs0#Q_1(V%rI_2`qXUGGpF^1Hsih0)wN~6)TVq}yLI{IUP0#o=c$bRLHw`%
z(b_5%BPSr!#8L4!TaFc)(hhXEA$*`LzH?8FPF9273E65F9#oa)(>>jvVs3(*H7iak
z?yU@2zj`1^-vW8-7Lmc<fdm>|y>(?)y|ra<zR4LHa+nt7z(Dihq{%ps<q)WX)J{WG
zpVKCwhC-U5vAJi(tM)F2F=T5_49_T25z&8~QBNRZwTNdlUZA#-r2^`u(K3*_PCmgD
zXLHQFmynq5ZY_e|;K`+P!f<PlB*5JMS!-AEUj6@gylgMh4Sq{=>xd6mEZLI!J}&*<
z-RubjY#PCY#sj{C><jcVdm+3dEEWoNEaD2z+n3crv)-KV)!L0cns7EgJI3apq7a_W
z-TOx5)tk&6LpqS`h<l)6{NLE|2l{c~EHplEWE?xIcZO!YMU|#r_oPl{38V6%g=<2S
zl$|SQ!5Xdgn~`>OSuX??#l2ly?7QRZK?JjY14gf^?n^-`Nk4O1KT)DDDeK2T7;fKB
zL;6*JtuHLo(V?UodY%@3d$|rMZ^VkGJ@l2HBXgj-pI?YhZTr+QC$NXTvH$TwsP^aI
zI~%~d<KOfi+(g<}ta0@~T8<~3-@6@sQ2Grxgi3V1Sb`lpj!bsEK*EiIGms<L+UOH4
z3O2W?RLsZkl%|I|?~at%%jy#X%m`uALgphEJt*djoK~~sE5M7n@=j@b?uIL~^aJ>o
z(wYE`;|!F>fXh6>x{&KN@pmF_U6OO@6bDQ}x|~eeY<Gy~#<Kkii_FR4hT?ZWZs6Iq
z+-ALGyO8MmQ=d8)W%uJ6*gq(%ZKWKT-EigY7MIO_6E8yf(a|oCY&4!Ih!iHTf|gP<
zQT9C9=Flr}4Psg5b`y0{buNmg-r}+x8lY^n+KwsO%j4Um$%w*Ws1bEc+y^I-7j$Pa
z1C8O;;ITGw2kWpYfBtWl?3tGdxsnJ+U`wPMU4n6cwneUDZo5<F9_jd^VQ^KCGC){7
zLEU$QgJN!FrnUSpfar!Rvz!YJF{m!e7h839D~jo~Xl9LUsi#Jz!oh#AdGB955<8(w
zH}>3mZyt6wcs(A+%?E2C%_kCK=df^gR9;aD!Je!vk9U+6uW5m3*WHm42PBJ2gnGoT
z>9kyE)!MBnrLtB*iOh6(pQX#|JBY7PU`t43LrBb<m@Ls9DAzaA;+KubQk^1|F{6~_
zt!LV-A?5_L*(hbQ7^@lK7D`wEQ?~ZxNL3j%%HhuRwNcTcwWY8Q{PZf)lna+nULSuw
zL7HZdmDVQ(JlWd8nUkkU(<t@!%e%ZCdNpDep;u3c=j}LB$N2bp9Tnt5(xT$KsKcV8
ztixb0U+gxzq%x&HE6}JCqK^X}#!Vubh{1)Qx$u-mt`4;DK^qiu1PsWiO!%r3UG$d=
zrpED8b1?%G!rN7dD!HmwyB*igeHh#iS#%C7N};r9)*9GWO^r$^+-&pC7VeIeI3a3M
z243plU5osQT@osX%4xy!;h)y*-vt&&?#_U_h*CcWx=jfD)O~ld@?ZkjRX$_l{BO0~
zUH;bH!)33P`YNDzaNal5uK|2-Rp#?`luYJg8hZZpF=b}kv*pcSZJ=h0A9h18+<M!T
z1*|&Q178RV)ff`@hl}?<U5owLR+cD*eqzLa?EQGU_77EKe=Deghbwev(F5)9Xoco=
z%z(WsW^{zF<1i{Ok%>>rZtGXl&M$Dt7##K<(HY(f-kr4i3GDg!z|?*9sv7VcQwp=1
zO`R!MYwr>Rv+Q+!e*3=T>)*kS{Y2dOvRGbX9{cls!z$|DldXG!RPkgQ5lus}&DT2@
zxB}X6@&|OQ(XNh#3(Likct_S1aasfxW%lwiL~6P0bF1^Nz|p4%8j}JZhbg%Am6<Gf
z>-KtNuaRH@Z%zt!n)>2L!&h>-i}*KRMY~!s_+T2jjc&Y#%F&Ry!NK(l*2Jym_K6X`
z?Xk+b3e5oz<JxoLcZIE8$42K?6U%RQwfML%*x(TAPe1k}BK|T|(=4j-4#RAl06ZB~
z;tX;>kxd^X;{O8Y#-`BibIbpHgJWg_^I_u~E%r~|ogB=q-UG<^m-F=8kj5FBRY7~g
zjNBVN^uyL+Z&W8nbu-+L_HaknzYqaY4GZkETU$Gx=pVWR^9k!&ptI*2)4yxWsw)xi
zsg7AAA2+PO1_(m%x553$-OHw?njblm?>mPb`<}G%rdVz;j{Vx#(xHaTBOF^1`wVKh
z4`%Mrj&TO|R5z`Hp?60wy-6?HNP)e4p&k^<(M95B*ucgK#)Gt4501}`;;b*>X5A*i
zQ`F$A<wA25Qnj+Rk@SD>(rDkYDet@MD`Kk`o!!CH1X74#blbY@Lv>Eq(6~Kg=@vM0
zkb8Rmo<P#5SLa*RAXy8$5E02kG{!?#p3iOOBa)MMLu~6ykHu;nxKll}pV>N}!wYk`
zEx-M537%b)bL+@ySZ=5jC0qkUMm-d>uU6j1$^Pt<>M6Zfy^yYfXnN64E`>W6_rBe>
z&tiHT&8-Y=$kv=3UaL&T2~)D~eZi>JBK9c~Km-jhSvQaS#I~bQ1r*oj91;iPf}v%s
zU*ev>aO=`$&F;3L#U|5)u``bi^Cn24U0?tr?)geN$5mcKEaNufh77(B`IHcg)$-oD
zmFrht9ZPXV+JsEfpUZLfc^0&L0QxK8{l)yw<Jvmn^vv?9*%dQeMTvk+{s>JCV(sNX
zY)1KwKf*2gXnEA*HiWOD!DH~M|Bd%XcZ_Hd$n{#$&Ve}WtK&ZeT63i3HchTVDmP#d
zF*u^8FS-LQt9m@8L;A4O5J;qFIjNHJnsN@3LH>nKX**vaDa0TDRM8nXdlgh1adHRi
zt@p`s<z#v0T$ZX;r=^PXO+w&+F>gebHbhE-GA{Ouzb>D_)2gYrxU}=sNMnfYf=Art
zFxM=1IgCsl&eNo)z>O)7V1A&fMNz#9w=T&zaf*XxZD%zZ_`jf^%w<mlM|`>FHqqQ*
zBSYT0Rb5-^oLgX_S$N2G#|e!{8qlELzlT%Le1V-&RJS4E_Huq<^I$Wj6{XE{snjM|
zXlI@%vFk!Tc+HQ5$6yFTZ*<4dy>qP%Ro#)bfZfW0*u3wzyJ4xpOzECB-~RHWEPZ0L
z<==lEwnWZd@-r$+;{D^mqRQeDmjSokCl5TS?6jhJE4uJ+5VvCM>&AWn@cA3X5mdLj
zfibH^rkRxF<tAor=UpILxI4?eLG7|O$fmEw1Ghtw*4r7><b=+mnU(*Nm#*92>=wM4
zf7s!+iL1Zo(9&eGp{lZ{p64?q|Dv^x)t-9bRZkN>5pnLqt1rCAY;q@JN!}e4uCYlA
zj%=$8sw};FjROXuRB@!mFCCAh+C&PSQ!bI@<RT@priM`^&f_9nLs=hB(AAo>LN0Ap
z5r$}PTC-7F&!V{dqT*gSjYAFv4t)?~cwo}(<ZY;^ZZ>q&miHnp&c>^JjEm1u8ldZs
ze#wV=NlsX7AXfcwbs3p5?+B=ubvAj?FVDv(lVqqqz4h_};s!BTUEX|+Ktd8Rk8E7|
z0F5cTAz@G+p$oMBqwW8i?f&hOerr+dlBH=HhgwAZ0MmfHf2eyaOQDFSq!=@~adH!L
zAA|`9JmM@v<;v{asO%UbIkpa;E`<eiqOv-y@1~FRB8`^#XyemlHA!2qrt#wW7)i)&
z9(<g(hK1_MG;p~1Y~m{%E4OOw7A)*Beb1GApaB4W8unU`fqk|7`8;-tkq_KHK;aLQ
z{Ena08L2X7Qc~KDv9wf29r&YyFlUQ_U|+2GXVZ{1>at7sJ%=T?m{Ggk^p(#3ZY#i)
z)w1TfkwfoT<o~HB+Lk?l5vF&Wr4G%gXFZ;DhsW$p1aSE~7Jr|$`zPxidlE`C#gizh
zQr9qoC_}_WGF6|<Xl-9(ol{d*1v%XG|4pl8Exim+L$W$3W!A5+C)D-;sFpc)r_4Rq
zKiE)JhC-B7CCZAB21Ea54OCW&O7giN-rh9Ay1>@dDhao!ll^-*(Lfj(KpdAO6Ed6K
zB5FTTji8ygO4%0})d4!k5o}6(gp>ZJR;77_wS(1U5PVL=FD@|7oZ<k{CsxhEyx!pv
zdq^H<$^3YdGv5V~452ay#o9Mub@3v&1F#mt^hpAlgsCs@>%^l{wKBbnj{lO9Bds&*
z|Lg@~n(*Q(0VN7*{`1HG9G%L;BYpn)YrQTViYlK(A#|}8na)YM_7I4aebSe(?naLp
z+quw-kA7tz+xCVn)4LnL$84{HZfyM~y9ey7*Og0Q%qwU8zeJmMn{EBDnovO@RDIHk
z>HKBROFY9iI8%84tjowZNCR=98Fg>R-`x`k9CdO4V;JMBKA(#k$$uK6KzlM`_fe|Z
z{jOxI+z{(3wm60JBKbj8Ty-8xsbtl1IKKr!?%%$_^2#z4ytJbOD*mj+(EnTmmX!rX
zB+Y+D-H-;*SNUR%3t2z=9xu44b+DeN5*#54Z7Q?GA-+f?as(QX1DQRIseoXaudP|F
zpuO=vCyrzO%Wd%JiJPm$cn4d}ZE^b=`6_EjanKvp9N-ZC`?s50Pee|ZGd&Nz`gCM9
zyBjJA3b7-&f7S*cX3!TfJ8cng88Z2x_%{{pyKN+jU(g_*!^^Es;-snGfqsu{G?plc
z=zVO5y7C;JUPHYFY9Vu2$<Au3G3BaxtKoEl;vs(iL>#Yjw%cT9-KXwvAT=Q2oC$=d
z`e6!PE5hb|Byd@MG@NJ?kDlesW8>+3R~L8{Qf5eck;WbV8(NBzC2C(m;K_b#&$hly
zW_1!|RtGW_lRif!zQVyRyUR$CQy7p5Ny6x6Wp2wsvS>b29&sa54$(G(%tHL`A$Be)
zZWj6QM};E2=l^B-dpR0sVo(g$px%Lz7QcKvof;CEr9u2#LXqy~qvTEui-kS>drWzx
z0g<W~Z6n~mAoKsnZZ*qK0=VMKBI5~<G?w$O&$67(b7mx;z`)Q^2Wjzjdwhe$9}}65
z`v9B(UOfFU3iLUH1L<1C+GejyJ~y2nl$wlQ`dWWNo}danYC+zpeqTs$!*nH(spn-s
zR9iAZa-YF&R?Fo1D#xa^^{;5l9ehYYb#OXgS@Y@s>tk4jC=r!2n;W(>QJO6Ds0fP$
zfO>*)xFHU~B7BICgTftIdlJ9_Mo$3W3e`mf606o>rOz{PX0_<mR(z%(%^G0c&hbe-
zC9~(*0pu}hGTz9{CRjf0+M?MmiU*_=D2M&T{hT`6ISlpeKF+g15If+}6TFy#1|V;i
zg&sgdTlcok`nz5!AnG|riuxXhM8aWXlnDd9)NHpaaZ6vNVe9saKbm#;hG3~t106iC
zw`8P@uC4FRZvU{l8boZ-wd0fj@;rF-$y>LBIj7S-cfuWX<>gzvQO`0V)n3gLzRN=P
zmNPxizWQ!tb#J-fne&(du-DYKL&5)TkE^*A_0)e`cS`5G#k9tyLLK77yo?-R%BVZY
zMd+!Fl>cI^1$8*q%H-@3bcV5noik=>94~XWkPa05OSEg?zXL1R3k!lm*R?9*@!sy=
zLw*^~>@v3}@og8Q<Vu^(ZqDpZ6L`v_r7ZTpKJUZsvT#jvk+^Q^{EO)BKQoY}IzK^L
z2WB97gfZyNfi+mZQ^L=fv=>;|k-6GLb&jRcq-3&YhhH|4O!SGscgWr9^IIbWKAm?8
zk0Ud>C$!>(kV{N+dBm4rQg?(14Lf(;79@o#RZEvq*TY)JAtj+<QJ79xN`1d>F$Z{G
z!e1zrc{?>iyY1(jPz5CQflnY!UZ`nu`;`-!^nlnv`s7y=s^d9K&v9hx7;fz4`i^=m
z8@R$51AUvKTHsP~a~g{Uupv>HDGOOVswExmYjv5(Ds_A)<5etb3%ivu(RnE0lOc!5
ze?E`xT;4E8;;$v0$FkH(kFV7maCg{L-A3VE&|1cNe14l+-|lfJyR+V5{&Tz+7xQk+
zZ`J5qy`Q7;4f7snJ^Jc(y|l+HTkVnyB7<c*>ZC<B?kPKh_3-p~C{%d;+O=HUd3U6|
z19~cIxw?AiH?y0r*q6+1kvbJD2=|<iLR5O<e)vj>SD?xD)kIz=VYR4KL}nSfec@m$
zbFfl8%pJ$DCtg#*mqbOLm51;*lqOS78-I4E{<M~HTJg6~3}fhAf|bRO26c;1?>_kK
z!MFHkbGA?FW(^8OREE}cmtj$Fa`|<XNu=+;ipmRFRDAc)%*dHOC97P)hkshz`B^2l
zd&CPN9O3w6Z|#%vrmWI~Idfi8xQAlkH}zxSk!&}B=ZH4|lN7#RtT)j|8AK{8{-kim
z(R#8z3tDmwO;1a1!04c^u?oK!wbuw=Efy3)SmN>CIwy21$W{LBC>8wcrP8-4T596P
zTsp23$>4A5!yqD=?hctqXBWM@lXc#vF<F2KKyG-z2akN0L)pESVLQxr=SQae$}*at
z)^HM?f6}1xJ5E_OU>ve#WWuOSM$0HXJ4@r3fmadP%ldhGQGv(yP+Cls7v4r@U&9O}
zOUp4nft20iixj1x4~pdyF{DGOYgns6OAED>n*`iFfg9hbl!~j4Kz%bJgWnPG31{MS
zhU{SRS}?rM|L7TsYlm$p^Fz?{#LYdAXC;0!-uLWM%1fdY9sQXI{Qh?Zg)Vk2={e1k
z%x4jA^N)=9vk|z+?QKb~Zy1PF+vN~~>-@_yF#Df0buY-)8#D@3cB1sdiE;FmD6AYw
zhE+X2Ro->`KCmz!IaRE#uV%C&3D5kw)8mbiXNp$JEFqX%ZyOKsx#zhoUL>auQs!0x
zpLzp<!%z#?D^C`@f*BaHBoHvU++#(+1K5u~)BsdjPwf1RpAf25%|)Z%)8g}6B7=UN
zXB(X53jQGBhcntj0)+HUUO~#mvNO3eEVhetQ<d5|qVg)^EU8D6?b+00QB?qMjf%g_
z&DM~2bb&SKZdC1zrG#mY&gRkbHKBi5P2i5?qPd7jH&oj&)R6C~K18w~w+JjOwv56f
zJ!5*RQEo({(1+I-;S;{Q0v->R>+4%qBI2QPo#_2pZnFfLU2+n~^3vEd7r4(#EZBYP
znfp?f+;{Xo24Uk>3O!HfM8P#E+%!1aDLR+fG&kuvg_6vp>ztxt{A!oof~V=RB18CT
zm(6N^qTyvM{T2m#rGfquAQ-Ja7Fj*JHJ9^??+8LPhcdJT`dob)P8Kg{KGv~Y=cGiI
z9Ae0I3+Cm7T%-lN#3&2fc|P-Y3#P_!Q=<j><D%PZm2tOgKE(~$0|um3CVX|vr^CL}
z$?WF)`Gxp)?Zb`MlG@VzC6>Lvf(eKFXJ#O^Nj|DoTj&c6-MCd0_sc*$r1D23HPa=y
z>T<4xMjKNKD(H?p(G*P~Sx#;Ja0#?0#K!kwdz|&nv64{iF%6t>-aF7Mp7@FverjF1
zofPz#FJK>gs}UY)D(78ai*>((1aE<V#R>?*oqdm!vFqM{uC?^|!+w_374#dqOs7|%
zX38=T&31gEnLo@-9tCCZk(NL41fR#I-Zr5d3r&8lFznLLTfd8_Rp*-2I)~e5QYZou
z!)c|){$aT?DO+;IH}T0qv|2NWbJNNnD$wRUN}pxRzPhUm<jzyU2o&iaAMKYNiqGlP
zsUpSkvC>d%uv07OBe4W6xJ6#m&lD0{(3<?CWc&%BC5Bc-mQ5ftz913P(_c5QVF<wB
zk>2!ut1=@x<^Y#ed%+QXr-d)i_q0arw&97fi1*!wF>n(yP3Z2+dZ*lcrusDj`Gl*%
zTHoOc5I-W)COA0gnj`mP8&Q$%PkGFibN~-A<zBJfo*R*X7Xj4!5cTcq6~}_}1DO86
z5B;+ZbLXOboe;S{3|@vz1KPbA&(w9E)NRv?KNJv*KMEqIEOzW;=8~7`{*H7i>K~mj
zgQ6DAlT7MNh|Cu;F@kH=Xz#zwje2>vYh~iOErTumTPLq&{O=5q46Q|U*A*|7<Zg^-
zEc)T12NY$8{TGY-+)f;J>=9(f@93Pd&hpm5J>W}7+QP8-4X$L<8tBR$uE7xR5b4En
zs@kqL+0tQ%EA=ak_Vj>+v|v2PrDHkt-?{8N969e*Dfb7_rw<BP{{gHVzKMY`oUKOJ
zXil@JGeOKv{;gAQWqofqlMJn0=&s8?D$&&x&sg<C-5!UfQ7;>?vCV_vzff{ue6(M2
zC^e@?r%v@v%#92s2fMYRK1xd5LRjQAxtQdlxHSrEbb_qax8ul+E=Xi|FJClkvBmVx
zRmr+U21|FY)iOLX7WBU2lT$lB`FC4a>8nilBQs68f%C>E(Ji1AqV+KdOJ9MSqumDT
zF2RB;{+bJpE3k1Q{t;>0*en>EwO^hkFHKq+VJT&RuExCU3P2WW<a{E7{f9&pdRF2$
zT?JbgV;rZvx|U2qQn@|uh~Jw}bj5r!mOZijbYt<Wcej+Y<$ASvdB$sETqm7SLm|_t
zJdY>LNOFXg^gNB*Dry!s9(xO%Fy~N9XGlx+=fD{&=3J>+nva_A<RhYeh|<y$+6pTD
zSrGi9x%C)ZQdUYEje^S@lbU4th#AD5@7;ka>{+*O_3p@hz<oaCMepmBJpjD})A2R0
z2{5`*jSFp2)rVT94*^zv8J&Rh+kJrwhfB?2xW5%D98L|J;rSMvh=PZ2BEsN<h0Hof
zway9Vopd>tDy$Oc>AemxMjvJ!OHOER_FWFOM|u703zTib%63H4Ss<bFA*fqLm2L3+
zwJdX(eJoJ~w{(Nj-8I)*ZovFq8*g^P{eYYb_ZK$ZEWGH3c3OjtshZ0o3fzrxe_fBg
zwgMGHZE0$AW(vsocTPLPkER`7Fj*U2eDU)I(1oXI1egQmzSDpyA)sJ>z)3Z3>0^EM
zKWb=*z^ZvbM1gxS?yu^x&rP9X;BdW{%Fg4Gg<^0y8|Uh2#&z|8-0qjzFF{T=bgicm
zdaDQIG@i^pnUP-4UI$cHd9cu?rP>D=v@vga<-}ZAwP%RK>9@1ZtzhBZG5Gye*x{X(
zgfk<;GkYsB!@H|G;K1)L|MZ?J%<!&i)HG}Q{#wlN?pLiLzF%$qG-G;ibwk-X6@MB$
zeOKNsnsKGqx&>_V*I4Y<x4u0nRT+aX{1GV=1!6+AEGOW&Ln<4!;d313@n8N~iFLZ*
zZ-D?j)Ym+`pZukp{Y9`qBE9G2+%s$ghPzunoaI;Xah#!3U`m*LvSPx~Pc?}1*8q2_
zwTg=Ae;Sht1?SM1#~I8GH!Xp+g93G;H{w+a{9pcXtE1+btwoA_{3gubwXh!)r#4*(
z|Ba&?RL(r!>!b%!IjN@JtL@RXkn8--a=swvX}_#%D+e;EC)1{z%|uD$4g2K^mx)B?
zp{GGnPZ8WF;VU-BPkx|ucjloUZ}DZTAa||QtArH@Mi=<pOXD%^`mX-9<|J2n2@Kro
zu-P%JOg2i!92RM@#q0^5ezga^nM6R#&DhNm8jmIa@64-LkOUT0$luRt_<y+hnP!h!
zRn|8+YmUqGdR?HArQ)JmX~$@?n`}ImMh9GNSyUp6sf?=bR=ZUe*<zw)26fLVbU@;f
zabr@0J8Y1+WxS|N?~3&Ct|h4vGG^rhd_YSfzJl&TVpK33sUEmHO1{b>Vx=snx(}6>
znhZVY)=D2l^%+}x&4wJNo3|M1IV)zIg~}IWy1}l;?7o8s-ed|%wST|pBJ8F}{8k;k
zhM|7tQ8=1WQv-XU-tZ!o%zAoRZ9R{^>xs_iu-f!3jY=8g%Oj~pVI)iMFfiZ1q96X2
zC5zX1Z>7o5_~3QH(Pn54M9hxH{;o`o6D<&_xUZ5hh<jd_*hTrS1%lS3W^rmTaAC#T
z<KgDMt%>mZ?0{qA9Iu_#y&4kTrfGaphm4lfdHsB$bhPx#l=2QbV<T<l7yLHa(6Fo3
zw#3piWZ9l;3QSBGY-9&&Gb^w&(SVX6KNnEfeNUnMK=d$NfT?pijA=}=#={MgqdA#q
zp;#DKpA0FukyBAQVWD`^<uFCoco770R?bh%pK6?%OiZo>PZ@g>U<btgg6)-iW#d`5
zk@s#9NS@%zIs%*lB1i5ozl*@U^W@ys>9Rx7&@`wx(d+8#6JaLt$ZLp2)YtiDk4dAA
zblBDNkZG_P()h(ryYwjuMU26TRaf+`22>ZO{+31HV86!FxYXisjC%DWB5%e`0haGt
z4-zLKQ>N@YRO7{?&;6Dm`N{xu>XD6LBc%4#^0g)<b&&`+am1hK>SzChNN*$Wa8$@%
z)`&z-9~Zbq3m$F2{6ZB8=?|2Y^Y6C=8eJLF+;*eZ^GM5gui`lBW8bd8Di<n50=J6`
z^f3A8CcF0(B2Ac{@9N_Z!|h-_WbvCM{Pnc5|GV+b!e1PXT`Oj<z6(W9Q<%Fv)Y|_c
z)DdVW5`Chf{xs<_@h=<>Kj(Ko`Z8F`Z8JzIR4RD10S&?V?Zy5J%hhZ@juo>CvB2f#
z@~r+wSK2hzZUiRgB0`tWPn&R!XzWgkHElW2%&%>E9;ljgVC_>-+k87jG2)8^fAA~j
z3YOYO#mO1I0N?`8wY*^}!F+?It{~%oq1hujaK=p}HQJQjag!9w+YWsabp)bB=uJcv
z<^CN#Jkna*(7B#VHUf^DDNxI+9q4Yf9g<fOKQdXBJ+B5;6r0?@p%@TI=kJ)&kyh}g
zn=b6J7!-v@lb-s;-TuARaN@BAbSA(c2Ty$SZ8vzR#oKZef*k11Lh~!p8Yq{CwR&|J
zb+d*;PKz#|QHcfr^)qoV`7T4-nTRvLzx?nP_pOQY>PoZ_hdm5ZB-P)-TF>*oZ5F?Y
z!=yM;4OR8IkjjV%8C8FS^Yaup<{sDH@+pBbe&C-1nj{kG%!<yK@t`*j59Ixf&rsG+
zdS@v7T7nK-CLL}xC{LNwL=_APYIQ{Z%LVQ;L~#X!iu^?_cstI&d&YLy1N2GE=U5z#
zfcXrEMFN#IRCyJ}+4)u#>hpjr-QjN8YH;-ZKa8vQ0;{fo=1&dGY>8d$kWbMOaj@5o
z1JP>g#lF4{|1b`!SzTW40A8;hz(cYJqIFPr8=XPxpB|?R#G(d2|D|@$(+mXs5VDrd
z7QEfYei|>SWKs$JyJU0jb{S1DB&gHwa-kf?pnzttn?C5b+chm2m28ReIc%C%EpC`C
z3F#;?EL+?zk}L<uHkx0JVxVH>V_lrILAM<$_0)H+onb*<#bd|!aVQ3GdDjeJ$^<`>
zVLv;miLOIcxSWZ5qq_hyU9`RwqZ=cn)jj>_mPK@#-=bwdn0WGUO+!7i4vscHypXL3
z7(t_(`Z-=Li%6Oh*ZI)IR2-R#z(P^tG*na0pj4kNz};_6f+KFi)_tkf!4W=XD}_7e
zyLMg_Y$OQ+9n}X)yC7kg??BtB09Z^y2HL^>{Dm@R!F_+c`hHMA&<p1K8`lTsmaPVP
zke=7B24vFahxL04+@H&)jRVsUoA(yHoU)R=Aist@_Z!*y865ZG!C`%@4Suk!vsBRO
zJJ|AA^IIM}P?3(EzA*s{eShNg^)+=ta36{Bz_*L}GI1y&(Mb<ieSGLw9D4(m5ZlCm
z9biH(!1Wgt2L1V)Q|G~oG~B#8npafIH&05Dt=GdB&nq=W!8ohGbijFaSQWbdp)w2x
z-Nt*DNjv+61XiqD10^cTPB3;j*0k@eUAv>6@?sKPb~7siO597j%T;tT@(k{!SGG_L
z9<R@$%cqsX4HFgk3bc@b-2!5D@?0}vE>s~Fqe+V>_B)Pxrv93tA<sM;K|w#@iLAe$
zaz%cJqcY$JUjkzZI*;2R7JA(RzTQnHk-!&#>7-Ay@Yl$Ud14q`dTjJKbO^D87TR~i
zXOV{V6pG1fx%q0+FP~_TP=otw{Z_TZWHKxm@sWObkInVdiC|cT(*)MIV){-;WY49N
zbN=KC-eWOVTzQOdm&AJdQ<e3d&6ojKeJm3e*eT346v~E6kMrG%M9)yJ8q)<zk*N;?
zZIljFiw6>5y_UWKgF_RR9?$vi@dyH=D_9Au+>S0R5>vgeL*Jmsz*^ZIJL()ePCboH
zCIsuT8|>ANjxq(?A&YESdtESJ$BX|R+d<g@Xi(emLTIiPW=B&*Vj0ZNA_Q{%a}9RA
zM>|`vU;G*`_j!D8z`XB}jj#t{o`YtkT|)T4ZHxcj!UX-u`VL=BcCgVV>Inp!B^CAU
z;rb4(HWv-Py!9;|{=89;Yw(ha_3a6FyiQ&7nmz>#PjN;Iw|(^_tl_tp{+D_<P~Yl<
zU@}Uv*piW);1_mG!l{oRm3Gy4j@aMCDw@J-;O@#>{*huNHW@oNJs7W~cFL%obS-^A
z#$CF(^^aCd;A!vjJ*l;HTl`+0wUt_sQM;H8j5(xk$)j@zJ9KI4gy^~NSZmK#U;&6s
zH8|a`^uX;=2w6)c$Km#4C3k1(+;z6SaPL|&p{`^B%ro}+0rt!L1_ri<T(jl^R(98Y
z$W^}8wZdI4`)N7pCxi5-9@$Us7oA&OCtR|-OUZYQ(z`DWKy|B0>$Oq^XQhJekN}a$
zlob*Elz!}xIzg9tjAc4RT3r?PceC_#(T77UM0i12IPCw4AUyN-5+M7<+kwOEsQ-z;
zbsXA(r%dw69RDwUxL<gF@^F@{K4EO)uBCBlDK4iC;%)sOW!__3A?DV%X&!LZ(`XAi
zH0<;xFO^AG|F_m%oP~L2PmZ4SzUD2@oNVQlc3*-wb2HfSRtDzsZLZ_MD=_yGm>a;{
zS<B()x0<&+Ph5S-*J-Nu*-xnJ_(J(f1H(0C4>AOA46!y0{$&jOfv5jk?s0OtkYBe1
zJnD+>^&^u@dgg{7UO5zlp?mW6-Hjd0XU@-lLpm;9lkh5HQmTWv!qYHv)xf$K5WIsf
zf={4KCh8>2cIsdAme+qwAZ~um3!RFeAmHvNl0)yw(=B<CF_;WED9;?V!Q6w?e$&Hn
zPszVZ8wlUg=pNc2H~ai3A2hq7yTh>Tvi`}~`89*_3RGjbzHK1uYO}D1GLNxw|Jand
z5tbX>mF(`NXC8RKoTe`VreVyWN*fY>e)eg9d2hR3Y-t!;1oteXtH>Uh$M&K(davWR
zEjQj@0jj|-Pj_WYw$wjC1P`w-SsFM<%>vn4h}An+UFQh0dPmjVYqNw^Ydw7rr|TRu
z?!E`pV4d{3xthM+o;v%ex^Jh4_2@y&zzdjx1K80y>b|XRm~&9mx5drB1>XF7{s7D#
zDqjfq9>|?Pr-pm3!94&*-sFS1eC1pG%VWyK-DhZ|+Eh+w*8+Wty5)I9;5pJJSBju>
z`3=0o0z4Rk-hUw8E)RI;$>o!UQ%`n3d8%;cGLT^l=L=xU+v%Lygxtie-8i$+C2s<9
zUE)ky@4rHSf=+vqPJfa%r_lOqzJrT!G4zw*Q|Aj0cU*XA^t5?}1X>{lEpXC#?2LK2
z6k0B+<Wbe51ALlxVGDU~8a<(0#e~>(LUFFTy$-Upxu+CT+9{<e?SeoP?wz;$PZmz?
z>)v;&aAtqaeI2(CwPW2J);TI(BU}TC)=1WX53eoA7S={)-YHZqawFtq3NwABw@U_@
z-{cEzS`7aQkM!4&ghi<;qrXpr5)k_2a;k8i3~C{ZM2)F+pknCM!~#@a{u-e;T|@6t
z-$10>FhyVa`{;q_PILwt-d@3Al|No6?RvfuC`sm4-4*D6AM9f)19DzUtrcd%O0_v|
zJOU}wMx7=jSLSUNWm`tOaS;t~wYO4O20Cr&;u67Ee1THvw&cG48eqOnA3e$1mEfSw
zJJWu})V~<Rd#IS2<r|0_z}|dfEmQ1`&R%(m%OVi%;@gr4R~Ar7=`H4PMxx1yBIgwv
zkyD0!qfVC$L@DAz-$aj{x>7$c(bB5{5}C-e+ew9ZeGQl8fcX*O+FiBx!Q(KGbU0)4
z^Sp$vf&#|jx?o;dsBTy7UPQdkBOA_GL5qobe~en`c+AC+mPa8{l>TTlUNr-%;0cN0
zxYvM4-0N8M-46lZ(V*5c$iZs^RhXesNWki}#5L0$9aHM?+?C6R!-@sI?4OVuW~d6)
z7&B-0w>s=mgQ3Z(njbSUJ6}gO0;YHTmgXs9^71&g>@YZiD3gtYocGVL&DocKEe7;o
zq*=ScJSdkC(eq7qXD(0@cya$b^z<v@rIOF^OBRoXO?IzYC!ZK!Ty$wpP-#@NjhP;7
z6odCrV1=rqS-a5d)h_I4UZDyEm-9NStPpgu!q46~s<FH0nYXEHxA_!Jjoyljb@$yr
zq_EmY)caVWigOh}8d+Tfv8T<qedFZtWTORske=MQ-Dj(*hJX`aU6VkCw3y}(&*$%6
zYHA>$B3)B663;fbHZ`Cf9=t%~-F^G_HJadso7wHg;W?I_&3VTI-<;X(4!%adnS*a8
z*SJ2O+}zPIb+bO!nB5QywKl{vIcvAs*ynNr54x?kqS@5vbeZ~#CeYrN^gr{AKRM$V
z?XD^K2E?a05Wb63I@TU;f9;E(a8s;QnV5#`h-*TP)`R!HxR(Po=H4yDE=UbDl>FfH
zJPr6Z!!;vMM<U6eH-`kS2n~5H%A&<vru~lg-FmU#x*{&K+h6OlVz|mn)|=MY{Abm3
zSHf!|+?6y}K{-h7Uku5M^PaY+p8z4aE+yQ=^cR!_JAJ_c$S}F_Uk9F!d))r{9Y3fF
zZ-bZ8#F9@btjm6u1pP%<WuW=7?Q@+nb&FX*iBvy6zlkU{Bxs}UJ)Pi=(EX{=G_o(X
zX8kCnS|sk}k`Af6$24fO$^~a+vzcc=m6hlj)Y=&U4}#d_PubtLwTKX5&?OER8Wa9f
z;@(-d^_@VqkP{ll1tv6FqFCY)GNrA1f5tPb*9{SK%x#ewQ;F8F26Z_D^1RWQCi5`p
zBn$I|nJF5^VB&S&w^%i3Y7@8a)Bve`0o_8Q&zV5g|NS#zd}>!*IXc~H5|)4`8l6j~
z$i?G{UeI2siaxj4Tm<!}?yU^km0o$Rza0WcsOyLN54ne(oJ<k|mAVA<o>d6MqHrF9
zMf?FBq5i&=dt7L&E*uDg*S@i?{Dp!|EN-blh7v9{u7HHkTjT@;!sWo{5m5RXGDk<{
zz=)2)A;5W?voIQ*&;S1;1X!J;kOwo&pxaaCOu=YQCiACP!?1d1s|QS;C%?{M&{&jb
z=`0wCuMRB;Hu()56abkBR5JAnjX)#Q&OA<l*G(Rz5fM3n#e!fY(m^_oLLzT|93NJu
zoi@O(ZFD_KqeD~prb3CsF*en#1ow(fuB&7UZ5!3!T;h=RPBkgPGfjnEDpbTBHs$|U
zXGj|J91e*?qu<1#upo{p`cgs#0XTt!FP8dj81ySxL<0)*6b8uw23lUh<e5e_|6p1y
zFl5^K%Xg+s{FRQh0H_&c?%^Z4z5R=+Wx!J98FF#cNoZ+m{ZKz3X+$0$U}`V55koCd
zeztv2kH~jw4k;YLZjt{KAZWy3Fh@r|Yj6ng-oY%4hT!uNK(qAjN($YD;5b%(1assG
z&yeKCsJ;HdoA~i^)F}*^4sOd|xy9>(P*0-Ca(v2PVGING4$N?ngV#BO{97Pshj%Lo
za|)+etqW|@Lqz*w-m~PLAXR8^?<H5W^xd>q82Wq|RF$4}sQBuPGjWX0Bnng@VFKoI
zp$CE>yJi(+cNzvU<qh~%#SDTRpmz;(y6RlPx>!uQH?UyN*KKgHX|?7sw!U^1J)`Kl
zEPnAj@E~s0wDlJa_3Uv+A;Yu#|6>^+RRD!Ek9&BdCLCnoPC82e-RX}h__O97{{-$v
zvk+i_U-oh<<z?_;oV4***6peF4#K=(M?Poe&6Qa4&p8yr<#8&whgHU~lusHjRiH&+
z2ZKovD36?Ts08Y)6C52RZ*;@Fb6{RCX(M=Wn|<yc>)dh8AUrS#_Wg8M(+>0#i2~?@
zn}lRD+)WQui*;2E|A%9G7P!W15znIPw*s9^$8%#_J0Eu(>D<x@U_Q(`42es`Nj>dn
z*czmU({U$eYwW{DDmeVEbTOySIa+KFR>I$}E*<Tth%5qh$$y6Yt$E(Wo92w=ZuctT
zOufalp?<3nylcPK{t&AEz&?nf^pSCw8pw;zl>+vRZyu0X*vmMgLFLw(V0;Yw5{?)k
z7ZQTSWw&ch$zhY<Y@ApZU78VUXZ;tlY*E)tQR?0aY7x#<9*`S1+6&r>4Mfe`D8f7M
z{kjlOdhdfs;%DzNhTHSMdmd&d!R>&Jwhat2e4x2^0&+0n4v?J*wS@9^Xs&(9oaSea
z)is1o94lw`_`2@JyilLlJJ1EnHIs94^TKWMoC`Wwakp!}+W=&#DlIEG@Td>kRIVNm
zwc~+4U6x#$6`5Azp6@GbiJwR}V<a=xC2yI?l;zHiiPHNzw*)yrg&eco+x2-Y{F(~s
zn?bT=MPhxTWJ$;3Ah(*{{@6r38_$~{UlR$l8iD)FUQyM}A+IJl?(Gxr%WlA;a{HQ>
z`<w0Dm=y{)ku*Euq~o5-8#{$$&Q2KVf~)G{PB8RNyYVQjOeGSf&iX>?W=7{v1$<x)
zGwAV@IYamW(!=3+-*m%J&Nh#H?32l5ahu<4aII`x-l2DI!(ME|Eo-`E-c4w-3$PFY
zRyn$^`C)KJXTD>J>PNGfvN=hLB}>N_t%z{zXzubr&H!WgL{RT+_oU}Y-^`OGo1GgH
zrE}tUM%i3-q9&I)P+R|Rp5V}!r}pKf3)*;}_`L0}`0BiX46OndD*taUfQYJ)!=muj
za;SX4t2^DbKV~hpTS%UraN>)u%8U1md>qaV7u;3Xr$NKn*V~)sIhs}kEfA)~`Bi0y
z^A?9|JR<+XZ2+Ui+OU`(kvA`F8K^x`JFu{=&6jUW1e<JvK3nCUO7G6w0*SmLx828C
zOK549^CMxgHjuXq`YnxY@uz8%JvPW{QE;T3&*|9XdZd)o7N8!((Y^r6DpKydG~6+2
zK&uF|smHPOceqmK_?{Dcz>tt#UOALbmdhg_@(ux#P-PUV46Z+5nRE5|tLHyPJst4R
zn?G`CH$FKrS!zzq2e0cT4=|!jIw0m=>p+r{c`CIWedl!ue9_CnanopA&qOX^zPbZI
zZb=>h=*osOWtH2QW&qp+*5@Iuj@`_YY3W%Rx%0^B0BL)UKHWaRC%(kD?Y-k4*zy<u
z@L&7C(P~4gb%NDYXN7a;T`fv^*3<<_%^jujYj99<u(X_(r7frb%#PIDQIhYn(v7te
zWLi#EM()fG6m3tp9zO7iFY#@A?|9H8`wpdI>ibc-HB6lb8QMK!_7y3%Gu=ka%UIf=
z9igG!rlwt$zVcn<Xrqrc#+c)beLt@Mo!Lfvn!A=VEu%}AmJ!62B_-PNvYLJGcvb9E
z=;apQN9o6MU3Vlox=sJ^xKI;$JI4sj7ZA%KeTsysP;=6cSMUa1uI8~JMbZ~xD`Z-F
zRz{vV9id~};RB!e65qD>9)DnKyAHLi)a<9c^5Dd0mVwaeH(>$!kJ&%v>~dX`sFgDa
z@%cXeMT5jrOcda3&y$wZuaL$|#Q=G6XDrhhC~pKsWwu*h0be9a5KR>1I%FWz(z7yh
z=aFYle&a{};O8kiW=A<KL(LAqZkM?tirM}y2$|NZLP~9mOv}pbz#rO<d4-Ny7S1kL
zJMC3WWOqdriH44afg2AT4w$yVdp`0xzHaXw|G>8VNp62D|Jr}mXq7n!BJR+|+=*RE
z$_br^1H!JP2w@>AEBwU8W~C%y8V*Yq5mz0Gn8@KuMkE>z76xui4uH0$TL<s?$mj00
zuGuo%U@@>f5_t`dxqW6-T3d>0O~j3fgTb7l-G;&CP=cb{+8@BAl>eJTG||NpLmabq
zK+I8W@xX*9(x&gW(Wcw`%*G?m+eX-&YM8S|JFbV^i=A0mJl($dqvV_QMlmcOaSt{p
zhdanfGVWTvS>Z_3rMkg2uJ{w=Plbwu&X+1}N)ubcd7O!UAl`bFd#q$3(a^Cl@WkN|
zrES{Y!$&^H*X_N>AK1>fJ<VL5Ua8nhXXye&(8i=^juK8JIFr(8kmZS)uJy@oEGvd3
z9ggkO*B{q&l1w(&T8(Hp$_w@8>bs+DDoS7}FGlrhHIU6xq^}T^EGRYAMyo=ip<`j-
z#sg0r{K^mf&QA_XJKGI9e_{v~Tj@l4yFEQ+a8RND;};T*6%{F!Ac=;BsYJ%whB*}-
z6Av6r4o*jBGV#6&Gxj^gD#UXg5LNn6wJpEzr%rW~$s-f?^IrZcjq8ll&y>z0CSL22
zT<_P)>A!COna^j>{-Jcg2GW{pf8){sgGNAup-zT3oc;O@;Pb<|-UaV1{JwALxW$L=
z)E!0_Mtk!2Qr;CYercR%dYE!mnZ<1BC-<ZOs^-spv|wrKjML%7rDE5PYln>77&k7x
zu916rqo~sj@AL8K-91s@eL+=-=Bpyb=qElfKbk)J6yLsAaw30yy&47hf~pYBS4D~w
z{Z&;z(ny7`ooZ9ksbs)GlnNB@3#vjiUll1v_f3h?dIw#M77(F%VPVjLYtGAwe1wW-
z#XXz(SNYfQP$>AKiOv_)3aBTOSa=yJ!09r7xw;Xmp*WRppTg8*o53AIO1-QLGTJtc
zf<b#7Dz!qSY4peBv!>hfwf7#H*vYFKdQnA>v{1#47nxA;gVqnGYDG|?`)VdR{o3uq
ze2#>%;2OSvrO0CaOdD7BLe-8iLB(osC{jw4670p)GMhnk(TTS_I&#V3{8ua<Fk%I4
zl#hKTcRpOd)pxSk5&!i`W)vQ9fD4|31UE!WY)8RCdmYv1#j|`ya>8Ra&ksBCd{3Tc
z#-cg&A$(MC<uVIt`|pY)b`>Wa=JX0&20OE0??O=374M<4k3Za8gBY&?B69tGU^A45
z_hW^(zxwa=kD13?|Hr|<FaCkMjmJy5YyI`lZ#8vKa&-T{pX9GI;ep3LtNkL5erXmy
zUBn7Fre&KS93J=oqKCJCy#Qdfx_}(Od&gAdZ}=Iu0!G=n0J<vXifn)$M991Z<;(UA
zxqfCGp8?y#$K(h<l7FXI$rXj=f#ejCWJpdl)|^@Lp2F3aHe2jVY}z{wT~x(uFR`tD
zr?^PuyGg(_FHEMNfjm1EGU+XGImzgYRB6k$VvsLi&ycM$v!z!6QYSM^Z4Sq%4iT4d
z0coemwa7x?ONLUA7?VMY@EjjOA}y7o6Cz2inos-ZZ_N`+u9B<Aws^m|mcgWVF&zn}
z@j--GnY2*3!?aO-D&R!|glA?*F@-2A0jysL&&{`3JmR3&2Hh~|{7GxiaL~PfYKKVM
zE=s)QO%`XdXKRG7I$|O=Eg6*%fjtooYM(yU<>TV75{uQo@WaI1k>un{V$xg4r_=%3
z6(#Bf2ST<m>+RuYiLG(*L<zdOp<D4S1is49&d!S%2;n0oACy@OrZkN};?unREo+RD
zi~7<mLn6e=d<7vODKiBtm4NHboh32}HDaSMGo$fg@aA(6c7}lvx63VJ3R1d}pX@;k
zsXo)fVO&lT10<4efi#DT<VaCfx-cv(u^l2t72@FwLzuw;co4|{bF_R)@d<0s&uRiU
zTXvE9M${=nKvHH3HYnWfzC-}iun?Lt49_<p4oKsZ7x==kL1NNdD3c6QZni%$F<)So
znDiFvliWqv3|hB>O()eFkQ0@ikA)2=>Eb|OF6Ukgro8<WVWWF^oJOb4P+Tp|<cPPx
z2flKpL@g?fTnp^fU>BGp6?iTPb}HifRZxnw>GpST`P&RLHs#EXFt|5n6UI6iih@-Y
z5sh$vIt71i7BH1Q6hKaET$W-<i>kj)3%2t1EeOks&Q~tsg};Yq`_AMD#8rV?{1vST
zAhciuJd)q`su_59K9hq*>WmooAj+3yoCgl1VNNXPf#q5SVk){4U|KpnF0CbF<NzyH
z)gE$`Y`B{gUgF-R<-+bq;X8icXiw0vs4`u=`)>`B1Kfkk(Ut-$5m)AP%kXkrtbKHI
zH+?E6C0^=UIV_{GOS~Koj9*&VRkvWqZ(qyAw=D8UnN0Z}$5VBL!yc5}l6txt6KfIi
zmj(gjYdO?zxs{He7eRy;3xFI}aej&)WS0y`;fD$5^6s_ZuDpE<!bXqqG2tuc&XE6w
zxH<w`v$%`#R$3l9Db}`b!>HWbPvj6nYfHU;<_`eA+Rw0yGJiz*x}qgp?A)yGtiQNf
z%JL9nb5|a+FD>C7Ir)-%71ErXph&j*?CijCAF>l6-A8b<Bt$P*Mp#yu%REHG@v4mA
zu^`BFQmp|wQOWsO*npBQ4g~W3grlr`DLD&yMpRBHk3^)r^*CUOfoUmpJhpXPMCwC0
z(c6`NKs*Q?d|ZMYHfL|L`jJj2)ym|6tvVA_dFv&>-aNl;fO%;#H(GEnt698ir%;&P
zdL?3az&*M-cD2L9x4-`Yra8C-lKQV)+97^c!3NCy9oSxzV(V5qtr=f|0{F|9E=v9{
z1(c}~HH9u*Sc40Ix8`>@_M=xy!OL+nt{i2d&VpbT1+9<kM+PM+1eR0cvFv${!A`a{
zAEOn=f`o;~9Fx~Gdq)X#mtV{x8f{e#r?CQj4z42UR*cLdp9N!WfzTqD$KjIWI^Vm5
zfE9Y5iwD?}f<zTN43nTlBq%8{OKHNfSb!l47gYu$JZqSAv2u(BL-xYzKs5|1f7dfZ
z00=~}$zBl8dkA~A-+8$my?TU!hwU~Hw@G~kUM5B1ysRPy9JO(TkT=u|zy><dsDou)
zcmDt9ZI#9_*lqv|e;8>R>lEO-FBx%?%T6*w4+#oJf<h8q^grP+rlOuaMGEklZzB(@
z={#6t{2W-$|2d@(a7^Zrw2tV0?`<Up(VN-PZYhZA4ha>ll@xoi(1W>*UGNXOT5Kx|
zfW+DfS4E<%BL$3e5ORn{m*a>y{uTr<0ufbR(&`=mDGI|l_N*O6HQ_92rP|mJYdMX}
zAVb%-t`YXIXRI4;I9%ViQp-}6%BSw`yyp%rj}CvwV5isLlhe+}Vz{$?JuyBnDYTy0
zIgt7maPHCWpH_z!wnuOG*MBg&^sI1|F7DFK4t6J6HysE(i1u9&1)mUj;V5<zEK*e<
zbm|EeDfKLT1F*+<V9%Z63bt4%r2R;<ifrs>7Wbgew$>ez5RgZ^XpXnNdKCc{lu50!
ztZqxOmEeI^A~0`hX_(Wyo6fH(C1;-*jwo<5tN*2xdNU8$fOOvtLY&V5lmKY^;ZOhi
zeuTQe*YhDb0Ql;~oHYR7zjd<sUESvOa;;GY1pxqodHBBxSYQ6YUdB2(Jl7roV)VMH
zP`Cj|%-DGZIojyskg;Nb-5s*tfy`9RTiH&2Ep9>1cM6lEoi7PPu7S;FA}JR%>HcF6
z<ruM%B9fz<@PK$kcz=S2W}g>uRze95n(I)!20OUzMF}{CC_ub`iC8xbXLM46pR*;P
z=IEAc+YSCgDcjK<Srp;9i8(*<ySx!MH)-XzM_IG-w7I&;eB8G`H#$36=qzPCKe)49
zD;R4k2eL*3pNe>;<<Y)vWiogM61>uGxm!Ia30{=2w{Q}Mo3-t^l&5F5Rx^3ykd(7*
zji5<`Lv|!!p-7$mZ6+@`-N?a}k_4_+Y0zsI3OR$=v?l{cUg0}`yLf1v^$Tnd4!9hp
zyC9TQ&fi9H*s8l?%|Q1~>AYSg;4e!d?A6yhF2wuMJQ}jo4CsDKDFgo41#fO0C9}r%
zF15Qa!K)znyt=^Pj@-s%!GvcmQeX+Xi^(4LgU42)Cv8^b?dMX+#S-}LreJ~13U-<2
zu)V(R^aX3ndAKtqfxDwL=)DrkWUw&rCAwaOUcv)ZISJ-$&(z(9W7{#Ceg)tRv&vH!
z%|EWPiDwg230l@?g>eHzRdexY{rsieGA+C2O~_G&mkwOvL~p#b|MaKo45?3-aB2*r
zRTQP-nR2Q%Rp;Qwou8U}4cOk;xXq}dUn7;ta{y9mpfbS*$)l7Ojsv*a=f;!zD%Wub
zmkY?E3?>-JkwNU{X7h8uy@vHjt=hJ8Q^db6s#~xaH@P-T&&En&nz&srA#@LFJYkPN
z5RsbKh79RG$OD0(D<q96jh8;(K8QO3&9+JFg;j9CP*NL6&#e);n^-@*u6QqPB@p13
z$`*}g$hDyoc+1)k@tYpJ-a<kQN)~ym@%WTjDA%k+fd-2Uxg0FvW)_E^OR`hg>3b1|
zJunA>uqH=Xe=);@IBJy$dlR0s>vfiB&Th;b=)JXRZ|(qf-s=z%JC9ZN4?xVCWV{)4
z%OPQUYq?8_Sm3do#ymnY=HxSukRN`wkn<)aun4HN?6+Avp!pqASuAhkN)A*xS!Iz3
z8Gk}yCKhFiP>vNM_o&yGxIXOH1)B~yeXb+fQm1qxBy?8``tT3n%-;yUW19q_u#T*C
zD~D|!;Heui?5#Gy5qLX78H`$N#J!{g<uFiSW>m<$TL!4A-??7yq=|3P0_z0CS;)Ky
zx^Niu3<VGcumbXc!0AdvJ7T(_df^dY;rxkvn;0LH))jTC7|!A0eCM^HeI`foVylbw
zLd4%jWKr-tdEH29LeU)tPeiffgQhxaZ!wQwyUefnd9%gGgp9X|dY`zD&M;Q06+9Rh
ztOsN&{vF31`V^L^Fz#$mm5I{4^LIhz8D=LXA|I&C)sD6vWlf`pW}%lbLO_o>PS2p>
zjaoL=M$G9T8z=a&<76%_C^V_3MBcT~S!uPc2gpB)O<O7wR^b&=Pvnd}{5JQ~CC|gp
zV?=<2;I@>rP$X?8ny6#Dos>Tx4}eq2r%^Uw95_Ru{uw6au1t(87O=pUDYnIIQY-{=
z>LH-&#}SQfL;$cx45+9Q?ed<u5-WPzd4yC?b1>Y-f8#x?KgK%ZD&yhbv_6+qv#zvZ
z*#0<s(6cVPGu}NXgy8>TF2M$L_bab)vM-~mrwvn+g?-@h%<TRD2VFmJdM&%sk0JY9
ze$4EUolcq3wT-38ef@-q73{7T__izjuV*i9O<3@VyC^}DJ*4d-HCP1Ky!VKy+K}83
zJ4U1Jabux0@c&Bed+=Cv+1ukGx(S}bOW47Vj;n3Zdk@dxgV-YCWMG_09dmmyqW}u-
zg98C?e7QFGQ}O<<U*$mR!OjENlmK&`E!3eql^}j<fx=pkE|h^9Apm@#e}D-02?&C0
zFTenl8vdhE%nh_UaiNn+E%C`)D&QA1VoT>_-s2p#XeVUmQ{$8-jWmG*XJRM<-3Z?!
zavffIL%D{ciWN>c6;du10;M7ji>LOX;;tluf|Q(rhDjfUTpA`%<djl8_HHr+N_Z1%
z^?7DIRHBBoiw7D8ijz#pL8v-05}|=Z%q<S2d$Nmc@$)3d7y$2~38cJDp~!Q#rjy)I
zpX=Zr9kzw$PN<a3=nTj|%ULTg1&*b6N5x;IGI_Q>Rd7;HO_cSjfEYcjBS?slRGK9@
zCQgcXA&A;XL0OE6dXmT0Q#R>O!S*j*x4|71>>nU8IJkKD1cXGyB&1|n_gG0qO;bg`
zEGA|aZUBYGU~%|(6eX-Is?SWF!DMM^>*(s~8~FH1Gp$FtuapWM>**hxMw)1*g<kZg
z4}GE3LpM9L23R=wI{5{gr;wMOyoW^Viq0;k(B%{{#a+NDz{6)EJ4AK&Nfu|Wg0ip9
zQq$1V(K9eIF?YjN*V5~H`hE8gI|nBhHxDl#zW_Gb9;wZr+UuZ16qk~gsY_Wo80~`Z
zxapQ%x|Y|>QdZiTwAdM}sJl6KXQvlR%nW$WF=W_C*wD&J<3;?hAid4ULW?Z6#8S&F
zw?c?eVcmDvy~69(v<R<6it^eUWYJ>8iW4tEq9n;uq)PKvx_2`ATxQ40k}XHBymCOy
z-#UHtrB6Pi)I)bY_13G?3hL7Xs0z`1Riqf*Hzi6jlwm4Y(dsI(RH;@|U-@bQJcX@Z
zgGPMlub%<E*ubu9(W*_m4xPGm>(Q%EzX5}W3>)d2QDerd@t-KB&6qXUV1o?llZN)G
z9~La)ShC!MR?73!TF^#R*-Y(CB<(1zVTu4xAVj+1GK@6hdA%Ms86tYUu|yBQ9k;Uq
z;Q3ISh`9mw{{`^~h)BpNsAzpgU|?eP6vV;B!zUmlYHMQ$wTDT`$SEkPsA*{F=ouK9
zm|0la*xkAJfCT!5>Jx&&;_!VX5J~+AlPOdhoxx;jY3u0f=^Gdt8G~#Nm&X?fMPi9m
zCRZp`Y7GRNn3|beSXx=z*xI2OPLLGMupBRllB`gw)Ecc$Z!nt77OTzfaJt+cug?!W
zN=En#5GY6iHo-!KvIE^u_WbxDOt@_{SSQL_CTMZcA^RP0);ZZu*kUVRd+j6Fw>e`n
z)F;Nw?Dze$%4?$?tG3GdzzgG?Hp$C2%y*}Um-=2>Ku}1y+&52v5fqJ=5I4KRYy{u3
zjkhB$LjV($DhrV0<P{Xj5Q8(aq^zQ<rmg|mhc&ejCX{g@L1|;1w+m_r5c^O;gaEL@
z%K8MrfrkJQ5@aY)q46RTKyE6F-(!VRrPgS5dV|qqMrN>aa0`<~-$V=Rp2F*10zx8U
z5>hg93Q8(!8d|zo^(;ezop(S%%E-jb!pg?(&b<dDfI?%idH1^(OTCtZJVi+sn5V)l
z?KfF(nYk8OY`G0KTV;u*^*Vt_B2%a|I)lm5($>+{(>E|QGVVz2usK{Fze+PaRIHEM
z<2apqq~Bv%k~|=%P@l`>3Z+V|fnXC;Gjj_|D{BISbEg6n5C4sCedl{W_|Z>(_Dc^B
zQg0hJB12jJR#j8i(A3h_(Z!70_Z7yGV-y;L#dSHr2qZc6oCZ!Kr-{?dNp;elOz+hE
z&uosl1=opFXU=(iflwrtNG+|bZGcP;`zJTgf2#Ed+C^~b4i|PX8S~M_UL9YKcspIb
zP%M=za~(CWQd4#1PDI?TzEtiwKd-eu1OZ--Ex2|%o8NSogy|29`nz2ZKkmx%kLdfl
z_CUo3Z3^GsmB<zr!3`qOtJ~Cv3B(x$D0~7pG_Z(bXDOdjN^3pUKnIw|IWm~SvBWO#
zU*)39)6nB_+lj^}<+@6+v>hP6!Q(dtU(DRaBt-rz-x!2NVz=>4naq~D?CyMOr)rYh
z#x{>{=4p>Rf9;D~{%A0`6qQLH$`D|1X=A;SwZ-6By$MuQ>&o=zMuN!`p&>1%)X!wD
zf4aCTY7ipq?!3u`yJ^Y;oAl&o`{xaNEyk+++NI>WT`pfJj&zNAzo+yr4`SgHB3H^>
zx7!VWf3B(X$$s!uZD^I1v@)Wst5u5>eP<7Sj_>OF&giShr_2J*Y9N_5#~#L77A%M3
zMzcsAyK&csdFX_B(j@cBzZti>ADL!72Mgt5qp&ya_}#3}x>F@r=K3GUy_tLIoYS|X
z^{d?7Wm2nRdRqThTXbZ<*Vt95Gx@uE=Tx~c7aO67@1&!<tnX=E4^e~Eh7{-8JS<2~
z*cPy+zJgBH<_Sa+nL?%E2}FC68|;F;Y9-!-6Yx^MoE~S9tE{_cc;mt=^@itNJ3W~~
zrQr!gdy<>i<@E-4mg*IB2IueyGA8@}6?)aIHH@A07UpPC)Gm-s3ft%Op7XCO=J<|&
zBni<g|M!Z!t(1C>lwSQyUF>Kc%_GRw@(Gl`@yK26IWclZ`K7oj3?sAGA6}XUzbM@9
z*$Sl6@B|`>%vs9sg+is_2~=<W)kj_0VfSb5HzHHk?lYS1#u4yuJdnFpSXssX8m@Nx
zz;MP1pA8dcN-bKNyknU{rI~nXIr$nqcEE}AG*5e{%{0%u=Z;9SI~$A61<pDzwTIYC
z6<37}jYb{GlhSqV?ZdJu<1tmng@~GhkSZEGpK2fwVal@CXksEGCRs`^kBV*Ll&p1t
z2xp<wHiEKnOd*w(cRK+hO!BPh2&tm6?0nh)Sl-S##YNgHqC90HMANW^O)i+P{-gV!
zPdvuk-uG|VTIHs`CfNV=?G?sycmC1&f8U9XR$nah%b%EdbhH%**JN~xprzE%-geYz
z8~UqqJWPg~@v^Z+bjl_Q(KUwhksE7+|EAl@WIYmXc!<I}^iKgQ8E-kGU}=})AY@LW
z6&V{WY&tdHMqb-QU<m0DqTfz1uy@e%s;CN^`|HoN{*%l>0=Yy3fI5%|kkZ5_vBsU5
zythrj`trW5A3*7Qvu>u#?*1(c$>ud|IAF()4F?>sW5)qkl$kADk>rYiO^`q?(Ey+h
z<N-u|tiFa$(0l8NVXS%gp9g7iw2E|%fK8A<F3|v>4&(tueNaOu=nZxP`jOy{eI@$^
z)NwsO2%|Vjv%Dzl2I0wcHm{MiaDGbKkCh7qnC`gY<8tQa>w@F(7b|Z6Rl@{*CgnZw
zsJ!34!E*nl;{wP11!<#XtHyWliZ|Dx=pV{L0YRXMGzW8MHEDeVp+1^7tb>#M6LT=w
zq(UmyHf;&DgQ&pZm<Z%4xEGx57ZZcAN4d`Us_#jjU>rcc;pY*Ql*$<v`epA!z9)Cm
z4SY|)4K9l~_vvPU?j~B1mMKk;tc~K3E8WscFa2Cmi-8qBDWg1H!@VrRXb6gs9huD%
z;T~YZ<pNkMu=8nq3aO&kJ>rbZ0QdU!V*oaY8o~{eMrfm~G2Xb@OwojFQZ=QUcD9^Z
z#1Sh5flVQmw(NXb0!%0?b<of>jakVeklN0tWq?FTrSl5e(bG~?v7C^wx|_23Z`V3}
zvijv`ryqYh^0r1G{LSibF`)e2s_Q8Udo?5iAqFFI$5Rvb42eL9!4UTh*Pd3(d0wN9
kX|9LND(WS^R+}rXoB=$msC-|KXl<@Odh6fzl|N10H2pv3yZ`_I

literal 0
HcmV?d00001

diff --git a/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-italic.woff2 b/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-italic.woff2
new file mode 100644
index 0000000000000000000000000000000000000000..dd4ac82646e52e7119f0d34afdb9077cdf34dac4
GIT binary patch
literal 38432
zcmV)EK)}CuPew8T0RR910G1#C4FCWD0ey%70F}r90RR9100000000000000000000
z0000QgH{{jG#sxm24DcsZVH2+1cJ{s3y&TE0X7081D-epAO(d42f#yHHBFHX<;MQt
z-JDiXffNzQHUtROrDYc9la8P|*6zW9iq4z5I%>$kRcCOI0}R~vA^ZRT|NsC0|2@e>
z#w<zcrAgZs5Cl}`_Rjz9Hv*}UEFAH`vrua5<HY7HViW-pr@<;;09Bd<D0MShjh!=T
z*_7&-9AwnYnsH4DZb`KLxKQF(>b#O(+|P|UO{6;|Hqv~f1j>^!<7W;PQ95O?5v0_a
z?t|rBB~_I+)B7^=e1+1+3XL=hIl6h1>Y<b~o83g6#hVTHCT<foq3NE|!g>|~v0?D+
zEE5`P60S+5LsbN%hpGqy0Ra!nq-jdq`>AH~qGW4#A@z?cSQ4`b%+l?CW8j5O2R}wp
z12h;BY_v#!;@iZ%9mkt-kGE7;<Ii}jdvX35-%C_<Z^kV?qh;ooys|5^fO9wo`%5<|
zzi6%;79HeO{uf^%lZw1(bYBq5a~&U<xw}^5^EXqj%9PpbQzu~x^S~x9@J=uOCEMUH
z*7*C{DG4^*Jsja<NQvzK&hW!}5;Hmi!B^f@2m7Wwt;{ycPo$6*QP1QAO1IN5tTsA}
zz;H!|Y}}ZU|DNVV_8|hnkTFn}Y|^ktu*Fc>6!rrI-iKQU*e)@Oh%|$S<w&0V!~f*&
z3tO2Ogfibj@kz@BpnsgJ<WC7-s1<gdL%CYgT>%6Xz`y{`?SKUnZ-XG`M4wENN-H14
zJ&_)R_FT9pg_EA@i*WH?IGq+1Cra>MLJu(AnkR^095u72rVy`WCs0*-*cFjUaJp|2
zYBrsoHbm)L#LxM&d&x_P5G2qLhd@G$7An+{nuC`bVpVsl>i;|O`=%`~ORve?+}};B
zS6Zc5iBUKt(xU_m?(REdL0%e|XQ*{DZ%nQEe$mw^L?Np>wN+$W1q_b)AzuDvLl@%x
zN0h^aH$Xg}+uq%0FiRtui`^MgqGaLY8T)Vd&b<9Am?ZHGr_)Tl1T8_dWUnMb(NMM`
zI>Ym8^TB<hF1b7ExXR>;gCnAC&?zcPsEAb<3u7}j7rHd3YhzKyT(_`e^2L4cw32qY
z%Gx7REah|<WXHo$-PLw$MxpmSw|V<@MD}m%H{gk#jl=d3ISas^gitz@C*tvd+8#VS
zXWMn$Sy^u&1B47C{>yUqNg0F?f{fN@dg`y6x6L<fp1j`hP(mH~CX$f;W*c8@emrhB
z)03FcGAV%n?53XlU!9h$?cM|6k#J_3rglx&FxdgV+AP}#28_R?cQJ73uh(bdrUPsW
zSCzCY97}v4*$%Wjqq~GvhWLL@xNhSzSQy-<gQv<2jnh((hy_C^L_!om@QnMKd4Efu
z7FTh%Axqbs?~<5MAtbP5(hbJWx?ly^Y!a|D=6{*7de_n&9w8zdaKQm!0s<^<PO<G=
znm(dEX<KmECj18h|Nr|=UEk#k`#o2_NP$#Hg>={1nM)fp<#?Dfem)@Sfl#Y12v;PR
zkEG*(TP3ac4^qc=1h^shuk>2B^m*-l*!B#w|4-GjogqbqO?TXLi0SpKbqJy8{oDe7
zFdWPbM<M}HOM=pg0yjdtN?dJ_E&v3v3sT|nQcO-UcCKP9N<UYX++BI4i_%T)=hj8l
zyXxJV=fA%g?<`2iuIP7s(OYb-Nj^s{fGrki6mUHM-`=m;zOz>i@LW-HR4;56E?7ms
z{)GC6Jd^*lBD*jlX;M%!E}xQYiO?vIum<ITUVozazhg0prGgb8nxW+sO{!59z+eF(
z0|XA9FV(cg^6xX4;1P|3Lsm+aNBxN^nv=VVTwr+t{7Sr40-=ykAvvZh#!fEXbUDL+
zH7%)D|N2srQ$*uLz&s;EF}ypvWVJ(x&}G0vQnQ8PdFLeCKnD#}$u}X)$?#8%=bMYP
z^XPuqK$R)XdEcH3BqFryL_ySv^j00lW&qHNt_QsniJ%0TLND%}{gWvq&ZJlcmps@C
zB-`j&*I)q3jWB1!pAX*xzDOt{C4`{g_K~%(3Nl}T2}2{H@fs0N3K0=kq|TMTNfP>R
z$+lD_vAi=lyg&g36TkZE|NE&gva*(0N+T{Lig?u=@r|#f?ICmawD5b`rGkJ029l86
z%6PtQI0P8cnqy|~O$i54OLZ1G4M*RcTSKKGxuT>$eqcL#;{5;a;l!+w!<;$Sg$rH0
z*rm%%NpZyrSFSWQ)zzy_OEW#)HEYbsaQ%8JByI-K6kBCvuUv3YLEZ+**N_lsmJnn%
z5v`(VtA$TaP@R)h@09S}Lt6BS*3Hm{&mtlQR{<Hylu71Dx$>xHJyp9t)ys$)=0)i}
zQPzNUoQn##Y)qa_sj{gx(XzQ{?T+nzWru&*(O=PZQ`nuX)*Q2#a~=y_tUU^idl`uw
z$VB@hAkm?D!0ODv7#IU%U<{0bF)#+kz!(?<V_?r+7zlt0aSVp*-qJJ$*0&~mcZDZp
z0N_4EK@gDJ*#JMqrA{yR?26hO|69};;dr)7lv59Yph!^s$Kj<j7svqrB})m93a2@=
z@T_xZ|IzSPiDhQ#@c<wK-)19C0|En3g8lvl1Q?(DnM$igB%sF-Q7wPey#gD}e=gty
zyh8>?$N%|gA!-7~VV7?<342G+{To)EeU-i&_&6xQH;}2r{xEErVg$Fycaq(F8Vzfd
zVb}=bd%MP>r3Kk$%QB-Kvejp{5C_#^o(KKr%VuGVF=ZdGw7Dh<Vx9M+y%oU{&n#E+
zCn~J0TxGf1{ufPprCbRs{`x6_;MU~(Z6O)AbeVVAAze!=nh2|CG;<GH0jqWzK#u0{
z=Ov0Qf_L3y$HXkpEMbD@TAc#odQW3;F-F5BwDWS8_BN!g-gJ3p|B<MbWR@}*pQUhw
z^omC75!osKu0^>+)d(HqAi9gHew}0oqLBtlO_dhy)>kU9T<^yUFpW(?FLp59Q1x()
zqY_fca5;x?q#SL*m4y(9p#u#QC|erxfP9`b*xzp+IN8H!-`6vB*Hd(wL1UH6;T};^
zEwwwpxsQH7@ZAGd*_Ny{o=4CA9gLHQo^3nx!{?*_@@#4zZRl|(yWfQqzn0D#8;<uA
z2Qk-BZPU<(kO%84RVqOT6gs@QFo&`A5@4p$_7BT7j-0a+Q-z8kq25A-hTXUn6{n7T
z5HkEN5MTcK$|&I;C9TzjWP(SWnBP**0in-1xNRWZ3eg(rV9tULU^Ss8P@Q0fR5^p;
z?WABWXn6v15B5l^9J=B#6NX-LLrjUG(N0`)ZPCX91En4{arcr02er|;&=>KZTYG7X
zaWbJCB4fja^YJM@WC%BH>mCnk?6xrOJKubCls?3bEKEd4r8`Co=EHjXAP=e{wUUhl
zly<rEKSiZp3lS(4K4XHsA4@b-Ye*lWB@I{osF<$hB4Fn*mAq4+;W3(Z&H+`>+Z@gY
zv$0AraEj@Mi1QuPB5?4(?;XZISV_!MbhxDE<~W>^4kkdkf;m6)BL0vdhNSk2qs^qY
za5O}GM}8;@WKe<TDdA2}b?ileB?>&z*P&sjRF3IFv(bL=Yj&zjkKqvy1uAQi#nW9&
zSTI4eQfq2O#{yD4Qa3ilrsqi^wg+z1^lNi~Gg|Rm_VZ}7vD4}=#=Jp1x+!)Z(OwaC
zk>;SB&2FhL(Gka;oEn{SCY9D9(%6^=mdmjVx^|W3g5k5ov+W6=H83xwGAkEW1}wcI
zTY7nLlpZ_+?u{mT1DW<aZNB*~jX0OWPic#oQ<nO#&$7Zl8jSnZ!k0|HTb31L-sba}
z=&~37eLS|RP=t0CbZB%6Hs$aCPL>P$u7*u=jt$sx^PKG6>00WzoJh2M?gieVHP)w(
z4j8C}A^*=m1xm=Eh87aMSb4zC!NAGMEL1ZDtyHrbutdn1F_osw*TzA+6?!Ia3<x5Z
z(_#5}?t35jK!CDEc#=Ab^0XKSJ>#&$2KvJhgB)|rP^X+S%sJ-_mnqX%uDBx3H8+fK
z(@i7Y^Pf?2<oLz|54k3Wi{&&qCs;!nVurH{+d=}hJ)|+)OAfpJOgKBhn!88Ys^~F~
zRCkuM#-8J<x#vC6+6$gq&^f`D_KHxWy((OItvYnnreA;UzWP>&S#x#8ONcQRgAqao
z8I*5^UDS-cDB(j1JrDRH_|u>qhJg+Nych|X_%M$aR(2MFBm}Vt85Iaso?QhNVeG<L
zM6iqG6h(z-YE+~}3{S)|sl;35&n{IoLzf~U6TK{1+Z6uCXtg7hIO{SGTy-1aj?Xms
z;yWFF_?y5#%J>A4iKUWCnWJQ6$&^VtCFDYA{zNKCWKjDX65GJK4>g^bDdjg?%j9ft
zMO3t|25LH13r{*#5AUuu$kn?R_TCEx-Px&o=D^ZNO`1=e?#~qVJ`YP@6uxY=zag~r
zX{YX@$=;vr?7cLp>0iR$zi%n%{|?xf!ZKKv*#i5r1N(9V=kiXVU>$o=u}=%jFkeu!
zemJ4S4^PX66>*I^CaL!(^EjNd&oV3WY_kj6L6GMR%3Q&lJ23N{;LkfB?EEeA7YK-3
z)D~LkwbjDNix9*`gR@v6zWB3z6-s-%R@YeI*A&#X6x!C-?F4O|fm?T^aj&3kC@>qY
zZDb328A07xnH780s|dr!BVd;g!uG}n@b<pBwV#&{Hg+A3f$6SYAL+3I(<&C(Di=V(
z14>$`dC~Bp<;P0^Z$>@>__ENm^W)&pshsi*!UTw56vd<>GlGSIl?-+Y1X3c11`awn
z4HED1D%~!OVX&B(*#se>DhL-T`pQ(a5&^@lX~<NqP)|$Ns3lKB3;u*2>1C?ve9Y*6
zW?rc`%Y1&?x)<;^`;~KmgWV50)DJr{k8-8aF=tqY^`hMsq8{0D{MBntZ+sNulh2&v
zD@@eIiro5XBS1iADZ~gEX!O$xvPEWy5`*kh+bezJWuzE!nOEjgqx=wqzD?2k1?nD{
zi-QpSopFX%7fC_mis9c>@eFM!g?aS%ZS5&*Re%Z#?bF=O5L^wb8mJ(08$CbnVVFO-
z?`|UuTiFy@7#4<wbecv1gkCW9-8fCB1C#XD9-@DU30+5J?<8{PrZZ{Xn#v4`1<UqN
zrLi2uO7?(R8LsqR4y!@>aHVbNVHnhat3r2$qCb14Opp$ck&;EB08x)V9StoFEg2;h
zB^CKrKHC<Oh2%8Jh?nBcVd{;HgFP2$tDbfX$wIP-Sy&g=h4o9qKP_IU=8q&8@<~Sk
zJf9rcmG_cQ;H>WFa`&Qt(`c`3;V0+#McxJdY)pM3arvo{J{G1dOgjqRn0Q7mp2TWL
zA(M`O9j)PcW4+lvSx7_Ad?Sc{kzz_~e9!me3yB-fvzoQ9^I}rbR4N!6O^jX#={MRJ
zz3N5(*0u2KGWd5n%5?<{-2(w#2V+;m)V-L~c`XnmP*@!zU5m6#acFdw3@TRBxbi)E
z#p{>Il9mS1tWxWZ*%W8{e%fWNq3jC;3DN2h)`dtNQdR_qF2h;?2T`;T5RoRw5|Cr?
z!{m?VJQT_?&S_@5kbNk!Ot}iFr+NGw5A!!RZEvjlyqJ1;LX7rYF4v_0pD?hx9Lc=*
z5aJh~aE?-TF-;#i#KRCA7ZbqsVvd^MXB`cc95+sM@#N}+Mjw3)#)={O7>yI-ae#3(
z^wC4bHBmvqaodjG{zZQqG1x>5x2Mt8W4tY3PjK70vb9_ti!_8_^C33BJ&1$DZ*+hj
z^q_})q<7(J<3#V0>QAeoK-L`c1EXqyDmhmJ;l?;*aU6!KeBZeqgH6?K>-kbvVK2)_
zTusOj*seN3Mz_A?Q;DoF*kZPZAa70vune4{+oW;LZ8J5-l$Y~A5Z8E7g9(NOSGE<^
zpdzZ52oOq;))Nh-Xd>(Gf-0g_P`JUY415qK?>oYTF%ZVx*!DZlE<7kZZ0p(S8yYXA
z$h)>{zmDs?p6j~-5ad<3WGRupMDAy@v4$IHNRKuR|1M)?iwp6vF`R+p#0dXaA+!RJ
zV(C$nUFb~%_W96*o}|<oGJ`BwZ%~g`S%EnO_+dy;!HYjLyWsL4<0`w^RC8_hdtB^2
z_PAFo1uUjrLRpHI6a;k><u!BFfT)49i@n&EVn&N9Zn_;Ra&LSJ<catcM!CWu8H5f2
zI|hkS!fep@HTY8sdJ~2E6{?K!tBoS&tB%~ELyq)}Z2nbbSRe^Pc)^*cnhHwDgM0-4
ziUf$@31uMzbkRZ`l|%{L(7k24XJ_lEzp_;bsSOS0g*z^UB#^X!u>G=ZZtW%nlHHvC
z-qNjglFp+C_*_FLQ55Z#eZw;YNgM)P8r)JN`gCYgBO%N;%PjuY;9#O5Bfvu0HJ9Na
zWwXp}r?SesE6a5kd&?QeDw&M1{np<0+Ha@LeIP?xiehJ_Wfquanu*55#Yn>q6sxzG
zxa;Jj_Ik%_+Q`sMBXv}R@W)mm+<j5G_b07JtF5vh=1vli>^1`X7|Sp&J0PN0uDM6;
z<-T-lMKw5jUOEi!P=DD{@1LSW;_gLL@UK+{nd7l3`~<E#1C~adr?;Z2rgL@;DMD=)
z=Wtwe3R?>FHW}Ve)0bxDkKK);@1avLSUz*PdSe@B+>wS9?+N)1-sC>FQuliDvZ%Em
zvS8IxXwK1Nen#4HOHxq^A^I^}_o6`xTT-F0$Cq_=1-qQB4;v=XLFWk+<tO9IJv-Qj
z#)I7%U3UsNm}l4HeJ!~ixiFLf_Q?M0d|i)&9v+&j2C+U$kFWDVLv>pM3axpYe~Xk7
z)_r+KzrBIqmGSy+>pPacqh;Lg%Dl148OW;NRkhlg#_HcdrG~oin_|@T9a9oM*NbfA
zm>Gq@nEmZi=YFsB|C|RNpxxspps2r=i{X6*5ThGIs+iGKa>Rm?K{u~?;Iy)5)3!$c
zYUatKCAB}`#EucdAMo1740dyxO|0e;7xQ={^+2=E>bHVo3n!8&qGfu>?Og;6K=mjf
z0GJjlpVBxs6#qoCp0i8b_ogXe%RP9Fgi2n}F(Mo5YkfQ0Tt;cF995OIpjl08Vq+TF
z@RQQsz5<J_cQJM9qjtf%(`&V<S&gbwwZbZ0XoY&dr-V{eAm;yyTC7pIY$5ylPDAw;
z?|iH2>@dxM{vnI9=9NsDBxkr=FgB`gK+SKzitl!BbYTbLjZW7tZ2h-KKk%clu9c0V
zGN0Xd07I9x^rh}w*Lw4YxV6hSaU_M+m)`ZOCs|_c2>K^P*|KvChEp|vxtwk1obZQ(
zb{lO~F!j<iB~^+==9nS9HldJYoWD|o;SI}^Ll9@M&-B$@7wdx-?mcfnlvQm4`gP0x
zCoM|Zo|+$p7kO2bKm;|I;`|8f!O_?s<aLn?n^irQCxSXLV|tMr{0wJPDh~caPQLH~
zFFf9gD8|7(SPN*V8`Fl;q6R3jeG3gacB2TVv*g%jfuB0mSXYlq{EWe--WNVsR_mO%
z4cFai(VbI~>>=M!b=2M-I+--e`J`GB#6}{`iKj*G4(`xdj3;j7Q*I6oaakqE3Oli6
z5zZ*8n~|4s8`r7NBwBS^-djM<Mz(EuQq<2i2d*)~DIkX~jH7sE-l-VlmoF>;Qsb%u
zT59XJy4MrbTueZ#LCY~}x{{z-(KWe@pqZ{~aREU~b;lYTy;lqjXgonf*9t6C`q5D2
zT?%oNbbrgDUv|Xlb)i76M0y=k{NT=T%PjtikAXdyfB&IO7~87E$Sufo|7yxo0SO%g
z6B`E?51)XLi1<0lb%}Ol^R?<1%+W6>po2FVND23~Y=|G^@F-|_`+j%)Jqc+i;_kWF
zY~3CG;K}4NG^!TUQESkkMumqc_qd4hojiF#KZQ?A9&eKuqF=}_|C^_~OX7B&t>#P2
z+K6t6eB<za9Efe+wJ!@6d44}<7H^ye%5((}3KC^`PLb@?G%ux!-CKSI<mB?X=<BK3
zv@~WwSVH3zhiJ&QTbepT`NA!7a6)3QMMf|>aXzIfOL-`HpNf1)WvW8W$5iK2XrzKc
zAb|I#6^iS-3I-qeEt~l9+H(=$v8>xK`*B{cZ}+dibN|C%{5CEqf<ds5%KNcDhrEVs
zx|VCZj_W!V--kDJBe(Dt-_o19_{+Nd86W?`I3VK+=gh%htihxa(DMw7ofuK0Vg!y!
zAW&4+5Ev8ueknl(265z+Kr%oAvWaLQz_8LIQ~?CYz#!f*Dj-OlCqOVG_;~s1I6;7G
zh_<*WI}lQrZ9tR`VrU#9BX%D0F0S!5HU)1E-x$6@g9kwn$CT0cWi_iEV|A-v!y4DJ
z)-|meLzHTK7VXUD+%+*+?Cnv3x%|FBV3>C)rv~KQC~=-ZIzCi6n&_!8UFS#ui5ROX
zQppNUkrmK7y$XqRTdb0LR~9yb9GqODmKTP7)@{0IpALhl9#rq;6S>c9T!FF)J~JvA
z*+$wVFm2|LmdwglRX%Mw-_<<W*MC0(><ME(He6?A#pGQmN33xE^2If0thdx`6Ajl_
zmj(#|HW~yOy~O<T9UWaMa=NB=Wpvf<G#!A?T}Qemb#+fRb71fv4~q^DPo)N8+2?dK
zb2<^l%eH>Ee~6}7Tt3Z?O1FEK_@1GGMD_a76kUHR3PM%WjD`kDx)e|tVT!${jZa;l
zop~kXFh}~Gmx)Yby{nQLxVIogy3(D#5lIu8;a@f05sXjGUQphqt<Ru7UHwv&=z+Py
zI){B4o3Ac!s=DUX?A<d76fxB9>66(H>3NC`SS&pXxz+pM<0(4yf;-f6?#M?vJZU>E
z4uw|D?77z<Pe1<Il=|!ZuJfIS<DPsg1w!P7&-Ll#h*!D~g!6?%<NaGe=rK*V@%ACP
z;vaewh3p99QE8!yT_yx8$o;6MG?J$kqZ6>_limE?<a#XC7Ws94U<Zd&YUHtvKZ{Wj
zt{lCwd*mXN;lDBMGB4|LE*GIGqhwJ@Raz{t%%}-dO*7prbIh~Iax1N}*&!#La>fN0
zU3T3KH{J5eM}PXC{r{Jr0u@(Ic{McGMqBN?<0Bsn*I5_Qy6dB#{stT4TS=yv;X5<U
zHP3ttEcBBMyBu(^z(-YjuTKa5??4S=#8apZ<g>{_eQt0x<A>Hl2u5pRSg9)Ew9~9a
zp)NGtjo|2SF|omxk{ND{%ElS5hDoNVWrmsJZMRUOU6!e9zZDufXp=^c*`bwFc1d&A
zK^e|FA=@SAb#%=odERtQzMEbubl+=zJn%tZ-}%EpfBMhpj*tcuIz>Kac0Rm$30G`U
zB9&SkG?JxB#Ih_{QftyoV@pQaoXR4%=W;0KeD|tw@xziXM^^7jOzmFpQIG3=>+^PO
zOT06r6&{QT?`cBOo{uZR>xm_KH??#hk|X;(yBuE@SM6I`G-c`4a?{Z|<Dm=n#}5V&
zN)SKDeb?uaQxb^y&=>xmX!som3!~TD{Zs@AAk<|W%dKiYIW>|9F23BIHnTyil1l{k
zZCf`n+|$;uxjgPh<HIYpQq3TI98@%97A8Voe7?G(B#)euK)?l$^mR1VB*H$2N%MSr
zTn|N%4?^bgU)7T7OoRZ7m)+E4fu(TR!hx=qy2@z4WzoIfpSM#J$wTs}d{F*-_4%u3
zpLyiO!52?^<;!01tfxKkF^_!s13&bhx4q$2k3V$JZ8yC6^5eV5jX(TKsZ_G!zoF%)
zj$LMvdFL2y6)RfKGDce52*WLSBkNnonpU&K!t>2B(=@9toj*0&({6U6I1p$k(uhbY
z5d>h-#m=OW30M>y0%S;!HVvx8g?QK)G?m3%V7PN3NfJ)?RyD7QbS4&XJLptOQBDRa
zE;4kar=>0t_Bl+NYU(R`x;d%fEc;JnQA1f)Xu^<Qap$eJ!V>c&n__}Q@rJt40XuB4
z(y%@qn$%b|)mKSAdE=Q(Cdz0~#zKXMBt_(D+)pGG6rzg8fU3Y2?s!!Sw9}2MyTzmi
z8)eXtGWQA2-7JryPV*5qD$!qH;Lhvx<0`ip_idLxg$HxVb7vU`JVFL`DS-2J;dt^~
z5~e<PHPVi^I(Uaa#=YG4!sWWnqm(P!<KI}jN8tPLUX);rGRC!gg!MuVjz`l}x(sjH
z;Gp;5Yjd@^Aweq`Riz+7B0#Z}UCPQQ$}d;9ztZPKl!C26$rDsQHB-1Ttu^R|G_tYc
z7>Oc4v5_Sc8FoUok&<B8X+*((GKEqf=#T`>DA-1>)5TUplqgZ6D(bBXjg>g-NF+4X
zN@JVAlnrS%j6@Nj*a#*P3`)ZahEGC4yegDew!9UFRyf>==AeK3Y#%i6*<~~BWId#8
z8Y58z*kh+ypPH!TP>RtEfg=j0j4ltVe>#I!JO?y1G&D>kC1pbb$4D9hijCq#Vzt3R
zBS7s&VeZ9KT{Z=|lzAt&F-^777}ylps8ORvq0)-hO|#+{iCPIECbP^Hw&i=_FlrTv
zG6{>v;9_84$ftexhKN@2!r@;#nK|5;)*E(9I@wzDtW1-z`0$&^uotTjJ&A_BP8P;@
z%$hIX@?9b7h4DV*@P4Sld!nJ@Yl+WzJqKRmts|MxbgPYT0#i4n+p;oE!s0`BBGI6A
zyl{9Xu`t>yG%amuSLlU9bD|ni=Mh!wGSR<NC02D-rb$?Qc>ENV9Lk#24Us1cry@EU
zsqX38gy$qQsYy+0(v*^tx*?HgWu1h@hx|lh^~m-nBVp|$A|m{0o*>OVX_9&8eq)+$
zwQ;y9uyNzYjl-oCubXbovogIB2j${F7xdf&(g2>Ad;5*o{QJ}uPK*+O)p8+Z!h>aY
z(2uLn|3Jb`i7h~|?~uRj7$EL><_e8w0RVav5&(7t02u%QSWfRV*h2OYP<0J(q<qiK
z1ON6%(GG+g00hBJ0UYo|0D|H703jpd^cfPDOOeN8%NKAK3VDe{E{erWB@%a~QYJDP
zH~DOBO4>TiR+pO2CCmV|nlJ&>Zo&dk=Wrv$i#I{S%mTyNZQy)>Y`7CZTetwA9U>5*
z{oxJ|KGBTo_^WT3Gl<|qfWdGHz!10yVCYLY0G1c+6>vj<mGEbPRqzLZ)$lujHSkA(
zwQy&Eb#Qlp^@wzU4e&?+Ho~U?Ho>U?n-L)ZTi|qnt?+07wjnYAw!?1$c6`E4m9Cx5
zQ?d()<^a19p#Xc}9sqmcb^!YjZ2|VflL0sYp8+^{IIVGL9YF{HM-Mk{9CNHws^qj<
zIiq>bN^#Bw?Q&6$ORgB6t48M<cdlFJhC5bYcVC17;GW&??}s7#5j@CaKd&c^0O0AN
zrFb@9Z8ERDruN1gW^cU}<ed+~ee_YZPrhjGtFK!7=9}xj`>v}W{?L2<NlnBH5di!+
zj=@jAt)r1Yz)iqkJPrKA8^Hhe>~|UwvOvN^4%whUr7V;J$_Y>k^?(W-DnkRH2f?aB
z6QCNWn$QTSB}C8A45-7US7-<HCQP5u3+PKl^`Q^Yj~M+!KVUgxHG~1c0BULs-GC;d
zG>0)j3yE68IG~Lr?O_5ikh%tiNk9kn3=VSuLujNk%m;MQ%+RnHEKe&dgr#5@$%cnD
zU<8>)hE-q`=|+cTU`4Vf1~IYRwo+INR;G<r!aA@j*%L>5tA&kVbvjrhYzAwRYpt*e
ztW8Jjge_n^IVOZ1U?PPkg*{+hI$19q0PEAu24NrAkS^1RUeg$!Cfu}XI0!alfX%}Z
zumz)R84iK17-;Ko986}cDd7y5%5>Ahc`%(BW`wg~CNs?nm%%p7Gdo-X+cMvF;TqVU
zg?0#6!Hz62C)@>dSz%td4d%1Vg76S5WUWQvDOk)#OTu%o6PxWEUVvTLV%P8z?8es9
z{mzT+0k+vQ%z(W(e0pD<-#*}keZv>9A7||U;43&F`~nAZ=?uD>zk|V*Gvv;N9SSbb
zaBMRTa^@qxfU_RV23#IafGZexw%ysc+p&8~`JDWRJ=IGg7rcVTt6wDc8c6YaI1Juk
zkT)N^25-ImyN&P$yu%LfhPU87O1&T6fe+Z}!|)z_#4cZiD!`XmeG{et-%{TX;UxHx
zDgFwhfWJxbudo;Vo6i0hDgpmTSe6?GxDFA3iy(|}55j~iA*$jnh$N^6q9xveXyrb~
zr>1o!5ARBm!Yx&*2hu8I_(-N~FSL{E&CUbJpN06ONRe-f75kw?iSIh;>X&ZSd-%6L
za}dZ7Ln#e6nkwVzOfZwT+2$~3zMyMC^BKhA=2wU%&7Tm<j(=f=m8@$uUVIL*j#sw3
zl2TgfT6Vgdy&h$sC)fTX8snftnmJNOhiI~o!!u{<(j!{PyYBhAhbA%s-)|xt@Pj6@
z06%P^9pFbzqyc{Xh&K7W;boqAmFI5cg?oAVj@^I`Avs}r5egzx6uFW}I!B>vl)A@5
z&#3f{THk2&kIuk&8_b8Vp$zPXb8wlEP}7uG!Hk5PB~nGRQ^|bQ)UqInmP%63^0aU?
z9j(f2;n^S}hu*x8p`4$VYa5$@<;KQmf#uel&kf6M^Y-n6yWQ=wd)@20``qWI2Rz`m
zM?B(=M?L1gCq3z*PkiFMFMQz=qw^Kur+14f6($IVP)dhM%0My7hAGNHS;~cJ%0oGV
z!wex%o^Y^1c)UWTu!)FhOeEM$WV9q2Y$rO}5C?V;7wt#_yGe?VNd|jJj&M@IK~ka%
zso)T)(UmlCn6!u{0~{qIV#ox?$c%1ef#YOFce23=vZF6K;3PTGk6dty+~`kXxJ(hm
zQylJ5ImS~09#RD+Q6)U4B$B8Ko=`O=Qw=<&T1=rjct-U|rUrOUjhIOt@QOMyhq~Y`
zbz?sDz&q;20$L95X$3aYBk+M%ViT=`Pc)7#G!5Tr20LjJ{G(YMpv~}~=EgGg+hPmb
zwH3`m+H-gTGyq0Kju0kFF=Nb}^FpvlNt9yMS}=yqTG2Un?<MAit_=f*X#~&HD2&h;
zUZ8Opr3t)9lQ2e8C_vLNPBSP-voK3@s6q2EM+>M)i!e_ZYLNpL=s(mZ92UumIs{;e
zT&PQKSSAnZkr!6Thx$aoPV(bz3cxN3;vEXXX$oU7Mc@oYF@$1pmf{#n2{=bd45JjB
zr!<CB1};z*UlD|h^grT=gzH2hfoQlv489>2ZW4z?;^7tv7)>JFCJAFmE^Z2bB6T<>
z2c(fUAUcpv#^8$y{6f|c78_VY`5`6+U@aAg_>_PQDi^m3wo(;-Pz}2X!B47VH#H8w
zp0I}z7{`xjYw&uU32g1_G>(23XL80_XFYPxdG}m!!DAO)<WJBg_Jjzz?lKXMARuml
z65~yrI0R|ZES55k=!Oav+|;PEq)C%C-O?NSO$H1+WysKTMy^0HW9EP*OITK{JY&sT
z0AIeM`SCLVD^$ENVZI3$Cj$w|f?T;a6)3Q!NU`5amHMMxIW`K4brmZ7SB2`YYM<<&
zqvQCZ#@?z!)Atw6!L$)M2Y-4cNJv(rpcr2aoZ&-2KrAE#u1pw4M5S~|H4r9Dz}jGz
zWIaHeS8-F%u#qku4+4S^3W@+48h&BX`XRUQo}!QY1Flk~n7Ft&TwG}C)S+n7T&2G+
z4BvQ7fdcYxbh$)_{$fd?i6#Ing(jK-aB_~&0@X))Xg)K*P{&B4CdS&e)7GVnj&9v7
zRxiE?1OU0G>r4|S0OYziVGcmvxg*SQ!wtF?Yw6a5?^JxGQbOs`uLplWpU{lbeX!}l
zMi0Ti9CpCU5SO$LVPg(XD;xC0Md<q*fA72rJPt_30A&b*0vSY6jd-%?z(9r?YPj(x
znQNsjPB`z9YyNf5{WK&@$ts~rqajO-T7@7{vUHiU<tb3C(nnt~G-%Rm$drX{A65du
zBP6Col^(ORlXHxOF8vA<Zhj$Q2}!%;sEvnPUb(Pjha>Lrsz{CXHeP(GWwnPr28#j%
z3<VcCDyX520j7g{=pROhv0)k{<e~t@C<O%-pyCs1P$$pHX9<a=lCDhU=PFmTi6w0*
z+p1Bkl6q8zVil?7>)uTAslqyPBv;4<h0E)4y{_-|Pj9Dp(|Z|bif5R<r4{B|fmB29
zmEXYr|K5Jr24E+e>Lk#HjtpXXRg)6+a6Z^<pK~s{D%)K-5rpq+xgU635|EIDH~lvu
zB`sumu0A!NQ=9r`+cTJv%oL>WUBOCJ7L-<9w<h3(VEuSx+>j&4DagglY;(wE?(=6d
zp6p02=QvJmkkjl*=(%_S0c?gc+d^0C^!xlF`En?N^0rl>8g%V@bEG+0KLO6G|H?GU
zNuTP_9EQ^fUGmclejyM~+fhrBsLY7F3Dp({+}Zpi_pEU{<j8Yp-l>^=gCL9%jVLPe
z+~E4XFNERTVnxj+W(pz`K*i&KOUY0~0YD)I<k113JBdq!=L!8G<$ZwHZv(u3?{etB
zj#%I=&_KIE7O1G~`Nc#aIk78iM(cCytYX>h!({{d^y)#UUz^tLqmD@e=V+nP3|lzG
zB+vK;Eo`8OQ}Xo^WM!dwz|Y6Y|M?GRSDNUxR~~ubj$2Lx{@Fe8A-!w-0r~2~5AcAN
zw)R#r)T_7@VlfmWYXAeYIO1Yp^?MD!QA94W0S;%g(+^1bTzJX2vLwMIs&2?Dq4rZ{
zO%=+-=LJ4llzBKXkAhE<N~qAOfk8hqs!L>iGQCfMkidc|LTUL4&w($d!Xs7HuC>rh
zt8cQ_-MM7_G0N<y&5+9_$*KP@!`y(+IxFMi2wshvbPva>oJBhu`$|?k0=EgSI<<_f
zZhoygw2gYXq3^6(w#HN6$~~gZ?a`H6wR;{6YD(N3#?r55)h4yOGnkMGIX8~BQm86U
zHPzM9TvUx(bs8);!bqdJami|HthLVi6SUhMcir>A&mdab5t5Tc3R04q%u(XSPmriU
z!9s<5JMV@XZlnb*yu!vSuB6h+Yiqa;HOfNGveBeMsZpgxlMzFDbeS==jVm{?yd?6I
z>Y7f+gnDN&oYhD+3$k09+gN@pyKcOjCcAH4cdhP0FuH9@4^8)|S{p-}&Do|<Hs@qp
zPwdLWzI^P-tHDy~rVYJxst6kk^mLJqO>pvC$0s^F)wyXd%y53X>vLV5?e-$~mwA}t
z(f1y&@Z<-d*7>&CukC*OXRrVE`*+`d8RVIwy!lz}axt!3o+!wtD?MA~d8!vbdbwK5
zO7+j-T(Np(wmVP32rho-aZCI*6IV7^KN%epYspX9<ttXMRJB^Ddd*t3>(s4h^;D=L
zCX2?VdN!+A)hbuB_>%5o8a86`cUhEepV`|b{vPXpt}RceZas#4^~0#KIG@&$BuADN
zOPkoT<LHr5&rBBOv@DO&d}exVLvVAs*pjQQp=}RiM{aiJZhyWG<YzvAr^7p1yc3h0
zN^*L#GgDkjc6p|2bKIQo)&gHP`nt*YE&kZ){{zYnX4@fk%0ql`B!oa>NJ*j84Xs`n
z^~={FtcKw<3a@bm3X&;It|*1#luA<Rlv?LBx}-I}+a|i>Xu*yZ;&`D>6z0jo?dX-#
zaP~#8zc&s<bg*cLit*|vuhYCu_wE<(*Z8p3#|%HV`g51RcKdq|#_lRtC80vK0e%5x
zf<nT2^s3#}adR&V)N3$g#IW@Su&v{8roH^@DdF4mRjNRRs!*L;M54Xzi)5q#Ag%yF
zu^7OQK=hXyNPHCt_zA%45)A<402l%U2JKTECi4e*azE?kUoS0<8@UJsCgE{Ww@<1I
zS6v04FLI>Nkf40uqbtM#0<5K1qL>i9(qk2x$a-n%xL+_Q+dFK1Y#<t%4r&p4Ae0^F
zuxA*5mWtyH%=Z;XL~pFOD8hoKW_mF&j(t@$Hnx*u9RVnadr_E(1R#c(PXGEK1|_%-
z6h7p$Eg<ompVBWfKit5&<1O5#3kb*{gL1!2GvJ3>yiX>-IumNNUI;?X_5m3e3d^PJ
zSPznYI#Mz~vCv-?eTWNF!VRWC1dq(8eI9uVpuF{&erx(W6ojU65UFCwOI6?gIOkI3
zt-F8bcm$9}NfQug{YJ_pNr?B3ppM2Y5eYX0;#8M|kdcwiMc2IU1n0i^vH0FLOW(P4
zX@$$@XgH2t?Z>r8>?7)#6lWGo0(i|(RK-C6I!h5JS<4}8&dh8^y%sq5vwtL-eDT%f
zulC0F7GUY!8eFP+VE}CKz_{QQzm3&yf4$>P?RT=oonQN|w#V+8Yi#(T5ToB*XYcg+
zTuO8GtJd|0C!&NY?bPM^wmUTA)(P6y)qOE0gw;~mMDyKm#vAPIVQb;%aiDRvE6rk6
z6y-$MhkpQTvJLGi3iT(8D;eFA7&Sgw_l`nEFWl9rlx8y^CZj1|%KG6!xC2k+S-_5@
zR8E6}OEJcA{6>=zX07uv_Zdz8a{~~FnC77D(zVoE>ss$AWS;Xd=N8M7TOdy^pIR=Y
z<9_^N#u{q?DAYE%K&Ca{ou->nA9gc*grTaS%#>=B8b~Ns$4`0NYHSQBK}686yEz_{
zFgI$u<nOHG)s_?<S)0WwVv+|ri+W9bhdTzB;#y%<0g=@j>PC>g6|I{x=Od?*;uu{4
zkc;ssD$i;X0ZY!5Z`ko|Qxy_}25$e7-VfM(6*@-$mF_X4Vn&p(p6u93;kl51woho`
zFJMK8iti{GIbjx=K`4|Gh*)McX+pV1vTz5sXYmq9ZxSPnF#vJfkN;fW8q8u$r2>Hv
z(tAxBQZwmOzc#u4)HNR(z)=8K2RGQi1L}qvmIi&B7&(+6Bp`>vlcgq2DYZ_CAwX5q
z-pbJ!f=(#Ph2nap;q0=fYbe*K8fmjJhm?UV5fx5Q%?RWIlU67JQu0m`%3vv0TBkXL
z#}ib*sh-q0ABUPCYKX5X2ZPe~x0=pyVa$+lx0E8iiR0#;*1S}P8v56Idw%3>9ipz@
zBVR2_+X0a|=1sus7O&`;gCbyuAgt-M8rG=FMzI#Soy(Y6#TmR$Te-N>9_0!+f-bGz
z245h^7AS!-)G5$e6jv(-UN<nK%79#Inovb9A-hLi#%a7w8{hT}fj66A$Gzf^fatw@
z_1KFF7+!~#m=5x-PBWwW9r+E=1rZYAYfT0O*%g?ue)>MT>6PMoW2~S??6`mv?5{$?
z#Xx2ZpAi6gtS%=iSQT|wD!5oOVy>}*Gz25$cn7OOSGEfcvIu=pH=Uk?wU)cE9KQ~*
zNhfT?mDwRQ6e0QemL-!8E6}Bq1tQh3OK2o-SD0ksP=w)J8XzyHHK*HhQm7E6i?-)=
z8n{EYaQ(EI3`RU+3^^dDrxE(Cd?TRoeIU|MpZNwe*w`XuGI~0`T{=Sxxz(h`SWlXn
z8At_X=GFCUc`t8_wYjSu?~9*AYthSgNrPD;v~DqhdF9L9>80VKG*o#}&=C(pZ)y*e
zr9%wqjBwxzCBB=fRQhFNW2-~<lqNkS(73xO{WN5{YHw#Vrmda&euFDFAckHJ0>_;}
z-^tB7X%wljcwTaJH86{pcEY+^=h_KU#%S*!IrR0+_qB6hr$#g9N*dlyeXgvSV6Yd;
z;IVd_of07FXV*z9k0;#W@P>Q04vHgjNZA6$ePLi=61|?wf#b^&PO%SgRahu$>vVjx
zqjY7n>XxJzE5@n+E7YxOW5QETr-6IDmv%To+ou>|*pPw2m{uQ@W%S9S9;b7SaW|1e
z&QnDO9&h;GJ6Erz1-d(6XOITYAIZ7?>{`K{s^(11OKFXv#tu(mH0*urKY*L{SSl3N
zlUEa9?2YHs7OguuZ<u<&Y0V#VgYN9xq0e6z+%VuZ=|-wRtJ;j_27EU1#7vf<lXKfg
zLG4V{WuTpJ*LQ$%7*NN@=p5;J9!;b!p$m}2Q0YjBk=bcs2LfTd1@{1?P?h{dJkh`#
z=9k)=>7eVi`V?UM8kww`Eap@q@lZ(*h|!*u@xA0r3hLuEbYe~IC8!u`Ka0SmAbLzx
zU3UkaG(QJ;!6$*0wOu_Tfl&(is!<XHGBCnfYT?%#<Si5!bYn~^fCo=OY|4rog#a@;
z`G~zW;BSNt2R!V#;8Npo6&$U(4cgiO@drPGkyE5$w4v`ex4Ha-H@(x*@$pv41N3DJ
zr|{4cyVr3&+<Kn?o}x+{qR6CfoF-+YOxQQbr(h+njzyqA6<xy^=MUs=jnFJJb*uJ{
zhZp}yH~q}OBi8Wo56;}|?FgCsa}@h(Pe&HMeHLwI$_+qIg2?%*Wo>NX@1bm?ADg`r
zbs4Nx{DU=1>#Q<<_Uv}3PM$x%;{d{?!9uj&L1p^n$xU_6Mh~Cf!(pOadQ`BsSOfAc
z3SxWpn3N8BuOaj$kKRE~5YpHW2GAQ_|Dm-g1gu*nK&Tl)2B2i0DOPqvN=k1*@zZ?d
zaTC46vgN<oW)um;{8_s}<X4b&jWl9f!+<==d^yq#iG`!dbS@9bsPlTeIS4-_6zX9d
zy|~lu?WE;j=Xxk+jQm0S4&}krEBP7f$(Af%HfN*tJl(0l)Q=x}zX<HXL}vvF*{eYa
z9N1phiK=uHZ>i*JoAS>AFS6?+*Nx!XTz1O?^0Z==QOv9NibEP0phmCK+bDuglO|cH
zCEE6TNdAwmBympbwC@i#5<x+D$=QNNa+tm4rww0wwC57ee*cQIxKl3-2|$E46j`%y
zgmjrj7`kiN_T!ZYgtSOVDs8I^`8&vQ=_83C;droT=wW+1-|-1tz{|$(c-JMtEA}zu
z6??&(%%c^90*iyu49p(ZxKB=+Uh8l-F)r8FA8J|)jbc%QuI+r}2*%h-llE3T5#gzQ
z6&azwBLJ@j_GkdPvaU%5lO*S%W3k&T1^AR0+#^<M$NW|_&hW1t2KFFiLTQ7}prL7M
z)2%}a@t@mgiA<adiUhIJG#ZZ1R?7_lR^o*`wBQEvotzEs^*~1w;<`c<9)&gF7Xt0p
zgES(+l4Rg=2!c2hRAHk}U(MPc-?+e^Esde+10OVi?=}O)jFN6dqA=p7e>;yhfZ?r2
zb>QS0@*t#b2uz2?Srus3c4#}#yG6iLjyim4E&_kUqFV5r-CeaK6CTUz8Nh=y=6(GN
zn5Hpvb!G&C30}K2Hwz?ak<0{HJ%#as?PhGb$ge5nw&k8di~-#iFLZUM0k<nI7+r~j
z2Q2S@&XjC@0U78}rvNds3_aki?U+SY(xFQDcKF1`G8^w{dW+tJ42|f_$^zd8H?fOl
zx)AYzDaKbl#vj%v2eTi1C{oH{<y(jPNSM5t$6wp^`_@y;S)LDWjm3=JcyLgJAu*uR
zr6hNc!J4sfCJhT~5ykhxnI=;+*6DCa6;O`Dm;f1AAe$Jx74J&i_J>+{i+sW>uCZ3a
zfA&Q+U$7fAe~abvg`3)lOUD4~?TAiD#Uu_293rk0h4aKV+A_-0Z$>@EJteZ#H_gyM
z<ph^f?B!^m#F1pULUu4vF>e%BV6S|+V*%7Ag%1SnR_#5cGN=I%GDl<Uw9OA>bbMeh
zljk__2Gkud_vcL3!~e&h7qMV=+}Sg_YH!-tvVe@;>FY*d)1+Mtl0+V)tpQ8Ux72d+
z?wk|v)N`)~+-eP+%|C^{vvOp4QpF*IAE?DVlsj%N9#nBT=zViOXtL9;c{<2)v6+qZ
zsSuEM_JE!Bf0^~fV{|QPlH{;DtUhr*dMLad`H(ycdX6K@&9jcYZAFHa3Mz^jKw7n|
zf*_g4qQUdCA$t&_esW-ODdG=JErz8U=fx)Vj1)EZK?`0Q)iLd$<y^%NA!hRhHJ9U#
zL*84P!UJmx)N=!<LN=zo97MBB(1b>{gXDZW;z$~v*i*%?ZkQq4ZTOLlAh-CQzmuCk
z`-ZB#zlPH~f8@0^3Pfhv6PJ~}Jd_&$9$j~F|68;bkC{VXba&Y+uS*^`c$2h<nYvk<
zmMaN*g1`6LTf{I2p2}Fv%C2$JT+#%#Y)H40c4n}u*M`-1ptP+|YSyHH6G0B2r%fT3
zD9Mbomb7Pg>5hEL`4qPIx+hVK3dVGTzPar&Tiz)-t{FBKj$|HBu;ULa)5z+z#W|bg
z(3G_q*A0l*&IeZbM#{1CS}N$Zo{z6u3Xh`(nX%)>YXcN_OUA{R$|5T<8@<fDd^&oa
zLHnI(22H*e6L`Q!=t#MCGYISB(QOT1r@w!{wm(0KpV^Nev9&%m(ld=FL{t*^3l|Cj
zI!Xol5yBQ7(kAGyoo(6y@a~gyh9dbIl}u_>smVK(0soN%x3C-)J_mTj4*p*9-{d|u
zVzAHR^b5^^Z8<IJ*=+AL+WvLS?m3V%-1w7M_0nQw??1Yi?UQ$BY7+Z5y6_MGAoB3v
zAphY;)c3#fAQtc76`I@ojnHMLv&&#rP@A>Mv?2)|cni*}HOwUIMyI{So>*cb$dugV
z>oP*V;cn_>a2h`#{Tu%wp2cUxzwn>>Nqi!F5}(j5EIS4F6E~3<k|H8z2#X}c4R-zf
zK+tzE#G!$MH468}pFVxNpSb8=C{iLvK9cS&SF11ORL&z8SNKQp^`lo;rGoP9oBu%C
zh%n4r+U+A$d_<#9*VX3_Eb>q1y5kc)2TBv&aa;%!N<|F2qh`C^F8z{GBbOwjO4#MK
zmYFK(VonJq)qLrf){|DA3RyK!<tC*kd%Q7LWcLXGIG0!~wfD`Fj~MFgD~gej)V?;&
z3wa%$%`?se!@Q_M13iBxcBs)P1aeFPl_kNLXW9N}fk&~JK`xJE$2vefP=MLTDx(Z{
z%sH%`__Og!IypW>u$z+SyHK}3cP(}Ya%63qZ>G*XlRWo)iVama@T<9j9#R>Ag38kD
z^k?mjO8l5-8iztgXX6`_SfuC%<~sKGB5bhHMhgM>O~*<C=G6xj&GXV-DrV{OUF%{A
z6?zhDJLirMf=beGsp^jwWWzT7HYaxOtfnDzr{l1N+C;63K5(2WxBkLGiCor3#z5sR
z^DXbjNckJUKGFch;B0*Ya;>{#CN)H_I}LJQP(g6kWPW{FIyK61=g+ihoY~4-%V;9Q
zzZyn{gIP4*iQ+s-v2Zf*$kWi8xtC@(4D6ywwU`<nN8Y-uy*jLJfFqog?a@&gYv(YR
z*Qd#C6~luz5T^2`(L)6uR82b$f~CT)IjXvX32wlqnaqUjc!2KEc#7%LRYt672gE$7
z!ChcaYfqb<A2oBuP6gB(E6Y&P+SRnp5EpY75TT>*Ie4lSqxeEwmOFjjcmHW@Y`?RU
zG2KLhjjBS}b->zfaz3)*BY7+@6L2(|e@?OON-N0a=4@v?D+il2?I?O0>Sb{w(k5!&
zUedyTt10c7NdMNzus$T0_Y=r1m?!#|p0U{-2z!#Dw@=ARnNN0t5m13vU<hOZvS>N<
zWaJ~!NVnNs9gwU_Gga2Vrj!r0ytb@R<qNOKMxc}=u{vt{z6td$4+zW{gE3|naZqGo
zBJ+pAhLj+-GfNcRm{!;39@s~U9Z~VG+IdCvMf_?bg}Y><=2!K}yPh#t6yomy(7Fj2
zMOGr|qvAwabC5oBL_G18dq8yv95F&X{-QCvd2Fg_BM^$ru7m6PY98+BIdg2J>C6#3
zd@KraGP#&69Lsu(BR%V~6^_zy{lu!3;bRJ420#EripR%!p_==44y5;MYKrA?ik5S@
zt{9U&XthEdh%Ay3^Y{_*&tfk?n*HrtArc+94?XYHd$@l4>(5bIV+3)Bl?po&1iVy@
zgVLv#lu@8!Fg;JX&vJq#@{Og^Z~%JMeSq_+A$UhiHN0-x>j4gx=E}Mc&^<E<QW7xs
z{<3pKkhuGei)z~`b@!o-vU%LDAN>1pfbsw=kcPAGS^%HF1A18gL%Yb8VD{$7IJI<8
z)t!p~3gouV8Y_RLyLTo`3aZ+fXrTZ#K+3<1yw8#xESDCl>iI|)idQ|o05ZdT<%g_H
z{lO8T3?+ZFQ6LR=v5RHSMdb+(1kMuKbWO6i4YEUyT|j#f;6f!jIb=4yOE^?VAwb|S
z=|*n0>Y)xPe#96IH?a3FLgFqJ$i}Y*s`V=M9QUj$IP=sDx=_r^LFR+ly@3TBDJ4Mz
ziAfbrJCi?6Xh>zpwkWLyo~iV8wKRyYiS1P#Vt(qPeANw(m#9uRHbQzo)VLUKJ3)%m
zad-5-5IJH(k<QBm(pnWZXX)X-lc@}3=TeYAN)m}5r!hTEN#<_?nJ5$z??Ry$8}#8R
zNps*iE~v{2NwH6AaUb>5|52TvX7LJ(1gzgEkF!h*PLUXs_u~ZG@yhNmvNdH-TSS%+
zY%|+Z+LP8}G0_X#Cui>YE`e#I)|i2|JhPO1%Oj<b!pj-q*&{wMePj}#n12eoZwU_%
z-7Py|J5Njo12qI1K&33O*|D^2>}%hqpKf0?WCV)R7bqzwyr&+%$GmDbW7>F&0K#yz
z5r>EuIrL7IMrq(TE|^5T9HBZ*T5mN9#)GZv6RM;d>Z-vi)-im8jDEsD5NHF650hmn
z$(d&C{Wtytyji^DW|fnD-pqx-0PSmRvC{YBO~2Ii6)XNE`u#Vy&f1QZ@XM&5IF@+Y
zc?zCRJQYy`BV}+{KG&CfdSXdeF8z7q<yL{y-Umj?DxJ>l6BCnB-U!qXR(72@X$H35
zjLUgC;cwo+Q7tL0`e+_FdAlAKHMHh5>*A^PhVtALZJMzepwPw`EQizeO=TIV^!k?8
z=I(<5fxkMk8|C8v-Ik@5BcPNXM4D%6%95N#;D^Rb9c3Ap?2DUw-5nfQayP!kDPA|c
zeM$N~qnI7->yM>H5Kzk=;7{#|ce#4Cr60NvAZ0vjx7Kp<F3w<BZi-|yJo%V~I?tve
zbmU7T(^>O0&KItEgL)(S?@BePKxUrEFWwxD8Fc`e&Da(?j@Dv{DPr+SSBZx=>!A40
zr=Gb~yk9laa3Sn+l}NJi=;DLMd4JS_F3&_UBq194^+t?v`#Lm3>&Uvl-TT%x6i>+E
z3dr#F?CTO=<L`)jDnS3gleEfYzebK0D-YEa=Q%!HhP)oh9W858lC)&;X*0JAn+Yh$
zzT_l1q{W+yk{^+kx4~mthBDa+x{*{^RA3-hm1LQ}WcDTF-r?v7pB6{<>v83%KyD{I
zTskQPVugKV#cOy~>rkn>4d_0J2G*;Jb7)0RWjNBAboLhyBz<x07x-me#dCpyqR(zo
zgqk9{uT49W^?)q??}Llt@`Fh@<L-kI4kDsC#85wTI@tlco1OgVvs7R^Ix*vfdl&=F
z6dAod)2w40pC9CV+z-!&Q{@3kz*+FMbm5_(#X#Acxw2RHrm+SoFR_Rk2omg)$iKIj
z^}bR`(Ut>$bn;fCj*AD<`!BYi+dp<-!D&hVR_OpA|0jz@Fw39KaOI))nT}_R$u|G6
zIcnh)35A$TxEaCo<}&;1mY`SP{ph!F`=myA1kK@rnvvrl`m=Sczl?f+*&e#=7CFS)
zj@3WX_0Us9v~tlOb`mX|idt5$iFsf9K0y<ph1R|yEt<aN<n}--u^rx@uU6ST3VYV=
z(Pl0i;d+E<OjTS9<KP`_-oO#+3lfd=YupbS0DsUii2C7CSd*6}&k7iSNCEGimAAcR
zE2y2BLLO7%8T&pS<YQ)V=VawkJl2hCGFYgg%H@I%PnPT15T6i@EQO2EhTjHWwN<=1
z48ghqM623h<>}6rY=K?YA|!8)2;a&?Ll|*Ld`d%<z0)bQ;iVT7w(}>)deL?)y1m}-
z>Cbpj*Ss`MMm;<G7axOVTU&FQOR`gQa$xFmE!j=joTR0-+0;N=F?)H%?DjFpQdKc}
zpE<hs;9m-BN}C`@)AIPEUwgj(=0@#}$G--5UZ{It&FYnAwJV`*k{0Rl#+gd*Od0Ch
zmu=So6*qIDw$tt8ajX`u62`TgRBlJr5^g{}TvJowQ1WeJPqG6$P}6PmNqjo@5D){r
ztrq!$fL}OUF|yR*Q-u_Z62dq`Q=>CCQWxm7<SMsJ%d!yvCL5}Fo%2dVUpz6ndeMUD
zsXa}-F=IToBx0GXuWo5;R2&fR$Tbnz@BNf#{z38^Bg8zEf_L|)T=S1w7El02mTp)W
z5YASPEVq|wLyCzuVGGMpud|&g6b+@?D>u^C2x+I+zWIi#SYJ(RZ4W5(S#RpU78sN)
zz49SP;e$PZrcB}Iyt|ey(R*@D$!me?TZm{=&#}NJE6in0{Pxf0*|KHzYsYyX?#Una
z=jWOWv1(O4b`4}-^Gbd77`E5jzrL{jIViC4r6f<6#BPL=d2LJF{q;rX=GkkZP+r$2
zThg0Ox_|ZnXA%m-+c(<l00ih6+OpKkpNS0(*&LoGt8{ThqYae~+AJ1%T&u4q52@?j
zLjfz(I5c&x;r?p(Y*oKI9&)!V7e(8p874<<b9*qT_DWpMKwP8QP8!I=nl`B62KoJF
zWTCep7)HmZJ1-W3i?iO}-{mr=Wv6gti1}B1+5P_;a=NO|9!Yk0hmiv%kxuM@0&9&n
z)-;wm6dr-A4lDxJUiG4NSEFL3E@V~FUbcJr+chqwL{^p*Yqhn~2mC2JOF$32S<HaT
zy}WOv4y8s@*(?P`Sl{_v%j>z87l(X61Ze7LYr)p2+`R$M$Rx#K^x0Jv$^4GcMqk<H
z;;9u2L9E_Pu&C3P(M5+=$$Dl_cShqgp!UQ}D65T{+9`vYgq@N3HfLrVtWyEWIUUle
zHh<nsWBLYKN+2D&L-MAd+yH3*Bc0l)@>uipi(naE_ZK`K{?<I?k7}Q3`*{(J?Z_NE
z1=g!Q?3fAhURVjYjl-I_j=?3*M^H1;hhWyDL|&e0V)r4U7j6brz~rrrIk*em$!dv|
zc?m!;L*0F2h7+Qd3y6#W-@v_XN0rblY?-UHN@C0fD**EnfEgI4F8LYfu(heW2#0U-
zR>a#|gZ17R2~|?Vzidi~P2+zdCxf3ru(7$?#vSlQ>jZM%Q;9bjQGzIDmG@dLD!YbM
z5kk%SXalKW3lWBBM?dGEx%6gL{rte!_B;@8Yp=KSdOc-Hu1IO(6M~YGlYZSaF=(N2
z2y5%!c`a1BjrOpplvjeBrpl|MK;hOA<D(`B(Gu?VhxJ9fiVkmi3`JhC7#VIj*BCtl
z9v>IS=seleHZsfL_I_H>8jEm+`d}<(<qWzKNwJu53&3E;=6}&O1I;QDHN+|8yctU=
zp_*6{JE2^p{TdKsFZqRE{|h}*Cg2%lCKYi|FZXG=Qe~dkRpMlSY%4!}A*sES`X}gK
z)77D(K-IUs{e_ExCtx<B5{o<hOMB8Yg%1iAs?VN{08!+9W4a59ghdQZy7QZI30*HY
zsZe^UUhda*iJe$<&U^;!z`-$dn_aWAOe7dWz^_2Cx;1I%4!EP$d`Ylo2OhD#{E%7F
zYqQ8563bYwyB+ZMPMkE>!U9pAKu<S>gz>Z>71dh0=O9@6JBQAHAR_^2FKG{9B-LIn
z5LntSPMq8WbjpwV%9mXQz3$cV3tdIlKZ<Bx!`C_q$OFVx(lx(%|H0r~rxvXqeSeD0
z<(gbHp1@5#cZ<p<GjfTgv7g@7^7uk)84b_@lYx&==c-W7N4*er+*~xi<lHh9mW(bv
zM}coYnEv}O@Hn8Co0TYoWG1mhrF0P-yc^7XH#88D0G!2rAGJV|=8-@!hl@I0;7`2|
z+Qskt5QG$9$^|_yvi>wi@FEGQ6ail^{OCAJaD8;YHZO}|$pgJCao!ou0<h7P%DVw}
z=kU!Y=<c8QqMeaTzc&0B<n|Be%|X8jGpYx`(ZTHBf2=J)(@nY+=<pXlI?|Nkqd=*_
zUetP|j{u+6_?%q87i3xT@pb)D%i{mf5nu_+S5Qt;2=BcR$a`gt(_s~VLkMUq0$r5#
z7X@4yPV``#V&5*sI*TNSD(3IPc&?X3&oEU`WXYq}D9qvR7(01&W>cOC#eVO8uKAwi
zx1wBgE92#hkGu@z;>QCge6ZNj6SbXAJC|dza1d82i^k)qUcw73QV&-3y2~U!gKH4e
zFgLq}^?G%6rA;ZYi9D4+bvS!Z_~Hc~5i|Y2!@h?_Tal=uECuMV({`51*LJ>FO{oiq
zpWd*D_l7!n`w%$fQJ*{5bqjT$!V8Yzv$5G0rzW5D#N6t}oBK8*i__O{Z)0`Su!tJ!
zOZQ$^DsC|FMl9sd@*HsICQJ_OS<J$Avw-9<`2dA*b5|~cpu5CH7Q$Q)M!u1uA2NR{
z9_8);RHbhn6j__tUK7wOPbF+OTiEZUjeJtwkZ1pu_UZSpX(F1FCzqv)GEOIIBz3Ky
zR`xIkry@*$8TFRx`SNbzQ|uQRTM^w(a&fIK*3H`h!i1^Sixx&t?P=_NJkONHdGFIa
z^T(3k@<Wk@MrJ$GDSS}F+O>}M;mrKcuNG#O%ya)}iOOd6P$``@R&WP!hA9Uq46!}E
zE~|NV=(-=8ER<1mcXi;&6H<E#+KR;doux?0>f~Y)3G^G||JR=3QOdF?OqVZ-4;|e2
zqZwant*^z@hjs_zr}C`kj!vB?(iK1^4^I0F%Bqw~aYeZl6d5WP?Tx2Wc%LIYx9{r(
zn-=JmBp;B7?q+3Ez3-hbQu~YxJ^h$(VVUf)Rj{JNP?lZZk`xD}!2{A}kA}QSVkxrW
zn_3)b8e5%f?Wt;_#QbLDeYR!i9H8Q61Gs^~if&IV<ZfLqigpmTa&OkOw1)y}x5U{F
zE&#S#gQUkrTG91dcDg#pIvf%B=>O2n%{*;i=jNrA(z#^!0-eFEs@2$A5w=lyS9meF
z2VnoY_1&BULDrdsUB#;%)fTssQp<m$>HokZGhVoJs8PTTHMA{GP!5>J5^nG#7thYz
zF|I_G2-mIL5?Hx8&t@zCc|Sk(r|2VZB$uZ1r_#+>zK#OkapN+Mkx^CzhWlIAo`osW
z<0i%ECU2n7_@<{*(^$6j(UQLbyQHL#<plqqOk_an)~W4fk!eO%Dj$>0>){jac&am6
zS;CW;1Y^Z<i9l%<5_Koa4cqFBgl(aBP6tYbvWPO{Unj{fVu-WOm>TR#U1HQz&tyFK
zxtJj@x|QA(*(K76_Ng4xP8cfbM<-7lIG$(WOa5XZ8++JQUL|He_71b(xuq|mnOPEh
zNkXjplL@6y{{SMU6Ey}-pSv7M;GtWdedp3$=o<g~Ae>w6(4e-DXy$8l9hTHah;nZf
z!097xB-8ljZ(czND@-^w`xG(ID<aYbO4VF!^Sy_~CAh@8E5|^68)-k8b`0mpj<%Gy
z7xrGb^nyjga%+gh6#w?u@z_Tro88@7Oa7eu|8;xEht2JCGVXzJ;crvg@)AjlIFQ16
zauP?o3yAvM2(DM+EvhE_l=u{rmBnQF>+i1!u{nqV*Gr!g>d?C6(0wTU`8RQ$RIl_a
zP+@_1P_HU(HWJy}hG;akOki&<tu-}kzmjfdNgO4KaLVgO^R&4Wx6r*eKD5}n4V)eH
zM0)r?Uy;Kw&8mc?^3=>V;7!0+)ta<(@>Z1Oi}fDUNB=aM#qKiU{NCc=Je{z%?v+zM
zB2OQ+=9viXjvsh|0X60Z^Evl^h!^T@>%`IMR34J0BZp;$St|9#njl=`a^$*jHl8%K
zl=+u|8B#mVoaJu{_fWCFuDRMJURqsg%76C<NZ3STO6#}ZHvqb`;7dvaoye?X5N^Nx
z>IX#9v6hkJBuX)pQbDt?YyR8Umix4_A|_YqA|@;2P<!JcJpP>%XWpT6IZh8-Y}y(Z
zH@4YPAcM|nCyX%N_^>aTS~|ZJ8DXhoE0#9q=C8SMyp&aFd8Xo3#_CY)Bkc#<oZV^G
z`|Fa&aXaA7k=I@dc+&9?3p(F&I3<-?aUXN(uijrmDBf#8A62IIC`2whZwO}Rk20lR
z9jm(KXK_Ht3(IB1dTk)eSJ3W<(g)=JO}al<E9t*KrKi3<xk3BqDg~0h*ykiKH#JqO
z0dH^4;9P7uWSFtshYc)^|K)A`JA!9tuANgLOF)KIdyKQTz98sG-2-`cYYeE=?(R+X
z_fQ06dCwjN+##DEE*7eY#sG|8$rA`KNU9(0+>y&eWecAbQ=LW8!AEOI-M{x_EVpV&
z4J8yetsZOu%x3`1z!chm%Y=C$Qd>4;&kyF|?`xqFE-Vz|3xZ^(wqEI;=z{xp6k^ms
z2KSYf*-Agw9lrcGhW_c!!#Ib1;S$WAMAXh%;I62OvUR0SLZw9ax3-Lx&-?U4{@LEi
zXYyN@F0bL)sWf+MyQew|Q=BEZCpt}abxJj_jJO%uLfrFO3iTJhxhmV~@cQx(W?F;M
z$u+l`icmQ!;cRYq5P(=}iGwM*EoIaxiJa_@e#w(DGX#w2{j^~odp#-SieO6W-vO$~
z_Rg=@fVlVP;iN9c-0t{V4&7LCp>ccULqqLgoO_|_x(d3?FnyJm1g1wKQKSpuhdZLe
zVH4e*mGv&tmd_^VU>h!<Ui5A*-VKW)ACi&DYk3Z*%ZNC<YN7eptP<w_0d4l+O}GM(
z_)DG<4!lO?dxi3{mrbc|-J&*^&0SMpWnvDvDjFrjw3LF}jGA(*gk|P&94V8Bq~J_?
zrqJoQWqtO1BOLdeHjN<2pzw%rHk~oX1ai@v=Tq1^uC*`OrY=aB%`zhCdr7ssztwHi
zQN0VQKnb9A#6m9iQfGCAOiWcMMPmNvv8C@nl#emUHnxIRZE}PdJfmCGeN+(_QY|8G
zL?Qc$hxroU@p<~6w~t)8FuzRjgTqy&$Ha7sssD&PCAD(R5pWuS>hU_=sLKrLliJeF
zdxntiLV>@!wUKUrWmL&)Vrc(EULCwRWg0vS=sXf?TnS~0Hlr0Lxqx=&rE#mbNNTHb
zXS-+RhvzWG5>y^@_=8IUeDOvGTyH8P0Au++d!$0J^`v4<$#N?tjcF#p0NgbOjVbJ&
zgq>YRHn)@|xc0)QLn|aC$$2L6cbQ_|X7wqA^lc*Aoz}AdLU=$1#BMx4<<cv3U71GU
z9W>6%t!4$C^pNVz-dPzB74X$znL@0$9#2&Z*b=R;kqg#<nwHk2oi`ASw(+&P*fAM9
zpudq*qVZ`2w5L_LS-8d0&2{apw8;DHR+AG*!GgOUrE<CwVqf#W^DAa6G-Mw!qRiqU
z@-PvGuF11GeMb1<&5O*iOsjrzS7FZRW7AzA+|gKP;SB_$twNp3LUFu^`IDipvMBp(
z7PDJdf-ET->zO~ne)r1+83a$WzGZR6HCNqF_~`%HGHf!4PO(wf{%8Nk>FX_cgEfvX
zSwY7e6VNS|uM|ZAmwLH3a-o@J0uoR;*&kbXe&Qq`0#6}yHOdOD<Tps}iPlMV0-uH^
zq2S)~N0yM!-7#{VvtjQ*zJ3MVQ&wi}XEoj#$JC{|Iw6=BNLkDaAHAvXn#KL-BNPKE
zlL1$I==yi(%BJ+P>pW@ofwlh7q|_kX4=qfS6=5()W_rIt4^z*wO83(Wf7v4e_GYoJ
z*)F3VIE^HtNFF8Y)jTl43UrZddc)b%?fEx}c%P3f{SK7dQ#lTyf|<11;tY{JCYm}L
zH#1}`w@?(8%je~8RPbARQS`_tx%D7#Uk8T(odWs%o6^NT#@~}WhD_Uy?!$xx$n=sA
z74|~ZsEGb(y)!!D_2Qjwj+@T9J?EF^tG(RXMpA|G9>Ti|E05s*e6VfkH$(|(aThf^
zcvlW?&b8ZO;LS)yl+fVrBhysxvRO4u(|o~Is&@3Dhc&BVJ$aQa%q#Bt`*!gYM(;3G
zlT$guz5<p4A}6(Sf4-I^FW1RB9Tu%$M0OlT{Ov%NxocZ$UHk!msGbW30fWz?vnR(~
z>ZzZF^Ad9vzwkH?(fy~RLMCtXABIIGbAl{kg+wB#C|7pTWY1A}G}maCyGumY$l@Ov
z#FrGwIM$jEWy+Ei&astDhd>rQS&)^gN|HOl91w1=t9S4RgOO&wy5Q82w8w6jY&t!E
ziv0NJ&%$rMR}07f;_AFjQdAlhT@JV10;&M2naFXdUE*ccbt~i{+knc}?k$rnidmHc
zH}?$0s`nXLLO;S%*yqA_NgDDvr)Z=QIiXVtgAuO0Y=Pgr%&p~v_Fl$o*h-1I%9;o-
zU26}fa&9}hAJ8hLs-(3%vTThl2xGjO_K}2cyGZpdAFNet>i58e1#ag1Rt%(qhpAFr
zNbmNIPVCE|4zX|HPK<Bn((MM_BavuU(I_(b3G}*8$8Wiz9zOQQIM62aaB{L6@ho0Z
zAsMRB$+jwAQQIHKe~&=(ALjk58OAVKdmRaxS?`X0T6rxRe65oCn&^+9$)@G9gc9Ee
zE{i0R3emFHV#lvnp5jZTzACQ1%n&f!G(09L{cf*4!bJ=6!>B0ICa$*?(zCy#l@*^j
zv2&&%Q_RYNawZNw;Cnf1=H#9#jL`wO&l~Zg3Jz^6z_P*{m-d*tx71-1=x>a=xK>eR
zLB(vPn%poYc7(z2ghgolgu8E~@s4OuNa<}N2&Bb@D<N}8z|qUiD&nB{w-Y+vLIlo`
z`KQ20##)Cgaj>te@b3%1?ZbP)7x^!W3`eFT5aqa^di?zm=j(b#=OfZo-k%nl<mn$b
zaYMJ^E{O{K1ftb-0TsPb6Zj*w`TCg^UVVsGBQvPY3clYU>@c$nBWpIEx!#iMEKYC~
zj3%4EiVu1KtJmoxuTkdvl^AgdE?Z5f*hK0WrAN>Hk&v5K>$Q_8$+I>eZz9myq6el6
z3G&p+g(^A~m^8HftWHfyL~$&ph$dJO*XLmf!+1=8B4I1ty|$5-&FnmY$bloXf()e~
z^kWACphsHtLFUA=zs6vOCA_MM;AeXB5fB`S#q;<xYl>3ibpf~LTDduFS~j-6VwMF^
z*#*mg1@JkPiy=7a-5<9P{4#c;CaA}E19Cab5%IA}D@dhOQ-E*gugCztBUk|Rl?g<V
zt^QIM!VP5qWE1EskEd^Gh7(Q;3PqJ-iLjzlX)^gOI(zk~N3%Pn1YSPZj^S}#qTesY
zgaC2HGN7&<QA%2+f->&6pPAa^R#%nZ6X@K~qfwJVv<|t$QD?OnS~}DgdtAQazei@a
zm}h4(ZCshL!pt?8fvfQPh0}3}Qus(W-7)op^8+nOV52`Q7EG5zBy@e3=fi>(L-RvL
z>p_Of@53{Gh>h(TUhapnMSu9ke+(WR!1WBB9uWTy?zdP*v8w{bt74<3H*xE6MV%$M
zrMN;br~^1wCZp05DBLDqV{a|jN=3q~K-<9)h+&~z5LZ)2Fw2dqWeW>lPsuQ5g)z*F
zg45>6!vC>II|`2g+P99p7(3$Itec>``UrO@Y$Uv(KJxUl`P8=;!(A_J;3+5BN6<R9
z@p?n-24C#4m|`7{#N&?Nw?84Q;KP3*PlcL~9XV$RM`+`w!to{7m#VOtr0mjj6hxoG
z?+L~LzqnH4gVBs&K6ZEW&TT%lZN7HiP4$w-cjVbD5s(Imo#{!@jm(-9eSWs&86MdJ
ziZ#(>Eu8_YpWLq^7*w!tVysD`nH(%y-Iuz|sHdL-q>#UWaAOA#op<WE;{#G$FTz#4
zmz+*QtZV)mcxNSME7;d5(EFj!U`Z>^2ARZt4-R83ANQE4T={BF@q8Ue@Iq=^hOg=0
z1#fui?vKE|X~q-r?^>z&z9O#LBVu?e!w!WY=+!?~q)-Xtevv>?C6LN}5&cJ2Q-gDz
zu5r7g)a+gSOXp|*z53q9TE_GN!5RV8R{Up&xwYjJlM8eJ5{Hu3V5ng4b1kWL$R&0)
zwZTxy+Ur_eW6xz;tkS-cH8v|ZE?`=03|anK0YU@oYd`Ma7|p5I4(cCy5oCwdhNc!*
z*9#H?9#>8>kxF~d#95+ndBP@VSC`c;=?y#cbIhOyFgKY#V%EE*Vq4s!mPX9Y&ju@5
zU8NkXlwc{o*bp{UhvGqt-jj6aLne(=qSqzbM8MXHast1ydV4fD6FC<FhHdm0s!*mn
zNIR$mwSc+WaIGL@lBzgPHrFRLd?O>i_#<zS$IUf=C4D|)XQ8Vm8u3|rx^*D1%dUw^
z80RT&mQrGp6b8tKY<%12ilCBHXKdgd2#$1_O>&#as4CP+;ugc=yhvJvN_Ixe0|rHV
zjS;-Kyuf|2=V&OX$TLrGY^WN3-f{ug1ttMOoT_xG#2mL(RtG)*0aGdU#n}?Ji^w-g
zO!in0q+9q5MWYSZ@k*MUTDL?v$l=*Fa>)k-JMG^EEczoBR#UOrqf)wbAcmrpnj{55
zvLG9uTU#mV=c#VQXEK{mr25MsiCGMbbIYJGh3try2aJlgYNJ*eP;lyv^}KoGXCxQ`
z6dpCBUSGl8=Uvj^P%7LSdV{`_v)8-0-p*q?tn$9nH8!g#E+xh`ofcsnxOfr<HpX)5
zwPVWwUr1GG-Qr|DFCpN4BkWD$i!{rs4%RN{4LY+eZctRye$*di=9-sptf}gM-t29}
z9B@SL=kkwzzP>RP_kI$PK`1&^>aOSot}SIB_|eHJOSTi^yBu0@p8go8knJuBuIr)l
zl;GAsFRDO7Cxz|azA8ayf6OZBj89z;G5C%$ms!kkJa&a^(c9msDk-U%6mGM~?eWW8
ztInK8z9+h4Wd)t}28+;HzU(|CYxS4-l4Uz*R9Go)8$9VnC)wM;fhzpFB)hkE!EZN2
z){@jz@_QPKe;bU}{JO|>i&IkB|7o11FhfwjS`cT_visQ1*%zjEM)v`U$qSPkm46BV
zW%9WXuZFp14lO&=;K@U|(I0^?A3YCEp8@L<xE%u0wQ@Rpv4DIn4kUv1U)cz5FDI9}
zFUnpXP<uRUbuZsa-{J-@Ka7zMgohQETc2}RU2Y%mB<&GoHe+gU0Px$Dsyax!g?3cU
zee@OBAJLW8XF*14_N!Hob@gY>ruH2LqSRfzS*KF_mOdez<{&avFvlrDy7PTVD-L^r
zyPvW^CZ5SjZi4$C)d_YLu?Tw?=T=T_Xl6kR47ehM3*$%F3JP0E1-pPWb+Wb$?()TX
zmCN?W$Ql9T?7OI(RJe;L+``tnfFEhYVJ3AARWg%ZHIMKe(E`itVrq-3SlR;Mdtb`F
z1Xr^&Vzw+J!cQ0Ib=h@k(VMb2!HKGW&C1I~_y$rz`>BkMmb{LZQhMEpv>XIDE;LR+
zxe4P?@m>pc@7lr7YN*Euo;gzXtl@5HrDxb@Cem{bL$#5aVoxWYVHHSP?*EaZJ>ZN!
zKhC7A*lDHF7(7bRZ>2rBU+4;*=Wf>|(i{tzd4ATLN1gp7;_uXwXU%jI?**PlX~rcx
zkX*La#b}=`W!Jqp#PhHSMb`Z*^Y#L+<Hk?@n?4Oov`tKHKppq@E>k!}@uT4N7Ma3h
zI8R)k^~BUHnTKFgKii)Cv63xvM4V;`)A{<JBD4LUmo`Xg!jq3L=^I@Is>4_Ht$$+O
zli(EbDNQV85}XR|8(XDa`&5^*KX!FHyN*81V_TnGpprV-mGx?B&*aZvvO_#hp(Y&g
z_(JU16O+BZ<zViDcX{9B6RF{5PVAUw#b=M}+o>)OiOuI9ahR8ud88Ay-K$JxfnmEv
zK<k1SH~CqPL3Ol&zsTs6bvEi9Ad4s*vaVO7s%uPTez%eq|Hwt6QNR1u{MP4ql9|s9
z$P^BK$;Fw~_rKLVGpQZUj%9L(NF)(i0wjSMJ4oE8kssg^W*B;~YQl4KxL%1$+E8Io
zN8nW@Ypl?h@ttB$nMi97Xf0-kKCQ9_*R!rz2!s;crq<#B3u~vq?fH#3{2aQJTnGZa
zq_D>Qf4!}f!lw0d8*U&w1TjO70lQAFEM8CSg@#|J(qD(NyOpd5vnZ;ru;vvxu85nD
z`03}G+wYX{ObT)F5wiG)6Uf4E5J=gX7WK*^w%O2?Q<5~LPO=}AI!Sd{At0{ZC*+Vz
z%gI(QD@nis(ePnqZgx$%9b0%AtdM=cp_eOUr9e^SbSr)u+UaGG2TWG2R>_N(iIlrY
zRNKe&n3r@TOX*5nn-O2<DVu6;bsk^5Vy7!wyV7T06|dK>uC*zse>T8650eEphly7j
zm06uEmT*(*RjK&)?g|#!q~LV;+_HggOWd~7(9v()R#9PJGH7&oPj?47h7A5S>b@(l
zpqQ5^VJ5#5NE=@ZUJUc+LN}wDvr_fhWkGWA=BJ?SX3Tg^R*M^@tPpIBOECrzq;<=r
z%O+G4qtelJ;HtV*3f=%3Q`{`XCj~w$pBpL!_^NU({Q8p9A0u2e!9VobWeU77R922O
ze>Nucje``|GIdi_=%5jPBw^Q4sn4CF%O8jh^*wd2`AuLP5L<<a$@lk@sW>vBP`#G#
zjGznuBd|9-y1*=cg-8GDTrsMM(ef{_Ck?^9g`JQk@>hQQlXW-#HVc1LuTx<@hy=to
z^>6u?>Et0Ut(=5|^IN3Py}4;mNz<j9IpUAxe2&#h2iN1&FA)fLIYbO0{|l9EzuaBs
zh^dB>TB$CEeU2^g2C}^=>=MZm0iS7k7q|rL67w$q%bU`~A9@ElL*IjOKxR`3IOm11
z{{!%1uTCa>jmP-?JQO%vN^Ld~kPl9BOW=isf#Q-z{6#X3O#T1iAj^p>K`l2CL%{yQ
zN>{&BO1PV$(#5b>Swdeh%lngtAYLyJFwJ)<b*ZyTEx6{u!qv-drTyj}ZOl?;*q>nK
z*8BoaIW$?rhJ6WkZuKt*RjIxQ%-ulXj0}bU1c$VR3nIY#&HszlK!{{i!7U7?t3axE
z11gTA)#xP+Aq^kj@(gs7Z!igKpoLQ}7SvT0j$giuD($9txU75NLmY188R(**>Rk<f
z7-5Drs)$^!QoEq$hjfX5#TT&Ki)SwX0)}vMhgByN)RgJvgo8hxyS@uU=`D58cpnn;
z;kV`gVn8)+YkH<=^I<3>9yh2?z9sDGm$3UpL8z<1sPO_0e&93?hgm1B2uV1smuaQ>
z{hqfYR|Ht&U(95<`sD-oybRN$Wa2$gK~$hQ9j|O!(Z(Y^srow~dp<d9ow6y=;Nu^W
zFAi-rVhb7hPh5Zo%1gN%xmH{oR0|qh`bB}soofzxSy%BD<zBy46eo**2ZV`D4Ib%)
z=6t0b4l_qy$a-DPc(puN#9>WvKmPh$HJCI8lVl8TMxqv=;U*MvEhyb9I;U#5m!0qT
zI@&bO&Z$4JNMh1hcLpi6XP<FwJn)=azuoCTgh4c}pbeKvD)6t<gf>EHLZjsl;@tcC
zYc1qMBRwUIpH){jmasWYbOrOOn(=B8IaA0+<*ny_91(~z#9W3u#$?Xf(nG9oLuqjV
z7nvbqQ_<IPa+6hWlval&yn|Q_zRM(|Bn{EYW#^EHo~=SwF3<+u?-r&(qgh>S5p;gB
zjQaWQj~`ffdJk1P+C8SqF8mgl=7$o*L2ASD^n&AI_S@hI9OaF266(34(p((;v7ctP
z5qKuKh{O`T`*9Rs_-#I_pwpTt6<Fk;2FK@-vdD$xM}<pJ_=E_Rh)=~RkEiF#%hPgy
zbK3E026&HSHzb$&x(0eX8~@P@D6Ph566&G3T0kNSP3rtp*>x~cUGkLXm<hZl7MfH!
zXHt?7JsCNp$U6hwQ0QA=*5u4RoLZSmPkIjl5^>{W`YoD5Qw$cAIn1jLSaxelY>S~m
zy%(756;`nt=CcXw|B28#RK=&Vsv&N5@|5aq^1o&jP$Sm9`SbMD`=PgfIyeQk5NXeA
zKjCs&b~j5b82mN%b|pzz!Juq?f&C7^J)X#+Ph?lo*UnV01>KjlmZo<;`NN#nW5#zu
zS_(RsIsWqn<U&zM9K1RJ<JO>Xj}{Y)2oJ7Eigfrx*r7Donx;b)ht&Iv7i~o|2%rY1
z5jq5@wd!}An;5u~LR_bbAUD}8I$32vV&8Z$1DRF)425(7#0CYewM9=EvejzriNyuG
zUoMsSWZBFj+H*oVL|Iov`SRKdYf6a4#LZ!FM<QV0gW$TDX*^65ydYsvOowx5&(R5)
zrL^biC7D3cpY7214&(U5;JI&4|NnNDNW_p_2DZ!a6Ngvo-zBro%dML(l1z$DH1%(m
zTOhs2p_n+=SzmxDFHG}Uk9ZHF+b-lQ?M4~xUUoe90Yl951^E<Ay(+(j^?Fr_ZYx!E
zn@^wrcb;RH$@r15bS0)99Eo*MTq7=6n&@yS2;p=Xo2;Qqu9aBDWv;(pCMsP~KSqV!
z_1t8NjoWk;f~gZgDs<njiCsCio$J<CS^}&Sb#Tidtchi*?L6VXWm&spXRdA6_Fcq%
z01l)zF9(Z_wnoqrk#vm(=PT>)G-{O=rE~N5Td0P{j>5>_>;JtXMZL4@DyTH6(@^)V
zsWC^GpqoFx-I5h(j2YOCc2|^r3ezmcwAk#5Z(+<qTh&jA-ub%@;yd|m4QdtJv(A=i
zvCBDe06}6G6|XtG70y!lu};T>*wdC&JkDKMUeRL5?kt?RbQW1O_w@#>bHTIA0uR&f
zVpb7&=*5|E87D?uPcQ0mWtBEkOY48!e45-vV=N6kxH#~^kGuaovv;JXEXI_S)>BKH
zPIuCVGb(+1Hoo`JU&r5YD>Fs#(tl0Q%;#<%0!Lzha5i>zZLNb~S}$T`s|}XL9$*H{
z04IufZ6hM#YbKXRIH5?J{&m)<RB%jyKDJLF`o*)t3CoRl_qia+Ll^yFx%i>J^`T?j
zo@;UpJ4C;@D8Ez+e=)gd{Fx^88ODew%OoRSfpGI&0J(Y4Ipcyz^MiqUX8_6&H8!i>
zcY2#?I+pmaAs4piWV-4{L#&8stJHmU2K*XyijP6;h5apz72Eso<TIQEx<2}!4e{TV
zINe-B*A5#S#AW$nMWc8EVyve3$+P>;t%hi;$$iT7K2YbS)VXvHeQUKwOzF4>k4}zH
zt<G~;@*JME9w>1}=}X;WAwDg;NZ7ttKsIqX9x+R_;oxLq7bvw|<g9Z**Iji^Si#~!
zXSI69F{}edippUf!7^$NutdKOx$<m>(YDq&f!NOv9B+Pl8R;o-$_w4($O|rQOz>s{
zJx!K1`Hf0U<C#_HRo`!+3d3?^4Q;tMW@^-yW_(IHTL0-GS=JM7HVo4M`T$3nRmUj$
z!?Dl|QLR6Yo?2*uPGmgBDs@t6qaXah3$Wz|hgror-(E2_zQVNp)7^;JVJhW)9^1{#
z?hiKdL6aAz$@%0ji7MW<U~h}@5p=Z}Q@_@RZoKmANJsw9fmn~w&v*q>-(KkwR3B@{
z#1pl$ZNLud*9>-<vrTu`TA^(|H&thPqx0zcv6q20R-a|BuDH{M2-m07Au>TRc%@lv
zs4`oTDM8&pr*o1VRKOFQ8@)1wKhC+|D`&m#Cmq=rzHv5*2&`W%&m=*b%*AoTy*+NY
zZ<YSuZa3@diI0zb`~>;Pxbfa@55m97_}(s$;482l{=xCJ4p{xsqctC_3?4gt43t6-
zc^CPh^S;G?m_gHD)@*Y*Obr84KjV$7$1jr(nJmOmeK;sLagC*57`Xd{?CulbWAvrt
z>JzW(UOl0H@)8g#s&}XXCUW8Ij@caxSk{`&J6`S9&hCuQx^@kRaahF}itRdd;I2m|
z{W`c3x$}@_=V9~J;8G#9RCF}}lp`&#2bPGSCBoN(X3<pxx-xcdGgFPOc$RUYWt=PS
z?H_4&Xn=Bt<*Ga7G6(mn$DC@BN~)WD_3UxYi8H!0Cp1q!`_+nB_ZvbRA2GZi2b1Y3
z-YS@2mGLRyF!e2K(mYbV^E1u={$<L@=zuLx@%!}^`8XcpiRrJ1;rEa3;S;;B!4&#Z
zjd}+F-vGCQg@8B1H5c@pIE`tQd|1-qNhfv6ZlN2i&sv}p*TXLt_F<cHZRr$R+R2TX
zvs*xMs=mT_7W#eqNhZg_W;g{RrpwOav)+1`0j(l-t=P-q`V~@c$Sc_3VVYE{ubLH9
zwuQ%ST?Z4Z%mVS7QjS+k8S!WUZ~f|n@63zZ+1G95-rDa%U7;yXA*1Bx6S?7%IZ%_4
zArNeE%G4Ed`fp;9L&=E7-{m>!9EV6qs?>TSJekZRUW>BX?24GS&?!PZu$Qtb68*JS
z!fNFLUsbIfoXLbYH2xV%%?@Lg!vk;^{3!fro-5ZxZ?R~Vh({X!GLv&z+=@J3o(mC=
z+>$a|%o@;*)Ex5>lM`xIEf4C-x29+cR?Y!TjJKiE*D(3@!b1utSs~5*%>Nrv+5(O@
ztb}HG-Hxbqs;YIV+U;o6$vWK$#hS9l6_}+b?jDFH+mvf!kzlLGH4wAR)_6tzrcHqO
zT=GTuL%sB%#SMEy@}2_LW&z0Ozu*4dchYnce0hX(GwiI}VX|=x6n1*0-V@I$`|_nf
zXp<k-$n$W64b2)+t-NyWwPi^uGB8Fb`D$w)xac4sa4(nEB^8St4#lFn<Z`LoGbWy|
zG7S*4FWp6(>XVyn!@5nfoJ~$~#o6@qeYx9rc8d+BUfC|HH~n-v5ClUCxlB>~%1bXB
zUw-8!kSX-?ORsFnfaD6<+?QT?87RS|c**#ZXM0+P98y9VX`SJN&tXr)n$%MTh8z#0
zLp1_#+eGJ716}4F^>yZL1Ko4#Xw)b5cgLi<`aG$>OBRnP?W4kmD%I+ETs6MwjEd~`
zWuheYILGSMl`j+8>g+=%=YmksIWlCn+r7#$5-j8L#{sNun3Z?$D$Or)AAjO;VAD@6
zIHiON=9Q_T_%rGRcN8pKN|pAngUEaRB1>I2TJFvPnsZ+@!aO=PWW;*5SdNy-T@LHl
zy3P+rRX4^N;{tQu;ZySNVk|2~k>d58`P2H>yS}{qz5DU9g^bi}xuaSd%*blWoP2Zl
z66(@kNYb<E<8a+=;5?U8#@<Y{>{g7S)<UdA=aZv{CpOtNyQ(~AF75qZI}TO|Fb>g(
zO;!>QgKsS6>ke!gFbM?}dMd_z_QQpaLYX--uuH*rdT3ytcX#Avan8kSA>As&v|&=W
z8q%(I+<97p-YU;SFR9MF2h3NY_dvB?0Qv{rS1&nZ;hX_f03L%zN#IBc3N2Yw1eah?
zVmKlJg^|3LXNkm|S1rR{mS;txt$9c(8cD5#dl-($qMhiH6ezS=Xhx%?TM<%JixKcv
zNjtko8CoDlGyHH%=GOv8#GvT*GPo3p(Jg{ON?!$eW=OQf43vmQ(iRuNrFFOvNdZZB
z<-A$c|0LK|Jw95$Xgw%5;T_rb4d|%<@Zg{q9M}GQVj_~5?5Q4vfIv;olAiKNUt2{L
z1e%PCvX*bh;65B|cuwOJNA5fPM-7q3)IRXFwNU=V9EydpM4mGn`9*Z^GzTZ{&Heux
z<c%Bxhd@1gvZMJnT6w|4Q4$G`7>{4Yvw3-d&}dWnsLIqjE~oC5jCZ3x@Z1J-6IV#W
z=U)nWLXgliHZCBKLC6l(gu#D`MK|Z;zCXlJEbkK_?#3+KTUga4AN$rJA4Ti<B@oib
zeaEEvp?fP+Gm=#{F}Ov?K7_3T5Mc~TtEaSz0ak(4&f=TRGWOE#mm&=TyAxkXHOH+3
z)3p=_i~T;2s$g+0&*RC3*a|G30-|l;ir(6x17h6vZNtz!Fl%ZXnZghr2?JOgB_?ZX
z2BFEp&nG58LsJyMs#a9zEbRf@TK32P&_3COpc1uCf_z4B^9QCqeMm1Kq-*0hx5?=$
zSM18S$;u1=uOX94;Xt9`4|c@su&cZ>CpyIC)&UFzGlu6#Y_l`D0IiY^&qLwQf&gT1
zZc09z(tITTa(;eq0b6VXC)oVXo~fQZr<i^YEMe2miQ)V_2T}~s)jfN57fphi+WV0J
zK2xT?Q0;@W)|g1(0_aaBO&QYv*s$SQD(*HByzZZJVA{p`?T#tnWaoD{CSRDeV>^J=
zZl23N>Bx17H{@`_T_Eg3IS8<FHvOqd9O^Y>lL_iC7B@+<kZ@0}$7AkBv{ee0m9?wD
zP%8qEZ$__~aR2#$eEs*|*G~ncpIr(5_$Z)WBC)Z*o)V89<Gm^)yb2D?7SH_fK27<k
zy3Oc15b>G#EXcZu`(Pk(Q|S_t9s`9J@z3`sUQ>F&b)E*!b5z`AQvEM`Xo{d7<jxdN
z^U<}NVVV5mX>e$hc;NdB+F9miL}W9VU$~IxH`w?^Il1D>vxO7~FV9T+O~lDA#-Iv`
zEBRJswt$W+1iJDYP7c%$yt3ltK-~a1ejSNM;&x%E^!!~HkrE{C=>4K{bb_RdTp9vA
zoqBCfaI-cvkdt>V1M0A%cGd=zq!q3D2j;QGSItrV&7k_ayuI~~9K^JI)7(CH?<P`;
z#GS*?>DY6JyeyOy6+Hl>8)-%5pLd<nnBxZ#Mp|>v*Yy6LYEu;06*@F4`}}=;<0935
ztJ*7vrd^{zh+3~JIIbT?TEiq7ohmOJDrw8Wk-l4X<Sv7d$i$MTO}FKjXC3^v_w4-t
z9gwj2<KaWYt(o;HJ3+@lv?@2@hKAkC29ui~(K4JRybec~_$m{AJJf0as=ERl)qP~B
z(i*AxKkk8+KtFW$90uf?_q!`x-bz=%1`YQ0hab&w&@*Yt!GM1uJ?Or)M5rO0;Fb4f
zS!5f9(pOElmv0WY-U0O1*}5v+-Me!{vh#9Z@0c#{UpWwcN995~5Vu7u|4%p|kB!ju
zD+YlXo;|#uN{If7fn%EI=QaUa&6TdW%U7NVm?58==(>zWJBJSrzsDvyZ|9@Rn@_KP
z4|MCvj$&-IjI8hRWD1cyamz(M#gvZ2ySttTYa8t<pY#uCfXCbP+O4}$pJc!|(0*%k
zNQ%ay{R57rv@ox$d}xnrF^$^Ags~4+@vGJJV46M`HhWW3j-6f5>Y%G4rSbvv2>L}D
zca25%hEV#J_^%NtCu#T&=++aDnF}5ib_j$W3vVs#w-8zDY_4+z)aSiJPti)F_b>?B
z(7T6T1`{ogG4`$O3W1<v$E7PFBX%_@aT!bc<n)%;*rWsir}e?{*FdiBk<O^CEXD|%
zpqzS!KY-f>A&2|oT*XUPB^apkL@KQD;Y5q%JxR-OB4LRnJhq62(PCj-Wq5l_RAa5q
znXn|(aciVPt!K0vIE-sOr_pMVYn(o%TjSD*XwSzfZlz1(m5ZLIiCmhm6|(+C3bhyR
zQ#%#(w9vQ<%vayL3f3P<MzalyWF*@dh#G<hAjyODKuAl^CX@aT+#h$+4KF@FGdr{C
zh3U;NuD5TRo_*df6Wq~gKmYrSHc0gM^X&xLo%Y?ByfhiO`R)c&kw2*xQguIZakIF4
z00b%F8b*DCok%?pMYsukSDaYMtv70U%(We~^jxzi!ji{|cnBWzG(YcM8UI?AfABB<
z6aN#cylw^g8uX(N@Woci%nFvGZ}4*J3kYiV=?xm5MJ2bM*xeqXw06g4OcWs3e0g<o
zdzC)s=0U9F)*Cy=3|e}|M5;bkL=7JDn5X%9@5=bcB(b+yo{^6hV`kNvsZ8^h`J;71
zMxoO7+OrQ@)1D=+W1dASSI9n{WPg*w=kk){NjcvRwQHD>+dSqyudDRZx;cE}w)cBZ
z){^nu(iPyjCCH#$pH`nIRUds`#0tKn8~R1E2~Ojm;%M6$x1WzwwkdeR<N(IYRF$`m
z2og|0&Q3iZc?vAWBA#n~k|UwB1;nnqIz;V`8MNH8JGG%8R*r|@F;DaJ-j(C8WzFlE
zF?O2BSzFrHe#iSc0UZ;niME9qqfKHz9&MF2Nm+1`l3uvt#y>lzWb<zR<h#qDWKVkn
zj0aAD@g-s0j>X#n;C3|B-ixFmP2MI+o5CgDsRhJJZoM5f#SB_{uDNCBFZ`ar@yA4|
z7r9sHi!sIza#rdIP2~QqfWTHTbOe#ovWnW=7a}DyV<Has#tPFa9-~pPFU2A!s-T%@
zl_cf|5GbgaXy~|NOT-|L1w7ypPx7<du8e;p+x}fC{>l7%{I8<WO*|hbRHJ%m(v&WC
z9shz^Lr5XM1urKxAC)#ck%BhppkT9LM0@{}5|AiT!*mr8DA<^2=n$qo_hVufDjx8N
zCrf9g&DM3BY77h?BagvOIkrZMTa+j)ItDfxQ=%r>u_ZJSiJViP?w!EI^k4{kE^?Kp
z+~jSg+}6;x>2YOk@=X}aEKPQi)3+6|KgO6g;*2rmEt@@ak$d@mj(xhieKlFJb8Z{~
zPCQ%U9*+BmyNgHDS!4Cq56D^yMZwis>;^0skg-vvK_-vEO*)!5!`TiWm3N!Pi3|h^
zDkd6k*b?!Q$HMUdJmN`ycH5QXZ)6wTTv4O5&txpemHHxAyVi<zSaZZ}f+gp>J)LJA
zGr4!pr8bNBIb?};T)}k5eV?Wa#FbGj3bx}rL#0df*92WqhnahWa0iRvLII7KaQKrW
zS)86oqJ|kRAW%>-(a>?l4I6*vcl?z<BvPX<SnG2Hkg>Fto=)y@^;8e8lguYe1PV)%
zwV4tE1rtM?svQeVNj?Ve!N!ot1Xk9wa&4%C`~FTMgwGt65EQx`1(k2zZ&8>?G$BIU
zb=!6GImim)hQtvBNAs4rPDxzx&#fJE#@(@hBeh)#sbZ==%@q^k^@E)gqogLBM{WT4
zUiS4Yn56%;wB@u3Ys8*r;?QWm$bNE!t&&{VR(`ozC9|C6mPv8>m`tNM5~rZAbf8;k
zChk=UbArXPY9PoG>(4ea(ml5k|C$C)aP<cKM(akyCN{H$t!!gEJ1AYfnt_<IhPAr$
zm0hbhY<!No5o}^JTiD7rwzES@Z<J0UQKV<-Xd3U9T|@3gBA+*GVl!LV$~LyMgHm>~
zi`|Vqry=p#hLyKB%3Qy!lp^qyRR=z(f3?BNMPbZkO?oyUE2CKK>Masn;6*FlWWipF
zpn8YyIwRd|SyqljG4w_?5aa$^#h<Njg@WuobUfear?lwkw%p?iMbevB=3=(LriAQp
zcs&<p$7@QnBderT)$ryy=#^TLH_ZD)FfFt4^+Pk+SYOl8$lfSj0ZNe8;+!oKks~4>
z%%PkzsAR1y;7El$9nJfyF}A=c0AX6bCNIsc4QFBDqirQC)Z7~kjujgMJM)3ds5D#C
zuEYFceMp+~&{^p|m(gsc_Yjj{{}hr$^k3b1sNog|pGMXK*GkdccUiG45GxC}a#++8
zR#D0<PB%|MutLBR*WU-Afp8zb{?2{)-*>-z`q!`>e*4G%|5yIu;GDz5xwkpiKY!KK
zw{GV?&VRqrUspy4#D5U`m9YMhwRmJqZD7;dpKtf@;QxZ$hyPuF5P+lK9Y_Sw^KuyB
zU;GSg0RMzKJQ@D<t$P67E;{{LMDL%PUjc{J+AihM`(5xAuue3NDZOcxPwkt7g(SEH
zQ?)J@>5B$d%}PXNY<Z|lQAp_#BPUX?(vRBvA*4w4J5zL{h)n}gv(8kV!$Aw`G>80}
zB%mH7iXnT%?i7)#)V#K;y{lA@S*&sv>|%ScXblkLY9Zi;hMIX54MNPz061IaNx)P8
z+Q3Vi(*;Tlr!lpzGm9k&OjAm%0$U!Fr+DuaQ<mzvtA0u7*XFgcjrxLwzc=JkovQ?s
zqEc4HHD_@fi_#fD#uB?!+@<bkXhp5<0$u8~OqLpUY5Z4Ecrn|b48PhFHabNy5|_r*
zW(PUCl&M7SD$EGd!OR?H19^MAJ;b5lR>6w&T>&2|0+D)ilHMf+4xq7*teX>_56NQ+
zd$N1Hy>9Hliw0rL^V)e*c@l8_vTiW;+rR=3nG%DVP%I=cizsni9-7o#Y+MZr1`Wno
z8<>HVin$Fn-^-=Tb_V-Wy;LLPN}Q)j!DM8j+_N4O0jw2M>V<~YJvm#)1<2V7xfDj>
zGn%C&J+T^a<=WH3>NFf=t0WMbL|Q#qDjTv2j@^m^ATY-odBE6+cO6hSR(lXd8?~k@
zg3YHCj4&NQgE7_yW@Jmn+@9DTi14BT0*f8xNd{~!8Uz-|N9xT<h9uaELC<=JnWYHq
zBlTf55*gCS*a7C)?iOr$+hLv!n6I-^Ao2Bn#vmI#PSzq=kmYLZ9*UJ@d6qJb3K)sK
zuoSgG?TuVRuy>*23QJXL<`&t{WTY4A?vNqg<5oHaxp~MSQe_ROzLpp1k1*4XtX0%d
z(UVE1!XQZJs~QT1evf5@&1xtVq@9URw=&ji2sMHQS@zN{?h7|xSAEH<xo0VrsX%Y3
z5(-Q4cl4YrFTwy#DFSj!$|5(NFzelnL8#eI)*A6&89u&_4RCP1ags%CJXz7L0BMCT
zO)2l{^f2)+N5l?DTZWQ0NPOBgYmaqgciV%__{%@0#@`6ukT}{cW3&H+x5DJ~B-}`;
zFeAvV!^hU6u?w!}zJ0H>_$QKidajJfYOWTNTq)BJ<)vn*&A|@HqCme=j_>g@d**nW
z12dFbM?%K;Vw^p6K`!=MwLOfU)bU<b<_NIF8D{MGeNoPi9`rurjAO$%T5Q{;`#j`+
zuqda(Sa6bEGh|=}e^||NyUD#hb+<}6324oErF{|xm#9Zu^zh(N_t&{{^Vqb+j{<2w
zmNT|R<waT=X0I`86~qvqN+4plLS2G!3*E}S>QTP3`d&P-J4$N~mP&4<!%A>9h$Gu9
z*z&f+JR5+o+e(4N*LxX**>I(oJE(WFCZU2xY=rH|*e}QtT#S|7`eAut!6R3mdQna$
zu2jqIiS+@WEg0SoVPZ$hny2i1!In1(6N;fmGQmaYE*?3wZ2;{rZ+bIptG0&P9IWMH
z1Nj7OlaV>vKhKi20{|)c>hQN${phDLW1E>y!ho>n8)4?Sxy{Ge6e2~vel&FdG;E;c
zBgAUgLWB%sfP@Z&Z<fnWZg!87L^6`}4xJfpnJLMpN2<m7NUyb)hOwP_W-{HtRTUCS
zlF?=q4+Peh%JWPqKnqXen0UO=i)cJ)zhe}dUpeaJC@-TXt|wDQGX*seU3HaV##V$4
zM(fZsG<W(^v{?ktAq_%!&}f5v8ZVdzS&&6TMU#OLVX74p!Zs2e>LFl?H87-s%6&{_
zFyABC>P#!lbE?iUkGQ>wIrcc7Z`{yPJSHi?6TKw(6DJ~q1z@mDPgdwG2nb^H%k4!5
z!)_3V6<dp;VWE*gnf@U&Eg!`u0jYen%2A2n5ojTYx2dmzhhhaoFba&+SyTl$xmR$|
z^O?YCgqyyj<i>d6=rErtZ#LBk<MWL)6xP}l$JRVK7=5E`k;4tTz<^F0fk6=1x&hxn
z3QXvhFT<`)0wf^4K%0qLOb;v6_TL5Hfoq+G$v~}b$Olts4LOL|^r>QcDO?dJ?RJO=
z7T6+(KB<<6%5bdNST67;6J)}NlHNzp%z{bFNt&+Q5uM!gxuV&gjdI`XiKjaQv$#f8
z%>O02X}1^r>T)<&wO@HL_Vi8QXYQ-f*KGGMf!Uf3zMlLnm;^;*D=}2UgUAPgu2b_U
zgnQ?P;J#|+XH?OG-DPC(Tb#Qz={%Bv>&3eUfgr>n+_wlbVI8w0#Q1%ov&-~ZE!Byz
zc<-S+O!408&sB9ZwCS|zSZnG<l!F=lpGr;4iXsfKUK@<&v?l;$xPP19<3N1R;5Q|g
zcn5%cPk#{tfXA;~r~E&BlP5&l1w()V00fA8{}+HVJ|W9UUFHW3F#-_Dm0$_x9H6rG
z#1coOsg`Rv+?i-JId&)VCj95@+(DF`_D8hIz@z6&YDSun!uh~|<Wd>c!O+4j!eLYE
zuT9uTazO4w4!{*bY<`3u0bI@!q7Y#@2eBG9KI8l{d?(QS1+SvX;fM0v<Opm#mUySO
ziQ{Na&73CAMrx#m`o7;c8`o^cwoCcK@_d!pv;nJmjH+(5c0r=G45I8rRBe|HXqzGd
z+Q{I<A!%tu^lU#l>hFOJUSRvJ?eq!5Gvo1Ueo4)9wEe31Y0oZDfuN5Yg3AMN^f(1}
zsnFgh>;3&l&qzQD^HOYTVYC{?>kP<!2tC*xwMR=Zb>f0pK+Bizxd-XN$6<>g)q=XP
z0vY!Js8%c+P~B-9FH;TMbMqPdugBK2?T#OHG>w7kTaKS}YkM#L+V@pJ(^lJaShO#L
z7bg5~*o$-v4_qaPa9_w#U>>T)M2E|F*3QPR{yro{pBsT21#H?)fy*oVt|TM$y1xJT
z>5B&aFf#%Kv!h|aT&as{P9khBDgO52vDy{lBaEZB-_m7#ZG!0N`bPkInEPf2x}34A
zYVT<c9t5obJKyXM=^IRW-SJPb|MK)vwT(D)mbj4tMi*y!%6*{C4twbRRABf%!&ei0
z_(2X=$7TZetq7G!|EzRJqmy&|yiK>UwNVy*4t5|V1dX<hJe~$MwZP_29Wh=W<n<0}
zjxl1?j1XED?TzuHmW^9T%k~Y4MNC6z-nOMr1D<u=-ntoh&^jz8%b`$qe^;h2qO+8b
z6k$CFf+R=Pz_73f4%e}d5ML%=p2xF5N6)A*k&$d0?HG>$8VeLdV78aL740qB`_;8?
zn=W8<>p#rVNymZs0iGY5g`*8bbipt+ex_5ijB)sx<)#`$d!W6W_7K+#-VTSFe_?6y
zl40rMRlwl@E*CzQlYGMXjG7VU2SH^h@BAi+fF`*-rV=D5wQowIq~HxGjve=2Z;hS@
zwD*Q&xF)g8k2I^MXeZHeIT{&4`v?(MQQ9R5oSbB{U?p)vTV&Q5QxBA#HlU<Cp=TOL
z(xFkEn}R#eG|hd&;zvxvh^Z10PGiuOY+cwOism9{rW0u<8$~`a4YDA)UaA`}>CFo&
z-;u4Ns(2H4<0)ej2iYHLfi6#&tv7EFV!RfD4rOBq1B?d-1OrV3v{b5s%el<P?L#MT
zAOWUAEW|(!h=In?8|pwD%ETBkLWw|74yisOO=nWYkgOzWdXcUvX`CcWCu)_L%qlro
zZ$)$0tf4xBhPpL5PWyy7o}C}SsLB&^btXr3@|~u$Y6Pl|UIAj2ql80S<q$6R?^D&u
z_A0HkCrw@Qok4Bj4Kgr;9yP}sOsBRBJTz7(_n%+~YtLw>@bO#gBYTN3Lyea_Hqj}f
zQvqrnUR08G`t=BM!$D9!S67%=ri)XUm}+bBN0HxiM4EPMm>tcH_Kw2~#!2z1%@0WE
z8O<+(yw*s=Q~PO>cUuHbpXex2HCvE!%DtWADCgBJ<`T7{xs4=l&jsv>q+TK!!cJnY
zqi+dT&TANTfG}GuLp^!DA#6(+>17{B4ss!5=>hu(hqli&`Ye;2#|mQ7ROBe$W6~1r
z@O_@nWO)pYxJ{SVY$H04_Ksrh%XQIJr+t}UZ`ic{-!;}m0(hgG%GGSRNA2ie)BM2G
z(60@9pn(qlP^mu~!hgrfmGyD|j-7RA^Brf_M!lH|yqeW=xWi}Q6qRsg?g|i;Kq=lT
z_t-5Cbf`k{Q337&CZwDJduitMu!uU6%f6BA#~+u+n~iN}_x1#AfQ%+$Yqi%-No{(<
zFK-<(6o}=bQvu=^<H4!b2MViSQ!{`(&;wvB^heO)wS@KA+b0FYF&V2AIF8IzG6GeK
zh=+_D?a!15PYYr#Jupo@hmdF;GT~l=T%Jdegp!$++|zCYD1v=G*q0vR)IrYtxp9tF
zX(fZ)b9+a<{5_#8$by}l!~<N(nX8(L;_azx^r87s<c5Xf$&Ir+T=}bWpZYt35)%+n
zlhbNLjzy66KjU0Lz~*XoL-F9cesnZfFSud}mUBhm^0`@IMn9A*DDMRgR((sEnK9u=
z-x8XSJGv%wO;IY9rG`q8Eh8j+0jo-8E>-2E!e3gBjnYeT%*~rK)Y3PQC^>hrtyuje
z7wkur)N7JTO597{#>PW(PwoZ_11c<^_Jn$-NjgBsST6v@%Zwvz-JZ=m00>4;-tDWf
z-KQuHKnO<1z{JAF!NtQTAhh-JC8T8J=LYgW6fGS+8*>)ouud*+9u^+^L5#&^f1MFg
zF>&P*DpX3UQtg=Y&e|%cR1(Nd<$obPNJVPWkd{12M_!>qhcUhLVZ(*5K%W0z;wIxo
z$$yg(U6k)~s0+~Xd!|N<9wTO~*m2?}^|`R`tT>6kswYdHB4w)7Y0{>1)g_l3y3)u$
zuVl)cC2O|qIdbO8Eg}nlc0cb<ysS4BDOyZR@yeaqxBRYauG^-t%92d7tmS5L!y9X=
z*+$z#*Xj-T)G@iM?t1EtsL6eUef}SM_r7RRi(AstmNnW~%X<~B2zT6aJ6=)aMHUsI
zHxY|2rr6?&FQK<3mK3SvQc5kY^fG!E*~gg<mQ{8+#PWbQ_ix90pBGhJi4yHPb^G$U
ze^0`J%k}2=?*8HN>G|dL?ft`-pI_fUzoP%6OVom{?w(5xOG>Y&eTn{o!J*-i(XsJ~
z$*Jj?+0fqq$y8|nE0W6>iUO=`N}iW1)wx=|;b*d~mG}8(yi`XeZ@#|9Szg=+u@83x
zy%Z!waK9}E(XDN))xGo4CY#-g+q<&WHn&e-`q5L6Sqr{+WiXKfR=fpJl49K(HiygO
z3xuKz6DnMMuOw2LTuE6)RZU$(Q%hS%S5M!-P%3TNx6a~n<$0D|+&sLOW5+LW#{C?H
zlnIN7iis<iP@z&%m1;F=)v4E@QIlpZTD57{p;MP`J$m)&H(=0^VIvk;XpzO1SZbM3
zW0rdbCj#DUk)ja1K@=@UtT^!!yp<>kNwO5F(xl7q4q2uw*>dE{ldnLbBE=lEge>@?
z#}9wXVITk_Cd^j*sSXMqELhnDgjG;jNjBuz!!w-b46kvTBfQ9CJPwjlPNDQK)UPrQ
zOFoBA4m7AuJniU!5ACVLJG2<dD~x3==bqb?X3#xQTiVl+P9~*`iA*{Jg?n)zJrsM(
zRfw4Xgrt<Tj4Wsl1Vo`RSR9@}^a=jkP^fY=I)lk#%PS}<DXXZeLFyWsTG~3gdivcE
zVn9Vr<K8}x)6p|9GBLBTvaurqkwm6&aPrq<G}A&}jIwIAJ6#d#9QRtv5`1?s9E~T_
z*?ehvWp!<R17p{g6WY~Oq3xaBz5Rp3L^74mWOMm~Q#KXNo&hCF3`w#iSH(jqR^XjP
zsnU=YDv>Q+#@TYETB|pjt#;^id;P(1G@eXnzT8+WSL+Q^u|^2dBR9?@qh1(8VQ^?H
zQt^-Z5K}I7wcc!7fA#v!JGesb`=k|KJ;QRmAWE__!+~F@VZ;`~u^rd*gD{E{K|DT(
z7yQ;u+x5eMfnRR6vSrVaGgt0Bc{}_5I)kq6p5DGh|G?nT@W|-c_{8MY^vrAs=j56$
zr>xkQStIhjx+@*$4q`8HWN0UBNx}Gp#89}ET4^aNssqI03%4+sRNlX*)Ds}Up{T*~
z>8P`5O2Q0guRd=Nb=_4)*SGg(iz=5hD}w9xM2#-8eVGk3p%-`3Krdv<GRibwm_rtm
zg|DZ#kD@4=rlW@G!*p=w1`!sb+uqO0!`Tya#imt6<7IYD2y*Lz_?S1}68!L~y@`ta
zR(|k#wrj%Kjb)_^R{O(kPv}@J&{|RF;xVD^rl0Lc%s*dNwjwae2^n%W?K`U>udO$@
zQXg`;wCnut%y9xEr-g=^jqjd?nZ7)`AZnl@*mPc6;|{x8>lT{kE7vq;S0{#rO;j#c
zCJTb`2{kU!?iVP1YVESmTa+remC1&RkLQp!FFOv-s138V#Pn-?S&5pa(A6GRiVw7{
zgE1%<mrNIDFc3?(#vXPlT}!tqPeRhVhf^DH>L^?^0tf!VqjVqULN_Z5iWB34eaj9%
zp*zEl6%=me7Y@AOC~Z5vf4H~HZdz$>%gl1WY`SGv-AJ*C=5PN%+rL!y%xu*c!YUp?
zULRxyJwymnV`<LvJai=&xTbkWy)JjMY!HNihy;c}fgl7~bmjf>*~${mZ~{EnpK?~Y
zQ$?|+XVjatwt8Imu6=6~7y<=?5M<F+_p4_I&Y7!E+qd0~M{7~+gP*QfwHm^>qdq#@
z@6;y?NOos>Kl?oTdIlV>^m`0dp8qFSObc!5Ib@prO)fT1L*p9QO86+s=XflxcDEP{
zhT{9;x#4`KH<<UW?Qgoe-CeB^0tJE)5Rq`^^5+Uepg<66c74{zVXd2eh5OZrDAvpw
zXaAE!fS==WxmyaRSib%tT+R4E(4ye35W$!vO)xk5L=qSRwSYE%@x@p;U}5{%XZ906
z_Ur#~2#98q@%Q~<s~xF~*nJxZg$Qc!SsInjiw^Y26vK5Yi`|Hj0zp#Ru<Z#30zxo~
zSr5_Zgw)u^qUg~&-6k9#B@Q42TS1NGpqM&Lf}~h>Clf#jM(hmf5G17yi)~L502a=v
zUZnFX$`cY1x*c2D<c9g)eCq$><kLMh$KUcChtvE_aN_6pd#?0${<Zi2K8T}nE0((@
zC(er;i$;cGlwQwLTEQ;NpO#EN82UlzZj+g_dvmWJ7Ag<nVKJOpy4lsX#9z8|S+1`T
z7@jV(qg|W=DhY2r>oD6v975+dSv6zBV#~>Vn|QW~U_^8V(eJu<f`RCu<={{)Hk(|p
zD^+4}1hFFx0ImhG04Fq_LyS!uuY5J}(5ScWaQE6IU7S>j_V;Fsl8LG}fB_g7!Vm^v
zz`ziOV4w#lXCCxGNJJn;0D{<&1_0NBSU`YY7auD#m_OVK*<z$!UAd$7xz~yyi$IJ3
z1hFFx0ImhGfB?NFR%S3Sd@9hVtEdBezUuTQ>g?i*eu8mx_we-c_VM+9iVb-7{Kd;A
zlfa^%($Rh_j6nfeS&u`_$61lCfjYo1dvV+U)i7yEh0DDR{&Ii*ikE)b^H=zJf5UJn
z`F^X!&mK->E*Hl7HE5?ofe@6i+0C8Ql=TgS`gM-k(Rv{}aVJ9_?nh(hqujz_235gu
zCP7|;d!4J}V$wQCR53kp*hiA5bWR{Y^l22uQkYRgpZ9U(JM5Ch()R>h`MxjDwLW&}
zc7BA+nQDS0Z4#$l=?eI~HmPbY4g@xKUsBF??P)2&+7L)Eb>!46Ghl-K1Pm2m+mrMp
zNJ=|(j`ffM?(p;X0LBQ#1jmfTg2sx)hR4o~ClLo3ClwbRH|Ms~Ld-D_CBRIAq-Yk~
zo`e8KP|VjLCLxD;)&NPf?MWCwgdi!}E|o?b@#Hf{5VhJ}N@dgE&mR6~wfwa&?B8i2
zg_5b1fK<w+Vb|26D2Ig<Y@}g%$hEa7<gk!}jWk*o^5jRW^6~tM)=qjROj}3%Q*C+a
YxB@u$(dVhYenw5#==f*+uDp~~3hca8bpQYW

literal 0
HcmV?d00001

diff --git a/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-regular.woff2 b/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-regular.woff2
new file mode 100644
index 0000000000000000000000000000000000000000..bc9c203b19378f843c2e06260603bb12b8d5810d
GIT binary patch
literal 58004
zcmZU3Q*b5>wB(oMi*4JsZQHhO+qP{?l8HHSCbl`TZ72KRy0s5m+b`YKPv@!YoKx+o
zD8T{%0sM#kGywd61eyl-pXT~s?|=ON7dR0txFMfVc+*%AMu0OGn6Pd@=%N^Gh64bE
z1C$J`P76o`9%cb~g01_i+BBwec<m`4FuiH)W-e<EW>gtAzA`BM`@5Nr0n7&PAEkM}
zUDpUzJF=J;&dmYXlstaj>ox}f{x?`6!|eCZ|HV#@oXK>GHphD8P6!NDOrY)ZhR-T5
znas=^5@|VdES6=8Rsl8|nlyD<`RuQl^Q`HAE~~>@ZN@Vg#_P-QPr(p6%vUS+H7pSu
z=(U(Gj$rVOWl6gb37cdTyA-aLvk6zB3&mV2rLrDuh{u!%(2n7S;Y$TsF;H2l3o55g
zO6U8hxSt8)apJc@u@6$HxEzj4t51!iy3z`_kPK_-{#^;~;>>8!anbD^#_`A4Z@GxU
zye_P>_}nV>Ww2!~mF&NOm538=B~SaoY^}4JX~}+#v2~j(Mc~!luclrR{S!9=!~H(-
z0_MbqVmD!bMtUrXF&QQ@>32q?2A7TOXVsocL@H6_%AgBw>4L+B4VNY62gkqR#i^8r
zNh1G+ss{WFkOq+VN?+vOCO=O$plRUz23mk3nrvCNTpeF>DATJYcdLf7k*HIFe&jks
z9E)TZ3D!tSB_#ojLq^g|QXTZV)sgNjA+8}p!()bfM_=+Fbd-m~+Z{*#dC#qzPkAg2
zLxqDA!KWwiVvz5xSrib~esudPt3sDw<ghu0{Nxb2<got4s;E;%mv{W_d#)p?l~$t1
z5J)C9POzq9Ir+_}!|GF`$yX}eV~X2>j?1b452xpr{q6}W(7?*EQ1Bs8@0GF7=0$Tl
zjTRGG`VxF|`UwPLV}QB!@T~9UQtC~r7y|#h;^%ZSVmYL{wAH*@%%((&?mZ}U=>$_g
zIpl9a-4q5%#Oz@K=zfPcXhc*Lit6t=yz%AwlMBJw-*v7#AAu!NI7V1Tr^NUcLeT{1
z8_ZITI9K|%i`T6%_G+~@ZdW-VF1k@=>*A&h_xQAiva^k@2U1Pa7dsIalZ`rE&JnS5
zXeYzbF|4SXRa{Qt8LXlrYGQ7bq31q=t#;TI1}nYhzf7AfCbB+tV1D1@9648@<1&GA
z+L;pD8IQB9<bS$BVl?gXEA1l>ngX>smMRnl<&21`AR!VnQLLp@r2iJS(pq@v2xb?E
zeg4dI$X<VOF&=~OM4(+!tyCjSEd%HAGpzZ}pyL%z$xw>Da<cQH#7oj);6eYmQ_IMo
zTA7h%QO)<Iot*tJdYoK+{%(j(5?i|ivO-Y>yA=a-G?wY*n?`Q~!^RphgKCKbcz!nc
zY;q`C*{m0$&U}%RW2n*=Oz2HC%!WA3;@}}R=LE5)fE0H9kF(hz2ZaT`LGC-B*{Oa|
zLqUT8FocCNfGsqp8F=Q=Pnj;^=5^bNO0<+Y45g0y+`X=vC=@dIK3HuS5vn(9G1Y9(
z6sv?N2%WdE?9u>te2P2RF6ey}i^uzUVtl^4Fu6>exm;f#vNi=X5eb*==;Ql$-mT*K
zL}nx1dhgi9q|HD#F(FYo=(&o@qKiH&x;xMC4k!Q&9F<52px#DMQ9C>0)|i$D6F!M7
zq4mLTjPumwUZ<SR)CR@qj`(-iw$E~wiEhv!Zh1k?JEU5XUp4Tx@BJ91VkH(|_bSks
zyI#}oJ%-?Z+btzBe1Q@FeTvCE#C)P*@XOG?-5~{kAWQ_N^(2~t&GqMi=J6c`Yxis~
z>HaHwTS*9UkxGqLDTt?4Bo+fvDGHRJXB+?$0#y|RqSijI2kBUIQ<L{Va|mO!`{VKu
zcpO;By$ucutR4=EQBmB!o&pca^IP8DtedKR5+Vw6UfWjbXdUTbH*35~|4GeKA|`7v
zYXX3p^q1HhH^rvexTv7aeePH;78=GfrcQ&fKM^+8q0r&8qXUrr=>vOSj-N*XRFQHF
z;Pefk;b~}U!y^txeSoUsSE|aZ=Q=KS_O^a$K0!XA-7mgSjlmQ|Yq?2w#!cW)xo+{^
za1Bf<g5yT6{#YszG^GXxqVV?Vu7zW6_!!tSC@k4r<q6~uHNy2z{>CiSf~!T@wj`Q?
z5GGfUc*jcuefga$MpT;N8z-Cs3?2=D+Zq)P$}J9oW@Gy^EX#SAR)gvmai^#3ddGLa
z97iKu!{B}FQ>`|QH6!6yF9@t|Kl}I3Z}p8XuoJa#+u)_NT!dL|V^BbbUf8+MGSlzx
z&wurM^*SXv+NTEB2rEi9$UGM%E+k7dAv#5X68K*oUPP@d$P6qx!+&c&e`?;B_n}L`
zt^!B$(ps6(^1nFCw(ONrUV29*|G*}p6bXf-fZ>yC?=+p(5<>AM0i|MKo)g&C52VL`
z94AmsTLWwAy437@IxoyL3*y__VLEf@yZB)Z+kR_v9Cd8+7atZLo!dEcN|KWKwPx?~
zqZ~2oF#YgMKV7(SZ;sD1exp!|R}P6WfgteK8#ei;m&+EwWzt9sOT)|*r{G~Fh-ir{
zaF=mG!r&Ld3Uy3%xa$C{ba_4Sq1y%@cJA}1r_=*8o~vxhkQpG0omk4R<qOp`f^Cj|
z1@gI(BH<LHydl=8#fo!<iAa$tl)&HqeCbs4w%?F+FVz$w|J35V?H@Xo`vd@#Qj~ZH
zzClz-heUr~DrQ>!1_mN`=*#67?(+XCRpS}x^?SV-onat0Mx68+uG<+X@S`t39aSkK
z(54DbFSr_Kf`nJhX?e8c@FEa5LPaKHh2QqSeEsA8W)CmreS)N&{TE*U+Oa@FYUYV7
zFc08Mluh4Q4(x%e-ehVBn_Pv?XF1GMcy8^yk#jfbTF0@=>0~l(1ZK>ED?yt*{TQ~c
zd{>_MCRvbS;NKuM@u<{ei`G|B%S_Zs`~*sWe+Q)g*(hTt&duu~+avdAASYL+!HLMC
zb&<vPm4V6|S%G*@63EBc3qaa}3}mxFCR4(c`JvFBkeP#{&5mpSVPT{mQ@bacu_nym
zd4bxifH*p{HCsgcdUiNNt(|1QmSlF}ue`MtrV69LYM3s`p;>>;jzC4mCIdn*B)(|l
z`Y$V%G5O!9&dDl|sYnr%q(ntUDc(m*DZhLb@r=}AjY=-vh`s;FzuWEn{4n;cwAQz3
z=&LuD)R2rsVM)dz>yPMM53GwK@(z+UMUM&dfE|(P$P~hgA|99<V8AFkGWZ9o>2b9+
z+r_{oI}a%B4pAq+H}8Dz3>a-Lw$h>^H$aU(dHD4bW;g$6wQ#ltwilE%p-mATm<x-f
zV3>CWX-zZVtHr~kf2Z)neGsBk7108e{<<WcA|wlLk&q@OE1!;G`I&(-vqa-%i^R*7
zN?I_HHm@afZ;j~%nDsI>DOuAY{kOL@5FJj4j%6km3xSBF7eMtq4l<1q!G*$0V41=V
zYMC<IHKH50Z$tTB4mhowhw->WG5!(qIwO}5gA*%AC%LbOBh^2O5-BlBOT$r?!HKKI
zX12)#FWo1>N=Fx6s_=>9S&p&t+KU>&jJFbD#-gVJD?K_Q-O!;g*=8r**wl=h;fy<-
zkRo<P3qnJS!$FI|CI+QdfioaO6((a<E(69$NvkERSd*HEkg{7qH%*y{C6kIKBCt{z
z5rqJwP>hqoo6PzLL`2MLt6a=$)X$b5ih@Vu`E8FyAs1BYyZ7pO34Ds!;em-t!%_Wl
zR)bOHalm7u2FV1IG;Fx0x2k5mc#hKb03{`f+~@gfS0!agc>B5e(S~GZ3%gGyW{YVA
zhlyuf1vCnn&Wg>MR{hO@E+Iw5ZOrE}dt-HV_5Hi-Wg&oSNsnq+?T#1zA)lZZD0HI0
z1u2ujCLd#eEI<ey0f9R0*dCiqX)A+B<a;|P46eo@a1hqYckX9R6C!5m;7!EE1R$Jq
z_TA@q4*B7)5=<28H~G6+|4Y*Fy7T+RU*-o=(<SJ-vu`($%LQ0!xb)*BZUpG*FRO#@
zXUh-N5>J@fy)?7tT!2!jvjNVh^RVRX3^tTp<CMQIx`+1dGThT4HSJvoUIcy)68f2C
zto!l~atSv0fEwGbBbP;h3a!?cARP3q(niAaD@H}ib6G%#^#K3Dpp>^#b*O<uH*9z%
zA^$Xo3Ec!<>pbtpQfJ~WqBP0@#LKRa_i3>WyfFA49Hb|9MSl&}DuD^IMZ;>LCWQQY
zwQ-u1_DeCg7Gxsl<d;+tVGF_AFs(~MaguM@i=<2z>Y6_BnYQqq0gbpL$^WbM&_#JI
z=<GOlp#hneomN9z#Q!NyC8Jw*TJ?uO=D@5Y;3mE8=53IhD(X<#p;Pw6;GQKH*eww|
zvaU-1XB<ie;i&s$;9KA99&anqwaejsG1*dH=2|9I4=Y=OT}=0K>6o^&`7bA#!p|hR
z8}+YOhaXt|UDRqTtTwDsk~Ny8ju$_PgBIE%Svq&(ctE&U#Cak1P9p@#0c$TvZ&EDH
z%c!Pt?j>`sf!DAp)W&UbBQ&xzQ369vTJ!l=Umh{~XC@SO3z{61K8`R`eH;~8eT=QY
zZNJhnb>%VmCTQq06GIX0*_pki8Jd{|hJ`u0xn<_zVM}hVZbs&+K|nw|4b%xHdT;~`
z1Oz=e^gg{>Rzh5y+hF(wl?X6jDw!t+rCg=OO5nVDG%-3_xK`_IY6?_a%MFFnuoF~V
zCZ5wErc^=JeZ|~I^UvW$dOPT!2lXV!fN?mIo~GM9@9?Y)hAuan1<QFBO9g{y^u<Om
z=YQ388lxLHbB)Cs^XBf*JZ+t9=~oPeiUxJ@#F-b!S-J41OWp8iU^)neR38BqN3Y@c
zh4e?N_(zMGIx}wRvxc;$@ac?kYV?#k_b{WmtfRcRqut%Efr<%dBq>=z4+~jv2`pJC
z2~Alr9!=R0Cx<MfI&*VZ{rxRqu(%qvE#0)5{{-;#Af>9dAz**O>TTKheR4=kbrDfI
zO3QDDL{Q{ra6~3B<QMc}gNZ_5ZQ+5QL6Evy*4E}XHM+ZcJmVoGC~$Evc64+d9$zO#
zR_5N`d#DQZIuO%sC0ALE?(b)#py(^tb>&tor&ep&XZSp2<FK_9OS@KZ*jsP3da7=B
zu|AzmvRNr`nk^j2Uk+|zTu$w;<!k5mvhv1yo(uh*!K?i@jbF!Ec@XchZ#Sv$Recb$
z%A55pk-vQ<(L;T6Y^Q73V!#+f%k)dGesIRQO4cgO_H514#buh!$Y?bI3;WHpnS<TN
z&GcYo6c3`%i_4@*e5{yMS+^OD)eA3RKe{ZwuDrG>Sl~`><-P4eV`G5OwbyB1JY~GX
zToqp_u1BS(+L9fYw}kbM=PN((pOdWu7W{_%uZyyr2=KQB-R;)Iih4QM+1exZxvmih
z-=GcJumtzg8Tz@_>6?GxE&NN}i0_E={m2!X<)Q3sZneyQpb`q%rIta+yN$57rNz(9
z&=fj8srYRE<N0SH>jdx1?KyoI%_QH2xcvk!m?jNgwE8%qM`8)Nb21qBFj{p1ukj5l
z@hgyPS+~b<Z5S;*(4L<0eUPe1{KQyjCW=@TcKZFWB}Du6(#U1I;MqixWLBli=#TRk
z(BI4*{$tQCA4;hE3dNLD`h!v(ZAi&bok-bI;YjIJok;ms;Yg`I4uq0;JcHjYI`L`D
zTEr1?#4gScugdKp#n1!$jxq9aNmj)b;HkyL!y#x>rGqGwIGOKJ$&JJT_rW5IKqV1Z
zP#Ag`bWJwH3?W#9m4g%8RvsSh)7?jbgGF%-<oi;r-X#++mXBRzSW+{we@w5<p2m_L
znof>cBS%|YvP?@+(}#p{sbN?}={lM`dDB<h=yALZ1zxMP!OmIB_4=@|^zZhoFIUB#
z*Ob!z<wbvV`Ok1YVJ|Ol(B0RH%NGTbE<DAvL<APKIqaLu`xHmSJ-S(aKSa`s!eUvQ
zC$k<^S?cM3p2CXS89Om=4_MHrE1%GooK9Skq4s>!Ykw~5O&{$0E1cKIZ>2Ejr$&Y4
z3BZn;Hs3AEI^36F;}A7oWPg{7WNh1~r?t*_^0%SDn8+Y4ct&z1H%KRTi0vC#HDFZ+
z?uwFnk}98Z`As|Se}K;`Tg|OGe(5=ND4w?5*dKr8yB9;Sw-)2Lojm8&9+I0trnoIN
zq%6CdtIy=(ZQLKJT8qJX@%mSu1s3c}z?FxZuA+ClI1U3D4|dI)uALtq>3p9()LMzJ
zLFiB0a%S2q#)D+{TQs*<j?6x0`Betdz2vMEqFI_)FL=;?v=)scM;*z$PGoblMMcDG
zaBi5c%d6Teb!r-Enl(!w9x?Q&a0aR5#lnx&5~w8vbZnV2;GYH#LMsOCQLDw@vl*#z
z1hmJ6eZ+F!GV>>2$Xodtm0JY>A%vbaX0`|)H;!GAD~GB!O#y|xMD`l%vW$Mqvv&HM
z<jEf&xmI24Mf1+@?=$|PF51-5UN7r(XO2GcCPQGNC*t9e6E2=lKFXWFe6U}AqHa1|
ztW3*iLUK@o7v3j6o?FBO9e9g0d1X_YgV0cIgmYGepN4)^e4^C3n_6a#RdQgPkEJ#(
zLA|c4(8Fgv$AJ^90&y$Fbz>a2(DMtI(1syHEFthelS>A%sxVWRU|X%}mFw{0YSD6s
zMcO=Y6MQX3lCxMTk-2p}4fg)wRcZtccnIq5MZcw68U60H>-H)T+8gaOQ-!SYD3uE;
z@%*1DP_3CcHA<|g7<X-pqwONmn=NU_MIO6xqlCeP>|<RqmZ(aGCPqdPwY;UKc#~#c
z@cg<;%2S#WSq(_Rs8?L;UIGI#9s-|m%OUkWJ+cjrFPWdO)ojh}A(R_yR@4w*JSj%e
z8@xmKigJ>&9HE-poZCVvq>s}vW3LI`tT)`D4T<!ztF|<B)n?os=(nSG>FjZmFlDuH
z(?jrjcUsO6J<pgLo}a<;><JxyCWBmi_MF|X@e~4Xkli`0bC`w@v2o7LiTN(-aK^db
zYilB;6%vUPppcDds)U^m<%1F_;do%Uit>QXP8v1jp?4P0jY}AfZ9LQGc1mhtzZc35
zOLKD66&AN9X6xPSI4M7L=)?-;wROC#5z^*^F5o%Pgfwws723%jlLc&RO1DEtKR6zv
zdmTGdzhHWN%5JuI);+h$-im^RnUg^&)5ocY%Sf;(F{1`6mCS1g6r3-K5!tU(+GqxF
z1gPdosP1x<Qs7I=aK*<t5>jr6)2<0Lvi}k6#5}$nYFKtKI;v9m?wL;OF`JC_z@;7a
zAl2-8f$pagxe1A2!nq9yLt%F*6~p5DFcCqbzBd>Fa80<J;2F^N24H%VaXcaqd85%P
zkH<=0>m!zuHmod_OAtaveOi>nqm-erB*UQF$Oc>!3il`+2L6Wf=Ulv^@6!v6mh&Nw
zMn==X<0j#CIw%Rp<~XX<d8g^XSI28)Xtc~82s5H3FY(Qz>2pk-$?R$W?n2%cqc&$G
zE9*k$2hC8^%;?1=UqbEyc=^QV{4<IDS6uOuHJ7P;v6^vE_gg3J9Gf{=n)#^LW*H}X
zqj3|%;FI6XL1Sh9cd<^&l18N~2E>%MS2ooSWzGw9_ea?u6^yKv1VpkcQwiV1$&IJR
z^qxvH!iF_Soachj9(zMV;g!gM<q1izr(*4%#2Ng%R+8>TASE%!849y#o-=Yu*+LZ?
zjIpd)69`)3U{sYe(Uh$MERvcobW8Piws+DWA~HQ(Ec5|*b6}Je9I`x|87a~Nh1F(o
z7(s}fR;MJ58Y6NihA)Y)-(=!e5V5n#FIQM1R2$@VOk#A8xYvzN`HtWUBRm{Dl#%4f
zawfzY79I@JpaQJW`nAfqLQl?4Led#RJTHhaBq$drrI1J*yq2UQOTLkdwFMD58;1La
z=mHBQs^cTFd4I&(q+Q|?Q~h;P5@uZNQoMo_a3TY$;M)>o6vk&5t0=PT`B|&|W&ujt
z!V{)M##a()Bc_!6fM*ZE7hHw_T8=Wp)PtXoA1+W3BNSvX&J-hSA<7#I`Vbx2*b)wP
zQ$BJV^V{#nuMM;eiMA6XD?eX>42srF<ReIa?Y<9Y0(<+yy}9dW?*g=BJTtce8jU0#
zpMLbqpgBd8@XCh~y#bAa{v^4{{7idjdRCt$<<Q?KW#rzp_k&!4IKX%C#7iUWc&M2$
zG!Q<DC(I0CBNmECDpnc71nvKVf}6V}y^+D^LHQl5iAA$Do8{LSO;b!Q$^X#Ow%Lb&
zx^Cf%sDT<<@d(|F<Ah{Yr_n@(g^fiS8-#wS4b52B*MDE9By#|=1J4QPE@%t!J2!Zf
z&hZsHJVYkURKi9U`61w2M#lTP5v!;^){gjfwc7|)O)b33SFaj%hvRy^wQS2gPt<Xg
zJM~0tp_|wC9ZikHk|tQbS-2I~h!LxH1;5<`?~+QU4Bl<($J9N5BA;MohZgnXE}0^}
zZ9C$5RkhF^c`k(tzE3xSfOcNj_MV;h+K&#1Ka`|sbsUGjioPqQ#AA8pyMl%CHMe0H
z9@eE&8N_kj0!rML&0Ad?08&Es?;v`K&YZ8V=2U-zy4FgQ0CZ~k4hKUFM9l!n=VX;>
zKNIV<pgDIpb!lf`@S-gk7zkOJlkCi}KY`p^xTCic{KVVdF(r=FJa5+$pry@TRvF4V
zViSuCB0N%JyQ2rrB0aC-#hN**>($kDI<?wED(*(EBjtDPUN*Ht((~(A*)m))X3*o7
zC44mhL?8;ZEq$jJYypbBmbyhz0vm#<&*qi&hKD$IlKEy37Dj9uC-u`FJZMq>Z#j`Q
z1lO22g$N|ZyHYx1=FT9eQY^1w3t72bxL+EyF)Uzx&OQor3a;v)6|eiBlAke&2WG8^
zd;k8*|A11T-P_|`@Sf?ZuQGp(Sn$M}+MpXv+6}%>g~z=#g)u4HIN!-|&X9={0P;7^
z+Bu(gE5`k;EO^BgskSO49DLbMm&d7H+jy1>x-Vc6!|jtIsmFhm*cUSNL&)kyS_H|p
zydQQAgwp)=|JC6dvrw(DSH&vR`Z4kMwqS-uoRa!C{~55;wcf=PCZ#VIDSGN`sl`k4
zH*)rN)Rlk9V`w;!;JFv<nzGQkR>9%1`vbzzH;S^=)q0fk*!2K;!OnomWL>WlGKBmv
zp|BCCyRulpx%gz4$%&EXmK{zu28b^q4pq{^MBAO~2VnuoP`ytHMGFbz{iWWkUEsoK
zrk^*c8z`7j>(QiIxWH$QxuYItA}^<_D3z#(V1e<4A#G}RL;S#TSPI~x!m|P8hzu@z
zNIo{<!GRr%UK<-PhN{G9+++KLIs*qe*qNv{{#IT&5sn^ly--8y^tWO3Z9|9D)1QC1
zqZK60ArUXuS2uBc$Pv{0)4uE)lBM9&>YQ);JCyIk`^Kkt^3kVp6wb^2wamx=JFPA8
zS0{rxOwgb`WX--p<T)XnClgi;w^RoZEOU348k?bbklf8{B#2zD10J@1C;}a?V>F!9
z>o&;IQN7eEf&vnvLMtj<OMzmh-r>5y%@^wGbWB3LJMMhNv;sds0s%W3X{e~yO)A(D
zBUUvCCli8HTt8Ucjdd*B*o`$y+eoU6;T?L8Wfy=;1eWgZE)PwS@9YBQ-xXrEF|k3c
zk!X7{-IAb>W`fxoFDZlco0u}GDrZCMi-jn^23?X$31<w)a=T?>JFdY_f4K!iLf`ma
zyoyqX`OQRLkwKwAXP-_-Ut2jnmUXK3D2ig*R<dp!#uZuq+-7N6y5&0Tv8n^FrG(E>
z!BK;Xu&!z@oqP03qxERQzmDc5zCbUtZ~GZdan%t!{CPge56AtxvsWn>c1?fmT4p{k
zHaGguid=W){hv;64w^hYZK#z4<KTg@?xsj42yX;tzJRszupyJ?wFW6V6xM7#Ffg!c
zQPWJ6OqBnWWI{L0F6wDM*%;7`5_&Mp%`t9sovxWf$d{sAl(B>ZYK@X}E(nNn2-CzQ
z6bVkj$5slyl2m9#9)Lqk3Wv_+CT2{6fN2dJ8&0d3GhwycjgUp@iKpqvhh(`WnlI_H
z&i=$oTpT>$|DHkRlN|GCVM=kulavDWK9H7lKNeN6DU_+?m(v3qL~SPWY5G9UYFRpy
z$%dUz>0t5P^4`i4lMoY?kPsKkovUz9t!B*$5m1ZOfjbqOSwrB$M;2T%bTCp+r4BCx
zrJl|dveKf;#;YWrutl~N2^PY}a0`Y3?OkLC{roff_3;UH;Q%<$;846h;-RiEA`2p^
z!9F(Y*~GratUZGvhAA<+3j6&C-=d|wj`g63=}s>xr-W{7OM%_QrGD2%ABq*x;*4y=
z&&+bs$t#^|0cl)#P)dB4^n+S+bDi&vD)ZNY0S9n<6-m$4;rvJZbx+pFTI#!hNa<}6
z<=B1)TJSFBD>v>XdwU9J3T6td0>yflA%T*_MdiAE6S`?_R!4Lz;SXh0;<JQ);DP|4
zfKP*dmQ`D~MKega9Sq5h9lWCgk%MHnqr8$yMTauc21z70<%lB`t+TA6%$2=Gj07xF
z872nhy9Ll>I}vSAqbPH$#D~0&it*lgBJ?H+ax-S?a3CQ~G>vCOeMw=7-)A-A(ar!g
zeo#mL2p{6-*d|*fLkKxu_vSQ*w<oK*SXQx5E%KmovQu^7fLK$PmzeyR=JE`JEZcB~
zEQ?#=@+aFn>Og0vPX{F4zvx<o43n!Nlp(`U*bdi=tg!E~!J-v-vW+6;GWr=^Wg77+
zJ|=y^gr#WOf0L(%|8k+zEU29QrG5wYQ<`Fk@=<GfSp(^lcAl|dJ*6U=L-794cgd&x
z#r+=f{iWMGHhj-Idd{F{j1TUa(at)Pj-K?-nKE0s>&6bB#&L#xC4f|Zq{S6A<pjE=
zAD`U1uH`5-yN;%=&>;`u)Tk}rn+O^bq0K*9_Rca}Vl8dCs=pR%Y5*?)h%xk;;^>Yy
zCdgk^uS;LqRWA6Owo_}E;N{F^IYLD~Q%p8i&2vX5%{h`1GajY+fG<(!t?Vh(=<_2U
z#ox6$v^k4CU&n+ppRPnC*9^M5kPb}sc-gLz_?h8LI_07!L}Czf7+?Miuc8A`V}lA@
z4ys?CE*w_>seJ`0F_ICCdS3QO0J{)pNuuXW32hw74*-fzOFTfAk)6rg6Jlx2qm8?h
z&|7J`qkSW;_^mvIerPpQOUvk_-f+<7bIRUzmE~LNosT2gS*N)En2JqR+z8Ff4Bf=>
zGN*mK1QudG+5L#vUErX>IzyRwvt+Vi7y$aE;bO$c<QTI$spFYf3cNG8y;N`4?Vw{U
zN*nuZsx?%L3`Dh3GfeEeCLfa{yPbR~<jNLPDEZC#qw)->WY`rJ;@>R1Rwn69O?T!K
z-s=sPUTUNKcLLTB{RHDMh7L}J^ylu#Fz(n^CVntFFIce@NF+A%@*n<9PM7mTop%3a
zD4HLgSsou)PriZq(tfjaLb8tk<IQ0=IF#B@4ka5yL=2|Q3LRsl;^)f)^I|;Fg3hh$
z!h<J`jD#Gudt?)Puw-Q)LSL2B39TY&ska7iHS%eQYeH+6rw4F$;@NP<4~>CuY-J1Q
zdeb|RJu1m!#I>qq<?h80wTrcfI(l6`<UL>9Z}HE2!RzW<g|JNu(jpNKNi(t>oHgoi
zThpqBi%n@DSBZ`QCLT#Q_`#_RrjC)p)JlnvqmZdUYlNAgBF}2??F3mQ&<|u7Tc@NP
zip)yw2<-%kRU}cvMX>AZ>v!p=!}4SLbai!Y1Br3{uEF-h`YBA3J&=b=Ai}5iKRn61
z&RAprR5o)h9G{?I;Z7RM57**}$;`HISQgKj>4C<RBV(nH6j`XOUSU8R5G&u=JOjH8
z5P6(nXIhGs!{mLI#mlSsT=u`>C*BcIkv?3t#LONd+Ha>{`rOvL_73QJ-yza7l)}Ky
zvbsQMPV~SNy}YPU92X6^z0*`<?NrvKM8SfEY>4`eRD5AkkRC1czxy)2sC|O41kzH)
z?kpJ^x(VHK{Fqx@ae{Pshzw782&vF?P-DpVB)9CYS-1bB5dg+*1W`j|OiPNcPR)?z
zQcWnxj06stwoa$Xp8|eFP?F1)C`nDyvcGu5Y1gfW`7M&>-sM&5Nk<HL6fZg7lTgYS
z3k414_eND@=*~Z=jM7dnY8{Ht07!l2Y3{JNNcCQg{5ukZO$?$t+^d^2a1^o8#d(+r
z+a*ygCpGm}t%C@RnEc%=$dh*)`#Of<8c`{vv0COaLD@eOKY<+MN9|a`;Y=tI$an_?
z%aE=Ut*a}ZG;}0%c-c5hZ`Xaamb!20YbhBa5w6<)9XF~r<V?nelE->{UwD@)!@6!V
z%(EyKnl_PeH}sbr;ZwLDw@T$1K*zHJEJpF;ka%vQu{L*bI7um|_D$Zn3(m9&#Kc8`
z4$!#}Up_~kwv}16DYwz+$%?ypP)}LLk4>F#Z@9pUs-eiqz{{rk#onJ#1sAq9PA~Em
znvem9uPi+k9!7Qo??%7q?<y%+7z87UxOvr(MoModURq+8)mrlu5@5RBqzJv6dRin#
z8zEY}n6ydJ=Hk_ASQXDUdMP{$_S5I)`SdQoc*c2;R^1IS5|RNPM|TTJrviX0wf5Wb
z23c6^&tMipP|f4xo<;rB#mL5#+jiAkCj{bkcUhe;HVey%j{b$mwOtC0j^rZ^0qY#j
zwh6TD6GOz71iJpW(M;wI;h2NPks6LEu3ec&)mbSWrkzvu>51gla9V%j=7xzNd(#Gw
zzOSK`i)!ai3m0r`Lu&I$3zca^eW(rVY|ZVyvFhLW8D`PcU@5v-g~APm$`mul^c(F(
zX(OBj3JlmXYH8sBxf8q_0{hgDd8^_AzsP<Oc9<q^L+KpHq$MH2H7*A?^8&Ob4YNW(
zm)9*n3?d?x%UByXh)vJsGcs#Bq#2^&#$Lr`HbqG!ubL$ZLfHTk^1#16RX;a+3iZx@
zo3=m%kf`H-WCU8u`RrVX-D#=BO+|cW!=tSlGvy+i@FIU_<g7fNhI<v!tA^o!n}ez3
zo8pG*-*ugqAd~;-Z*}Eyj+qOLXk22%x;%IiXq0|0k~pG_AW+mEck<(7Q*iO=9|gC%
z0j`z){-VV%G7a*=U`;f<ZS*>6yR)o`5gPmN(}eD>${y&nzU4q4$wiB0@Nz!8lGlqi
zC!QNp0K&#O?(&nMxww(@*ms}^8meFLPcB0;Z=JU0ZH1Yq`HOBf>S*_Umd27#2pidz
zJ9x^&we#jtNZ(Su@cGoNW$KUJY9sLwYyEAi+pA_Lxn5UD$2I1j1wQ%tVx5}X3k_r0
z<%%MwoDRs<#nDf3;YwxB9w?m!($_3gQrnL<RC1yf%BYleMgN!shv{LPk{4RLnw(lo
z3U|#06+_O4x{cBXLr*@w(UnmkHO((P`);*f1^t_hnrjZwXM!{`;h4zaS5T-ZFfu8i
zQ9ls?5+TxT45~;(8~_HvB$pLsG;ls6D|4OPJC@NjrYc`vT(F=e%AIE%LyG_b#-1GP
zlOhVXO|~Y*EPb7<GL|7Rrn-Far>;D^eqJ@aB)eixNz$qor|gIt#>G?6R_dm?{-;d*
z?ce82(Z9Z~d0h9WYuSNf@5mnj4Dxhm5fxB;;!M+(9G9e)h#`m64nd^!rcVU<Sw%h%
z4JcIz>sQB8@X8L+#w6Y8t#~R_R;FFK2+R_wK#p%uX*!8ELd(z(lACaEU^CkLrB1j)
z2ay!D;~@N6md6po%_0zN(QOb+75U!$+`ba@1U{d3G&#VGu3#<R#I~zDUq@GWsTHCp
zTY)|R(^8^yri-JaT@Mqe)^`O)W9vpMN?VV<kYfMeMe7KzqurDZ1j{R@r<JXzkXR&;
z(FLI<l5efvSek;fH8wU@g|tUBM>ID!R@UUNUZt)LIYbX%xNB?^x)m^p_^*?A3q?Ex
zC_**%yCA5&Vl|ov1+a;Qu~O_pMaG0lsx_zX4uEna0^$qA&;UWf9yPlIkrXVc#HlJw
zAOhr3NQYELF=?JaKqLUg4bb%9)?qk^_eJ3s<OU98wdhZXWePMMcY${TQ-X%n-36e~
zp}=g*<hOETfhsZSfEJw*0e{p6#l*EoFMgZXry2rK+g*E*Mrg%)uQylUUHj@i-+o#<
zN<suZ_ntKJVV)&gn~p)S!j#s<gq2^`?etR9m-vkg@3i>b@tAL9(cbnkX|EV=R{v61
zO^rDFz6ZufduA`N>{(sr+l)vWw%@cE^dh-sqPrv^x6=Fc@uu*hNG``!b=h@J*1#(@
zqT0#43T~IMwA@pHX9fI;K}4>p`R5N0$>>Kh&oyNwjTyBPVS`E;r5$B+Y|R`PIiyg&
z!^~W4VJj$DpXS-==Pph$v@db-jXeX7?-l%=m67)I?W=haddorlwXR+WIoryMq^Ua+
zNbFt>o$%Mg{qGr)rEuR7Y<&{Gk$aZ7z|k)?MjaSuZ5~aUmghS8IWNfE-JaXQB8w<{
zm};N!<xNA*O???v5}}j*Zwhotv}3%rafGW#4Y8Yt4uAEbIV2%ImhY)#Hu13l`#wQb
zn2jnO@uNCYNzV;vITF>LA@7@gry&xc^8EtJdypAW^a7);MKg6SWqO6~8g3)o{1q`S
z43OxPdDlyM0k#=9t6PS#9?RSts1meWps0H`*`Y9RRN?28>Xjf!7JSaC7hYs|zM$EY
z(TacJg+)EkpCtNf(v$}<uMaa-2y#_vxNV+>!X#En<D0+tWF=H%a2Y;2$T!-hjtEjc
z0#!tZ)rk)Yr{a7v9nf~da2C5GD?=Gu+HqwQE*^YjC?bbRuSBh_he54Q$3wUK4vR%1
z_nEb9Pc4?lp=$liJ>I>GkAYIBY5y6TpP=H6yjO6eL2IrZA*)e#fa=gu(ToKfZU$cp
zB~dWRQ`aMLjNm4sHcYw(Ka$Y`(%3E0^mk6WU8LDt;DR?nw}sG4J;k~p=f0|=aKe*O
zkdF{qpaQFzNUMhpWAu$!iVaovDqi5?uZcJCHNIuxGvAd<+Pa5G{3{G3i5u&BG!A^k
zCcB=Mr7cxQlL<Im**Q0tP;(cgrFF0=(9(-RF4#&0kD-BCI}4KszqXG&+&Zn}GWw;K
z!_`6PS@e@7!0V_fm&MWkaw#vOq!TMEBeO#bd)|X}!x7j_6yxFQot;}a{ep|g(UDRe
zD9=LO;<*pXAQcbdDlY++fuOGir7V}^1ydz~rw9>)gC(he$cpk1fy{y4J47|{5iOZC
zYCA;PB{%$ofT-eNU{?_9{VNY`1kJ^Ft@5wVs6AwPxdbJ!wu6v%$I}&T*umC+&0Zd{
zyKcL9(?d6Q=om$i;3XRnHvhyT28NtZZv6=Np(uCcK(jHmSM6|%19rGWba#^k4qgQG
zM^<PeeNPz0)YT%MFKaAWf)r;#452CW0o%>*wv|c$uc{Y)&$%~p>+s2Dzg|F%Q*Ban
zUm9(%+QTN})x3b=Iy>n4>9?b6W<z-fUZ~|SmmnWx;4VRUx%}mCsCF$zM!vmbzCEYU
zJ21XqPRl!JjF5-+L}+*_d5xA2!pc1%lR+ExP@{=^?vmg!Oe;vTn8GYO2bTtm=&1Mb
zz#!_?)y(l&e<Qh-FX`zajobKpr8z`g5V0V*^37Q^{%Y?_>c#Zs&6uLnUkYkj@O9_`
zlc}sPD%k|z^m^wHkxWy~S%kH>xjLuUdP+Uv2<LPI9wTi{1@7_h`MYT86;MlOYf8-1
zdbyE9xoJE~97NqawFf(zLCF|Y#(@39>cukoLgE9(J*#?6N)6Fz_vM|f<M6PEa7i%@
z4fWNfdeYV3E<fbj%JQ<iaVOXuCNS})QfM;i^~rzmQ=1#3v8kx-r}!P}EjhEC_}jc>
z+uSDG{G4?gU&(8Y#BJA|An}h>+HJerPtu^|MgyJbRFjpxl*vLeWNynGt3S*MulXwW
z1)@36N9CJ#DrkX;dC#R{BkOY9rT*Fusjs--m7ZS$Gb{Jt#&q>`43{l3E${-nrl&8?
za_*&1ANHAp8^@`t!E;_^l(D!8xgFt~9f^^WsiQ%$(_Boyq)6X3NsP_4TwCG$uD<%X
zaTo6-L1VdwKd{BxZfC+->#58S^g432aTOYqu9(#Pm^NrSnkB|}M$WZi$7_Rw?<j@5
zif*wGU2PnIBv_?fV_;g+qV;svkVsh!P0Lt#+Td+VC0<ZjyHd;GNN9KfJhhGJGmj66
zXgE}?&H{Lv_x3DVtLQQjB5JI_AN_%U$@T~=17i=BE9O66(?H2Rp4fe5wPdL=GRQj~
zoVpJ!Zj^~$@ZX2J-01Hb+PX6xNN;-#s$b*UxGH5NPkcH2a!`j0P=+ke1eSzaFQs#D
znZ^XO?_uTXyL(8wTp|eG-9LQg=E1Z}N}_cl+>ghC8)bp0a#NI8d(essIH%H7^Qe?r
zSud}sdYw<}qESeDg@iHv0ty@zMw|%5imasxw&czR?0WXAL6a#OU7$j2S${nx?k}9D
zv=T<Qvvj)yL!;l|H7Qj@0G3>sIwpNzv(A7HV0vk{po#z%E(+-@X*o%8*Iq}oZb#i#
zJ01h^A2;xj9~_mKr0|%McQmB15ncIQ<pl#X9;jZb)^m#e1^|Lf11i6auZ%D5jgF+|
z1J(jmjeSYX#a;+BJKf)do7a(@0l|L3;!hf+sos?i)wf0R7z-^0c;po%gSi+UX+~Oz
z(s4U!H>Q7Ga#<{<2;(6~dqeiL$WZCPag{QeNer8fo1jql^IC(`MMt8@_PV#V?FZpY
z+yeKg$jVNv##QX$bqewq`tmV`ufYZ1O`X_6SZx~1YM+pUG9R0Sbe)#7`JckXfe!1=
z@s<jV4e4=<`uMFj9B+sXb<;W&!OmR`JieGn&1sjm^E|GbkXVM!yqk%G9z=on!)C_2
zr_dJcSc^1|ev5X;z5MbaW2HLN&XreoabO4$R7jSm;e)Pp@5i3yrwy>#)VQ+5D&lAf
z$ryeQysj$svB`ufXDXwS(z$L2_0;2XquDS(^9Cs}^5kee!hp?WI!DXa;&dsU+hkIs
zc2g^({z~5aqL=nGFT{=`!00|~<vZTbARK?VCT~nze$}=4?=(6m<51FB$H#SWB!Ty3
zbmbe~d3dIQ_f>rR8^KLzqQH@517q*|aW`SW$nWD`q?-m+Wws#~o2Z6}+YpT<X&-H7
zEP0E`CoPhz&D3!nrt0vPF%wz3)~S1Ml;~lk6DU}xk#(+BCdlr%gSF7H7U1zXEm&_V
zG#VL~NKX9ct3>75=5Ou;sW7i6av2_l@55uY=k`=?ze(lZR{q;M{o7H;2Tn&=i83`J
z@`B8sn1{w=%tE2<I2x8lMMDuqPgftH;k~Y1FiT9-k?x>2nLY$SkAumVj0c+P{~uG9
zKrlZ~UvGPhpReb#*Zae$5I`bF)oeEt1_(0(=GTNHVB-O$=iw&rLa4@L{wF}!6E5!F
z?=`uguRQw){sf<9Y+iTWRR0{T_d^Xqn<AnRJLD~u$R~a;LL8LyYm)pOx;E9)vQY+H
zZjf81PP<5LmiUMleq&+9IZ@2?Cc%8<PaGVZD^Ax{V%YmUBHFLyw_m$M1`Ajnj^uCJ
z=U;>kW`x4$P+*ue1$*{MrIbmfkV*4L^HDKG);p^jYL`iyo{a#zse0JlY@l{Ym3DXh
zq@a+@h$5k+rAjM9;3R?{eXTXy9M-Tw0(y?>$UkvrW!eQ~DJlx@<SYdyxo7<iK)H1B
zm`sVhA6fO_A0l_2=Jh4((yc3mvPW3RqESn+OFQ_(te}Z%K~TLjb~q2GsPOF`%k!=+
z`uQLOnfV2`!Y>>%UT)kE6-E__O0$OFi^eSuo;{+t;SbQD<SyO6*7K-QIE7Ynv<g^f
z)aa)ZyhFcZaRZ<2vU8@b&+fzQMdMg;jT3HgPI)Z&{{f?~vWFUaWv}^#lcG-qUOD1&
zSQ^k_23$A5ia&m*i8LE8%WCLa6t7q05Gm9Wzw=IlblWw~WP#}GuvNL(Sg$ViLu%L3
z%#!2HIo_t<T?`ZP$+=0mDN(6Hj*EO@C+tzZnfWA5W8;5|jSif?L;*s7Q?tA$^AQL^
z%74_+I7lAi`J+an<GC2S^S*qretw@|*W6=S4ZnWos*W|t6&dDC84lqp2nHkwRXJol
zTQH|$%S{UW;n2)_`hHteqZ0W=ktrJx7W}54a>Lw*^(iL52Ap~Hi%C6rigV3wv(5qz
zcdmPlv^|Ykl{LfaY_>IesHrsHr#b?~`mD2H%P}K^L@&){@feT1^a}S~dY<#9E9I<u
z&fAp4^{d}89D2E8yZV%?#LHtAaomJLRT*5FB5fvzy40yT)=+In8$ZI?70CD#3|a(}
zHBuH+FQEj7EU#OvR+weqME_2rSP^aFow}=jU;Kjbq4gZ>j3Fn}wRz}`F(p6IpIbkn
z;nmb5udjulau+eh4J=t;`D>=v_4o=8@%v4Kg}(}}qnK#vH>JUw{6M0}0gj1T(J=KW
zJC^-FVFv!&*?8Q~sUe)Ejq^dNxD~L!V&su`a0E<TAQpomq@l!gChIsB43XholLusC
zaCbb0>_W*Dd5pPYsS2s`HP)146#BM?`FqsLQ++&dYHr7Fv{V*ci!<ZeCj}nQ(Utj&
zMn8@k|9oL`zZOe4QiyspnEmZka1OJYDTm-j^T|vTYS@ks)T`!1lJT@vmMl?-vj`c_
zFO&X&MX4ec3iI{6=hx?<jw}5)F{Wl!P^ZK0hiQpe?D#6Qf<k3KpyJOCF<@=~yygNP
z>;)b_fAs0Q9tC!ZrEZ)jg{fShRv*igDEt0PupP|$$wuu;WjS44%cGh+3|2Ra@MNbJ
z;=HDuhmepqiB>j3O`i5*MJ7ESV!iq<Bn(mXHP<iGi!89Fvih1Tw=N%tlqRDtb+}aa
z{?<t0nz_@~YCGxJz0h*_*HGYN{C7GbKV95KLp7a&wU{9WzPFK#xo*ITw_4?3W1pWy
zWLx}G4>%%I@q8S?@pvycj7gu!t)iEc8N*+~U;E^IM(gyK5U3C>Rr4&B(xfwEl_4fB
z(veBf7cN$B2*#s6go;Kvip*k(frhy7WICpCDt-_xB=y}jwrfIjhwRwuZKmFNcw5a}
zu?b^luiQ$nrUaTC7sipBp(ee|#yjUZNAf3?riiB)0p@H5g}IAaHjFcsF`aQHD3jh}
z&fl4%XmdC=(HNM1Rs`mFQ!yB(@HFgQ9k^4(QEbCwyG-5+VL3+auXKrUg+y>(`N>VR
z=)I6vaPzX7aqGPO$hs2B+U&(STg==81!3Jue?xHL9efr!+pE-^c?`|f^1x;9`_Ku&
zYPq#8aLf`R6u*F!8&C(&=a$!<Tqs`F{eQ6r<BJ7a&s@V&1geSicNMs31Vr;BGcYzV
zh*(cFj(sWyUBd#K6({Mae|Zfa`rb3RoWz_s=^*#`cz9M3d*VT9*D3fYoMkG(AxJ|w
zuBCZb^Ep!h%QsrQj!wZyz{sz|kmL!#Jzy=k?lknUB9=9T5<ytk-$}UREE`N30BuR5
zav)*y38gZMcW?<1am;&Z&ty4+eq{s|-olG-vvH~Gxqm}A_~LuwJCf{NruZFuz~iKf
z#Vu>wp&1p}{3-QyHMSUg7Q1&wi*C-&^`{c(EW>H1QR*BRoYSdGe$ngc59QRi;<@GT
zRbSu=Z#i9iH*ZvpSm-Wo*yQ4SY?%J`N8q`PDox<N4pUX&J*ahM=s1n}Rqr19g#YJP
z?t&1DP+Xf%;7DZHI1lVs!t)h$m?p60nU^Zz{Y?@ZaOm?6A#*`PYKp3gYY|u@3;<-<
zxj(iC5f=1I3(t{3y_R2A&Yc;)AcVGWkK_n3cD=aI9~fv6ZeNs}&P@xrLtX`lUvUFp
z1Ff6{;r>jsPdT6NPc-(8ndOQuaXEpx$YVt@^}~H6LjPr*3!Wc^c-H&q*U5`O;+Jc@
zpy7H9o!z`N2}!4=DhLU|;K4E-eUogL9=n|%f!gE}1zoe*2m&I4)7b5)0ZPsw1>v+L
z*}`6jR&{GlQ7LQOKtb`$s2YcvC)rJb0IxNv#{Oj4^3Mugjp_R=*g)FDlI*GQzCO`P
z>)G<aEHJBGtL|KOa+L@)O60@j=xfSEIW!i{e}+#dE}HGreV_D`G=v8LV5Y*vUOI8;
z{c=o7CPhgX0z2E%5s&WOW!Qs80=e_vwcv682U)ns3KXX0Ne+I1=`+&3Qwfs?IXpEq
zvEu_52e%Yr{Y`!0bM!8_x*QS-K_Xl**PPH+2O(y6GH&ZUZgXSoref?)NBqugZcuQr
zkkHJQ9-2nZurJJJXpd)}_LhL<?COJ{-y>I8ba;MfY^0))l$e~z?|_Ftr!2o)?5qWK
z^WDBf6Y#)TS(;t8w!Z+MA%i9RK9AY9F3i>ePIrZmUQl$G2A9EwBuO@0de#J}up>zP
zWN_c2fA<)9z+Nl={Lqjq1qB0JcM;q`fHcEO!J)#l=)?#}{dQPVSUp}sM9!oLAqWHO
z(&6{P0~SM+LjV3z=RDY=+kjA;L7*&HmN*@_II<;HsHl<Gtbp|xMIF2$b6BTxnyYf!
zFLIi)a$34_+BP%a>eb!AoYIEHg(FAlC3myz_=5ANM6X*WHVMK5ncv(rUEQHX@F#12
zbBLAh!bfHKc#ZCWqh73{C;zHRQR^A}($kkdb1<bJ#ytr>r3gtoO0?ZV&FeBm+1*76
z8m998wCWGWK$1uhpVhgK(as$<zAQl8x$)xgZ9tk&y@EV>z@P)mY^z{`mp<{l{%Vtl
zqhay_`(fRV{e3-cxC)IVFy6!L<E-%D%3*A$D|2w`GV5I_`e(M8J=5~zp*&0li+llC
z*~IO*G7>%8_!cMVlSOj}!|Tg9Zinu(<$V)ug7)&T>Yp34TY_)`mHms)Adru&tfh;<
zKW{#2u6QUfnP-H#_>Zq*Acf;+Y^!m2^rS7pdy~$otZf}5wThvhtiST_^S~7?M}5?u
zCU@9*b}Fy&wAu=lRMiC~rFoRpB>iqQLflLMWFiti80?}lCMs52m(%CO`SkfL&eZuN
z&g~<U`MleJ7Wjty`NCfAimmm5?W1@s#dL?k%~9ay5c7v!^MDNOG|M<uAb<PT2c9Gs
zFkOx;IktRr=2ze^D!e?HFwq_29a`N3g`uK#0Im_3T@ZW&2uDA}TG$U}+DXYy>+Iab
z_JXAFkeIk)KpZ`%MEYtX6)k3y>x|K9{2-0MRDH^6U3#XzM^<Vifphtdt(kg_i?v@4
zOR}*&5DGmmjZDDX;>pIU^4+fCFGH>a7*!IT8dS_Ogdi_^U~G>`kCtx@y{a>6$PfxG
zUDH-|={`9~tl%~%&Sf;5+hhIdIj)VBjVD;0r-#e&!tm4$kadT<f;APb@uRiyi@HGX
zKu`Gll28<GPFC|uoyIt|vX~7z>+4|1(=@;YtI}v9X-`h=Z`pht8e~<CANHTJ5)WnN
zGsD{-l~K-rcX5zgyP%X@{Rr$D+I9)lBZse3hl*uO#}zh)u2P;857OocA2FON@pl~5
zvE_W*veq)9vlA7o6+0Gl6|)vb{QT={b1_Pjvh<9tf0pi5{#UrgWID)yD+N7V+L$oJ
zpiv6O>akb4rctR^?NR`P=}~XY(yLrX7R)B)b+*eXQ9t4cmD-mWqe#%ecqq}gPsp02
zg>In*GOA^gX#||zs}32Ld*4mODR{znWhi9isOXb!-Nb;n+oMV~g4C@&&A$$GZE^pX
zX))|?YSWC0MZ%zwph!=Teej7i1_QAz!}{PB6w_xm1XTE&5&t{{|9<(ie0PZ67jyrz
zl1rA@d=zHbqJQXhJc((K$zAZ~va5?bPff=MN&-Wp!$is0SJYwSo|D%)uWwv(X0b{N
zfX^PH74#&w`73^uLaExq)a!MWN2-zIn8W<dBIIeGPL)Lde*il`#J>SSpof@n@GICG
zB&KL4Xi79Gb-WwkrDl(2tftp4!1=p4+!xycO=9c4Ds;bBV{|`74J$2JDfZ#<SatSQ
zi`#H9B8ZrYBO+^Bm1QN<my@7rYd9B&uqVn;RygMHBKGp)yyV^3(`yfp!B~vdMWR6~
znLb>FUg%X4=OQ2Z4Z-U>=d8$H&R3m5U5M_A7PG3}%^17ASXkdI+{(T*+erV56cBMw
zt$s2%lF0im8d1*upGTT``#CL5xdWU$E76;m@HFq`y}VE3$>xpGS{^{F(&Ag;tcMQf
z1-yut@scNgSE7+PKa6(xCTEj*TYP74^YYW&w5Q3wP2e@WZbA^n^wzs?2<+`jH;rC{
zf>*As>BV=8x`ApP*;?Xlk#TyLqaiE>&ElzADIxH`gNEAbqkxg)!pafEfZaJ+YXmJ3
z8s{+TvaP0_>QozbliA~KZF!d(nRv5!-=#eDH>+;#pJZEM)mL-1S9guqbO&(K7`=&`
zd-D%7dlTd+f~=^T?zo=M)vj@^8{Fg;cevO69`K|$ec(eM``j14@}2Mf;74r(jWtX>
z5vj>PV)Ph^G8Wd=l^-fmbu~5CR7)N8>ge{0Ij!hZ@g<a8N@-=4T~4{>RZ~-4^*7)(
z=KRtw@#7Ffnm8%Iy0Xa8P&N(n<#Sf3hzlDVH_erCSE&P?PPz-!%K%2d8>F5ghA{if
za26wtl4z{)l1(;6n%U;aFxLWE7FndRrB=(f)<#WivRMn;>{Mcp11cPKTpOpH(%xC;
zba2H(ojmqfe@{F!z)PPD^2HCsf{_ZNJ4DW=bRw*oovX}$U8us`BqErfbTkW6N@!Uc
zDXi^Eh)p50+R?Rw_H?hPBRwqcSdXiByce}Q+3R|o&aFP@^J>h6{F?7Z!G*Y6M3L?n
z6VBuC#d%s{NuHHjs+VPy=~V?)dsA&>zuHzKyY@y+m`>Ce9E{_>y}Xmtd-5%L^WV%j
z`Hg>L-iR0T`o1G?&)f3WyrI|inqJK-c{wlTCA_6C`pr?vRBS=?k4FoeYcfWI(dw+F
zhNktaOY<|6ql5e2tzBtudSY~F)25YmOAE47<D*e(9{6_rTRL>!nWx|AI;ULu>W*|J
zmw%Z@IQ&Ij*ae>V4PDQ*UBe|Vbe^*va+;f6b^Xf^pL_c83PJv3`O8_j_JY;6w~ejt
zrLEqwE!^x)-Gq(Vh{de$j%?p{Y}3|kWPR&c)9O~S;~j2$<Mr2Ed0DvtfUn$Grjs%p
zlxC+bHaN9!ZK|)SEGsVPSLn%&v97wJw5U_3mUc}Iv{mIbZ`R9WXzPPUnOsqvn@+$-
zg#~&~ZJC6&Cj5W?_QQTXWHAelgA5~Nj!9*3QW~AK(4Y{0x2Z|-F_B@x0r>(su_4Aq
zM}!7t%9N5WF+L_TEVDz1zii^+V45~=SRblZP3DH$av_t51X}5o5+R#L@bA-1r7wrs
zRJ<q=QP8k&@mtafJIwS(D=ww7JEE49UuMb07gI!-yc?*ah7yJHWD7~ttg3!_I5#~}
zkO_?ca9yr!SK0zKd$;@iUrdb<adLoINH@a0Y8A99^$?(!L1GQ@hZGti(&1>0qNmCs
zRdZ7qi30A@$Mdw`oOQ{_6Wzk`o|xw?&tDb?BdyIOKprPfRE^<ON-16KN)AuDR>-HE
zC+vgOlw@tj`E7Nj!hteJp6pahd?eqh(o$-7dFh|o7G>I5zFSMuK=+=lhI;kf_vkeS
z%QP-E#Yb-rV5A~rObCGCFr-i_n@Y8>p6<{2a?5}S0h(SZBUHHsH`lJZ!>x(YBT4D$
zP#TWFkV0dPQ-NZ@R2oCTC<YQ%<Z_@Ef!HUxB1Te*T=#6x_MsT{Y7!wpGt+zBb;^QK
z#>R##HQe4-u1Gk5q^IEs3@J1^Dqs{sf{KhbV2Y$DLKS7IVnUIMj$8#>!Lou~Kd9jS
zgSXOoiT4m@<Ob8z?35QJMk**iVnQP+422chqV9Qwi~nSp(^#o-<Hn7T8KDHgP#R9c
zkU}F=0b6MVjD#UI7%g>YFSh@hBH5Gp;!`U%+}>8wtQof7e*5hok?;v59ZJIy7&3`h
z-UKTb9WE&XmdDY;v2AQNJHI{i^WdY9B0LfEa^wQV=G#?wq_r`5BrAPgTFa9-T6h>L
zPz>41LkFy4DC0$=^;v7Q(k58BXp~DndtOQKu1JXR%<-PQPFXP8*!XazM%ve^6^RFs
z^|d^SqlJg00#+eqxM)N#V#G^?BD6p#VJf+3_!#)`j&Ny&tzDkw4y%qK%37Yp(ZZu?
z1SZZ539YQKG+uP0yB85Ed+t|-2MCQCHEOh>OF8iXEUo2b94$O36|j{<o=xIt4buon
z!=0-Ua@CQu#1}}fx{>y^igwMgVZ(+E19K}l4_TMi^5i6_%8LD-GdWEn0v<E>fGzZ2
zuS%wnz)F#Gfiotw#y$f90Kj@1l|UN5dq1x}5g@L0^ylkn0f6cz9+(#gNPqwq{s0NE
zAPzDIhhk9y&tBfo!V<LZr32=CWH2y484fH!b^#V7j{ysj_ke{-6~H2y#zocA<ZF5{
z!N6dHiD?ZBixf6CO&lDOxVS9w$iXQnNmEhTp{BM?Lt~egmI57}7xW#2WCCU!ys|P2
z*ptiw_9Cso-ZTL0L#6`zR>K|peNNx2iMi()WJBOgG8;IHYy_NrX&Au0p?Mz}0^CoY
z0v;fb0}ql%frrQwz{6xN@CaE5JW68%9wXZTkCV%QCrC5!B#i*@6d4CRO|}D`p@{{a
z%{+4Q+)dcy`FJ6E^o!7h0WaYa;AOH1c!f*`UZtrIyhe5hUe8>9^2UvBuz0iIE)Trp
z9bw+>4`t=}=q2xuv2}c6N1yuK-tmR~ed%lG#y2jEZ&iHf9^d=fgF^n2{0#icOZ>Kf
z*zBM1`~1a7|He}Uz&~5_@o%?_pts(X`shQauf7cW86d(y1H~9*hyp_mWi!k$=M6Vp
zl@Z41x5moIFTvJuj5pDWGw4a6)xczQ80er2KrJ1;+Yw<65FwX^H9;JOLf8T%;;AI;
z1d<Y<EbI)D6R0BW3Q`iRD(nJM6Qm~W267-o$FLX3iEy360U#IZ=^73Mxna^h90c+p
zR&6*M<VliVVLy;J(dxp9ARjW+hm%0QWa<}A2KkevA)EpVz-nMP6BI<Y!QmWG2>FJF
z3qWBs(HJfQh11lCa3v^`QlrA<plFJX2^WLvQ8p&{#By14xC&&U+_-QxD4vR`Pb(XQ
z>p%&#HZj})N}`>~;d)RCZA=X}g3@SfdbkyoK_@fAouDkbX$|*+8q(87;cif4dQ3Kb
zCkHmUTr@8{2Fhok1>pryA^%zw9tSmHkhbtLs3{|C7TyIlXOb<#2cTjmTN2&_l`_S$
z@Cm4#nO1~PK`ohOW%wM_iaE9ppMlyi+qU65P&*dcK70e}zydplpFo{hZs+hDs0*v?
z8vX!vV~yRzpP(MBwJQ7t>dCs(>wdl1-mu<2VGyV<yHCHn%x`}<;D9g+^czR~{l{p~
zz%T(ch*M|qUGjGboH;}9*M<E9PS0QX&P2#5zdQ|^`r{1H!te@c5hKs~`?YU3z*Y`?
z2Y>bhoepb*&Y<$_ql!HT%{(8T09|14xp==8?<Lsa<?t`)3LCu|{sUd3#_OR6bc0Ra
z3@y+tHv1rK3wns&x^OD!2@QP~-U2;mydS~|ppT^cCENx2N_T&RZ9uB=6EJ+XweSV7
zC;AWU1>XaEqs8EObP1dZ+kuPF6>t-UZQV6nHU(YPOfz=PHFracECJn8s=@=6+NpcD
z2XuH%#p4C@&>Q~p@s4@uEq}YJKS<B)2l}di4;C`iA7uVAj3P#HFxnJOrkPF`vltNP
zY;+Gi7rh40L+`;0e)>Wzip8PtrCf9$ydoSYA~%rhz%`Z8-bCis!{jdTHgXSmdp1GK
zJ7w=(7GY2Codnx&zkQB4#ps;#_Pgd9^Smx+7Vm}|EN;4~fm?2==eFD881)^<gW!AQ
zA@F^&2K<2B27XBHhJf;RlL$gmFibj*%Ont3i9{7(L4*h^qC}zWx1TLBVs1F#fLj27
zI}SSNuEP$y@2I05I_8-F9e3O#2oj!<Chrvm3fx?z$b%9kUM^AfhB|d0=rG{TgoyyA
z%muM!tH2Xagz$P*<(BYz3-`vK8xz8v3FWR~k(09^Mq*>s!D9@zLX5-N5EF0?#6+A2
zF)7`9#pLHj;0TB%uhrmWh*h{T#OieJiZ!a$>!q^|Hb4#!l_*eJwR)ya7dzd$IqA{E
z6-_T^efqc=K<8-0h$rvwu!%9K_~BYiu#K6#4gdscQQ+-&Sc)Sq^Pu9cX7@ZY@2RJ9
z*t56HgNIz6JaKvPlIM*#R^Z^|`{WZIJiG#N;;c%LpirVjd;|nVk|bG^ELpJ>Db{7m
zM3g1VhHTkN<jAq9^(t1Z6cN$ZDnpR1oVKH)igqQm6QnAutDxN=Q)SfB-)N|cd>eV^
zdz(F4pio6Ctq8UsAP%IOpd;k)%iWFu)X|sg{SLx1QeBJzb2in-FZRiNHGAhlMAoYd
z`v*i_N=>oMetGFjtdc&&_Q~vA4x=D9r^0nhTW{C@PEeY=QJH&CmHSYWhaQmg@Q9#3
zkE1c)fuej5O7e4<NBk8f!#JT(f>L0DQc;pJV3IOXfwEwVvhgD2z%=EeB4J>iuxLmX
zut9h<A_8nuC0bAwY$q~W69aY-6KzNUyO9w8ClTyHVzeU(97IxdAQ>D&a(qS#IE<9&
zNE$ebwD^K_a1813B^ls2g7Fn0Z~__8jZAP7nbDmra0*$`gM4rq`7s2A;2sKNEQ-KG
z6va3cgU2Y2@hAaLP&Ix=HSiSGVgjmzXQ&=iQ3E_jjhKcy;1%k`Ow<K$Q8(tG9(ad(
zF&E8)_h>%0pat*&Ekp{Mgip4nunnz(@3vMW6|IARw$@`m+5rD;Z7jPXzfCr|x;9hH
zL%TLN-7Ns1g%BAAooQmrqDM%BF#{olQZQpY=MW(TDH)a0lGYn+cns11@dOoMm`>qI
zIt?Rq22ash7^QP~n$E)*6%j!fV1_QDI$eTUx{Mlh1?H%PnpB2)s-PBCVS%oqHq~H}
z4p4^_SfV=WQUjK$iF(w6oz%uV)PY^pMKtx`H1*M!25^Rk=tm<sODg)42Ipvu0W^X0
zG{r#D;R4MthyYxqIbvu5*U7*LGT{bU_>pY5Ne*IZ3Af0_Nb=w|`4~m3U>9Hw!6Mpg
zkW8qcH((uwMOH^(J>kNxw_pRsMUf_8BhjLGCtwq?V3%S$?cfJx*hL(E(jj)!QS$33
z?OB7@>G$yadIp9VtXgP`mhbix<LQ9I-Z|o^X~&#22jPqWXI&6Xf+Q9x@;DS+6i(4)
zkyNN!1=6xXn~qO(8T!m9b&K^Nxb<yBYSY{dJkRE~vdFf%9faEUcHuO4<A#@G4|}M#
zm%XgAkA1ARZ|(=-V}FP6cW534UgvPfsBx_0Tz0$@JaD3uJae*Bd~|A_1|d4#862GH
zEWXZlo-pUTM5Ige8t``4=5-Jj*Skdnx8^<I1MbcHAky9M5mt}pGvJe+^_<)5c}9dk
z=6T^ls29B`V!cf9U6|*U9kF;dUjq;Ix;OOqrZ;VyZ*e2a@V2*=ddEA;z3W{ayyrcg
zz3+YTKJWpv4}GZq`k3N(FwZADQt@ei2KaBE`@(2n`qKXO6(d?b=K1<U8{hawJKyGa
zfPeZve*gmWXHJXVFMh%N>No%Sz5kG@>o56>$87%1KZ5xWXV%`oTD01FQ|hA+4}JBe
z(=Yo2USoiPRv2WEWd`REAUYaqsFp?;A=5}Br5R<EEMtrjVyv-pjmz<X7noq84JMi7
z#F|WrN|>ipq9PmtEZx*v$SJLxj@*EZgHt$h<}8s5SMl7qN#f336Iz}kc<~ZL$43-B
zy?Xrk%V%JaB3Q7X6-}XP035T)`!IFv#4s&#qCgEY0RYk@NfMi6$yOJ%D-0PiV`hQ{
z3%6LZbcYoyx4Ciinmc#py!dk!AV9T1F}%f#*C9)mKDl!B%U57Pks^bLh=!CX(W6Y6
zag|7hRjV<oPMsg>HDD|>+D##E0g+3glmL<Y9|;d0+VbP40|SHhE0_W^fhej_DuAeH
zlP}SP%{xt%d8}NeS4JD{gGo6R07|`{P^i^F%myWixWH&2cG#2xPMpZ6GdCbV!Ht_c
zJbC&$y*OLRrk<0C!iAG+tTC>&)=2xK!ytct63(X9Kuc>SUHSq*7Ox-*RShKJgIe{-
z7G7{tV-q*Ew(_vcZl3np&)X44I6Lk*7bl$HzfSQ)B>=hO;Z!IeAn#fzKcH~glrL;-
zT-6;<23h_zGypIR!jP6u*U{kf$WPIAc;Xh_go(BTP!7;+_8dDL`00E^tq{#7^!BfB
zZ~q3eBSFIeT?&G3ToSE;G-X;F<c}trS8Q=*RZ&|%`_+64t@X8^n<dYNJ+4q{vUl=8
zQyCnANGewunpoL7IH94N^h?$~$Q`&#B`ROVDpj@WHK=)Q`=oE`UH@VmRa~=L)QVEt
zS9(YKy<`2+iOw{8w+aqIw6I!@hOL((2T_$;jasSZd>cgi&q@zve9RBO5A3x-!s(j&
zAPTae7c7F4{596wRIw$N-j?3b2%WGMt{7Q4d4)yARU5ZhtV9_Kl&jWm%s}k?-(8=u
zivt|v9G7^6CwPvx@&4BPpLp)8jz8<%3og3kvPsw6aDcx=$0IAkQ5@ybFuI6hQBAZo
zii_rBsG%D+hJ9?rZXCqD_&BbMn-f&PWfCS?(#zhERb{o=myD8iX5ASrKbqgGC@e0D
zheO%n;_V+j;{TUad)pUaUSdcfUAZ;}TX;ix{H3atU+eYW>@kmh{M)?UAn5WY(RgMu
z)X@dmCnQ5>^8=EQV+$Mm(47V_V0XHZkWNKZx(dXl!F6gvdJ!R~J*J<U)8baPwF4h}
z9HfY0GQqL3Th!1%Yf31y;>se|P)oxmdBNgVclJS;3AZNHXV6rx6a+yUbb~6`3N8xO
z(Y#{9e`=Nq;#g>hZivHO7B(Kf51Cr?M8F{!lvSt#Stp%^`Hs+GH1peH8~Yf;HC(|O
zFGn%sK0FjKkH{y8qgCQ+T&FQdxgPnWxCTe;G!EGm;D;n-<g6)cA-V#NjP_tCHJp=T
z%<#+*QItQD&<K@L9$|ay0OF~%PHVxB6(NnP$ih~5(XW?EpzhCa277sX0P39=C%EB<
zTLA#)fU{!(ZXAo4#~54^=}pyS4S~*EpmRsZ1)V!V=jIMyZ{{`6dCYbAimRuKsaW1F
z?J<4Z3w`%>_5i)r|Jm~|&Obm1_AILet?yfh&<^>JT00Tu6~2PPB?h~BIS`BIut3nl
zy&rz_&T?7>L3>#Hb!$9m-*)*$KCx}#Tf1H(8(w3>g!YmRs6lAY!xzxn2*bf~2ehsy
zj@OKHxs}te<vZy44D|Hv`LpMZWF;v@!5zH}OMv^`=z3Q>Zin#C(axUy=b@ON`2Wv0
zIuH-e=ux0+GonkNH=u7|#$*7Ls<qFW%2S8*TnR;nV&jK;^H4wDd$n;)HKwf)RE(sz
zXHSRpF}E$N(cL(Bk~FFnPr`fCRzI|CH%q=E#cHahwz}$Tc5_-#$U|D6m(kF{{$;ln
z)7{l2lw3)zDcPY|{3kztWnN1-o`~i${`j<?p5;VQzgB!r-@GsR%l)Wd@1bA&Rv-HC
z(_cLo_SqTuv1EiNCY|Npr(w(ah8K5cPtSYF`vwcyGNjXg1klh-?XFw8OV0r2@Q0=n
zl`Mri=qB*5s;}?k+aPR=0~wCS#LB#63@pS=ZA~3-a8ID#0qTQ<IE@p!YH#To{fO{T
zPo~R38t(C}Ji>=WoOty$kRVxsW-7JPT3dhl+dqb}v%pfzEVshS*|5bGS6y?%`#|%9
zkw_Afl8lt3ix?|*oOro%=gHUGxir*pBh75q{?+gbDy%4C9S!zPV$zY64CGd#c_b~W
zQW8aRWTjEHjHz9G?GxybP*o~z;_8<{|6l_`{Fc#>tp3dD-)<P*E#taxOm~gwK`6Rx
zd=E|NziLhHv8mac(i78qYF5w9?X`uunxAunCDTRKeXyxutMXP`n0?_K?34ZB9WBwZ
z2u_sjcuCHe<!l))m+yMTZdT$}rEXW|PUT+o#hVWJ&=DVf>y#gz@x9aAYp|__tE*N@
zvM{pSR_Ehx74B8(ek2d7@~~<}Rro!V-9_u0-n^U?hI6tM7s_t5slLZZu;1us6HN}J
z6RkV9cfIXHAN!uu{m!Yy{^)XkyD^5oXt~whu(jK?%_n=Jlb-nG$3Mwl+V&-F-F`6_
zOn#-!1<bXWci;vs1@^?d=lZ-`@G1g{!s6Z0I6Hd>N6=a*vQ_*MTqbvNb#`(4hfc&S
zqH5+Ikuq1=wcF`;y!pS)P=Garcr7U3N|<j0<J;}yJBaX|MENfJ`EFvuO2vpORUxa_
zP~znxXj-MRXv(9jh@p2{ebO12+0bnM$YEmto0OgDIhfHiGjlY%7v}WRf4#COH;Z$(
zBoCVlvA0+UigT!Vhx_bE2~L&jbZO3&>0&u9mFrb4UPtk^gFbc4&(8YQxvq9VYO;}5
z4${j-MtL&JmsJ64g&Ky|s3MKS$PO!~VjUCdlvw8^x+K*#nQqB-PoYOjqq<{sXlwGd
zHb3j~x4r-y3be5xHDPQk!uCGe5!TKk?JCNnYCMkYNp+r9@BbP+tI_kCyz7w99rvXZ
zzIH+N7&7cThB4!Q_{o!(ci#KJn-5>pX0ZIhv1rLMt`*@TM2ZqEMl76F{QkzxcI^68
zK^*@RBqB(X&vxD70$c5+3YCaRs*q7S-k@=lrp=nS=udiHeqm9Wc;yoAz#ZWc&@r%a
zaPja7h)KvPD5<Dv=ouK9m|0lax|{8>5;nHaJ=Z(G9~y3?v)+q}Yt}|eMAolgeVY$B
zCbpCJ)objDc?--w`!7E&-3JYt6f04xOeR-x59J-L*XJ3ZYyW%ON3E*CbP!bbb{98n
z)DQ1zfCLE%B`FydFBUc)4lX_?7tKzZ@um<RJ-?uUPR|+AWdP>x6x#X`qk9UU6dImP
zbh*kQ-RY|tnIQu-wE$Cfhqwak9e|xau;?$$`39f?c)%x{Xx2Vc1}#ZMAZU9;u|Mbx
z27ojWVZ0e~usglzUh{2YLnBF;+<tgmWi;{)Vgr+Ek+rQdN-GTxyD&@-M20U3G>|Op
zJI!SnCT_a1jKtrlZd%}WVPnKeT8l%o{b-^LY*N!jyqmV^egf!Yk<$pvP9#JO%>xwi
z1_obaGb(vwVcDdXQN;f#3@d4!gzGkl{OyjT9lwRRH6ejQH;=-Qa>NhOB55DKObJJh
zR*4T1m@{f0>RNix<06qVMQYksh`4LgK&w7JP|42BQR0wD$SwkK9W}Hvj_ej7hHT9!
z0mQjOTCfVCd>wk40KQh|wmf->ctX_Lov1lId5R^4>8BfPqlTod4|9cqD#W3#FxRhg
za&mYp=}E?4>kot1>^~YKhDC?@K{Cf0)0%vkl!R$WIOx{jcpQ56jWhKCfV{&(`HauK
zGr`)$T67zNkXoWJTAmyGHi?gexY0$LBNd%~K<P-1onWL$;g!41kF}F?LvTh(vUE5g
zz>g7<s#q8xTj%Y}N51*vjfid0Cy;OMd$*IGFj6(qu6JEDzz--q_Xs3a76h=_oKY`$
z!XI*VINe^dMcQO^3oSS#cOO<-spy4%<f8X_-}|mSc;T(o-TFeQTRExY@x5(%IiqM@
zDCJ~L2+Ptmwy}Rqm%Q6-uM=;RWLyvDoVP70M8^B`udT;AE2Th~0l;9=I^XZG$(V-|
zz3(GxE2r-2{}4R2)KNMlYxweUE`e~nH@IB5lNXq{TmFIRfJ;?@ZyF%bCRWMTb>HoA
zD1FeHI`nMO0x+vB-`LBF2%C+zN2PV~pW&ZB*2!=EI&{q<)+!yId(QnCjX4uhL{FwR
zK*EZt#=f{6t7#1)b#S--c+Z1hq+iR8UV?y6M5O8E>J4W;5aEnyC&pHx!r_@jg`hRK
z4G}obn0-$<HJE-DsHZB0yn!cu5TZ;WrnVw2$LDy9ag5gd&l4aZ+I&;>iiHM5EX)`N
z8*z+OO#j9v0t!;IMZt*vo;sI8aR~ro!J-*ge7}|-CVg>t^&3o}RI8NAN=*o>Rn_^A
zNzYrhP;6I}#5?D}z2jZXYQ1||&cep6TX4jt5TmGTLuVUTz}6p?tEz)c4V2Jp4qVZg
z+{b1?SP-m4U?l1Q<k^!Lqlk?`Xb>c{V96}zWltn}{!8XJNq7W?hA>!<%!W*g3&4OG
zeh89yrDMj4_Ay(YKO3*%2R+=oq3aP9u<JW5zA>bPMMx*byl1OWu{lMXX$bOZK13C-
z>~faW2<U|y`x1S2aW<o&Y#od;F|Av&ph+)XH%%Gf;{((+wxj+$2-9u^d$E?vt`8nC
z5cm-1ZZ$x$+aZgDY#mv;TE5K=*`7s-9UbTQ9zE6A%xpzKbLS6Or6^F~v3}&9>L&>v
z%u*p2)0zZQ$r^9Su#yGwnnx)8NB-qOo((rkfT|Ydh#sL1>Ve+DwQQVzr~EB=F_lZ=
z6*x+kGb^>UaxDry#HAd(qt3w#Bzb}O(KHihZW=X%#SQKUL!Ui0wTus;59G)RdgCxl
z6TIsmr%sYCKArW1+?4u~!=#BvvzDgQ?^hEA12jo}5KnR#u<jP3+$(9q$rPC$HAY=>
zL@}CRI^(zn?;03C@z944ebBLN?*d!Zrwp)H*;0ORGAg4vkXby8d7n6)mu0AgTn1Gt
zOo{GWI1a$n-rD<HwfZ@zAIQJUK5dX4Dx+NIa|$>e0!uSA5Dmp!6e_N4@QeP1IGdYL
zu(j4`gjO(@<VG0Q`R;bZI3d#b7Ebd+xwYYsD_8DE@O~Rhn7qIHirLgiiV=Eoq3@$1
zbM<97$IA(dnU~(p$Zp*-jw99>91_DE(eaj^K3LS`t*fP#2{&s#-n>3eh?IXhAT_Ev
z?Nw5`XN1e8Jh(;Hbls4KaEOih3QEqBL%DB|i&KFaWseR&uR55u2c0JRl0%JCgx6o>
zeKcq2%Oq@MgqJ$R{DE<nyZ{2fIiCT~zA$!|M;qRmS~}6Ih!4l`*zx9M=sfUC7*olE
zP*pQyeseLqm1d&B|IRvQ!qPtFO;g2x95lNPZE4dH@VP?i*pl=C%$EKdpJ}q}$1g!?
zK6C~Z=QRJ~+m*Ffd1!d!@u+(R0*fEOo7j~9;S<oRcu0N$3B{g{S7;g*!4a-^GWSk;
zYVRbCtuNnCTsnZB6+72MfVt~qyv`)Bdbh|hdM=WtKlW*;q*i0FL^lecTq2G!_(&@N
z(mC5lPv4sDwy=}K3s<0j9yA*+QH*L8+HA>603RUIt&HussKH~~;;+R79A(bYd{D1O
zKX_WvDKt46d-q8LYbH2)(=F`w)b!c@lI@SF6_)lc5lvsXr{g_96!fl{zx^;>i)wnV
zy>V*KrMqEUmt{Cm2_gqAeW5;ba`}vai=X`;EEFOY@BA#Ld1PoVjH1^~a83f-VXs|n
z(+K^8Qjun613*1nudDvjD7V@Tmq67+4;g1E5w_0?m+Qf{ZNV>Ig$37};u_L`$pyv(
z)!m!Hx)|^1Om$OwQMn6-d4<}_%oM!!v9&%XHxsqZk=ZbwIF3m9AvF#oQSE3Q8|xXx
z8u`eyD`*zZ$uEzAG>rX=+nNqhKQnf?MvaiW>#Z~nN0v>rh6jcxAC#LQ$p(5uH4*4|
z4PD=oUUQ^u-9h!5ET}H+(xY1VdR=)<ALCV{-wKK%XR{@T{<|NGEgGBGB-T8@eLtZQ
zq$<{}f+kQYTW4aMI=6y&U80vl&N<=dEAZRGj|Vrx6vTKxNrSB~Cogm~*>#$|Qp4MH
zcjxZ+8`-4t-mE`+kL;A{8_L`I{Af5wBsKct#dW>6CpCQSVVY@ta92CCYVZ1W?b$U-
zRDd1RwWfjm__D)i@7%-2D@zr|RiczUi~AT_7!(vJQ2rqPeO)JW{`Au9|J|6*PR>1m
zK=I|oWoFi|&pAp?$^(puT@JTV7auuMApeJN8=;O$;KRknd6Jg5;R&IBLB%o#b=ZLc
zSaZtNRe=SQWG4ZJ@|)?^fHp;G0q(Zftqcd~t)u~9UU6jl)0n6Kk=<Hjl$EmjjMq%C
ztvWPsXV?<1J$Wst5pX00AA)%}OOV;=I1A>K(7SSheBV)=_kTc4!@-VTO}pq24~L$T
zM!<-dA)oPG7cVS!rtHudHK6ucOl`fe%BvPcf=xiEQa>rO5adlQ1&+gnOuk3e8_TSI
zm;@6u-qCUdIh=4aloqb#gcS*K-fwIry9tl$4EUg)lV>{9IK?y8^t_3l_>-(*Y=pCo
zowf#a16|Yf882O5Z+>TFH!q~CK`;P}nYS7eD%IY+esq{z&&2^vDXjVPX8ky`rAe{B
z_(+`ifjMGsa&)M1em_h)Po<3=xS83|_<}&aaCSrjL?TahmF@UrNe1Q)2bXr><RHKL
zfeq2EWn$e{s+r79A}D5Y$1YYAm>x~N&{Aw?=-H|{JPUFl;)JGp9CoHK?Oi8N5+d5n
zE@<+k`Chh%0wC)h7MN&Vq7`d>?Ro@U?h@dG*qA)aY>m3?Nwj?H^MXy|R6bq~B3p~T
z(oG7CmDkRP?WSw~^h{S0RA-{_52!o)2+w?yJP&`Oi~sj#SFUqDLoPhmOVMmlDlvzt
zX-lA)2_mfN0Z@u~otsn8aK!+nVvB<Le6gQY5^OdCikw$Vheb!o@7UHf>Bw`d>MLhz
z^wI?QM;oM-)LA#D&Uqj<%)((Hf3acd=H1Zdg^6&Qe`jFu#&nrosdmSbno8Loti3Th
zf*+PrF+|FPCn%6T4a6<jCGMhcr2;|puJqYwT+wT)NNcuIn~7hrZ6~uHDm5KF&1DD3
zXX}t;^-2zBpvLSv3*sie!Px=5RaJ?|fQ$8o(5uN12=kI<vKjmUAnXj8n7~;7-2ZuJ
zZhbD})`Uoz(v)uAB85H@Hq!Q4<o}pXM6>uIM)G?ekk|v2OK|A0tqbXNKn*OoE#XL^
zFJVv+XP!l{h*$&)Q&TzeI{{Owk;{ugoK*B??kk(=)Ysr&PKBwYk3d$f%R{K3m?j)4
zr;Cb**r=!4h@{b65>Vgu`~*`Ba?|jA>~v=DP0Jz<w)FPZlbfsI-QYb_%%jK3?7t&Q
zs68ZPOc5#+P7lisaP}z)I67(_V!Rhu>L8GzN$&aRA-m!D_cxih*uHBo6#{_sL|BX_
zLEix7OPtlW3>8hf1^3G(Fsza)_8{{nF5!6bfJxFtbg}pVV~%EF8uN?T29rf$HhK@N
zEr<@f=|XXl3`mSI`>}d!y<H-+s4e(&ljP&gpX1D15Er6Uy5f<(wr~mSU3GM(N+Ha4
zgZYj!McM)}e}+4ZX+8ukeqcz2$dC+(z?C13f>X4cPC#dp(TDf<;EDIh?Q2mOpby^V
z8hlW4#`_b(-sRbDpaVq037gaSVlli0M#kx3C>yDD_(+WoW~I(od4G#&9iI^_JT%Ki
z_bxcoRcsdoDH+*5{F-pPoEiWF`-RRhX_C{=mEGZ6HgE;<#06rof6sh<RF1YT7W_Ow
z&OZ)8KM6HW&n+Y{S^ZVr4UBcZ!ylaQm?W@ZDU4V$b>j9LT-2Eb6Xg&7{k;#@p9jwz
zmT0(#xy4&07>lP<I{H91k7H0@_qJC|ROhnsYAa37hOdR>q*&?voq(6>rED4?Eqd;v
zKqu9!z6dtwyClZlLlQrKJc&7d2F8z)+NheQ_4YPa$w3^n3I9_ElRz<(Ciq-&hyv0s
zKpw|aHj|#0zSj)bi>*vQIg#L=EmE$K&H=<GELjHqxbV->;aI=@cq%sH&If{kj)T|r
zTHoRc)wm1ryiHp?jnch&VE(xn#RuvG6l=P$+sR4KEfOJGujzty@Hlsvp*dJmCk}7m
zxKr3k4QTN|4VA>8@|{yXkaDtpJ1m5y!i0gOc<vOafEtu(f8&GWfqim>*Xiza9N@0g
zQ~L7#jI=mvwforI*hbmfE>|3wz%$2r>PER4dbr8~MsTL@&W5~O>eSC`=K<5B>aII-
zJs%ZkU*gG|Vl*IP$+)N*DLXYhHh0(?N97^Sk7C?D9K}%_U><o%`1S~SrRbauft4%1
z{F33{H>pj8SN%pqw+CYsZy+PuAC<8P^2KlF8UquJMrRTZ@LZv+Y>uJtmdC-X!ruPx
z8-qW@$1!)2QHiYUOT2T%`j<#;ZHI@Vb2AzySA4T4j{S_zoawj9VXpA@gqRuyeWtpk
zvWfTk=9i(>T*^8iEcMPBRW}TcElhV0PY~EG%~sQaWvr_fU98K6>jP;9%H-R;!HmbR
zxD8<58F@YbcOJ&&LGeD@6;_HRqEJ^wjkk--)?Hk7eT$(H9kN%~kZrn#?9er&^Geh7
zTXB^x80i5bg`)zWSeW;1-=!h&^FRi<Qws3;<1;|tVNiq|ngQ`FqoSD3tL|TP>BZ|6
za(efP_kI=DnVwv3jXN(Vo06HBZZ@ttCtn4mBBBa35cB7e_55q5k!2N~wZJj-{NRsh
zb7U^h_Chu&7m-VOA3}M1%`R(eO84bAoq%hfW(Q@olN0=j-a3@EZDdfsJ$4;>_r(zG
z-&y_z{gc27M9aHdxU^`R6UKYJos-9OOdUc^qlX@^(9Ajgx1|SRq`D-FI%#6}^BYV_
z3h%P{F(+W$N{5vWRH$;T1CKRLPTn=tBuAVCAG{okWYrx{@|PQxTy|(7(ULSteUFbd
zzKuA<2Aj@=##1BFI2YcuGDwv1Nd;zv3mr|oNLRwCgbIdBB547V6O>%0=h^8!@$n{h
zePQJ}k+MRrNLv^ksbAoB0HA?5pRZwBF}LhZu#}$rITi))!8hrUXj5eDBQ5d8SUBAR
z2pE-{A?_>_H1vXim*MV$b0#B}QsI+8_V{>IECgN_;q1!NW3`K}!?q8{Z3gnc5UgbJ
zB)hyCC2R8sW7`L^B=6g7lRC;z!<HdMi?Os%ZVnj;mw7I(8AByU2}uc-J3lU6D0TS2
zjfZ6I-$k5zcUs66VMb5A3q_Ju3oOU|dwpkE&iR(-Yb}LOHpj2!_60x}wecwppB%Gb
zn5ga)Ua%>KW_%V42%pKIj0OJGx@j1UUhF*V3eEF^>?&(d`?=f(tUp4xttrDpFFFRw
zjBxgfpNvy&W#MW4o^K3$H-jhzC8B>fGQF%*!UqU2mLued&taX7AoeqWY=*N%q)28w
zmOjNY+;1s@IJ6s_3`b})mm*c!P?%#N46es44%uu?rs>-NSPt8%@3GNDBA{U5^o%w{
z%CNeM{N9|M;)+)Z)e-QS1r7yb3P}Mg1YXC9lMMfcFf(*$dsR@ZExUs8>p5StFTc*f
zYtts>YV<y|r!hTe0<=Ps$GnJ4%Hf5~%+WJ5oEH@La3SWYu*&hysar1(E||NsjE~%2
zQVW~xf(~ye5yXL6+Tp8KLw+es4lUKCm*)x9ND=zqxTwiM^>elibR{4|I#QzN66~z3
zQ?B<?N5jYFNuR{PNiupoYvB_xKEF5A3>|taljG)bFVe|5Bs^kGC0~^YW;09if^V*{
zE!S{+BTU}$13KXZrW=Yppb<(Z+9xxwFx;gyY|f|9!w+H@3`$O0@P9nouK3djQj;rm
z7k-YRb@5X7ynKbAJ#V2MQ-wUtU5$$^7A|ZX<;OaVpKf^eox^U4ib4ZUe&pWJ++%Zd
zlI>V3m6eJG5RM2>L|-1++}Xw6MUAvML^&%Gk9NsVpoq)^SWs&`nKu^_a!NNJ&EY`y
z>Xq*aWX-K1$eYX0pZke6Fy5lJ>r{~Be%PSvG4(e)WUG1TXQ^upD-|9!W=n71N91Qf
zJc4x-k9PF$61tQ-st;;VHiDK4G?fAbdCPqEV#6=+3;c|S%|x;V7@1(Q_63eBQ`OHs
zmmk_Lv^Al3kjs}lF$^*Ed2$%E#p`oHybdDWOJ?!bGa9hQIHtkFqxw1|i9p~R>-$;h
z^1No@gxZEgNTPT%@6Nz=XY<KK?D-4-sF!g;=4bvXwApIfKDn?0O|cNxQV4p3)M<s<
zuo5tbw7it%H`0HC9N2qD3Xg%Px;l8xbhtxY34sI%Roi-KAYUOse(|?jdQ!UnQJFEv
zbJ+=aeDSfw7=}qqYWW8ivgQX6pAVJ*L%ySD3DuQ+C}7VvZUKYvG8WpTq7|*QZ)p>3
zQLF<fGr4|+Tj}+c?p+y0uy#sU!7Y|=x1D{PJ+>{${IJ5xk`Z<bVXoV1{qb&Ozmgu0
z%7e`b2+IX5pPFW|da6RI{7MaB9A;|gX03U~tYAEk_vyXyR?S*b{dF1}r!Em;Gu?4H
zV;A|Mw<0m<nR=@;wVDmCE&1rtBP&KO6q>f@GtNoM9RUS8ZHRI)tGuPbk(T!KhZtVD
zhGN#vN)N|~_;!@Pk?;4g+5@zU#10GBXmkKxx0ihYdDt1YZTUQdr0AS?NY2Oyx0a#p
z^PKP%#(K{J`;M;7J><uRJCc;54Vj3;)q(OxVQg;aI#>}`)AsO2ObEt>M8z1Y50@@i
z(KZj&)Z{vsm3f6`H}0PH#BDv8hejR@#?ZNc602N`ADXvwTsHtmE*?o3P9a_g%d3Wa
z=%2sr#obdybkzfDZmdt}idST*O;*0BZnn~{6Gi8IwZ{Z<)zEV65gCD=n2qOMMMabg
znzNr^KKT~-&!c}inxzsu+TWhc&CJt7AHuldGL*R&LUekizC8&}8+%L4blC-4eH!c2
zb{40X21~Ys6#ChULc?*utUz+B&8CoG(0Vd?&;PGuhmTqz5PKhB#>>n?MQF00cQAWo
z5rYZ0HSkML`N^ILoE#2XN>JWgvh$FEH|5%k13$7rybnQbCIf;ITF*w6+VRj7vVozV
z!zs}73c^^tsH&L{V}%v+;X*!af6!|zCOen^;MvF<N7_owJdSlG`SaH|3p1rTnS@g|
zm-02{tHR#8wWGPr@~O%5KpwKp3G1rr*uyMGOk>=<qTGDH8N#hBUyNws!NQ8}I*LkQ
zK0&*gzztMHIr*PBRP?qLPlXQX^h&;(9ETgIPKozI`I5lX{<~mi-JyQ{1h^>oMc^8Q
z_|6JY!@J*V8IBjPtR^aLG1%euDgmYnDbXA2rH&pyt)l|rIN3JM%hc5&nr?hf&E3ZX
z+Ywz)%nlr@f!{*hHyOT^!>#DO!zER$LE>NI7p7KRy6Q(#4O0ps+qz2T0>;PUMRjK)
z&Oiy;HJBJQbI*Qbk+I{};(&B70}mi(yhpvUG(VHWC<oVU@MFTT*MuLSfH$?ABHY?h
zlChF{<m<}0UDN0H0t{YTktl{1Zzpia?(-f!FPIw_JG~3bv?dSP`W*B|Vy>LAulpi?
zp?nH2O2#%`{ye%1%v5)-$4j8^!wrG|dt6bHQ_rV6Y9*l?czC_edkZn^c;&bo-8KC}
zauT~^?|E90OuV3i=-2SJ|Jd0QRUOD1TOX`9+=VeuL`4#eq&1r+lKnc?5ppo2McH~W
z8Q@jt=)dzKq^LH?kKI(B_lwzr3p^s~lXG=Bh5zFJG1L@P2m(&=n8P!uN|FMlhPPgk
z{#q7e8A?IsVsN56`vp1;#{hk}p}46lXgFC^ZmvRlF9YtZOW=V~)C!adzDqvgbR)8?
z!R)SS>oI6-udm^2U$1RFTlla>o_(BI*b&&5TierK7r*Z1XX__A+_ME$XVSkQqA*+^
z5gQ)LaL@(u?}))dcJLBys|4cy^BLrA7@y73{hjU=teQgEV6&qjpbD3xgPzrllMI$^
zhk;W~zR&7S)hGO+n0Xe?Ne!CXw<iR;N**Q^;3kVNmww-Z?|@RE+kPb!L1Qoj$LjyR
z$SQjGpy?h=+2I#fxY8nVLY_tFFY(j|vGr6Vb6cWnK6!9E2&DTc-=l}V^+il4DR=a<
z&cWZgCe11R4c}$6j$?FvdouPCOXtV0)G!KGM<?L=oh2}#PklZjQDypp@+yJ&B2Z@h
zphX3jm+pIkN?=M>&hKoiY5q}XE1VChB>13n7;0&F<`m&v@X@l3RT?I3%eJHl_(j<&
zAkyt!-V1TAs2aMk$ay$F_J8uT7ivu(eo`ZC6;ky7`}jdM_~7Y`t!jSe_o}3oshJfn
zHMKuN=KWf?e6dvjP`~WY1;sUe@ZNXaN_$a$m!$lN6Ry1IsLx+?U)Ybo@K5kpzN~&+
zzwF@rxOujG^Yt%Jr=M}|vll-4rQm=USE?_+((b_*oqau6r$+yHn%#f?!^3x(_dzYy
zC-+{db@7t6s+VNUMBdT<*)8U%pek%|xxINIJ)|JAuALs?Em~8xJP0|JG%UhRhjl1A
z7Q>vssPyuxnPrpmX+P}ecMfm0Do(k7zWM3!zviIU7dPr=Be@#fU#(AXfrkt04U$xI
z#fQ0cY+b$RTl2PzGXJhC7iOi@<{=;rT^x?E3wFT;S%>`<ZcOXRt=)pGG+fg*_kn*@
z;r<Oz?^0ZjH*YQTJ#dh?d10%({pE<0U%q{zpGxpCUKL*(r1D7;ugqfgrPWL69C~fE
zYVbo<%5j+-Zjm)xsle@eEC2b~Or>Di2-TfhgDl3k403Hfv8hLd5C3unPXTG#<b(vM
z62C{}^y?Eo(m71OIs?;Gx@vi{`HfFcy66XU&?3lHN=u~=k3vusylH@S2OzGu4Q5~l
z0l!~e3(r}?w1PZ~<QKh*yVCNElEMMxMD{YjI^vB;WqvPSNk3|SS6V$Uth-%GNFZ^j
zG6l=nd*DR?coxq=FWw?Q)GQzbzUpz+x_I<@ZAenr8ZPlp@t=SvuV(8&?Z(0C_5D?w
zQ#~fueXJZhJQ`n!ZGVw~JpNlEL5ki2mQb@Fffcwrvij?#ezMJ8tsz>Slp?6c)+~N$
zWL<y9Yr5!fueP>>fWcj<4_mJuGjBTA^g8tE9%J8l_k3RoWc`*TU4gq*!U_EbR#!b=
znOebLWL=cC$8fpgn-g(t1yOg5_*?VBbtG8WuQAjvT;E%8gvumX-&E8~?v}Q;C|lKT
zm9lSrH{O?~*20ml&i6EXH5R%82R~xv%5O+iZSe^3U{GBNZ^rtRJI8tLYa8-=RA97j
z@(OFwT_S|&vNwiavlBLpz-&LNEZfGjImK{;-J;bIFjYF8su1Ju1y#u21pIvg_TeM!
zL*FVQSwaM1Y6t0G9?eW}xPFE$Y%m5|qRc5rd2N1`og9VU)#ZTC-6~XHxI{eu%UM)J
z3nP8@v4{RgZ>y#4i|u^T`P_HCWX38~sckCyfZzKcvs&2Zf4)!e{+);Q|2YltXVtof
z=!QERdgV!$g~Ap{+#<dV@v8MB-v{Mc0~7Zr9){n%HU1EsaH(j#GDtA^uD_sf#PRWg
zyQ^#9y&|f<_LJrsD8pTXoA5HDg3ojPA3AJvB05d5mu?%MRUfd*1#$=1*_<^HtkxLR
z30Y_Wcmdx$k8N{jhkf%xuU{4CUA(egU&+uUbb?`@k3TD>*Kn=WFW>E|=Ytq-|CXK4
z?AW>E*v0^C9~@XVXU@RnpdG|;vrW`nf1CgQKi{0#4?g?H^bZBZfzXu4zPYo*xp}cS
zj3flFyuVaW5*X@rqG8{hzBTQn-z$$SH-3ozqK(nx#b3xT46F%=`C_Q-8t^VKCU1Kw
zG(Zvyb@pq4+p?-^x1_i{D=N=YbMx;XHdbE>^i95%W$~TLG>uoEz#u1}6X-w1vFheE
zu69;x2Llpr81qX<>=QtYlnz$=E@|k8?WV<0Wg&?CZtl$=cbFDIyp&c^7}x>dgx|Ea
zz1_5F!sGLgd(4}%vU%&c-)B*V4BT11+3hPM5#?w5ps&LQ5W}6bb(7QqOY2l)R~KYy
z2>Em-b4U`Z0e0=m^=Ai|0AM%|$#>(Uk#d76y)&#_Ti3!{OpSbXYs8q@5nzfj=u7|I
z&me|-6K*9cJcz@cfb$OGYIdS$7DaoUUX4!g6*_xBE?^uM9Vw}*VF~qS1&??w^T%r1
z5C5a-c><BEnx#}WvPf6%SO^@cLCC_Vm268;Yj2Wte33ZN$OreVubRFvU9|xN0C$Mh
zW9{?(3*EFBLT0jz<P`5-=$YScd@nBs@6cCA+v-b7o9IwUSyOsjeem{bun)UBgfvYS
zwogL)u^rQ~CP%F46t?3uG@0MA9%=F{UftBNY%0ex3^nIlhU=Dr+-BbiRU&feO6L#I
z9s3KRLy?oZ3$8@%^Vjx0f$pw*vF3SjdGGStXyEK`6~^BosM7eA|7`g3+NXdGMz9Lg
zK7JHiZ3eFaYL7+lSryophfm!{V_5N*{wivqDWdMKI0I=%m3inzdeYmR#j|qilw3L*
z&;X)^@EBEZxbAyBDV*h^&}!?a`u&RG8nqEoxmsc#MS~Il3-`Z&Ki~xDT9wLvk5AX%
zq15n@%0(Lu4{<DnLkY<Iz809c!!OBl6TqLvyC+B8ih(+{lyUcOl<%DXI?{$ZXQve-
zI;G+1_lqj1|0nxoVPgZp0Qz>7y5H^5^f#)d)lFk<*=fZV$PtR0Nc;C(`O1ZRgACa;
z4!O|d0(ChCjUIB^kdPI-<x$0va-_!D3b#&!KfcjkSc{L$fJzsa<8dr#kODKse5aqz
zM@ue0t8L0{!i%_eH%&mzd!rPMb@FS10g0New0Cpt&ogd`#pjsJb7Ju=@l2CnMIq9;
zfgIFt>pm1wZEWD9`d&|NBse$%r>U-5<f9|6@W=;{I^d&v@1bt}7tenEEHSq7+gSTN
z@C?9NB5v_@6~2`Y)zuvv^aCFgNim{+wR4!VFTRgBg)F<JhNc_|Y^yug;+iTgG11wE
za}J<vQEK`<KE(+sRn1D|^Jx0}UI}X*E&hO`RjYBf2K>$z;H8~HT2YxUDzm13QNPcr
zOkgQ8q5)Tu6xcs9V<OM(m)id_m%wn^F;w`5jmn_Z4t$)IJZ?C3YsLi8<2rtZQ7g@2
zI<7s}d`g&$H}F@=z*~T*n!;T47ffLC9^*@rD9@Jb2^;9jh|A4(;?E2&2opHZmSgYy
zepm@6T;)({dKVRZ2e?#GOSVO0htd}tmn?)A=CA<+{?Vx?lJCG>z-g|l7WwJOF&^b$
zY4oPQf!a}6I~SZQyB~}fPGijbpnVwg`go!D$bGON?0&#p+@Eczhx&63^KHc*d-41{
zLqF7?W2iS3yXN0-GC~V-;7MpG7g-0RKu-FTb@NeO$G*`^&~$X4q9e5K=bikhsqf16
z_n^zO&*=L=bRh4_sa##ZD4ibrVfyt4!G^5k#pb=xo<j5PP?qORb}q+`umE1^zmYlE
z!TN7xKdf&G$r+`MG3k86yuxQLsC~*{-y~qq6kyq1-@OXFhf2M%1SWY-n-Kd!KIX(y
zZ8GSrJ;nc>YWS!F5_P!mg;#GkVQzh6{^tJ#^U%dx4HrNs(J6JH4r{eOknyCpU647$
z?KT=Tp<ae{VywY$mq{fq&v)TqpvGX*CzPSV+AYd0VCNXtOXuiMaP?E!sD@p~OR*mm
z6tTNLc?-l0QOjq|)~|ha+`YwX))r&0CO2)Tm;N((mV9&k{;ZbXKdyXAKOp<jygNel
zho_$o+|MkzfW`ds=z|6NQf=qEhv||!QN8|Nes7@HqO?3PdP&Cl?R>Co#2p`-Dq7=T
z^RN()J(G!3Kc0koSDBW*4b*Z?)c2Ys3BUBYn)lx9zV$mJb=P9-d(mjW_QJcy*!Pvg
zmH=EpqrYZ_wwX0*&pSxupUNR~<1+khCS5@hFVFX1=tXv5`)iAP>jhq(=V`?-7W98U
zbZqC2XP()zd*aUHKA4xr8=1Xue0=s&;2PGIs`<Dl*N{6A*Ol$Qjuk8`|3|VkZerO8
zF-`+6`+*Z03g|bsJX*)K;zcokfBo^2$y`!GUh4z;1fYo1zx?CYd9rvnA3wuKb7UEp
zZ23jc6}qFf&FcbthZjwa`aArk#-*EE(bWxR5yuzcf_tiCvT!o#Gc)P=*_d*S57@7(
zwPGG%o$0f362-uOrz?BzELLHV0@tW_Ol4-%>1u^|W`lX{WPW0P2#p;t=fy4G%h=6y
zp$JY^?46C=jT}&J&xp0NO69k-O*M3lZ2F|j;Wz>K#lbFM27<GE+D)x9vQpkc&1#xk
z!}pSIE~#u|!1LA}+ux0B8FL2_f9p_c?-<n8I1_9H3a@=oXxrbMS9Ys(sI8IKXXf%t
z&yJ~n@vrfEsr4d}zD288J2t`G>_TiZ`FZ;>=1aNyb<Nr2L00K&y-ghkGkYmE23@E-
z*{pr@%F)l~VfPIj_Dn&RWXkf%?dMTin*Fo=R!>Y5@KRA){oW<^PWI}@<=CqQnUrwq
z7kP2l0kyXw*aZI6(#($nX+^a(iNq-V|1GbSAFZ9!R$i%0wg=-H(#W2VzH;CMYOmx}
zbIhVAx+$oE4VfhaIrT~|9s2q6M|Oo<Cb0S~h_3K#5-U{gt3IPV<4X!T5@Vm!;!t$g
z$YpBWMn%-9G8#S{GR#3}V*XB?>H5LPdM%3fIyv}E$sgRy+gt6gwlK|*(iA#4n3Yme
z>%%Ma@5nZu!x#h2y%Yt5vVw4FAj{40qGPjl1nil@EDGW0`RAd{A>{UwZ#xa4^wi9#
zPS{~-DcMtW`J=Oyj>h>Sk?$_<FEY-)`Kg=yNS+}-*!pPEQ;$V+nY7*4r3#3wAk&4K
z_0<POg>V7zQI2+XNbbnlzGUQlv;Bx1%wu8kFoJ$S6?~tJ!=5S3q-?Z&ayw~#ad9@b
zII9@DiOdGRGWzQUk&JpXDZc0RGsM`+2hsL%x2Oq`OH=lAWsknMaNcXtNPO8g&gE8h
zS&fWxeHLRP5U!dNYjF4b$z~Z{&#Ce=VTV|^x;!XuAM4p$t~#`ZBz;sx<$iuyp4QXi
zL&o1jwSZJW(P-mZRQ(4pvTDt?vr(NmRxcH<+I+elrqfBAJm6B4SL<Gs&6)|T>@EI)
zy;X%mYrvo5^X~p*SEC$l1HUp5TweSpz5Kf;yQvuJA9*j<GMf=3te}L<+gJYm3rz`)
zwA=pJmrDbq-lW}~+=9bi&CkM2MLxNRo6+*Y`vQQDl-^HQNa%a;q|u#w`WeJMrN{A<
zHFUAk>HOV?s%h@45u2%GJ&k<8_G~F`;OK@?zBU+i%)*kU%5=qMnk^DDw7k|vT)t4b
z(Bj4=E~-lB=gf&ecuU%q3$53jI&K3?#b!N9HNOrQG_ddFTYt6}4j^fOLo0BW<1JD7
zjQ~nXwh}wBp<2&8+22{F_Kucd!GwTp`-_4Yx+6K6S($nq5w^saa%2rMRhtEoG$o`8
ziU~jeO=%*q!ZK?@C%xzw7+L?Uw460hf8Ks*rbj%h4hCM@M&E0o>6X2UR@Z1#&jymd
zJPr7YZ^FQsPd{1Um0dN!s<Yoyu<H|a+LU2{uTuANb`;Ks`~A@+8)%L9*AS5uIGGe-
z^5s^Y#<#k9TV9sM&!Z!RlYjkDO*{14Xl|{BPkD_%L`Y%41`v}1RRb?WUra}(dXEht
zIhDPk<SZ}U`d=a=GCEpOR}cR$s@G8B_qPTyXCHBnl=E&EC-ps#eX`f57_3o^+7xjs
z>WDudwVKe*wl&Xd<Oj%NyFww26hc!L2Fs<=@Z&*&lpVv1lI!<xoFTQ?^`?l^hf$=$
zdWS~-3{#;CM{7%6<-nN;Yt2ysp|32z>4!U{qYJKpAUpL!($52iR2<vHr3U3>ZOWV&
zmm@IJ$xBTHwx#cs3Z&7F5ARb&En6q=OhFr8UNkF*_G(THMnhK?;ovRMl2XHFIsE`J
zGzyCjEdF7kGEK|*bj@EtuPM){YIw3?BP0J~in{1Z2uwnZh8{To^!}&yU!_;BWk?sV
z>hA!2AMUp+d%h-_y>XPooJPxT>lv$7R^w&R?{O>oTUF1KQ7LBFC6${Ux48Vv=ufhe
zd*EeNMJP|*u?3=BLT?y#&dx0DKITUt+{)o59f+&N)QNBO<o<rIp0)px4tUilVTnmv
z9~B67e*U?I!E0=R(F<$jMk!`->f^&gkEhMrP%p!D41)LFe)<Nryy`g7CkyL3taPGl
zPInG1&5W|xq6YHSlh-l6QlYv|IpzVB4b-YtdYRFiVnexMC-@~pNXDtL7{>oHi}+Xm
z+TvQ<Y*^DWF)A}h_Do4Ottoyjr-ba&7T9s+Ww}PdKmvaC#0H&GLfc*8<);^<fWMMP
zNn#yate0<t#<vmK>7Ft!%Ut{*We-B2O;IY_6;h>1siV_qCXTf7@*~PlXEAsi;CqUX
zQBqD<%8VQu?QfM)DN#l%DPlTda!*Q%qnOQclzq%5ZX1WT>E&X!NEapnI$#=*8hX4T
z!%)8h;k(NIK6~v(Niw}y$Dz@_l{1uOGHWHJnQo1=R)?cCKp>aiG1ZbdlyuW~Gop-O
zBy|4-pW1mu-%_kaBv@z8Op3p3Av5FM^9LQuo;sD3e)n5YXsq?Xc~|y7Z79sDsHYcJ
z_qA775%+xge|m0RPpaG^pRu-!E&cfW<SygCt)30BfWAYa?)SU3{aq@9%v!Z*K+mMI
z%}ho>6%93+%ij87W|#7X_n!%o!1q(qivkkfe)ZX7!FclC*1gc)*0u3u?}1}i@ph8n
zVg%#DNa$vWW)Wj*z&PzV)J}171+cnB&M>0>Q@{rk5y|6@!4Pa8F?$sB!lEbA)~4%C
zHf0!aOapZR_;1)>=ZBw$p7bp{S%D$1qLi}M(gIX&-hI)KA`AYIM*5tLKELfZpTAq#
ztpGO}u+(c!@ukpf$}`ao*&F@@KC16t59_%{NK!~hi%3lJ`nW(0hxq3PTORSmRxhm4
z88t<VQ?p)7N}mQkrf>Q#488!uG3ZT>R8RQv3=D=()l2@x&Sgn|`Oe}Jf~~Y;sFor-
zi+-3VR-5zl6zF9XQBOY^Xv!iPSao5Z)WSiuP5^QTjZygLh9f%)oq==Ft4vTRD9J9X
z#0&mII`>xH(s+OnwVqUu>3XK%{qL?q94JnC!}Y*<xZuk7R}TKq2(|z$58*MTaYrQ!
z=1}}nIobb|PD=4_JZP(wDjF54e!oZ6-=YNnr6W<R*wF2{un>pCZU1;VhU#T+S>k2W
zik5%89fzxEyrqM?#nwpFujhWtU`ZlPL*fXF@iEW<sur2L-yc->wa8WKX1TgA=vVhQ
z%T%u@obEI;Db4J3E9PiC5tN4vx!qAv0T{aE`hI^v-`6EKlzjDJvG)GTSCy~s`AJK>
z`g@@vm-<`n@046P5wERF#K9fFTGus8LTPlk`#9F7Nw;CbIv5*p(9Lul#75{OJ&9s$
zbGC68H5aiYu8>Ml*C4Z68`Qi8g-7ZJY}#dg(vZ^9>vmguh7|gwj~ySwNrMV=kK1kO
z9a8F(E<buz!S*}ZU(Wv0$!2@^%0o2`_T<^WIM{4I$h^>=YrZ7R!5aiCWWEPTN+fxu
zMRIDWQs4E&e1=x!K=!_5r#A|(V&1S+e$K7R*Oq03!=J|D)eS}J-Qw&V<k9*Q<lTBY
z@G*~yeWgz&3Kjh3g8#*bF2-N|*C~0E$-F9Yf~ObLcOgFXN_@e!H&w7w{GacfUMsoI
zWZaTCkAbZWL>{(n<uikYbU^^`JSs|BKUVVB60?WbJ-&=}WXkNc>B27bhx?y46lF3_
zu{v(#sVUPON^69dK<j3I$8f14)=wNt_ETpv@WazBiWnH_Wq2vE7xlb_$hIPNAhA-@
z_O`3X#Xj6{-$K_GR;_wKeER`14*s@AyXj6y;;1A3BcC1d9f>F+Nj9i`@VXOu1Rweg
zI0B|djj&l}leGSrTo1n_?iVy#IC$r0Y|gC;C&$8X>=(ZT*C+odX|>6O%?%nb1Ms%D
z^p^XJd}<S$u?5$lagsgs?EAM{Nr<bZJIGs9=LA{A`*j}7hU>AGs;|RZrelSmIOu+}
z5$exHCZVAm<60P1=g$-xvh{%3mJe_A7v$>aL-jfO0pB2t!pP+~5GFtW^yyq(Jrbbg
zi*!yV(3tfc)^q||gB}Jsm<0~y9@0njOK%*!1KnA4L%%e9P`@8M$IyvA22+{eviaWp
zi#0fBsLEh43-h@k6ProffGH^2@T;8Pr+q7t<f*s2npsar3izcavxCn7bakiIpHZBp
z8v)lC);Rac!bBrkT(zHQU~3SgUa?mBV$v^gkag~{E+xSdM3p9aeYF5201Q;f;uc=;
z7<xpuNF*3g51R<?(cNmS02OT!O}k`^pTIiHAkQ1qDD<#OXk@N<;forvNgij213DSg
zZ-;Zp;1$`Ng!5einNAw0VJMKe_^lV_7?^yG5msotu^`U^c0|mSgdoCHFReEWDhHQ<
zSL)@Xp+9b_@YuOFPtyqrTK`J;$oFViIo#^2`vcT=WR4~+4kRtk94&jhgjj|nmVgqj
zj0jSIn(h;?o$7w6rW*KDuVuvqOj<^m?A>Z!Ef!l=Z|%)a+lc?68`0>O12~-Y2pG?~
zG3|?VTo5{kE$k4~XWt=J4e&HKRz6aXh!l4+eKE3R5}wRq=gq}9?2>LN9-r<uV_Glt
zOfE+1-&#%+b4Fw^yE|sM*4EoqA%DSv1v*S6Bys4b?`BjP{Tzh6D*U#DKxms&RlXT@
zjO*6uh#a|I$7X*h#U559`=1o@wadA-E<dx>1}eZ0tLuWk;005xnTfm&?c%^qb;}o)
zUftTH1iTen_x9>?{)Y6j$lbo!0QeTC%&j6b&RmT)?KXiJ?(H>x8`B0@;FqO$^ZAEN
zn(P1ENUb#k{mE)CYD^3FyIgS3m^w=n_Jj{LTkWWf&_7#?FUPOWtP8ZYhoSjlsIB>?
z&)?b{f#ye`)^;FS8-x~&OzidTtno#>sE9k_g}mXKo&LQO3q}T^KLFcoA#_gcCbk(8
z$f|K~FgWftu1Xk)ZDRKgXd&{gdd#`B)y(M&>D20wj@@T&bu1lIgG7_Bw5o1*l)rAz
z0N()q)`^(`<#3%^#`eq6NHTiBd%J99;aqmf{|eKp8ZNB=2E%j<QIZB1LfAq<XsNNw
zGvC9KzNZ9rK}`a<NV{N0TSSHMd}N_rDdGF>K&EtmlT$B_hq!!Bln^OT8qVJMz1V7n
z6|fU29loXb`~pGtB3-79fgtqwQI@v?Tp|(hG!<cubOSQ!_Mt!4%olCRwnLn_<x*;s
zKg-KpYu~1<kD(eEAPbN-iqs88B|jQaYiU=iDJ+N17oABd)PIo3Co!tgr4t5j*G{8>
z5m2`F&HevpT#E62mBA3Psx{sd_PlT{_@~%_6A?eN4XW-Wvgv^`0n1fZoO1dFBKr!Z
z(yGWgLC|@t3TF9eMvjK`M=9lmw*<7->PvU~(Yb|Re3b6v2&&yO-YnNpb;CPlVGtGi
z1-8L6-l}bI5AjBXauTc~UNdFsSprOn35=7H+{p*PZX}{+(w?ro;;Y9c>5cZ3CRErX
zlbBU?)enIH)O4PB?NsMWHA#5s)NA;jQoWrIkD*rnidtzH<A;ebepXWRuSw1LS$=RF
z5N?yq_k()a%?Op4Rdj6s8Q^<@OE%Yf4Qj#`h+?Q7Z1t#8opb!ES6AyhY|YYG>JFJ#
z5*s_({ahl?ky`><L_?|X{2VAWh!HyafA1H<saq>8{&sxpi%H?BbrA59w)*Hgx}ID4
zPMPC22O?UKm;J}F_%mqw4qft2giXW!nwbk=B@B4&>{R{V>Vywns9MF{oUMnL3Ha@_
zdVj%0=)QFx=povn3VYU&MGw-24jqr?f+b_n37J(yC+qS`=k5Ixo`eT@R<(j;+Kof6
zC7G(eK-29+u7S%NHkDm7XWbECN=+aGP&Fx({a&A<CZ$S^N$2y*DpauE+#Cp+Tl6~M
zg8}%D1Na(HJXIC~qfj_0MmyS)|4Bx(56WxF|EQr~YlPlM>Wh<WlA^$PjK|43aQspV
zaFUJ$<=u4>WlQJ6A)kCWrWR7II82f*xgF^IzL(frVjg7!B6dX+bBcAvAQezH$d$dG
zpr*T7B+oD{Fr(%{*9DD;UD{DAQ^0a-t&flMt!F44k$Avf5AcBWf>J!KF+x6gf08$8
zmyJiy96EX7-6i0!!u7RvEL4z*OV%4b7Ak>0qlc~6Ntj|JS|iIF#2DNKuA&M3oc;xX
zO*(A9PS0G&+!=ZJ(ZSs#-t5bKHTa6$i(ZF<=KL8xs=MKGqxV%nfJ-_wJE?De>jKt1
z>Uv~YLRls%&+3YLq)w?jIo#YT&8zEm7j&UJwF@TKj3gfdp90p}nWIkOqKJ*KoYn7i
zh`ltD39e8{ViHw_2`18o{;(j|QE5JFtr+Fb4$h8^+UaUxI#5>WOV%906kj}ArY8jP
z9+gYkB~c2#KF8p%?+@YB_F9jeZ1~D?@@GK_&H;D;)m?0m(Bg)4n9&+i8aTcxkxeO)
z24+K^lvul4D~;B2Rc5)>qNd#bK#=#zo;+fq1c!WpADbr3DE8*o3TOtJe3B;9gu$Bg
zc)Kc5U`kJ}CH22PkKWUt@J6F?R$<gtn@TfH(ugkn80dePIU8rv;ye@y+v{R;d;8Cv
zS}vH5nZPR0y;@&$bE+-747*~@Djl#Wvq(SC!MskKQ*K_R|3G3{*u2YMg<F9w%Wea;
z#o0XLHve^dM)~VN-LwXGZ@*BwvPf(|t<veZ9M<Hj%&w+*c{QeQmrb%b|9N5zC~?us
z(oV9VoZ@9UeKatb0Of!`#fy`$J8apfDSn4yp}Y9)d3jm?7Hky!T3P(o{6&|U{Bx*l
zOCNeXBj>-uaqk^GeqP6y6p}5HHF*5vwT}A#MCz_`H;Pqf3SO4*{Yh@rE{i!xpXuo#
z%F_6HZEBl2^70OuM-uHcK}j++^yZczXdD08zS3_F%X}JMhef^bPi9WLS3}Q9E+T=N
zT7BtrfdceTI~_5pq|Oo4cK3*o&8FAvbbBNccL$wto-xnB!IWDy*kOqef1UKvE#)n5
z@)i(=TqC*Dcc;cV1efdkQ8`SkL~=*}e+a2qsJ4+Sk)k<t)6h&SgEeT}^S1x#axk?P
zcw35o_U6PZHvnDK#zsleFMwn@<@y{6a={9BF7;v>UM6sP@(`W8<O@NbJlHu8`HWcr
z6IiSORx!(`l^AZL$#84J)Jami46So(yXNbM0)8#54N3z8;4_(AAF;EBk9u))b}T14
zCvo1I_LiXH{Tuj(+)$=2zpbDv!|1SD1!-?t&w~_d+_>ZS*SF<DZ+o+y_lqhDFV))*
z#){lUQOCjhONA9h_p_b#CuZavJ_#9jT#Lt_mDEbz(%NSwpa?JzunN9;IaDQQ8gX0c
z+JrJ-(@8=Oxm08kNjXl!r`L$>3{_$<;uZ;9UqH)jK18btcW^)q=ktqFIw~R4)XzKb
zt?`9LDXoN8^h*A*v#39Q@WkbJa7FjC9re%8$eBGY3~m215&xg0PYTA4tbZ@haX-7@
zgK~S0qp*c^y`a;w#&0{F8!bPU7s_vBb}R;q0nFw1@@xab9Kx&{?|lA8bd<!O2eIe%
zk%Au-udo||1*n;XHq09w+%RVnRc))DM9mcH`+1X4O<^e5R#%tYU6<SzzZ(d)#_N;2
z>yumSKvCoQ^Jy+Ns~>X;pjvKlifZei$*SGEd{6g)#!YS(lKpECi?QCZdc*9#SB=Qs
zcmKD3$3)5QGWAe&9)0_Qy6%3s%^y&kR1syU{^4D+TP$5<mB&C1*3$x4`-8zXL3t>4
zNz1J{JCV`RN8w(7XkYCHzXrGPSG=3#q6$N;W2mu0b3s~bLr;ilBiwxdzZMm>f6R$&
z>g_dcp5p*keYw}bn&q2azcLh5VYZK%kM{<t#X0PRSECx%iT!K*g&Q&#t=!z}o#lZy
zwYS4tXZgX_lcUd~>(1bQ_D9`_!qZBG-(2%*r04e@hfk>2`842vK)!f7$IuYSC@#(r
z*!%`3E`S&Uwv(psP4_PiO%mZYhAM7z2qRt!@B)E(4$J1=UhAd>&Y-e7$+w4aB|Y5L
zlhImeMnhwrW7XSpsp&4<UWD0Jh+c*%T0Xq7&VK_d+^1}T-p?tx8j!mjQFa_p-G9!u
zCpTJtJU3L($n02j$nC`%=g#p3)MPa`^La5<JR80oerx#7`^!6L)%INSU6KP#<CJ}C
z02PhrudMM~nO6UrbE)UR!JTDh%f<ua-yz>Eaap=5Rd#Lrc%sLzxA{E^qsAwS!1++X
z9iqG2v~j{IIL#X~1<r0?y|1-Dy=_UrFDGwVsAB;%x&knmvRw_!<%<4Y-1N8hUZF*<
z7nND^9QsRXm<{{aCE=@`?3^R!v|p$;(D$!f>OwJQo2XxJRBmJndGs!{j!&}?M17n2
z^G(`N&pNW*$z*(Qh~JWWQl_I%6`AhBRZ2FU`pcEpnab&V+$q^7W2R(mlN?=?>|(wc
zFd9#q(|ZEi)s3m*=iBd2PHO5&aGASYE1Zlw-kj5mzt((MvHa(R;O*X&iU`u)vYe-;
z1*b{+4db$!&kvJH-VCDH^<MYA?hmLvRiYIvJazrFIAoJqT6}gmq9xhM`t-t$tnQh+
z*N-tayM29BBz-Ct&9$-0zupo=ufT_9*!~RBIH9hYolbdwof`O<=R6HE18si{we*VE
z(rF0vmn75@B9Sa>=xbLUrIA0@Gyxxz3*VgvXZBLfrP1_zb=zC^9W|%DEGqu6p~#o!
zEct*lZ5E}zY(5II2~R0?e`C=Z-W<o}JleM_nVrt-*6U7Y=gyC5d8e}--i$(OI=ODk
z)9C0Yo=>fxdPYA1w*Wz`bYE4O2~8H5I5fJBri7JJ<(4Y)B#Uw7GMVNt7xCO>>1@*0
z8fe=yVzxvVApsxL^9B`4aG(!tS6)Or4?uO(EAcC5i=sjuT(9AFDiaq<?|8WULrJUM
z|DPZBN!_QQ94?&Bwd>ZUmj2wF?#kbh=3+kZPj5~!<Sj}yp!WhFv$p1|V;wu7qa8aF
zU)4OYe}Z8+i=pjfhvQ#JtH0Pbb_6O`GccdrBJ#?2SE9&|zWXS_OwkEs`paqXO3pOA
z1)iP;Cfbf9iw45^n<huyf&sspkNc`7$$Y|dBFS3USQd&c>h}qT18M;_d2W(<$Icm;
zS^<xLyojf3@rTt7WTCbt<`Fe0(K{RYzE{9C;?a=@zUfb<eYma`NVHA{2#IEAe9AW^
zxea4P@V%^^?VUa{?Vdh5?R{!QALc4l4t{#-M!4PV@wQvT9=&xm%6Um`trv6380shr
z(P0fCdez9!YE;o*xd+vC5`)L}{=<(SoB=pq!Vme4&sM>HKPvE{^8GZs%ciKZ=<65R
zh!S<9MAaV-D*9Ta;I5VmY4Hb;R+ZAy8t_|MG_X7_k~hsTwZA`6@*SB?!#zGljZ)U{
z^C(USE~sgVB~4wdUjN2jok1a~2$f2XKG^xM<FG@nqcE8|7N9T+AMSrLfMk+}2#e-~
zO6wyu;y#hmr?fGXpdMv;XR1+kd3F{*oLIK8zigu@Y_9_OfWB3#=nICl{q0gM&se#r
z(N|1Rc^&E2d&;jNzb}B0&ihbVZUWF;Ej&_Gbfgfyy{Kq=?~8T9j*+H=;qdw#7Ag_z
zUX)?W*opF1ozh{bitDGBq6`_UGEG@_qt)t^&W>_k(nz@lypLOIhdsjUK6?Knie84z
zYgq<<J)uW-J@8FGnD#x`mUaZ3tla`{8S)LChtE&ai?j3;Zb_&nu-XL$ck^)97n&uo
zAQwKJYu%WOS%11K4t&h-a*x1i|Gzg4n)|I13v`DI-`%=Mx#+f_+WXG2O%}Si?t-=x
zQG5O7GUoGEqlnma>1q3<(sT5@U6l5+=_pe+4eS|ty_&}Wjt5=NVVSZE0#MtysmNKT
zP3%$TqZYy2ssAUUrrp`C^E=+y(049FX4*dRI_=Ff_k*#tX{>24v=?hyA4~I|xc_F=
z7TX|kLcBeP&ur=Khi55Qy_t8u-2*4AqSTj7N9oz;smr8o+RRgQJ1&7FKw2kM)EN@(
z-Jw$K4}Il=Rc(dlw81N9ALQ9=iLZ>Qfiwd)f6lMgTZo?OS0du}2F3M{*<{1}B!e|!
zRjHhBI}4)qAO@uO_oe9alZwj|?3VBiMyqTd<bvvw!rWbruC%rFHjxKdquyk;O6Mwr
zkjid8&x>am$#k<&L^mZfBL}0IL_(Tbx{3M?U+@hz9;*cWZ^EYqPXyq+P+9ujHw`)_
z?u|<F3k-=e#^HO#tSWdTMuu@zvB*Y*##X~-1(OLIq_$teH6MJ$se9<;%0?P7pC2lM
zOB_{W`fA#Vm!&qng!uj0zax!RWskvM)pZ@+v$yL|UG2#4-GlNqdKo;iVg)=~CPQYY
zAA*nx;5J+L!I1bx9cH&yF^K@0YHjV*8sm^qsx+!;Fze#~$6_K)w7DgyGRz)YWOuC{
zEP2Tcz6Tu5l3zFWI@vOXRV${nMeq(S;=&hIat{b;2GY$_hA2zs?+iE<TB{J+;r1D1
zQg00tw60u#sT5^SgU)RKKyc%Eyd-aPVnx^xeja=aI2y%ZxW~?tDLpROV6|#0zk2-~
zTA(%mnRmYPE>0R@h{Hyss;-_7APc;i`e|yyRIlc09a@dTBJ^t-Vfm7ldC2x2lU8J-
z9DRo}yMk>Ma7L1v-g7gk{)UDIwJ;tKf)o2@QZ6{2(S$VS?LwK^JV{+txD}NEf2XQu
zN!$VkQCIglL=&3@e6H0?6Z-3FZIv%iXrS9=kC|M7Gr`Jheat0s<$5ve5SKC^CPH!<
zqT$njbCKVU2#hST3jsq-8ihqkFj0R<O_=M{9GxSaDs)h`zbomiVB3Y9nV@;Z&7}Dx
zQY+Lp!m`D!^N{V`CXfX*^*^_BSO4KA5DxF!N!WH$nkSYmGmk2f7~Op*z@f9l;urOp
z-P#GjRIRODxCR*#N@Ye34Pia^bms$sI@;J0ROx3AF0$GSoT${HeKV^r*q>2{c;=Nt
zso6M5T~wg5eGc&P8(BQah9d30r>S`<$;GVlGEE5qX6uY~V6Y=&G^yI3RGsmD9a(H`
zsm-%;ib!LYkoMDsdtq5Q3GD9Z!J3a;`GY`9<5eE-`0lp=N9u?LZPcd^Un<pGE8i|D
zD8m)J>lg7sTL?<Rtz4(&Pk!ajj(>g)a2e7@_sxc~+=I#SNOC;)Aec$4$YH9)Vf9EP
z!XTue(@RS3g63t-5et(rqv-GA(z{q(1xqCffz!r|w`qd2dU*TrP7pC>o+>fCoxNn6
z2GGW}543<bDPJX@khcnr>;ZDfqLpI#WF5%J?~#MeF>HfgA~6`)i7@zE4>J9vcch?%
zRlm}DkTQRs(&?P1>Z2T7VFmA(tDB5>CMS(|)s0knjqJ|AfMQrKh?J)os*P(@{Rnag
zv`kE#;toF@=7Neu?$FaA?#TrBDp9%FDNPFta9o0jz%3W1g{98TN;bEQ_7a~n!!P8Y
z{0sW)l!|bMpTmENRwgEt(w`*&>3Gw_>{As&iJzsHa#^ay%}iKWuFVtWX>kJA#VU}V
zk$0*^rEVa;^^M{ipiPrXe@fj@+>n>QrFaXB&Y2^tuA~0gT%6X)PwQyG{#ZwqR(F|#
z;G!+0SOuBS4WZp8<H@Wrj3JxyKbXbQSe8oGui$$_afJLu`Qq&~+VyhW&<{r3H{%>u
zF7i`qsmS59b6u5Zh6baR45YN|+R%ji_OYA$eem-?OQ|a@qyyV4J3cp+fBEM9N@C~d
z#_}&Orh+lsF9Kg2=3DyN`dYhNljx!uS;xWQj`V*ZpGiMsS;3;~WLB5hru~i<Wl6mC
z5rmD`|M5Fs$11%d_Ek;gDemwBupTqSJ$V9DtDV#=9Oi<rE)Ol#oV1d+C)}Q=J>36s
z*iYH!rW0LylBngdp0Yso$>V+TbHTckbDjBk<9x?8b1kZNuI4xxJfI)qL_>lxheI$L
z4GyvOdc_H6s$|A2Y%A;NjyV?F!f@C&e~#H<A2%l|-$S)<+~TVi_&B_XMj;FY*gVFb
znH1q<snlRo8gvc`;V<9EFTT~VKbY;E%QQi$+7Q%ftb+$M>>2bbJWB)Kxgrem1rdc(
z5Jn^v1^Gy+5Ja3r3<H&F;c^ujXbgs#LV)rjGWE_42jNatfo2BV#~~W&rj}ABF*hGu
z4w{`oqb5qy1U6_|IfG?RsLaV8v`C~&Q`#WQYh24~P)gfUu>48o(q<@cvV>1XyQ2?c
zVG?x@r@Scl>c9Ma>_~2I1MP#G7!v8w%*+OsYMC?Trs7hj+8=TXsa6A(Uh(Mj-*4_L
zBt>O%WmVDVpC^%NoKlS>VRO2y`WE50RNy(Eh}x?wz`Epy-QMcmL(TeqLxUSNf#!8S
z_lCx>dL*vo&^95-D;`w}5eq^q_3~j8omIN%dh#JD<r;1%KzNmw(0euGv(0gMj<~T&
zzA{qpT(Za<<akR8JkQn?8#9YOT~)s8gLlx>sR}2BHwt2i8y<N$e|=Dqz?=~?n!=tD
zTfK@bFHdZUV(g8{DBz*VvbQF|w)myv;_)T2B@^O_rQlNyp%}afz~0WL1~tP;+tB1N
z2q;|FL*zOrRHX2;xeFXs4>D$))QA=Vk!;Lc-NK@bkxJI2`sxjIn$o1zkjaS7yzPJ#
zoC3HuM%|v$3OwOmBJo!_T`;qvyq<uWjjG@A4ozT{2#B?JQwdawR|C2}_nJ^$5Z}Z9
zv+ZQ%^kd7<3XY-;oB>1@M%^C9QzGeAGVN{^w(`k?{B!Ti_GHw&|5v`)25VIw8@SMc
z8ECcsT}9|3k>dEbjo!9IPko1l_}afa#<I~&jTy2Yk}5Tbj9j)4EEI-Iy7?``|C8od
zeJ|`O8bHC|1wd`rvB)1@gyyB;xhAPVY?g9~<7z0cj>L88NZ)zHg{9SHC9dL%{LHI_
z56X+ry>qyhU-~SlKSb=R!Y&BQ)5-WbLN)QV%%dM?qgfg=%Jz&@p*2b=rTeN(y-^Rg
zTsz8|8w{`}j$Vlp#tkrGP8<ZU-H!tg8%iO1e}%~hg4O?#fQTr1YY}EE8od-#v=s0>
zfBytqPMDE@x~S-EVae$#mH+{ZF{}orxK`Sdp1Xxq+NA1Og_KfN5~KFApb6razDhk5
zbfjJ_FZl)>!(bo*RLgr$GeK`iFV`9(HYvsV*E?0YN>L|+dU&sP6?hQ?hr%8S!)B(^
zNi%-<@cVNZx>P3?iFM3U{3n}pDBxL)&Jyzrsg_4or6+mRnVR<m4XDcN@1RA(eY~Cm
z5=*Fj4!ndh#6w;Y&5qD$f?ZgIkbx`xm@t!#-I+PFXW@d^4`Dtj!&UtZwAeg0_cexq
zs}~VQ->fgp!gz2TgpcHb=?#^Y$zXg6UHiMRu=_gn_~?0wO(n!ddU%?xw+lpOr66<R
z3&VRd^H$?E${_|jYOoW^S}H4>%5Z*SWvJ>8Rsf66tq`Zx?Ym!E@(&PV-_wjI8$@#n
zGPY56L-RVNlS2OgeGrS)YxKB@f|0!Zk%EGe{Jar>*~;@zzv?@gfqjZ=)YM9jX5~)l
zM*3O^E!b`BT`>NNF|l51@PZ*s)f<%Mnl(AgQc-ohRafdPTHt`hPb-mlD@>4Z+G{pO
zB3`(E0F^X-J^Tb@?2$%CrYLT~(2Z1@O)R0=jTAZ^QK?-brrQvzC318kF$AO2xjM0^
z1R#XmP;El-88|y`CmEB>*R(lLUrvJ*pHo{=wc^qjUi22E6<wHd15CtJ>52zFs{OjG
z{NqCGwU;7iE|pOZh)81fLtHkt?3rB53oo}`dA)-9C)kY<9}^tn@$yq+qIg6QIi%qi
z{rTo4D%gUNag5TNnoE?~Wb{<qeT|;qg%bCGG3=mDBY&=<7OJR~Kc^nlfi`SJr(>Qh
zh(Sd$&Pf^nWKj%4#~3G-A)TGE4;@cN#~J%TDz@`b!xn_5zX$EB(i`e`x9vd~2n9-^
zAwUPi7QOa<MyY6d(*liF^UUy*HmLQ-7U47M5r4j12hiBcLqBd1+#??R;iv#iVb1}L
zg-qwyso3w5|GakuPyeKfW?%b0@HAVQiL7)-k>wka<)He|yz!X&dE=+;$DSn%bY80{
zeh&n@Hz-F)#kIuV60PDu^ViL&=HHv;2UK090yma)q%HTIT;eg*nQ!uP-vJ9S!sm(+
zVrF^S$K?;%#ocACJut!Ojd(;9n}N25{1f3IO$H8>RIZ{^ls2P4U^6Ny^a)($P7--%
zW#vvXX(uo`p4aMlFv8R7&%?&wwVK~y<9VGvML{AeQgpiWFw(FNr@P;S;Tf$emC?%M
z!}mDgu5;t>QO4uQzYYpV*2bX^{$V2iGnWs$Bf9ivRpajl`qAfKcG5Y1R@KBWrpm`u
zqr~h_n9`ep1Y}BTWjRV#lgNN7*qx0Jwlw&~cE;|flqW=qOeeyBzk0W9T{$yXgg1Q#
zm6*Zp^nJX2`hDD$`?MkF;V;S!ze367hA*6l1Jl}7+-dzZZ+aKd0I@mq^M-WH>9m6M
zwEPq$>-W6j1(OYICu>cPHIHC$H)I8$@{?0?(lQFuKH<He6>!$7$wTuqGyHroL!vE`
z(L35<6g9?`Gdo1BCw^%j<X>GA`9;AO{?A<5(0VuoYr=EfUD_~+J?0$$vAv8-bEn#|
zpM;eNswAAz=xFs|wtY~s;hDmUfP&vMp`9xEp^F$d2!Yxn^{qPPpYwmIGwZ+H{zC48
zjfTygi#nf)6=k+jG8=SRGt%?tXEsx^`)4osEt~36{{0)V=ii5JJ~6YNlG$+bjjTTP
z@x=m*_!><-Z|E+E$;nBbECeEG=C}f^%jt&3LKAkc(8oW<-{b7ASjS(Pgi1E#x7dro
z%oAM636bDuJH-a6>|`7CBoKKVexiS3VOUfarsd~=|EI*yx2#ac0oHa8#c4~DFK4SI
z`K1=%&$0?F(1B590<W~hH8M?Fcr*}Z{BG=ep~Jz`<FN$2L(%pExbI14DsuKhn=n+4
znW95cs+{E{E%9Fq@n3y8$y`NJGWBFml*W-#Io(j!;+!^ddfUClP{!i)Hfc^9_`=x|
zsE<q8ZX1(9emI5l5!dn8!6w+naze)xF;sAsP59pSsey8a5*Db1#{Osct$g7BV6C!1
zN-Nodnl<X^m7sNIx;6!*i)PQz&`kw~e!Y|N`<cdckW!<3VMf-O)!Ju&F_sJQSVAY>
zegq^tH$ANJiC5IE7&uy&+pKC_Z(^>>j`4`T(8|%V;7SLs=+?8%#^-a6dDEIe4iIb!
zI7+q-xR@}+_^p?7mW4p4hJMCZ{YRJOY&~|{#**3-J`)bS`<TCie^K`(4}FhWP8|@@
zjg&WxpjruFoEvp1^<K%U`W3^+8gm*%wd+jGRXNz>Cvz|V7XSCMnfrdz+2g&)^2Ztf
z)#1Rr1Dh>=x$+?kf%fe5k_~2LjKAt)wh7@IP&QvkmvatPbK+kx0AzaTj7EXQLuWP$
zZUqkP@G+iCSa$fC&&3~{h?13NQ5vK+=J%Ea;ypV>;5KDGES?WrBJsv?-O;DGe;y)s
ztOXq!;BUd%@#8Ebs)cv-lm8s5NBO{?Z)I8_wUuQ-DQ9ULNivsKC-*i|G<5YFyf+TQ
z1d9vS8(mTh0UQL{56Qq2eE9s*8O@nXdME?<D{78uK(*ibZM(MZWbM{n+MV0%TXz>b
z-hTu8q?oo7i~SK>{3E6{ApvJFM-LewnE4&&6d%H`<$y{IGMhIf;1=QN78?aKzinB>
zgfLl;e%@Br${cH^vV4N;hyEwdXwF>FUx-mB9!)G9%5$6NTZ5BD_Z)8$;!nQhfy&4}
z(W+S<+x$S2amuEebr-lH6|DZYB1|Ipt>^S~!bJP_@sH?W#q&#@nqx^oj@Kph*C14`
zj>w=R44RqgNyJR_pMJ(doEoc6;9xObLOCno;OzI(Ve!;=1|fy!VlY~_qXbeNQ*cqj
zv`gSkb|o0DQyPqHeWWX=J{_s7w3)-LDLfxr5K<b1P4zOE?jpaMnx8&y>(uLh@%?vA
zic>$ZcI$xQ@JKCaOd~wnnS*6wy)J3ic<zF%38}uQ<(xcsy?1AQQYIZ6a7r@A^X6xc
z%k=2hbD-F6;}H{{HK`bky60*kZY}r3U#jf&>p{^w@sGxPM)6s*7kZa-mj}%>gUGu_
zKR*f{vm68G#NI!wUtkiXmy}WU&KgZT2nDXM{Rq`_Oq)C8Z_>!EE?aHub8#2RBq!q!
z=Or&PP{C@zI!{;^myDWBiWAQBT5WUFD$_I&bT-9OwX#pFLxxrBM49W%{HUl+Ih(b0
zdpBRB>lN)F*;7uZ0LG$ZSu#jo`&?Qe3z5G_<d0j|=N_Kh{+k`ei!;C15a!4nWqP^y
z=QuJWe?0YtQL@>N3|!%c>;r*|wg<rhRp6p^V54lHOTVqYPQPWKd!sxMP`<xA^L6!W
zzQ4<s_e+fv+=hf~Q79yvO413Q(Kya)EQu**5h#yykvij$&OFoOHjfPHjYdVL5w{nw
zFMV)hQ7`@KE2;h>^YD?wfC()=C54KorO9Xc7v*8b1h{f0S=he}!mP_dMpieMIhO%M
zt=~2h)8JIHkmdu-D6!O6m{^{D8KOMHkivmgY~*!UmxIA55)~o0$LpNV>8H9Hv&W($
zLv`=hq<O*gQipNzbHi5ExCX*^w|}gw`xwkPuGkx&99{`8#uy;dNZ+@s-gG*=F3XxL
zLqC!if%&ItSIPJxGl7FnX(|yoUOzA&=CWgQDjGS+nrSKH>ij1+OSx7j8Qc-u?|-uP
znF0lY)RVfUx+Ur<NHZmPQ2<^_(N7+b^PqAA=xf2<IVa`;Ma#hZ#Eh$^8COBK$FC@^
zB<ul~kt!$s`v8>>E8wzv?ni7lRUxe8x|(<TqCivD#oU!|D`|oQS(`9z2Y*Y))Kis8
z%&Qa?oN9zH2sUTCZUs19lg9$Jgx#DN4U%s5#P+nUvyjqV5ub-ymvR)Ld*4=#_q#v)
zsI6px(MNyBmQ5=Tg1oxT0}oct1z2Un<v<SQ`oL@%&6^x!9nB9=SjM=H60q%V|8ieI
z+~GbbIOuJVxAlco$-5H}FdLOczWgX3(^=3^%5jK3^nSTsfJx*xmXr%@?d6j{yjM`T
zmODrj>)8`uv{d~dU91C>_v9IJF!k3hhgG1|Ft7+n6;-zS0-^HwY8e$xKnyIP(l#*h
zMhsF~%@<T>AQ-&Szyz-$jSfH7_XU&rg%9gDI>2jMI`YjtO97F=5F}gjZif1APA`9O
z5Wllg@62z(S1;k(i-wnihdyrqu=Bie@-rqC$#-)`&H?WB+chrCrzq*W%#-i_1cn$e
zpMvAtrvYBdc)i8Le-tu(C?gDPDl8_<0QmZ;k>3ibzU0-qBnyqgG|&M9e38j`Q6PAc
z!F&;2oK#*8iV>jvd=faPSWlzZGwA(vTK_`y_ob!ZqcNYBmVOFMT9<=IjtKU@7do;X
zD4O@jH_w%<h~@`012Z#RiUJJEoR33+k)s4OYBlWN-YnmSZrpz)cmy;xx2>2fwjuPs
zDQMH8R+-HzmKakRO_i@YUP-vH3e<kZ28?zS)U^lp8$fD8BdKN|{`@`+VMgwHG^QEg
z4GtkRCey}-lMFr-v+$2$fK$zlGYKiV>kF|{d4k>L0pg~mm)mO*Tm*s5i(rh`TK$^+
zVDCx*PQ3SLBYC6MPu6x6D}!nv+51u_=CF0*FRS{J%gU4cK<yyc+#%>Nb3yTDG{0I<
zZ(xZwTLdT))K(bP0HK+gUw?o`3y4L!6d{orVCK$r7<ADAW=vdepw{ANY{oZ0q!hY-
zTJ}^u#S|2kN0?Rp>Psh7CVX1`rwsS|J^gQh&$z0XaTWYNv*y<|m+CjwgX-GKwEhSN
z6D?>XGpzi?5j39HR>iOZ$zD}oa(P*DU)7g7F`J_kgIUw7Idz-rIIF>|<>_Ci+o+oY
zo4}!8F0PSNI@+5&ceI4VHM;&#9l~PUDTTa3N_#QpkO~MC0Z}Sx;}sAgeK!k63JXUH
z@*~d%{Ijg<`fU3C6qir*8(>nM)f`<`R%TvB7Sy+P-ufzVOm?(M{iSa1+<Ur4^=OU!
zOHp^XCIq!t3!g1Sv%*qz;ZkIX>K#Z*xm&okq=7-t0%+;>A{xD=5E=BBjJMNTGXkf4
zRQRlbXTXvimI^z3L$z&5ved*YT!+82rwf+F>84O}ZNvm#dzn{9yKX7M5>qSb8ENsV
z1Il{L1`6qr?7Y~UBOPZu+F^2;wmSJ<ZYH;CufKVMwVW(Y#aiE~vcEe1X{`kc%%}5G
zn!m6O=VViJLv2Q*4MHXZ7rSh%#%wRwC27-ntuc;}@@p+-XfebL%}fF{4JC=FWx#QJ
z5ok8_d0m3Su=xw2zTV#&hrG=nfuiB6K#g}^hf@|*)#ssq)3xpSnnYX2>KMx2SGCLb
z0N#%?A%rp@0>U7Sp<IIrw?R~x`>uFel0>T5P<6J6lSM%Yges$lU@KuuT2VnN`En6L
zBWx~4Lj*>2>s!d5^7)@v5^t}i|2b(*(b*Lqlit~edKgG%v62H1w-Q7Bikd-~-NEZ@
z>XS;!uESE_(FIFdki4g75ZRlDCe5pV6{bCMexElsQL_%MbU)}n?0uI+Spbx(x4)!4
zlzqqHej<BF`|@_~GQ~r@C;nPoNv0O9=qn{~83}8xAKE_Va6YzuXw7!iBIP0FGN$$x
zP$a3>d068^!tLzCS~Zkp(Hzo6gL4^-xxuLJ5Re!RpT2^lo9Jr=78JE`lZef@Zp}7a
z25E);F(B1mwq=vA120v{T71QmHIBOfM4CY3W=b{<qOYznGmSQi4i-`^D8XJMosN6q
z@=k0C{kk<9#64KeW!`Ygb&%FwkDupl=|fLs<ouUA?)k9-zZTrCwE3fOXgJa$cu&wW
z9ElkG5gX!HP+AO>Hz+E$1Qc*}=!hXQObGTzhfz~nH5i!IWguaVSYdWZtqO~RS9LB#
zv`Q@syO?*bif2)LCn2@ZlgRBk4!K$4`BGSm^>4iQ1{e**;^`*YuD4xrliLKUg!61r
zo}p)*PW>n5&wDAFi|1CaU%l@9str#J;<{Dq&yD)vo_hO*N3+@>m5(mG#EI^;Q})|B
zFhfv_F8?+DeS5`0Uy0sf!Nq_sG5_DV_It!XI&3q##pwycZJNNXp`_%L^lYiwWhO9k
zhI3p<ml}9mIpL4+@(aK5NBN8CD6MnT$yIf7ZeZN1amo%4Y}au_#^J(|rpTFXGi8^^
z)D$9&uX_KU`2VZWEbb^s$(iZdQqx8lql~JQ;0))ukS_IVZ=x9G{j<t+I;zNwT~Ec7
z+@PjqVP<QoX5=#xJQ5qRr;w6U(zB&yW;A^7S&^+XmyHtQXUi-^aLoeRPemxJJnuT<
zzsGwF$L$xvt&1#Uw`&$Fs^=2h*64+(J4;?|OT^5SvCLjtlwi*lS!UO?<dPcXl=N)b
zXC^RmhI3p<ml{a%BfQr7_$<v4F=LQ3kIPnmwlrBOu((+xosw2&gEp2)=Aqw6E2B=k
zU9*n%PDRcfhs$Rvt(PGi4DC#!jl-psg$TJqX2fw)a!Pu()a<g)%ny9UPkcjg)XyVL
z5HmuK`Se@UY%{dq5GlF6+=%_2l$@S6Lc_`kOL?=j-C(ATuu@m~5w(tljDn606+283
z8eax*%vsL27tuh%AK~R^e&zS_C({vXxxF<}U8g_lW?3tmnYQa_3gTcHk+hYJ$)*lF
z>la}~uEG(unuLsrjtvzJfq{Z!&T>9oY(O24vfPx3qC?y7AjfvCQd}}cMZ?6#LdhvU
zsxrgu?_>%Zjg~VZJ!q3NWvNJA+N9}3Se7or@85HVTS_a7?0-`}U{vUQ%5ZIpfCKs;
zkc){;A6Bthx^6@%+&#3KzINrRb|n3#*@hiZCz4JPF;T>_qSDw2{VqD(j_ZQ1o1Y+e
zV`-DRB{9e-=-9BwL}1{Uvz$*Cd-T0r-df%4RaWgSiijbKfeiNYLutxhxixr9{6zhC
zQ$DNH0HyJnhfUB-U3;f$9<uAZgN=+S4*Hp;G+qX+y)oU0Kr_GyECkl<7|OD_Sh8fv
z(&ZGW*kO-}@A;A+`8vW1a%d_qw>KI@2wjxnWtH)7u2lOOk&xMG9Ff0}kkQecf-UKG
z8DOEwEb$94(M0IK&4a4K0R-v6$nf`TpoH%`=;SzfFoyf*6T<xu0@jOI96itnJTYYf
zPKK1F1614$pak$RrUCIZv3MehOkr?y*uRQ61AusotCQ&Yn47@aO)%^KdbJsL*{=J#
z;}SM}8hp%cKBy+`&KsQ@^FGThJ4@3Y)zx}BxlkT@Fnst}UDyW{ii20%j*I`X|D}IS
zj=@W#E-#$Hvv$|qRksH)3CjW&*>+jwCEX2PzPJafc=50&OYlXz*Xetg!zUd+(Ke^@
zSG$YqboC!65Mb+qikEidXXwHIqpJNFZIHd~Dg{$e4G9t?n1VghF7}%AZj$4XQ}t9`
zji^p_s#BfneHs^8<21ZO_p1)wFFSPKQ1-5_2LtGid+3_0+Ls{xrmOX}p=w*O;gfQ<
z4NorjP?D^B-u5p2?q|dMy!I=lh7TkxudRC5=e#uHWKWseOZt8%s^6=fAMC9b`^bU5
z28FG|mkVKpBlX@<@^Z919V1uA3Q3&HBwUv-XFZeb!sIH*pVh9Bx5)yN+OddL@2;=Q
zb5uN!Kx9zq6ef*3u1vbcmmg#TkwK+f^cP<xWCD>vrBj%+l19t^>tFHUOd-WIQcXRT
zG*e4==_;kPN{e<q0;|_$R#iL?2t)>zZpn{W%KT6^dD)kI9a6>f2t)>zPGQnW+;PQ<
zh3ovwTelma;&})}29-`>(o8ySl}i0-C`UbvF$RIipwcN!S|&7qO}kj0ylPw}BdT~F
zfykiJDNI^TH~SS*dCzpa0V<w{Kx9zq6edmd9_e(a8=U*_>2@Nu?RAB;%L`vgW=}kG
zSnU?4&E(2O*Q$Qo8ggijg3|Z@`q(+Mg51(Pw19$)ad6x&gtle*Z1|!01Xqd-Q&D>C
zl`-cEm=Kwgv>{Vzq)7mKc}0NCvifxj13u5m1(-P~SMx+XTN*OA=RE>8626pp>eUVX
zFt|k{fljd>Up+b}92&uB_2CEW*&M{qQ-qHR;n%t;K5<kKI8QbobozY1&h;>K6^#<L
z!EZM?-q(Z4_K93hDh+}Ux#EIPVP>6N0;ll<zA9G!_RTvFgDNIlOM{!Iu_zH7uSSB?
z?quhKT~+{dZtGj!mw+Li;83QNGK2!N@XlwzzV)1LK1XTXyrSwFZDb`xuyPPNXX)DH
zcVQKYaWmMM%qLc(Se@WX{qA%QnWTbi&urCXo9@kWP4K}CR(N&jh1o9|>K6r@ifZ0S
z7)@hkjK)}u!+1=<L`=eDOv#3UGcg<^WU5Q1AsY>4i!m6BaTt#Yn21T3%v0_x_YkU?
z&k9e^$FX*fxA_4806_8p$!E<8jR<~#6;{;EZ#i&#H&`Tv+@pz;f~7vXuA1<4GrD>n
z3)r#v;l9RSnvE^GW3PT8Y61!J?N!3Y-Emj55Q)SSd+)%xnScokQSe+>>=%uQS(5>&
zAy(epe6>6Ah|i7T(6sl)RCv;pke^IXLYVw~Vz7W42L^ku<n~j@nA5H<_VV{NI>VK1
zyOvaU?qKi($(<h7btC!iPp`R0XectpJ}IRJ8%45B25DaDbUP@O#IYzTKst(dTa8^W
z20tI1_=-O73|JJxD%lE6(H!|wHTbEQPRUyjZuoLduB#uI)Q@#x4Aj)miuK6$w{m~T
z^e-#N(5}fAF>`a4Z^fpDjk&=y-u)0L88A5H+XGXB+xNZS8NsA?h6twqIcEgJCf4!S
z=Z~$E=>+?mJOAvwi4!}2?-}c=ocvPbZ@G}aju852)yuy(1?qhnCao(F{8Rs$VF!H`
z1TJ;_D=gpb^FPm>rn=t$-@jRcD#>>qXsSR%V4V_-JXeAf01)>5xP6ZRW*cj-DiF?n
z`*6^|$$kPh0$vDtjFMNAEy4l&)E-D!K^X{G!%d+=`?Ga$3NL282e3n;Zxv%!HK9(*
zeVjG)_?hj=fDn1N1N@X7?7(V-LvIiqbBX6%Qlt1u?STZ!YlJv+x1>W;FzQP%I`aq4
zQDv8=JGBQAC@2E~Ys0xj#eo-Ob$pok?+W?-!rNj!F~r1(ro{HmrD~+^<hs>B!rE)(
z&T^UrML^h?jj707862FU4fYrCdhHdUl+n1Ew#W@-mRgOI>8iZF4^wchT;Q#0_`DlR
z8t_BBkWXZ16JAOj#Cy1Vt@##T+?ZYQ7z(HvtxM29CGDC!nl`PE#`*+$y$IjZweF$N
zs;Hg#**J2Ffbv$cN!d^lLdr`pT9?Q@(;hUCu!1rWa3Yif>!boNX1xcnL~MiHskQih
zIn^F`K~@AhSxCv|CdyX!ex}wyY1I{vL<@v1p)vbLuW4CU14$?)zA35JMj8y>TL<)`
zC@77v#B)CZ02%Fy+1I7o14vjw83<Uz4NgEI64Z99slX~Gzu@dC!V9t@kaWCKYH#cT
z{0%^Eneqfcw`&h1l$AzU%h$n~@&c)q$c4AH2TEy#1xCRU+O*>9sIqX(XKq{<x{`7L
zk8vy$TY>fQ;5TvedXIAD<fG}&p4LRt9*kiz%Shw8Ncs42=+sogHZS1d;Moq*PN<AN
zc2tR9`SBD#E<DK`*eO|bIu<HGMr$SAAr&Q=0~_VQW1Pqetd9q5GX3V&9_7TzM>mi4
z^r+IXF+3P^V?9u6pNTAq<8-5w%wZg4uz^1%oegxgZ^MDMGzEe)ciJN0MSPYNr)s;K
zd1P+=Sy<>}XBxJC8)ITqT<^_RAMm9&WepthtAb@hX}L?A@sXeB?sIGtKV~ce!RS*r
z8ecFzmCe2GebY_sZs^*Q^V>|AH>RRf_q2iE7OrzC+Y<Hha+?8161Jj;6EA&ih&FRG
z`r)a-Thb_MWXymg$sFh?2Oe9*R$x(UaI@_mr6sQA?3}hWej;};zUG6T)(QJU=LsB6
z4$(OtZ)&#_vg?8Kg6t?$2IlT6PyGyQo6&c-4}Sc5*PQ5zuV5QWGDmDBzUg?@Mq~zc
zE<4SuCnbL2xByJi_n&7zJJsdl`aF#!bD*Ofc#QM%cr;t8!>)S)uxVSG3XG2#Wm8M?
z3^<iG6Wf6bQcP-Zs0FS?lDRD@r?NkF-wIDMhw=_NK4y~5Gt&72O)NYKTam*8qhm7q
zR_o-iu(s}U*F^V7erm^%$Lx&Pe|KN4ot#6x-`epZ!yH`vIAdqpV)j@LoC&qm&jXF2
zNyj{uI2A*y8D*4Ilayuzmm?-8a{%=2t`fkpNtcq^dfn+0GPs)Q+@dAkMWw|EGcCSL
zs!$!NB+DJ@=ttYe=UHeEYaQyn>`$RcTK<N7Qn8`2k=@;Vx*{7^#GV6ZBx$Rtgspgr
zRjS0NqqHgqO&p}X#Jap~GS!||5|8lp&A6><vvU_c;pFo<7E4x!VkP=?`o!T|ht7nz
zc%;U!jMlD^0=P68#0-uZ9BWRjnXzWXni8vvK`~R8v-r~OF>2?|q~@kNVr#CVrrNb0
z7L-R!O&Ewy&hmGz7=cnL%}KbA{K}2a+7=OO-5~a-R2!w^_FagvN!w;{i8F`fi7!<#
zsa%^VCnB+&tqT<?Yu*IsBMTgzg*ffwd=#f$oDbqu)nr14OQnfoMgz`xiI;fB7mTWU
zz#z`r#T9;DpgrW1i~}Fgk5EZAJ8KtLcyH)*Z`RpFXYJw&KQGW8^4Es0ey^`10*88S
z+k*p+EIV7|{g&4OwJ&@O=m)LnlOtRq#zQns>siEYpl27?kDh4?iKvMDD^6BUS`3Pk
z@SiE1JE$vQc^x^^5>=VA;Oe|Ud&noDW4wdExQZ;xNuouZwTmnKyg+-%o7TBSD^kZp
zTxgs%jcJ@0Xb*WalKWbUjt4E#YB6X{sq+F|EU(dz<?vvS7Z++u1Fb2X7wBSnjg6xV
z?TCIzzyEDx^2(Ra<@S_=qIMM(!H17M*R^ue`u8ZCc<|m_xm#JY8B!@jCVg}HFrpsf
zV^S>rMj!A0Prys9Jie}NjISwl{i1fo718f}Ky0qCa<hS4g51Gt<7zbv^fF1f4N5v^
zsG14(c&Ek6%a`r|EJw&w<!li0t@V+!$>?)UaZc0~P;Q+$iV%(KLSOSyJT$+nt73Zd
z)zI6;&>S<)->Kx2<rJ+Rc3(Bim91DAnui(1fD1iy7cMF<XFR8o+mJo1ioQHF8{R|E
zQE+i5TCP;p-Kdh;l`K#9aSzc$J2SRMVi!IWHQ>3EvguXHrkvZX!qv)|jtE+5&4J^p
z6{bwR4qorv;>DynSccoIF8(|nMU?DDCy57{iKfzZYget_uk^PJPkj_!`P~mm1C^Xp
z>ZJA^9%;;R%GG`bN9S?sNHXr-k;PHq?-#~hZyZAU31iy@QL*~RimQr=(C{p2KE4K$
zE;z@s;D(Eu(>qOcvncI15TJlV^@8Gy^dgQ5)!G?J+sIHEqr0x*OihsvDKeErMiN5D
z)T``ngdbVUIYGZRYLR~Wj)a{MXw4@Fl<A?|r+BtraGB7oosqPS43#mu>l)6~6zPy6
zQ%PhbA@oW5%G3=*r4NFSC8ZpC@|y+lOQ@tOz5{q+oKPL0G#esAWsImu!<m{Q9a3Z}
ziHszKPMvP2Bc2dKYc>uS6eI2le`c7JQwJ&d6f;b(uAOD~$LG6KLjiG|iZVi_CSIg1
zGRQ6wUxg(B!zS&Q0FY56U9w_p3;Akbt-VisJz3Xq2X#t<U_W-(iBjx^GO$nmH!P4D
z*L!<xN4Zxa>B#m|>n&w|{&1v8r~WGjXHht=Qu?v`Mf-{~M_1mBO~Oj=NburW_iIMU
zrB*x+?wxm3tX_&AJTzA?E9J)AQv3t@M(>Cjw?AC*{IYC)v{&6f>or>+GGw(AKYJW|
z2i|ks{^{H|JotHM%7`M?WPL^1T)RN=m0m8>G-b(!F9?oaM?IT_|3)i^oiTTHq2r%S
zs#}w^c9rEbwBd{GVT^xv=(A0SjkOxxpja<HU)}ZB*{AeCS69nOyMH_ZSULPZ`|JPF
zz54&lg!xl|U-!DR0RB37E&WR9+?2VN3IrGc2#9OXhXTE39aO?=5#HarsZF#}$AJBC
zmZvOw%zmEiFv@Ppz3eI~I?>5AUz_5Xll#6X+!0QqsYs_BOmEjIMkDAPsyM<xIP<U&
z9O%{r)<kNP*%#T4D$4(g7FU#H=siTFC7y#%SbZ*_Wj1z*tp;q7W{bG5u=&?NRMF+o
z=_W1txi>_`&eSk9(~P5PzWT@VeF%>ut2BX?)0Zt-x*#P>8HDT4zqEacB`vh4>(ncv
zI;K&(oS#JP$0`amJH;57Pxh)@2WcR`D!kRsS|Ej?$5eO$Wla+(_s_Q5Buy75{MIHg
zd#13ZC5gufbIUHN4sO~hMlVHqi}wh(UZ~;=k4w9#rvgO1)nicKbq#7kSQvN-_E8Q|
zZ}ufEGgsfqaa00K+cFtQNkNzDF4#b{|0SvDODw6AJuN#uCX%GCP$R>q+Nxw}<zk4i
z;m~xb53;I))mpY<le7Q|*ddKh%;MGQny_nCFm?z;MII!5sr_n1dP0SeDv^DJCDPj0
zGAu$#ikt4Cf|txZ8#2%|zC8B?<88zy-915u$@<?L*XyID(b03<U^U+fmSh=AQo6o7
zT4W6bTSP^OP0`ro^@!3Sc?)yU>9lC=wiIO+rwURXlc>c~9&=#}zTS$c5jQ44ZVPT3
zWV;LG)Lazy+8%mLJ>IHp_t%^)I&7EHHZp%VIdL5EPrr3~N^qTH9l6o@6tON8#R~fi
z^JcV-Cap?}@}sn@`mn;fCyJaIg!<SRPM6SKFaes>RU(_m8LO=Atr)H%lEo7p#D_1W
z1&%};(}xy{k>i^vt~3s)e<(-FEj6Pw9dFdydRQ{n5H&W4tdTTE7#KC)N%aV!tciP8
zggjf4=<bP`O=wMWoUam15>~iH|K<6@!WXq;f9tqMzR^efV--=>P<V4B%*D^8MU)D~
z_=4OVK%zuoyCvDT#IZh)Wt@c8)A_V0TXVOpg4)hb<E1@G<=*xTIol}NU&N~7hE>k)
z0c6A>ZsN5#T@ic8K_Rr0uel5N+>zO~ZLn2q;yKtSZjQ~)9WW*Cv$6K{48y}GgnG7P
z=gYetTf8ZSpA9HlK$&(@Xij{9-xzP$U9RO=`w;n!AJ+s~j9o6~cdRg1;BecSc3srY
z+E2VC)eBko-cnh!;e{G+)o^pd$y~A!%J)vV$3n$_HM(!CQD(>O0dMT?=oaeXM961K
zpc4UskEc4;UMz+4M%xafooO?uOf}lQ7h|cZG0GlbQWNH+ukar4;N@D6MR`#mGDW4u
zHo_3h7{TAw9E+$<eTu807OHulVCadUz7i3)8DuHTlkE$v1fhh9Lky)0;kRZ_K`l$5
zHha)O?b;{k!&3HPsR+d1XFK(@)q6asZKbgtj}u>sUPy<nI4$B{k+#L~AnXr4Yf7FZ
z?8RohLSNYf_)Y!;w5{$JHNbD<(|@a^jm^u#Ga}TvyT&4`m&ar&lf{1iyh<ud!i<df
zbC!acd`pN5NMb)d=HU#5$Zm<|f2Lxz%sx@pS2cZrF2p$uJ$?~22FZO5nO;sO9*=v9
zQHm4mL?fJ62J4@~iWf1xj?QN3cu<J(Jx97!yrU34T@3zVn>xIhc53*{o1SS)Ee@=e
z%%Ec=b4{*hEzDuA4dYe{7YcDFGH*s&v^yTh=LDBoaDt1dN3YZv+02V^oPrIM;0juK
zkw#}izG>XKcSNtA4l~X^1Z#LPyte$?yqtX}7JPGB&+en4@S8mqkCM@UJTz9_Pgv*3
z@e+d5h@HbzRP58d*+TEqp;#PMt`V<PVl+WT3#XUSxi57f*zx4*YRa3QU1onk!(>RD
z9pVV}%#fVPlj&G_C+E9#NDR{;I{XTs@Y9Njg+c_v3r_HqF?NJ)Kh$T%%biJUf_#Qq
z6oy)cBUuY(INs9SH<@U<TU4t&NzF+w5?nimuM}Oe2{(XKiyI(Q5l26a$XuLCgVL#5
z!ZeK<5^D3)=|$*OD-@&TRD_C8MRiy#D4GqysD!UD=vX@nyrrU2GkdlKb&7+(BGM|3
z3Re+X&3jp}3p8hDuqt@-q%^$Y-IXoREcHC^Ix65{KOEkt=^R}Wwqms+pe4qgs{l|e
zLr-bch^#gtB%`OHyd?b}9}<@G9mhuDT0Z_Ev)>maXL=p`mRTVEtLLxlbR5S;cj@KA
z%yLGm$J7mG)-n4sv)q}(h#cM!eU1xHag+y>jLGOp8ERydx+4QOUE<DBJa>Q1QgvmT
zyNIW*3TtbaVUZq$WZ|q63Q9$xEkPC(;b=cJhJ*B1XHlTV?yFU80a+XqaHNKUf1V*^
zJXk{*Yn(=1V>CqolBY%eB<Y*ej3#M?VHYMfa@{V~J;@}<K-4zGA%yzKGm;Inm4#`O
zyR(#D61R{L<=4Cxj0iD|5g-zt(*Hzkb!<QhPwMxNobAQ|^qG(Mq5jxxzT(ko%CK2W
z&yMh4;A%y`ed@zqCrNOhc<$G<nH-fED#wgbEW&zRLv8WiScwAVZhSx<sOZKNp1}#X
zU<;qHw}u1k;ewawlHW|ckWB<UGLRWg=7bJF>EMqZR7iRVswGil1GS6F++|l7@Zl_=
z0;QNhIG$BI;1+zOX{Zbb?uAQomGls0s;RR&=_rq|lg6{fJ-5Ld0T2r-n|POT&9^%R
zH|ZL+A6~!?o|O*PSpe~r$q{V0h6K0R%3A>r#LNH}<J5Bl_M*4+_k)0@);KD3Bn9D{
zAqfud)hb*Q<fA^8t~wJzuk+5tpdk&;#F6I!VZnVS5$#nvljPgPQy25s2ZpB^H)D;$
zhYYme`B{41gHIWC1#LA*NIZ@F(p+XOxx{6{vOLzS8r9m?%Si$<tw9F94x$ikbxmD8
z6Fcy8k(J+C+2VTcxM^hKEOE5<;0^feiD2#_*Vhw_0(_g-3JxWiq?ZU_Nf$v_gW)5P
zmqcFTKM~PPbqu0rV3=FUuQCnc-{NP9b6_XqA}gl29U`%Fz7|!ig!p_JQ<pG_dJvy`
zzoZJ$x_eJM2vs}^E#FLnEGnKIqQp6kl|s&E_JH^jQ82vktoktV8*XZWKp;T`6GA9q
z7zrnWNTP@)hI*KY#f;^*2TwefM3P7*i&aC7G?p!gQH*>N7NW^-v#Dm9YoS<)Qf10j
zXlbqE9A%xh2PKYn^odte&a+8DN>Y)UG~_^z<yTOlNu8)DOxTLG_cKp+c|E)Q_8Q(v
z9UM!-i6kR#JT>x!sL_Csl1ZdsuH%`Xz?WhZB~FqwS@IMqQ#tFD(-}C^72irtmp(&q
zNXAT=vxxueT~_p9vj=r7RM=&>>x<4gZ@o^%io+sBEzb}Q3pCYivJL$%S!)eI(p!=B
z$nUbzW;fQH#+ztv^9l-6uq!UPT!_w16;=uGXwk(K8w${w7@;JNWH!}wq}f?I-;q#~
z&Fc2A<9{#9ub@I*b<s@^eR-!vIWCF$La|h?RBQFd<<)hwCDZP7dws6<ey`JmwFi~;
z*E^0IkDUg8+uGjQ-P=DnJgU}?PfqJ+fxrJ34LHRybuPO-!@Rux%gl2zrrLG=rZyi2
z3E0FBKCx6wh2xh@UZeLrh70R-ANcUI@$mg4aomhig$!&$7IGB|KvJ}}My607*ex)_
z;quZ29%sKvh{TdUdL@%9w7tA<U;+FEx+%yTLu*RwDkEbPQyXS#a|_F^0kO0F|M>^v
zK-S<L4j*y)$2HG}Oo`oJwlq3}$pYCNE{`t|iU<}qO0Y|lEChyF*d!rOGl<Cy5%5Vo
z^wBAZfSz&&E0iFaM43jnNmzUcFAy>zHkC+aaz!seOYFS90UIK~lz6X~R@OGQcJ=KY
z98t7t)2>6OZ>YL->p|12Prm{5EI$ny&SOjjEEJs+G6_3}L9rt*zg0o7^<N$qaVUg1
zD9T+(C_*E@fL@C`F}sw@xST7T5}ulC*b{rsSD+AD5ezI`LX`6;%J2w4iV3J_7>aTx
z7Kg$U5`ienrDP-uPfLfQD1#v^it+3mSrUq94=*3TfS{1D$Z^bLNvKw%R-Jkc8Z~K_
zPdvLe?K*Vo(yd3YKK%v^8ZvAI?5r8(vF!0AB6IT*C=6~q5;Y1S%HmHW*2^e+$gIO)
zvTBDkZig=rRt}j>Pi68jgzeQDZ5>@b#xvy}X~x@|nweWzTGdI=QTCDMXxAjqnmRYL
z+c6U6s(tN4Bjahtqx6U@aGFKEiGm|EOV{JqMrdFMvJr+xn03Yo8kWF{9VeNxeV%`9
zz~RI?BItg^F1N?)<LgJE(&!9kb%Ga(;UY#RSJ<7h2$EV@$K~9;GBP$Xg<I^uHn*^}
zY0I`9KfaN|e*lARcAh{aAubG+Mt^1|3uJS+Jib6EGBdXjJC;-i$rVbKS_6N7B8X0J
zFq%*+Ya3fTdk04+XBSz)<iX@{;mVCW4_cnQc++)qLpN;0H^MvorgP!|A9||^Si)d2
z1w_=^YO^g4Ic$%;s;%Ov#wG{x0uCA}W7c_|lu#i>no6xXYbDiFYW(AX5k`TJyC)Gp
zm#od+9AhWf7~>{y^S3~NmT<#XDw2G-B}zLdG!-_f%DqGlvRZYf4@#`neChX9i{@ZP
zT|+ad;W6v!8yFf<X~rg|bTfFyV_PtoEH=lI%d6{WnEV$DKx@cGD1vRp2#N`1Tu8E_
zYPw-s-HZ^2f7_k3;mvS`VQz_nD2ftMD#}E;s1TK+N>qy)(Lr>iP}}7NJy}PrwTnB+
zWU)D19$!l!ghgVBG)=E@yWl#%eDiNw)0<kliM6q!rA=v8b6eKz=6J2p*3s3|H!!rO
zw5~ETHZiqfrZ%@|ySG46dwZ`*nZ|d`%rf!kAHZ~7OgH>6VaiXFruFe2PXHCOj8&{-
z6GQA^PkkVbC-q_ppLE|yu28Df8rafDzPeM;;e(FkUnbPb+Q!z--oX)7T3@6j|0g&C
zi9%zrI6Q$!B2%a|I)lk#bGSUdKqwMRq%yfesZwjSb#(Rg4GfKpO-#+qEiA39ZEWrA
z9UN;x`A<9+=<ZUGAH35ywW#1O*4f$XoY&#v6B3hBP)Xy`#V33k-+p8mxwvWj!2bH-
z^f3r<EE}*sWoDZi5~lB?9Ja?_$TAK>!}|T*UoW4~`KHUK<iCTv6c!p#H~X(XS3m+3
zwBCR_J5WY!X6znGk`zU?3XlUV?!uylrD}Kgpgh>_WNevshUogPTWbWBodsDnryp^C
zaD}6diaw5493K6g@J~MX)Z#lGZ?{aU)Ko>SY;yU|Q5VO9^$@BLQRPk~CVecI1lQ#!
zJ%`3di&yzd>SezUpU&3MD9AIRODQJ~&%u2u<t0%I6~&r;Q(JfUs4}UB=2x#}hSwnK
z>HSodO5=`;Pe`n(L+LM+UaL&rMTQnaC5>xW{rfq^p6~91=W3VHTgHe9(UnuvQ0hTn
zW`QmD=FM2wo-!79GB84wADgtCSc@Vp<RK{Sti~?*=qQ{t2CkYg7-P0O!eLfcl!ey`
zeWc^pa5z(^LO~_Xv2kzkE}dDl`EtBXwxPu78PEB7>-3!ZA?h0OvbWrOQ)RTv)li8a
zq?cdSRy%)zNKR5qd)D`0B`U6IJWxNxvn-8AKtw`DNllAKK-5WYabD~z$8ZNXz`g5{
zdTCcia+<kNnxanEXmQO&WR%pjcmzb9<c9K)?<}TQA4P64kFP?|*w&A7Q58*YoXc0G
zR9%%jKvtEtas0XQdDJZUfxgvv`b_*kW@tKs7Y>8h3_Qn%A{0v<Nynq8hxlse+IfDp
z7|L4qM@JEEG=0CkvSUi--AfUOnih|Mh=h#k<=2Fgnih|M^z-1lhRznJWAm@NAvqW3
z8uLd62M_Tz&9@{>a$@t7FS)QT3KeSTr6_{235uvUc}>YEsc9=O#mVQ>Vg@!WYgzm2
zY%SaTEki_dA-i_DJ5CWSIxE>BUa^mpf`LNPT&&c<S|r7}8oFQ$T6Y_QIt`MdWs-q{
z5R787te3M*sAq9VYGAZ&m}uMr5Q0TeV+){|F4#Cha-`h`5P}ieDHb?EYQdppoCBz*
z?Cdl?q~{`1PzS=aKbEk~o%Tyq$gh9q8eRGOaMt~EUq83s5{#d|xX=7!`~Uk5EKTUg
zzxG_Of#H!~pK7wOEMS54!DlH9|L2+xep|Dcb{f2V+);#e1tPV4CibAoFHL!AF1OT$
z&k#RE)3|OhX_|akK)2v!!E$!!8Z+JB>T92V=c@nwF_w>m6LaD=n4R0ci!8k_$F3Zn
z!6vq0AvvFvR%*AE4uwZ%+_E4E3U3BXPi>+01v^4K1r;|PtlIu&>X0>k5RWv0Qb(!k
z)=l!f=F05mBK^A81OMQgxZOwS0X<en)e$+OU!srX4~+Hw!k5V3K6>IsE_dJiz}9#(
zl7*1U(V6Cs51vDHuPiZ%${DgnN)7Qq%F&t4TjM>EEXP7QI<wCvJ_0fK$r6*O99{JZ
zlYCGo)86sgUQG~_Ml7Qootb3stz1au=*$$`H(W^N=*$c|He5*M=u82ET`&k5hESH(
z1bAa3uw0-pgb;25R#6f~2t5$XnmXSMvZ`cR7-Nj_J^*A0XH{Uiw%1fan9vc4R$)~o
zl9Ybd6O?7O4M2pmYOq|Z9L5-9%)BM<4FsDM=_X7l%aU)!bqKa7QYTC(%TjN{4G4B9
z(jZJI%lb5zudfR(bKV-it-gb}{{H6YZ+`e9G9q8~^_Stxr~f{E^~LXRf2}-QtgnsJ
z;;bbpeed&}DY+lCHfB9)&a&C~aCvUr_1Ni)e4uqMd`vp*!#<pgT)O)%2nrD<lvy?x
zQaL(P0*El7%(A(V%F&quK!gcpUHAR;Mda2900000ycyk>MCyQ;ooE0O=_VkSXhE<C
z2+M90v(q!1%>YE0P-fX&Nag5E1t7wNGRx*dDo1Ck01+mX-5#z-rIb=i>4W0MC=gp*
zLM#o$mP7_pi(`wMH^y;~ANcgwpBVk&BicQTGe>z|2!yu{5p>s2pU7?(Aeor$)^{>v
zf8uYO;mE)86iuxa_L*7_TQ1~=KQ@K-`6g_VUOhb6<rz>Ja33bASgw;SiXV1XIv2*G
zoYHAVt1Ycj6BRC!bcnb<5?s_9w0QHLFDv`+UYq~*&-#chfMF}V0syTHTLU6ic$}uv
z*30$sppe>2^Zw-1s^^*h<=UN3|J+M){VG=MV8ezLJJ`X74Lev+{ALjr<duGa*Z~-}
z!YcsK%CI#Muv$HT#QuWw{XW#!Rdng`smWHOc%>a6b^wO0@CpF5GHeY5tX4$qFE}?k
z8dgUV-`JicpMN#YP+pW(-QZ<Qx?!B?YQ5R6HOww7JW5|94HXJXpKo|;O+CjgBk1Qs
z;xTl3`@hE_gje6^Pq_aK%<nMe-wC@q`WWKrU4NDBsE18TR0u(F2^;NloAV1oeKXGR
zVD`&MQQQZ?L!8>%unTQl_=l=uEH+NOfIAWNaad!A2dO-+KK2h#WbttC#C0s9s6uIb
z17p>Xknf)QR7U>daEtGE`FXAHX3>G}Mc6q78VyiaX8hSwy7>s8ephHilfmkh<-Yz^
z&Zw#~xM2uluvy6GYJ;Ab1dhM;P3h1wt~O4PTCM{ZfdTG!p1yjo-z9??W(c)NZpx92
zkxbA`u}AjwlVo4n&u_X|T1D7P8$5F&3o=V8E9T_PAQn0V>d@17aK^g936kQ_GL8U7
zP%I8hMurN8Mje8pWgG*D-~>s@=?L8iPLnW*sM>J0Z1#)CBK#xL#M{Td>3`)z3&yvT
z-`PyExnABLugFwnnAj$Rk#T(J2H(5gaAZi^3`WNBp&NYfcEgcz=e2PHee?ltvyVOu
rZlTV1jAjqUgBY6ffZsXV7QeT$6fbeiH-SLPSB<!gJMcL@0{{R3hx~-r

literal 0
HcmV?d00001


From ac17f403294cfc6e8b1e5645cc6efabd5be2a752 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 11 Nov 2022 22:34:45 +1300
Subject: [PATCH 068/166] Fix font local definitions (?)

---
 static/main.css | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/static/main.css b/static/main.css
index bed9cdb0..0976e72d 100644
--- a/static/main.css
+++ b/static/main.css
@@ -386,7 +386,7 @@ figcaption, .lightbox-caption, .thumbcaption {
   font-style: normal;
   font-weight: 400;
   font-display: swap;
-  src: local(""),
+  src: local("Source Sans Pro"),
        url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-regular.woff2") format("woff2");
 }
 @font-face {
@@ -394,22 +394,19 @@ figcaption, .lightbox-caption, .thumbcaption {
   font-style: italic;
   font-weight: 400;
   font-display: swap;
-  src: local(""),
-       url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-italic.woff2") format("woff2");
+  src: url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-italic.woff2") format("woff2");
 }
 @font-face {
   font-family: "Source Sans Pro";
   font-style: normal;
   font-weight: 700;
   font-display: swap;
-  src: local(""),
-       url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700.woff2") format("woff2");
+  src: url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700.woff2") format("woff2");
 }
 @font-face {
   font-family: "Source Sans Pro";
   font-style: italic;
   font-weight: 700;
   font-display: swap;
-  src: local(""),
-       url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700italic.woff2") format("woff2");
+  src: url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700italic.woff2") format("woff2");
 }

From cea9d2082bc423f45c35e8c2037f0e1c73c399c0 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 11 Nov 2022 23:08:06 +1300
Subject: [PATCH 069/166] Try to add Link header to preload resources

---
 src/application-globals.rkt |  3 ++-
 src/static-data.rkt         | 19 ++++++++++++++++---
 2 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 595e9dd7..a0ff8aff 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -30,7 +30,8 @@
            html-writing))
 
 (define always-headers
-  (list (header #"Referrer-Policy" #"same-origin"))) ; header to not send referers to fandom
+  (list (header #"Referrer-Policy" #"same-origin") ; header to not send referers to fandom
+        (header #"Link" (string->bytes/latin-1 link-header))))
 (define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
 
 (define (application-footer source-url #:license [license-in #f])
diff --git a/src/static-data.rkt b/src/static-data.rkt
index 9522639f..c08c83ae 100644
--- a/src/static-data.rkt
+++ b/src/static-data.rkt
@@ -1,14 +1,16 @@
 #lang typed/racket/base
 (require racket/path
-         racket/runtime-path)
+         racket/runtime-path
+         racket/string)
 
 (provide
- get-static-url)
+ get-static-url
+ link-header)
 
 (define-runtime-path path-static "../static")
 
 (define static-data
-  (for/hash ([f (directory-list path-static)]) : (Immutable-HashTable Path Nonnegative-Integer)
+  (for/hash : (Immutable-HashTable Path Nonnegative-Integer)([f (directory-list path-static)])
     (define built (simple-form-path (build-path path-static f)))
     (values built (file-or-directory-modify-seconds built))))
 
@@ -18,3 +20,14 @@
                                          path-or-filename
                                          (build-path path-static path-or-filename))))
   (format "/static/~a?t=~a" (file-name-from-path the-path) (hash-ref static-data the-path)))
+
+(: link-header String)
+(define link-header
+  (let* ([with-t '("main.css")]
+         [with-t-full (map get-static-url with-t)]
+         [without-t '("preact.js" "source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-regular.woff2")]
+         [without-t-full (map (λ (path) (format "/static/~a" path)) without-t)])
+    (string-join
+     (for/list : (Listof String) ([full-path : String (append with-t-full without-t-full)])
+       (format "<~a>; rel=\"preload\"" full-path))
+     ", ")))

From 565d0a439a374550aac1ed0fb028f2efe36ae981 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 11 Nov 2022 23:33:56 +1300
Subject: [PATCH 070/166] Add types to Link header

---
 src/static-data.rkt | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/src/static-data.rkt b/src/static-data.rkt
index c08c83ae..1255ca5d 100644
--- a/src/static-data.rkt
+++ b/src/static-data.rkt
@@ -21,13 +21,17 @@
                                          (build-path path-static path-or-filename))))
   (format "/static/~a?t=~a" (file-name-from-path the-path) (hash-ref static-data the-path)))
 
+; https://developer.mozilla.org/en-US/docs/Web/HTML/Link_types/preload
 (: link-header String)
 (define link-header
-  (let* ([with-t '("main.css")]
-         [with-t-full (map get-static-url with-t)]
-         [without-t '("preact.js" "source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-regular.woff2")]
-         [without-t-full (map (λ (path) (format "/static/~a" path)) without-t)])
-    (string-join
-     (for/list : (Listof String) ([full-path : String (append with-t-full without-t-full)])
-       (format "<~a>; rel=\"preload\"" full-path))
-     ", ")))
+  (let* ([with-t '(("main.css" "as=style"))]
+         [without-t '(("preact.js" "as=script")
+                      ("source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-regular.woff2" "as=font" "crossorigin" "type=font/woff2"))]
+         [with-t-full (map (λ ([path : (Listof String)]) (cons (get-static-url (car path)) (cdr path))) with-t)]
+         [without-t-full (map (λ ([path : (Listof String)]) (cons (format "/static/~a" (car path)) (cdr path))) without-t)]
+         [all (append with-t-full without-t-full)]
+         [header-parts
+          (for/list : (Listof String) ([full-path all])
+            (define attributes (map (λ ([s : String]) (format "; ~a" s)) (cdr full-path)))
+            (format "<~a>; rel=preload~a" (car full-path) (string-join attributes "")))])
+    (string-join header-parts ", ")))

From 8c7a04583077f32a8732b1327544c8aba5eed16a Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 13 Nov 2022 22:52:29 +1300
Subject: [PATCH 071/166] NIWA notice: say brought to you by breezewiki

---
 src/application-globals.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index a0ff8aff..661f1a13 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -91,7 +91,7 @@
                           (p ,(fifth ind))
                           (div (@ (class "niwa__divider")))
                           (p "Why are you seeing this message? Fandom refuses to delete or archive their copy of this wiki, so that means their pages will appear high up in search results. Fandom hopes to get clicks from readers who don't know any better.")
-                          (p (@ (class "niwa__feedback")) (a (@ (href "https://www.kotaku.com.au/2022/10/massive-zelda-wiki-reclaims-independence-six-months-before-tears-of-the-kingdom/")) "More info") " / " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "Feedback on this notice?")))
+                          (p (@ (class "niwa__feedback")) "This notice brought to you by BreezeWiki / " (a (@ (href "https://www.kotaku.com.au/2022/10/massive-zelda-wiki-reclaims-independence-six-months-before-tears-of-the-kingdom/")) "Info & Context") " / " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "Feedback?")))
                      (div (@ (class "niwa__right"))
                           (img (@ (class "niwa__logo") (src ,(format "https://www.niwanetwork.org~a" (fourth ind)))))))))
       ""))

From ef12faf72dd7c1a1297168b4a7c37b04c32d0c3b Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 15 Nov 2022 20:45:44 +1300
Subject: [PATCH 072/166] Uncollapse more wiki sections

---
 src/page-wiki.rkt | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index a0a29448..b2028d6c 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -205,6 +205,16 @@
                attributes)
               ;; children
               ((compose1
+                ; more uncollapsing - sample: bandori/wiki/BanG_Dream!_Wikia
+                (curry u
+                       (λ (v) (has-class? "mw-collapsible-content" attributes))
+                       (λ (v) (for/list ([element v])
+                                (u (λ (element) (pair? element))
+                                   (λ (element)
+                                     `(,(car element)
+                                       (@ ,@(attribute-maybe-update 'style (λ (a) (regexp-replace #rx"display: *none" a "display:inline")) (bits->attributes element)))
+                                       ,@(filter element-is-content? (cdr element))))
+                                   element))))
                 ; wrap blinking animated images in a slot so they can be animated with CSS
                 (curry u
                        (λ (v) (and (has-class? "animated" attributes)

From bf6efde97925cbcf2156254ac8b2e4f1fe57900d Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 15 Nov 2022 20:46:56 +1300
Subject: [PATCH 073/166] Add countdown timer for gacha enthusiasts

---
 src/application-globals.rkt |  1 +
 static/countdown.js         | 53 +++++++++++++++++++++++++++++++++++++
 2 files changed, 54 insertions(+)
 create mode 100644 static/countdown.js

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 661f1a13..b1391927 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -136,6 +136,7 @@
       ,(if (config-true? 'feature_search_suggestions)
            `(script (@ (type "module") (src ,(get-static-url "search-suggestions.js"))))
            "")
+      (script (@ (type "module") (src ,(get-static-url "countdown.js"))))
       (link (@ (rel "icon") (href ,(u (λ (v) (config-true? 'strict_proxy))
                                       (λ (v) (u-proxy-url v))
                                       (head-data^-icon-url head-data))))))
diff --git a/static/countdown.js b/static/countdown.js
new file mode 100644
index 00000000..9ae6b468
--- /dev/null
+++ b/static/countdown.js
@@ -0,0 +1,53 @@
+// countdown timer for gacha enthusiasts
+// sample: bandori/wiki/BanG_Dream!_Wikia
+// sample: ensemble-stars/wiki/The_English_Ensemble_Stars_Wiki
+
+import {h, htm, render, useState, useEffect, createContext, useContext, signal, computed, effect} from "./preact.js"
+const html = htm.bind(h)
+
+const now = signal(Date.now())
+setInterval(() => now.value = Date.now(), 1000)
+
+const units = [
+	["w", 7*24*60*60*1000],
+	["d", 24*60*60*1000],
+	["h", 60*60*1000],
+	["m", 60*1000],
+	["s", 1000]
+]
+
+function getDisplayTime(datetime, now, or) {
+	let difference = datetime - now
+	let foundSignificantField = false
+	if (difference > 0) {
+		return units.map(([letter, duration], index) => {
+			const multiplier = Math.floor(difference / duration)
+			difference -= multiplier * duration
+			if (multiplier > 0 || foundSignificantField) {
+				foundSignificantField = true
+				return multiplier + letter
+			}
+		}).filter(s => s).join(" ")
+	} else if (or) {
+		return or
+	} else {
+		return `[timer ended on ${new Date(datetime).toLocaleString()}]`
+	}
+}
+
+function Countdown(props) {
+	return html`<span>${props.display}</span>`
+}
+
+document.querySelectorAll(".countdown").forEach(eCountdown => {
+	// grab information and make variables
+	const eDate = eCountdown.querySelector(".countdowndate")
+	const eOr = eCountdown.nextElementSibling
+	const or = eOr?.textContent
+	const datetime = new Date(eDate.textContent).getTime()
+	// the mapped signal
+	const display = computed(() => getDisplayTime(datetime, now.value, or))
+	// clear content and render
+	while (eDate.childNodes[0] !== undefined) eDate.childNodes[0].remove()
+	render(html`<${Countdown} display=${display} />`, eDate);
+})

From 324e34eb720413d4f50aba63b339aeb8daaa52de Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 15 Nov 2022 20:49:25 +1300
Subject: [PATCH 074/166] Remove unused imports

---
 static/countdown.js          | 2 +-
 static/search-suggestions.js | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/static/countdown.js b/static/countdown.js
index 9ae6b468..ad8d0beb 100644
--- a/static/countdown.js
+++ b/static/countdown.js
@@ -2,7 +2,7 @@
 // sample: bandori/wiki/BanG_Dream!_Wikia
 // sample: ensemble-stars/wiki/The_English_Ensemble_Stars_Wiki
 
-import {h, htm, render, useState, useEffect, createContext, useContext, signal, computed, effect} from "./preact.js"
+import {h, htm, render, signal, computed, effect} from "./preact.js"
 const html = htm.bind(h)
 
 const now = signal(Date.now())
diff --git a/static/search-suggestions.js b/static/search-suggestions.js
index 1a9a3d3e..f4586be5 100644
--- a/static/search-suggestions.js
+++ b/static/search-suggestions.js
@@ -1,4 +1,4 @@
-import {h, htm, render, useState, useEffect, createContext, useContext, signal, computed, effect} from "./preact.js"
+import {h, htm, render, signal, computed, effect} from "./preact.js"
 const html = htm.bind(h)
 const classNames = classArr => classArr.filter(el => el).join(" ")
 

From 1c83c0b4d3ce543b05befa981eccc4bfe1f440e5 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 15 Nov 2022 22:21:12 +1300
Subject: [PATCH 075/166] Support X-Canonical-Origin for instance admins

---
 src/dispatcher-tree.rkt | 35 +++++++++++++----------------
 src/page-subdomain.rkt  | 49 ++++++++++++++++++++++++++++++++++++++---
 src/syntax.rkt          |  2 +-
 3 files changed, 62 insertions(+), 24 deletions(-)

diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 9e072bc8..63c053df 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -3,6 +3,7 @@
          (for-syntax racket/base)
          racket/string
          net/url
+         web-server/http
          (prefix-in host: web-server/dispatchers/dispatch-host)
          (prefix-in pathprocedure: web-server/dispatchers/dispatch-pathprocedure)
          (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer)
@@ -32,23 +33,17 @@
   (datum->syntax stx `(make-dispatcher-tree ,ds)))
 
 (define (make-dispatcher-tree ds)
-  (host:make
-   (λ (host-sym)
-     (if/out (config-true? 'canonical_origin)
-             (let* ([host-header (symbol->string host-sym)]
-                    [splitter (string-append "." (url-host (string->url (config-get 'canonical_origin))))]
-                    [s (string-split host-header splitter #:trim? #f)])
-               (if/in (and (eq? 2 (length s)) (equal? "" (cadr s)))
-                      ((hash-ref ds 'subdomain-dispatcher) (car s))))
-             (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))
-              (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
-              (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
-              (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
-              (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
-              (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
-              (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
-              (hash-ref ds 'static-dispatcher)
-              (lift:make (hash-ref ds 'page-not-found)))))))
+  (define subdomain-dispatcher (hash-ref ds 'subdomain-dispatcher))
+  (sequencer:make
+   subdomain-dispatcher
+   (pathprocedure:make "/" (hash-ref ds 'page-home))
+   (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
+   (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
+   (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
+   (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
+   (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
+   (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
+   (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
+   (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
+   (hash-ref ds 'static-dispatcher)
+   (lift:make (hash-ref ds 'page-not-found))))
diff --git a/src/page-subdomain.rkt b/src/page-subdomain.rkt
index dededfb1..c2542368 100644
--- a/src/page-subdomain.rkt
+++ b/src/page-subdomain.rkt
@@ -1,22 +1,65 @@
 #lang racket/base
-(require racket/path
+(require racket/match
+         racket/path
          racket/string
          net/url
          web-server/http
+         web-server/dispatchers/dispatch
+         (only-in racket/promise delay)
          (prefix-in lift: web-server/dispatchers/dispatch-lift)
          "application-globals.rkt"
          "config.rkt"
+         "syntax.rkt"
          "xexpr-utils.rkt")
 
 (provide
  subdomain-dispatcher)
 
-(define (subdomain-dispatcher subdomain)
+(module+ test
+  (require rackunit))
+
+(define (do-redirect:make subdomain canonical-origin)
   (lift:make
    (λ (req)
      (response-handler
       (define uri (request-uri req))
       (define path (url-path uri))
       (define path-string (string-join (map (λ (p) (path/param-path p)) path) "/"))
-      (define dest (format "~a/~a/~a" (config-get 'canonical_origin) subdomain path-string))
+      (define dest (format "~a/~a/~a" canonical-origin subdomain path-string))
       (generate-redirect dest)))))
+
+(define (router req)
+  (define host (bytes->string/utf-8 (header-value (headers-assq* #"host" (request-headers/raw req)))))
+  (define x-canonical-origin (headers-assq* #"x-canonical-origin" (request-headers/raw req)))
+  (define canonical-origin
+    (cond
+      [x-canonical-origin (bytes->string/utf-8 (header-value x-canonical-origin))]
+      [(config-true? 'canonical_origin) (config-get 'canonical_origin)]
+      [#t #f]))
+  (if/out canonical-origin
+          (let* ([canonical-origin-host (url-host (string->url canonical-origin))])
+            (if/in canonical-origin-host
+                   (let* ([splitter (string-append "." (url-host (string->url canonical-origin)))]
+                          [s (string-split host splitter #:trim? #f)])
+                     (if/in (and (eq? 2 (length s)) (equal? "" (cadr s)))
+                            (list 'redirect (car s) canonical-origin)))))
+          'next-dispatcher))
+(module+ test
+  (define (qr url headers)
+    (request #"GET" (string->url url) (map (λ (h) (header (car h) (cadr h))) headers) (delay '()) #f "127.0.0.1" 10416 "127.0.0.1"))
+  (parameterize ([(config-parameter 'canonical_origin) "https://breezewiki.com"])
+    (check-equal? (router (qr "/" '((#"Host" #"breezewiki.com"))))
+                  'next-dispatcher)
+    (check-equal? (router (qr "/wiki/Spell" '((#"Host" #"magic.breezewiki.com"))))
+                  '(redirect "magic" "https://breezewiki.com"))
+    (check-equal? (router (qr "/" '((#"Host" #"magic.bw.breezewiki.com")
+                                    (#"X-Canonical-Origin" #"https://bw.breezewiki.com"))))
+                  '(redirect "magic" "https://bw.breezewiki.com"))
+    (check-equal? (router (qr "/" '((#"Host" #"magic.bwxxxxx.onion")
+                                    (#"X-Canonical-Origin" #"http://bwxxxxx.onion"))))
+                  '(redirect "magic" "http://bwxxxxx.onion"))))
+
+(define (subdomain-dispatcher conn req)
+  (match (router req)
+    [(list 'redirect subdomain canonical-origin) ((do-redirect:make subdomain canonical-origin) conn req)]
+    [_ (next-dispatcher)]))
diff --git a/src/syntax.rkt b/src/syntax.rkt
index 8205326b..f8fda0dc 100644
--- a/src/syntax.rkt
+++ b/src/syntax.rkt
@@ -37,7 +37,7 @@
           [(and (pair? node) (eq? 'if/out (car node))) node]
           ; -- replace if/in
           [(and (pair? node) (eq? 'if/in (car node)))
-           (append '(if) (cdr node) else)]
+           (append '(if) (walk (cdr node)) else)]
           ; recurse down pair head and tail
           [(pair? node) (cons (walk (car node)) (walk (cdr node)))]
           ; something else that can't be recursed into, so pass it through

From 92591a5eab3653ad3c742288cb040d320199f599 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 17 Nov 2022 23:25:06 +1300
Subject: [PATCH 076/166] Fix some special characters in titles like ? and ;

---
 src/page-category.rkt |  2 +-
 src/page-home.rkt     |  8 ++++----
 src/page-search.rkt   |  2 +-
 src/url-utils.rkt     | 28 +++++++++++++++++++---------
 4 files changed, 25 insertions(+), 15 deletions(-)

diff --git a/src/page-category.rkt b/src/page-category.rkt
index 89bc45a0..69d9f427 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -52,7 +52,7 @@
               ,@(map
                  (λ (result)
                    (define title (jp "/title" result))
-                   (define page-path (regexp-replace* #rx" " title "_"))
+                   (define page-path (page-title->path title))
                    `(li
                      (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
                         ,title)))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 6037d9a8..23ede8b4 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -18,9 +18,9 @@
 
 (define examples
   '(("minecraft" "Bricks")
-    ("crosscode" "CrossCode_Wiki")
-    ("undertale" "Hot_Dog...%3F")
-    ("tardis" "Eleanor_Blake")
+    ("crosscode" "CrossCode Wiki")
+    ("undertale" "Hot Dog...?")
+    ("tardis" "Eleanor Blake")
     ("zelda" "Boomerang")))
 
 (define content
@@ -45,7 +45,7 @@
     (h2 "Example pages")
     (ul
      ,@(map (λ (x)
-              `(li (a (@ (href ,(apply format "/~a/wiki/~a" x)))
+              `(li (a (@ (href ,(format "/~a/wiki/~a" (car x) (page-title->path (cadr x)))))
                       ,(apply format "~a: ~a" x))))
             examples))
     (h2 "Testimonials")
diff --git a/src/page-search.rkt b/src/page-search.rkt
index f4d1ce36..04042333 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -38,7 +38,7 @@
          (ul ,@(map
                 (λ (result)
                   (let* ([title (jp "/title" result)]
-                         [page-path (regexp-replace* #rx" " title "_")]
+                         [page-path (page-title->path title)]
                          [timestamp (jp "/timestamp" result)]
                          [wordcount (jp "/wordcount" result)]
                          [size (jp "/size" result)])
diff --git a/src/url-utils.rkt b/src/url-utils.rkt
index b70b245f..1df933c5 100644
--- a/src/url-utils.rkt
+++ b/src/url-utils.rkt
@@ -17,7 +17,9 @@
   ; prints "out: <url>"
  log-outgoing
  ; pass in a header, headers, or something useless. they'll all combine into a list
- build-headers)
+ build-headers
+ ; try to follow wikimedia's format for which characters should be encoded/replaced in page titles for the url
+ page-title->path)
 
 (module+ test
   (require "typed-rackunit.rkt"))
@@ -26,14 +28,18 @@
 
 ;; https://url.spec.whatwg.org/#urlencoded-serializing
 
-(define urlencoded-set '(#\! #\' #\( #\) #\~ ; urlencoded set
-                         #\$ #\% #\& #\+ #\, ; component set
-                         #\/ #\: #\; #\= #\@ #\[ #\\ #\] #\^ #\| ; userinfo set
-                         #\? #\` #\{ #\} ; path set
-                         #\  #\" #\# #\< #\> ; query set
-                         ; c0 controls included elsewhere
-                         ; higher ranges included elsewhere
-                         ))
+(define path-set '(#\; ; semicolon is part of the userinfo set in the URL standard, but I'm putting it here
+                   #\? #\` #\{ #\} ; path set
+                   #\  #\" #\# #\< #\> ; query set
+                   ; c0 controls included elsewhere
+                   ; higher ranges included elsewhere
+                   ))
+(define urlencoded-set (append
+                        '(#\! #\' #\( #\) #\~ ; urlencoded set
+                          #\$ #\% #\& #\+ #\, ; component set
+                          #\/ #\: #\= #\@ #\[ #\\ #\] #\^ #\| ; userinfo set
+                          )
+                        path-set))
 
 (: percent-encode (String (Listof Char) Boolean -> Bytes))
 (define (percent-encode value set space-as-plus)
@@ -98,3 +104,7 @@
            [(header? f) (list f)]
            [(pair? f) f]))
        fs)))
+
+(: page-title->path (String -> Bytes))
+(define (page-title->path title)
+  (percent-encode (regexp-replace* " " title "_") path-set #f))

From 9afccbb9cd88c851b9c29545793060c56371fa49 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 30 Nov 2022 00:03:54 +1300
Subject: [PATCH 077/166] Support light/dark themes as per Fandom's styles

---
 breezewiki.rkt                 |  2 ++
 dist.rkt                       |  2 ++
 info.rkt                       |  2 +-
 src/application-globals.rkt    | 39 ++++++++++++++++++++++++------
 src/data.rkt                   | 34 +++++++++++++++++++++++++-
 src/dispatcher-tree.rkt        |  1 +
 src/page-category.rkt          |  3 +++
 src/page-file.rkt              |  7 ++++--
 src/page-search.rkt            |  5 ++--
 src/page-set-user-settings.rkt | 18 ++++++++++++++
 src/page-wiki.rkt              | 12 ++++++----
 static/icon-theme-dark.svg     |  2 ++
 static/icon-theme-default.svg  |  2 ++
 static/icon-theme-light.svg    |  2 ++
 static/main.css                | 44 +++++++++++++++++++++++++++++++++-
 15 files changed, 157 insertions(+), 18 deletions(-)
 create mode 100644 src/page-set-user-settings.rkt
 create mode 100644 static/icon-theme-dark.svg
 create mode 100644 static/icon-theme-default.svg
 create mode 100644 static/icon-theme-light.svg

diff --git a/breezewiki.rkt b/breezewiki.rkt
index a8b8c288..44d6771c 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -17,6 +17,7 @@
 (require-reloadable "src/page-proxy.rkt" page-proxy)
 (require-reloadable "src/page-redirect-wiki-home.rkt" redirect-wiki-home)
 (require-reloadable "src/page-search.rkt" page-search)
+(require-reloadable "src/page-set-user-settings.rkt" page-set-user-settings)
 (require-reloadable "src/page-static.rkt" static-dispatcher)
 (require-reloadable "src/page-subdomain.rkt" subdomain-dispatcher)
 (require-reloadable "src/page-wiki.rkt" page-wiki)
@@ -40,6 +41,7 @@
       page-not-found
       page-proxy
       page-search
+      page-set-user-settings
       page-wiki
       page-file
       redirect-wiki-home
diff --git a/dist.rkt b/dist.rkt
index 777e81ac..35e1824c 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -11,6 +11,7 @@
 (require (only-in "src/page-proxy.rkt" page-proxy))
 (require (only-in "src/page-redirect-wiki-home.rkt" redirect-wiki-home))
 (require (only-in "src/page-search.rkt" page-search))
+(require (only-in "src/page-set-user-settings.rkt" page-set-user-settings))
 (require (only-in "src/page-static.rkt" static-dispatcher))
 (require (only-in "src/page-subdomain.rkt" subdomain-dispatcher))
 (require (only-in "src/page-wiki.rkt" page-wiki))
@@ -29,6 +30,7 @@
     page-not-found
     page-proxy
     page-search
+    page-set-user-settings
     page-wiki
     page-file
     redirect-wiki-home
diff --git a/info.rkt b/info.rkt
index 46512dfd..dd34d495 100644
--- a/info.rkt
+++ b/info.rkt
@@ -1,3 +1,3 @@
 #lang info
 
-(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "ini-lib" "memo"))
+(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "ini-lib" "memo" "net-cookies-lib"))
diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index b1391927..0fe26dc9 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -1,8 +1,10 @@
 #lang racket/base
-(require racket/list
+(require racket/file
+         racket/list
          racket/string
          json
          (prefix-in easy: net/http-easy)
+         html-parsing
          html-writing
          web-server/http
          "config.rkt"
@@ -34,6 +36,11 @@
         (header #"Link" (string->bytes/latin-1 link-header))))
 (define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
 
+(define theme-icons
+  (for/hasheq ([theme '(default light dark)])
+    (values theme
+            (html->xexp (file->string (format "static/icon-theme-~a.svg" theme) #:mode 'binary)))))
+
 (define (application-footer source-url #:license [license-in #f])
   (define license (or license-in license-default))
   `(footer (@ (class "custom-footer"))
@@ -98,24 +105,27 @@
 
 (define (generate-wiki-page
          content
+         #:req req
          #:source-url source-url
          #:wikiname wikiname
          #:title title
          #:head-data [head-data-in #f]
-         #:siteinfo [siteinfo-in #f])
+         #:siteinfo [siteinfo-in #f]
+         #:user-cookies [user-cookies-in #f])
   (define siteinfo (or siteinfo-in siteinfo-default))
   (define head-data (or head-data-in ((head-data-getter wikiname))))
+  (define user-cookies (or user-cookies-in (user-cookies-getter req)))
   (define (required-styles origin)
     (map (λ (dest-path)
            (define url (format dest-path origin))
            (if (config-true? 'strict_proxy)
                (u-proxy-url url)
                url))
-         '(#;"~a/load.php?lang=en&modules=skin.fandomdesktop.styles&only=styles&skin=fandomdesktop"
+         `(#;"~a/load.php?lang=en&modules=skin.fandomdesktop.styles&only=styles&skin=fandomdesktop"
            #;"~a/load.php?lang=en&modules=ext.gadget.dungeonsWiki%2CearthWiki%2Csite-styles%2Csound-styles&only=styles&skin=fandomdesktop"
            #;"~a/load.php?lang=en&modules=site.styles&only=styles&skin=fandomdesktop"
            ; combine the above entries into a single request for potentially extra speed - fandom.com doesn't even do this!
-           "~a/wikia.php?controller=ThemeApi&method=themeVariables"
+           ,(format "~~a/wikia.php?controller=ThemeApi&method=themeVariables&variant=~a" (user-cookies^-theme user-cookies))
            "~a/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop")))
   `(*TOP*
     (*DECL* DOCTYPE html)
@@ -155,7 +165,22 @@
                                            (label (@ (for "bw-search-input")) "Search ")
                                            (div (@ (id "bw-pr-search-input"))
                                                 (input (@ (type "text") (name "q") (id "bw-search-input") (autocomplete "off"))))
-                                           (div (@ (class "bw-ss__container") (id "bw-pr-search-suggestions"))))))
+                                           (div (@ (class "bw-ss__container") (id "bw-pr-search-suggestions"))))
+                                     (div (@ (class "bw-theme__select"))
+                                          (span (@ (class "bw-theme__main-label")) "Page theme")
+                                          (div (@ (class "bw-theme__items"))
+                                           ,@(for/list ([theme '(default light dark)])
+                                               (define class
+                                                 (if (equal? theme (user-cookies^-theme user-cookies))
+                                                     "bw-theme__item bw-theme__item--selected"
+                                                     "bw-theme__item"))
+                                               `(a (@ (href ,(user-cookies-setter-url
+                                                              req
+                                                              (struct-copy user-cookies^ user-cookies
+                                                                           [theme theme]))) (class ,class))
+                                                   (div (@ (class "bw-theme__icon-container"))
+                                                    ,(hash-ref theme-icons theme))
+                                                   ,(format "~a" theme)))))))
                            (div (@ (id "content") #;(class "page-content"))
                                 (div (@ (id "mw-content-text"))
                                      ,content))
@@ -179,11 +204,11 @@
                                  page))))
                "/proxy?dest=https%3A%2F%2Ftest.fandom.com")))
 
-(define (generate-redirect dest)
+(define (generate-redirect dest #:headers [headers-in '()])
   (define dest-bytes (string->bytes/utf-8 dest))
   (response/output
    #:code 302
-   #:headers (list (header #"Location" dest-bytes))
+   #:headers (append (list (header #"Location" dest-bytes)) headers-in)
    (λ (out)
      (write-html
       `(html
diff --git a/src/data.rkt b/src/data.rkt
index f856710f..e8a9e697 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -1,6 +1,9 @@
 #lang racket/base
 (require racket/list
          racket/match
+         web-server/http/request-structs
+         net/url-string
+         (only-in net/cookies/server cookie-header->alist cookie->set-cookie-header make-cookie)
          (prefix-in easy: net/http-easy)
          memo
          "static-data.rkt"
@@ -11,11 +14,16 @@
  (struct-out siteinfo^)
  (struct-out license^)
  (struct-out head-data^)
+ (struct-out user-cookies^)
  siteinfo-fetch
  siteinfo-default
  license-default
  head-data-getter
- head-data-default)
+ head-data-default
+ user-cookies-getter
+ user-cookies-default
+ user-cookies-setter
+ user-cookies-setter-url)
 
 (struct siteinfo^ (sitename basepage license) #:transparent)
 (struct license^ (text url) #:transparent)
@@ -61,3 +69,27 @@
       (set! this-data data))
     ;; then no matter what, return the best information we have so far
     this-data))
+
+(struct user-cookies^ (theme) #:prefab)
+(define user-cookies-default (user-cookies^ 'default))
+(define (user-cookies-getter req)
+  (define cookie-header (headers-assq* #"cookie" (request-headers/raw req)))
+  (define cookies-alist (if cookie-header (cookie-header->alist (header-value cookie-header) bytes->string/utf-8) null))
+  (define cookies-hash
+    (for/hasheq ([pair cookies-alist])
+      (match pair
+        [(cons "theme" (and theme (or "light" "dark" "default")))
+         (values 'theme (string->symbol theme))]
+        [_ (values #f #f)])))
+  (user-cookies^
+   (hash-ref cookies-hash 'theme (user-cookies^-theme user-cookies-default))))
+
+(define (user-cookies-setter user-cookies)
+  (map (λ (c) (header #"Set-Cookie" (cookie->set-cookie-header c)))
+       (list (make-cookie "theme" (symbol->string (user-cookies^-theme user-cookies))
+                          #:path "/"
+                          #:max-age (* 60 60 24 365 10)))))
+
+(define (user-cookies-setter-url req new-settings)
+  (format "/set-user-settings?~a"  (params->query `(("ref" . ,(url->string (request-uri req)))
+                                                    ("new_settings" . ,(format "~a" new-settings))))))
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 63c053df..251aa43b 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -39,6 +39,7 @@
    (pathprocedure:make "/" (hash-ref ds 'page-home))
    (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
    (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
+   (pathprocedure:make "/set-user-settings" (hash-ref ds 'page-set-user-settings))
    (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
    (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
    (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 69d9f427..5933f3e5 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -29,6 +29,7 @@
     '#hasheq((batchcomplete . #t) (continue . #hasheq((cmcontinue . "page|4150504c45|41473") (continue . "-||"))) (query . #hasheq((categorymembers . (#hasheq((ns . 0) (pageid . 25049) (title . "Item (entity)")) #hasheq((ns . 0) (pageid . 128911) (title . "3D")) #hasheq((ns . 0) (pageid . 124018) (title . "A Very Fine Item")) #hasheq((ns . 0) (pageid . 142208) (title . "Amethyst Shard")) #hasheq((ns . 0) (pageid . 121612) (title . "Ankle Monitor")))))))))
 
 (define (generate-results-page
+         #:req req
          #:source-url source-url
          #:wikiname wikiname
          #:title title
@@ -38,6 +39,7 @@
          #:siteinfo [siteinfo #f])
   (define members (jp "/query/categorymembers" members-data))
   (generate-wiki-page
+   #:req req
    #:source-url source-url
    #:wikiname wikiname
    #:title title
@@ -96,6 +98,7 @@
     (define page (html->xexp page-html))
     (define head-data ((head-data-getter wikiname) page-data))
     (define body (generate-results-page
+                  #:req req
                   #:source-url source-url
                   #:wikiname wikiname
                   #:title title
diff --git a/src/page-file.rkt b/src/page-file.rkt
index 1802568e..d9dfd916 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -51,7 +51,8 @@
     [(regexp-match? #rx"(?i:^video/)" content-type) `(video (@ (src ,maybe-proxied-url) (controls)))]
     [else `""]))
 
-(define (generate-results-page #:source-url source-url
+(define (generate-results-page #:req req
+                               #:source-url source-url
                                #:wikiname wikiname
                                #:title title
                                #:media-detail media-detail
@@ -68,6 +69,7 @@
   (define maybe-proxied-raw-image-url
     (if (config-true? 'strict_proxy) (u-proxy-url raw-image-url) raw-image-url))
   (generate-wiki-page
+   #:req req
    #:source-url source-url
    #:wikiname wikiname
    #:title title
@@ -125,7 +127,8 @@
                          #f
                          (url-content-type (jp "/imageUrl" media-detail))))
                    (define body
-                     (generate-results-page #:source-url source-url
+                     (generate-results-page #:req req
+                                            #:source-url source-url
                                             #:wikiname wikiname
                                             #:title title
                                             #:media-detail media-detail
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 04042333..214a3a21 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -25,9 +25,10 @@
   (define search-json-data
     '#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
 
-(define (generate-results-page dest-url wikiname query data #:siteinfo [siteinfo #f])
+(define (generate-results-page req dest-url wikiname query data #:siteinfo [siteinfo #f])
   (define search-results (jp "/query/search" data))
   (generate-wiki-page
+   #:req req
    #:source-url dest-url
    #:wikiname wikiname
    #:title query
@@ -74,7 +75,7 @@
 
     (define data (easy:response-json dest-res))
 
-    (define body (generate-results-page dest-url wikiname query data #:siteinfo siteinfo))
+    (define body (generate-results-page req dest-url wikiname query data #:siteinfo siteinfo))
     (when (config-true? 'debug)
       ; used for its side effects
       ; convert to string with error checking, error will be raised if xexp is invalid
diff --git a/src/page-set-user-settings.rkt b/src/page-set-user-settings.rkt
new file mode 100644
index 00000000..3f376925
--- /dev/null
+++ b/src/page-set-user-settings.rkt
@@ -0,0 +1,18 @@
+#lang racket/base
+(require racket/dict
+         net/url
+         web-server/http
+         "application-globals.rkt"
+         "data.rkt"
+         "url-utils.rkt"
+         "xexpr-utils.rkt")
+
+(provide
+ page-set-user-settings)
+
+(define (page-set-user-settings req)
+  (response-handler
+   (define ref (dict-ref (url-query (request-uri req)) 'ref))
+   (define new-settings (read (open-input-string (dict-ref (url-query (request-uri req)) 'new_settings))))
+   (define headers (user-cookies-setter new-settings))
+   (generate-redirect ref #:headers headers)))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index b2028d6c..2cd14dc4 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -276,6 +276,7 @@
 
 (define (page-wiki req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))
+  (define user-cookies (user-cookies-getter req))
   (define origin (format "https://~a.fandom.com" wikiname))
   (define path (string-join (map path/param-path (cddr (url-path (request-uri req)))) "/"))
   (define source-url (format "https://~a.fandom.com/wiki/~a" wikiname path))
@@ -290,7 +291,9 @@
                                          ("formatversion" . "2")
                                          ("format" . "json")))))
               (log-outgoing dest-url)
-              (easy:get dest-url #:timeouts timeouts)]
+              (easy:get dest-url
+                        #:timeouts timeouts
+                        #:headers `#hasheq((cookie . ,(format "theme=~a" (user-cookies^-theme user-cookies)))))]
     [siteinfo (siteinfo-fetch wikiname)])
 
    (cond
@@ -307,6 +310,7 @@
              (define body
                (generate-wiki-page
                 (update-tree-wiki page wikiname)
+                #:req req
                 #:source-url source-url
                 #:wikiname wikiname
                 #:title title
@@ -317,9 +321,9 @@
                (build-headers
                 always-headers
                 (when redirect-msg
-                    (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
-                           [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
-                      (header #"Refresh" value)))))
+                  (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+                         [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
+                    (header #"Refresh" value)))))
              (when (config-true? 'debug)
                ; used for its side effects
                ; convert to string with error checking, error will be raised if xexp is invalid
diff --git a/static/icon-theme-dark.svg b/static/icon-theme-dark.svg
new file mode 100644
index 00000000..bc36edef
--- /dev/null
+++ b/static/icon-theme-dark.svg
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<svg fill="currentColor" width="32" height="32" version="1.1" viewBox="0 0 8.46667 8.46667" xmlns="http://www.w3.org/2000/svg"><g transform="translate(0 -288.533)"><path transform="matrix(.264583 0 0 .264583 0 288.533)" d="m23.0039 3.875-1.31445 2.27344a11 11 0 013.31055 7.85156 11 11 0 01-11 11 11 11 0 01-7.85938-3.30664l-2.26172 1.30859c2.93591 5.08516 8.77013 7.80476 14.5527 6.78516 5.78263-1.01964 10.3378-5.57482 11.3574-11.3574 1.01965-5.7826-1.7-11.6188-6.78516-14.5547z" color-rendering="auto" dominant-baseline="auto" image-rendering="auto" shape-rendering="auto" style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:normal;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;paint-order:stroke fill markers;shape-padding:0;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-orientation:mixed;text-transform:none;white-space:normal"/><circle cx="2.11667" cy="290.65" r=".529167" style="paint-order:stroke fill markers"/><circle cx="1.5875" cy="292.237" r=".529167" style="paint-order:stroke fill markers"/><circle cx="3.70417" cy="290.121" r=".529167" style="paint-order:stroke fill markers"/></g></svg>
diff --git a/static/icon-theme-default.svg b/static/icon-theme-default.svg
new file mode 100644
index 00000000..4f5655c0
--- /dev/null
+++ b/static/icon-theme-default.svg
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<svg width="32" height="32" fill="currentColor" version="1.1" viewBox="0 0 8.46667 8.46667" xmlns="http://www.w3.org/2000/svg"><path d="m4.23242.5295c-2.03949 0-3.70313 1.66559-3.70313 3.70508 0 2.03948 1.66364 3.70312 3.70313 3.70312 2.03949 0 3.70508-1.66364 3.70508-3.70312 0-2.03949-1.66559-3.70508-3.70508-3.70508zm0 1.05859c1.46752 0 2.64648 1.17897 2.64648 2.64649s-1.17896 2.64453-2.64648 2.64453c-1.46752 0-2.64453-1.17701-2.64453-2.64453s1.17701-2.64649 2.64453-2.64649z" color-rendering="auto" dominant-baseline="auto" image-rendering="auto" shape-rendering="auto" style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:normal;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;paint-order:stroke fill markers;shape-padding:0;text-decoration-color:#000000;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-orientation:mixed;text-transform:none;white-space:normal"/><path d="m4.23333 2.64583a1.5875 1.5875 0 00-1.495 1.05937h2.99a1.5875 1.5875 0 00-1.495-1.05937zm-1.495 2.11563a1.5875 1.5875 0 001.495 1.05937 1.5875 1.5875 0 001.495-1.05937h-2.99z" style="paint-order:stroke fill markers"/></svg>
diff --git a/static/icon-theme-light.svg b/static/icon-theme-light.svg
new file mode 100644
index 00000000..cc19c3a8
--- /dev/null
+++ b/static/icon-theme-light.svg
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<svg fill="currentColor" width="32" height="32" version="1.1" viewBox="0 0 8.46667 8.46667" xmlns="http://www.w3.org/2000/svg"><path d="m6.87891 4.23458c1e-7.46447-.121282.92002-.353516 1.32226l.916016.5293c.325095-.56308.496094-1.20137.496094-1.85156z" color-rendering="auto" dominant-baseline="auto" image-rendering="auto" shape-rendering="auto" solid-style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:normal;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;paint-order:stroke fill markers;shape-padding:0;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-orientation:mixed;text-transform:none;white-space:normal"/><circle cx="4.23333" cy="4.234" r="2.11093" style="paint-order:stroke fill markers"/><g shape-rendering="auto"><path d="m5.55695 6.52551c-.402234.23223-.858376.35329-1.32285.35329l-.0003772 1.05794c.650186 0 1.28846-.17106 1.85154-.49615z" color-rendering="auto" dominant-baseline="auto" image-rendering="auto" solid-style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:normal;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;paint-order:stroke fill markers;shape-padding:0;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-orientation:mixed;text-transform:none;white-space:normal"/><path d="m2.91165 6.52543c-.402243-.23223-.737813-.56603-.970048-.96827l-.916389.52865c.325097.56308.794061 1.03129 1.35714 1.35639z" color-rendering="auto" dominant-baseline="auto" image-rendering="auto" solid-style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:normal;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;paint-order:stroke fill markers;shape-padding:0;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-orientation:mixed;text-transform:none;white-space:normal"/><path d="m1.58789 4.23458c-1e-7-.46447.121282-.92198.353516-1.32422l-.916016-.5293c-.325095.56308-.496094 1.20333-.496094 1.85352z" color-rendering="auto" dominant-baseline="auto" image-rendering="auto" solid-style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:normal;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;paint-order:stroke fill markers;shape-padding:0;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-orientation:mixed;text-transform:none;white-space:normal"/><path d="m2.91046 1.94167c.402243-.23224.858389-.35329 1.32285-.35329l-.0005978-1.05964c-.650195 1e-5-1.28847.17106-1.85155.49616z" color-rendering="auto" dominant-baseline="auto" image-rendering="auto" solid-style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:normal;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;paint-order:stroke fill markers;shape-padding:0;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-orientation:mixed;text-transform:none;white-space:normal"/><path d="m5.55547 1.9423c.402243.23223.736121.56504.968351.96728l.916397-.52864c-.325092-.56309-.792372-1.03031-1.35545-1.35541z" color-rendering="auto" dominant-baseline="auto" image-rendering="auto" solid-style="font-feature-settings:normal;font-variant-alternates:normal;font-variant-caps:normal;font-variant-ligatures:normal;font-variant-numeric:normal;font-variant-position:normal;isolation:auto;mix-blend-mode:normal;paint-order:stroke fill markers;shape-padding:0;text-decoration-line:none;text-decoration-style:solid;text-indent:0;text-orientation:mixed;text-transform:none;white-space:normal"/></g></svg>
diff --git a/static/main.css b/static/main.css
index 0976e72d..c6b27918 100644
--- a/static/main.css
+++ b/static/main.css
@@ -51,7 +51,7 @@ p {
 .custom-top {
     display: flex;
     flex-wrap: wrap;
-    align-items: baseline;
+    align-items: center;
     justify-content: space-between;
 }
 .page-title {
@@ -227,6 +227,7 @@ figcaption, .lightbox-caption, .thumbcaption {
     display: grid;
     grid-template-columns: auto 1fr;
     grid-gap: 0px 5px;
+    align-items: baseline;
 }
 .bw-ss__container {
     grid-column: 2;
@@ -282,6 +283,47 @@ figcaption, .lightbox-caption, .thumbcaption {
     text-align: left;
 }
 
+/* (breezewiki) theme selector */
+.bw-theme__select {
+    display: grid;
+    grid-template-columns: auto auto;
+    grid-gap: 0px 5px;
+    justify-content: right;
+    align-items: baseline;
+    margin-top: 4px;
+}
+.bw-theme__items {
+    display: flex;
+}
+.bw-theme__item {
+    display: flex;
+    align-items: baseline;
+    padding: 2px;
+    border: 1px solid var(--theme-border-color);
+    border-right-width: 0px;
+    background-color: var(--custom-table-background);
+    color: var(--theme-page-text-color);
+    transition: none;
+}
+.bw-theme__item:hover, .bw-theme__item:focus {
+    /* background-color: var(--theme-page-background-color); */
+    color: var(--theme-accent-color);
+}
+.bw-theme__item:first-child {
+    border-radius: 4px 0px 0px 4px;
+}
+.bw-theme__item:last-child {
+    border-radius: 0px 4px 4px 0px;
+    border-right-width: 1px;
+}
+.bw-theme__item--selected, .bw-theme__item--selected:hover, .bw-theme__item--selected:focus {
+    background-color: var(--theme-accent-color);
+    color: var(--theme-accent-label-color);
+}
+.bw-theme__icon-container svg {
+    vertical-align: middle;
+}
+
 /* nintendo independent wiki alliance notice */
 .niwa__notice {
     background: #fdedd8;

From 50a3bc819a1cf085b0cf588d60df837786990025 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 30 Nov 2022 00:36:53 +1300
Subject: [PATCH 078/166] Fix tests by providing a fake req

---
 src/application-globals.rkt | 8 ++++++--
 src/page-category.rkt       | 4 +++-
 src/page-file.rkt           | 6 ++++--
 src/page-search.rkt         | 5 +++--
 src/test-utils.rkt          | 8 ++++++++
 5 files changed, 24 insertions(+), 7 deletions(-)
 create mode 100644 src/test-utils.rkt

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 0fe26dc9..e6feaafd 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -1,6 +1,7 @@
 #lang racket/base
 (require racket/file
          racket/list
+         racket/runtime-path
          racket/string
          json
          (prefix-in easy: net/http-easy)
@@ -29,17 +30,19 @@
 
 (module+ test
   (require rackunit
-           html-writing))
+           html-writing
+           "test-utils.rkt"))
 
 (define always-headers
   (list (header #"Referrer-Policy" #"same-origin") ; header to not send referers to fandom
         (header #"Link" (string->bytes/latin-1 link-header))))
 (define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
 
+(define-runtime-path path-static "../static")
 (define theme-icons
   (for/hasheq ([theme '(default light dark)])
     (values theme
-            (html->xexp (file->string (format "static/icon-theme-~a.svg" theme) #:mode 'binary)))))
+            (html->xexp (file->string (build-path path-static (format "icon-theme-~a.svg" theme)) #:mode 'binary)))))
 
 (define (application-footer source-url #:license [license-in #f])
   (define license (or license-in license-default))
@@ -190,6 +193,7 @@
     (parameterize ([(config-parameter 'strict_proxy) "true"])
       (generate-wiki-page
        '(template)
+       #:req test-req
        #:source-url ""
        #:title "test"
        #:wikiname "test")))
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 5933f3e5..62b7f387 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -24,7 +24,8 @@
  page-category)
 
 (module+ test
-  (require rackunit)
+  (require rackunit
+           "test-utils.rkt")
   (define category-json-data
     '#hasheq((batchcomplete . #t) (continue . #hasheq((cmcontinue . "page|4150504c45|41473") (continue . "-||"))) (query . #hasheq((categorymembers . (#hasheq((ns . 0) (pageid . 25049) (title . "Item (entity)")) #hasheq((ns . 0) (pageid . 128911) (title . "3D")) #hasheq((ns . 0) (pageid . 124018) (title . "A Very Fine Item")) #hasheq((ns . 0) (pageid . 142208) (title . "Amethyst Shard")) #hasheq((ns . 0) (pageid . 121612) (title . "Ankle Monitor")))))))))
 
@@ -119,6 +120,7 @@
 (module+ test
   (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
                                     (generate-results-page
+                                     #:req test-req
                                      #:source-url ""
                                      #:wikiname "test"
                                      #:title "Category:Items"
diff --git a/src/page-file.rkt b/src/page-file.rkt
index d9dfd916..d999ba46 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -23,7 +23,8 @@
 (provide page-file)
 
 (module+ test
-  (require rackunit)
+  (require rackunit
+           "test-utils.rkt")
   (define test-media-detail
     '#hasheq((fileTitle . "Example file")
              (videoEmbedCode . "")
@@ -162,7 +163,8 @@
     (check-not-false
      ((query-selector
        (attribute-selector 'src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fexamplefile")
-       (generate-results-page #:source-url ""
+       (generate-results-page #:req test-req
+                              #:source-url ""
                               #:wikiname "test"
                               #:title "File:Example file"
                               #:media-detail test-media-detail
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 214a3a21..10ff66cc 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -21,7 +21,8 @@
  page-search)
 
 (module+ test
-  (require rackunit)
+  (require rackunit
+           "test-utils.rkt")
   (define search-json-data
     '#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
 
@@ -87,4 +88,4 @@
        (write-html body out))))))
 (module+ test
   (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
-                                    (generate-results-page "" "test" "Gacha" search-json-data)))))
+                                    (generate-results-page test-req "" "test" "Gacha" search-json-data)))))
diff --git a/src/test-utils.rkt b/src/test-utils.rkt
new file mode 100644
index 00000000..1c9860da
--- /dev/null
+++ b/src/test-utils.rkt
@@ -0,0 +1,8 @@
+#lang racket/base
+(require web-server/http/request-structs
+         net/url-structs
+         (only-in racket/promise delay))
+(provide
+ test-req)
+
+(define test-req (request #"GET" (url "https" #f "breezewiki.com" #f #t (list (path/param "" '())) '() #f) '() (delay '()) #f "127.0.0.1" 0 "127.0.0.1"))

From a661ddb313b3c5a50a7413b22b3f9a176c1a5145 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 30 Nov 2022 00:37:07 +1300
Subject: [PATCH 079/166] Make the search box magically fit the space

---
 static/main.css | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/static/main.css b/static/main.css
index c6b27918..b6973506 100644
--- a/static/main.css
+++ b/static/main.css
@@ -256,6 +256,9 @@ figcaption, .lightbox-caption, .thumbcaption {
 .bw-ss__list--loading {
     background: #c0c0c0;
 }
+.bw-ss__input {
+    width: 100%; /* magically makes it fit the available space */
+}
 .bw-ss__input--accepted {
     background: #fffbc0;
 }

From ba3b39242cef005f60ddf9e50a63ba0c190ce9a2 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 4 Dec 2022 23:44:35 +1300
Subject: [PATCH 080/166] Rename ref parameter to next_location

---
 src/data.rkt                   | 2 +-
 src/page-set-user-settings.rkt | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/data.rkt b/src/data.rkt
index e8a9e697..cdd8c39e 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -91,5 +91,5 @@
                           #:max-age (* 60 60 24 365 10)))))
 
 (define (user-cookies-setter-url req new-settings)
-  (format "/set-user-settings?~a"  (params->query `(("ref" . ,(url->string (request-uri req)))
+  (format "/set-user-settings?~a"  (params->query `(("next_location" . ,(url->string (request-uri req)))
                                                     ("new_settings" . ,(format "~a" new-settings))))))
diff --git a/src/page-set-user-settings.rkt b/src/page-set-user-settings.rkt
index 3f376925..2fbc5733 100644
--- a/src/page-set-user-settings.rkt
+++ b/src/page-set-user-settings.rkt
@@ -12,7 +12,7 @@
 
 (define (page-set-user-settings req)
   (response-handler
-   (define ref (dict-ref (url-query (request-uri req)) 'ref))
+   (define next-location (dict-ref (url-query (request-uri req)) 'next_location))
    (define new-settings (read (open-input-string (dict-ref (url-query (request-uri req)) 'new_settings))))
    (define headers (user-cookies-setter new-settings))
-   (generate-redirect ref #:headers headers)))
+   (generate-redirect next-location #:headers headers)))

From 9fd2b4699d9697b87fabcf982184ce6c381634f0 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 4 Dec 2022 23:46:24 +1300
Subject: [PATCH 081/166] Optimise update-tree-wiki somewhat

---
 src/page-wiki.rkt    | 233 +------------------------------------
 src/tree-updater.rkt | 267 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 272 insertions(+), 228 deletions(-)
 create mode 100644 src/tree-updater.rkt

diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 2cd14dc4..6f22ad8f 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -19,6 +19,7 @@
          "data.rkt"
          "pure-utils.rkt"
          "syntax.rkt"
+         "tree-updater.rkt"
          "xexpr-utils.rkt"
          "url-utils.rkt")
 
@@ -30,51 +31,19 @@
  preprocess-html-wiki)
 
 (module+ test
-  (require rackunit)
-  (define wiki-document
-    '(*TOP*
-      (div (@ (class "mw-parser-output"))
-           (aside (@ (role "region") (class "portable-infobox pi-theme-wikia pi-layout-default"))
-                  (h2 (@ (class "pi-item pi-title") (data-source "title"))
-                      "Infobox Title")
-                  (figure (@ (class "pi-item pi-image") (data-source "image"))
-                          (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image image-thumbnail") (title ""))
-                             (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") (class "pi-image-thumbnail")))))
-                  (div (@ (class "pi-item pi-data") (data-source "description"))
-                       (h3 (@ (class "pi-data-label"))
-                           "Description")
-                       (div (@ (class "pi-data-value"))
-                            "Mystery infobox!")))
-           (div (@ (data-test-collapsesection) (class "collapsible collapsetoggle-inline collapsed"))
-                (i (b "This section is hidden for dramatic effect."))
-                (div (@ (class "collapsible-content"))
-                     (p "Another page link: "
-                        (a (@ (data-test-wikilink) (href "https://test.fandom.com/wiki/Another_Page") (title "Another Page"))
-                           "Another Page"))))
-           (figure (@ (class "thumb tnone"))
-                   (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image") (data-test-figure-a))
-                      (img (@ (src "data:image/gif;base64,R0lGODlhAQABAIABAAAAAP///yH5BAEAAAEALAAAAAABAAEAQAICTAEAOw%3D%3D")
-                              (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
-                              (class "thumbimage lazyload"))))
-                   (noscript
-                    (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image"))
-                       (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
-                               (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
-                               (class "thumbimage")))))
-                   (figcaption "Test figure!"))
-           (iframe (@ (src "https://example.com/iframe-src")))))))
+  (require rackunit))
 
 (define (preprocess-html-wiki html)
-  (define (rr* find replace contents)
+  (define ((rr* find replace) contents)
     (regexp-replace* find contents replace))
   ((compose1
     ; fix navbox list nesting
     ; navbox on right of page has incorrect html "<td ...><li>" and the xexpr parser puts the <li> much further up the tree
     ; add a <ul> to make the parser happy
     ; usage: /fallout/wiki/Fallout:_New_Vegas_achievements_and_trophies
-    (curry rr* #rx"(<td[^>]*>\n?)(<li>)" "\\1<ul>\\2")
+    (rr* #rx"(<td[^>]*>\n?)(<li>)" "\\1<ul>\\2")
     ; change <figcaption><p> to <figcaption><span> to make the parser happy
-    (curry rr* #rx"(<figcaption[^>]*>)[ \t]*<p class=\"caption\">([^<]*)</p>" "\\1<span class=\"caption\">\\2</span>"))
+    (rr* #rx"(<figcaption[^>]*>)[ \t]*<p class=\"caption\">([^<]*)</p>" "\\1<span class=\"caption\">\\2</span>"))
    html))
 (module+ test
   (check-equal? (preprocess-html-wiki "<td class=\"va-navbox-column\" style=\"width: 33%\">\n<li>Hey</li>")
@@ -82,198 +51,6 @@
   (check-equal? (preprocess-html-wiki "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"> 	<p class=\"caption\">Caption text.</p></figcaption></figure>")
                 "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"><span class=\"caption\">Caption text.</span></figcaption></figure>"))
 
-(define (update-tree-wiki tree wikiname)
-  (update-tree
-   (λ (element element-type attributes children)
-     ;; replace whole element?
-     (cond
-       ; wrap tables in a div.table-scroller
-       [(and (eq? element-type 'table)
-             (has-class? "wikitable" attributes)
-             (not (dict-has-key? attributes 'data-scrolling)))
-        `(div
-          ((class "table-scroller"))
-          ((,element-type (@ (data-scrolling) ,@attributes)
-                          ,@children)))]
-       ; exclude empty figcaptions
-       [(and (eq? element-type 'figcaption)
-             (or (eq? (length (filter element-is-element? children)) 0)
-                 ((query-selector (λ (element-type attributes children)
-                                    (eq? element-type 'use))
-                                  element))))
-        return-no-element]
-       ; exclude infobox items that are videos, and gallery items that are videos
-       [(and (or (has-class? "pi-item" attributes)
-                 (has-class? "wikia-gallery-item" attributes))
-             ((query-selector (λ (element-type attributes children)
-                                (has-class? "video-thumbnail" attributes))
-                              element)))
-        return-no-element]
-       ; exclude the invisible brackets after headings
-       [(and (eq? element-type 'span)
-             (has-class? "mw-editsection" attributes))
-        return-no-element]
-       ; display a link instead of an iframe
-       [(eq? element-type 'iframe)
-        (define src (car (dict-ref attributes 'src null)))
-        `(a
-          ((class "iframe-alternative") (href ,src))
-          (,(format "Embedded media: ~a" src)))]
-       ; remove noscript versions of images because they are likely lower quality than the script versions
-       [(and (eq? element-type 'noscript)
-             (match children
-               ; either the noscript has a.image as a first child...
-               [(list (list 'a (list '@ a-att ...) _)) (has-class? "image" a-att)]
-               ; or the noscript has img as a first child
-               [(list (list 'img _)) #t]
-               [_ #f]))
-        return-no-element]
-       [#t
-        (list element-type
-              ;; attributes
-              ((compose1
-                ; uncollapsing
-                (curry attribute-maybe-update 'class
-                       (λ (class)
-                         (string-join
-                          ((compose1
-                            ; uncollapse all navbox items (bottom of page mass navigation)
-                            (curry u
-                                   (λ (classlist) (and (eq? element-type 'table)
-                                                       (member "navbox" classlist)
-                                                       (member "collapsed" classlist)))
-                                   (λ (classlist) (filter (curry (negate equal?) "collapsed") classlist)))
-                            ; uncollapse portable-infobox sections
-                            (curry u
-                                   (λ (classlist) (and (eq? element-type 'section)
-                                                       (member "pi-collapse" classlist)))
-                                   (λ (classlist) (filter (λ (v)
-                                                            (and (not (equal? v "pi-collapse-closed"))
-                                                                 (not (equal? v "pi-collapse"))))
-                                                          classlist)))
-                            ; generic: includes article sections and tables, probably more
-                            (curry u
-                                   (λ (classlist) (and (member "collapsible" classlist)
-                                                       (member "collapsed" classlist)))
-                                   (λ (classlist) (filter (curry (negate equal?) "collapsed") classlist))))
-                           (string-split class " "))
-                          " ")))
-                ; change links to stay on the same wiki
-                (curry attribute-maybe-update 'href
-                       (λ (href)
-                         ((compose1
-                           (λ (href) (regexp-replace #rx"^(/wiki/.*)" href (format "/~a\\1" wikiname)))
-                           (λ (href) (regexp-replace (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)" px-wikiname)) href "/\\1\\2")))
-                          href)))
-                ; add noreferrer to a.image
-                (curry u
-                       (λ (v) (and (eq? element-type 'a)
-                                   (has-class? "image" v)))
-                       (λ (v) (dict-update v 'rel (λ (s)
-                                                    (list (string-append (car s) " noreferrer")))
-                                           '(""))))
-                ; proxy images from inline styles, if strict_proxy is set
-                (curry u
-                       (λ (v) (config-true? 'strict_proxy))
-                       (λ (v) (attribute-maybe-update
-                               'style
-                               (λ (style)
-                                 (regexp-replace #rx"url\\(['\"]?(.*?)['\"]?\\)" style
-                                                 (λ (whole url)
-                                                   (string-append
-                                                    "url("
-                                                    (u-proxy-url url)
-                                                    ")")))) v)))
-                ; and also their links, if strict_proxy is set
-                (curry u
-                       (λ (v)
-                         (and (config-true? 'strict_proxy)
-                              (eq? element-type 'a)
-                              (or (has-class? "image-thumbnail" v)
-                                  (has-class? "image" v))))
-                       (λ (v) (attribute-maybe-update 'href u-proxy-url v)))
-                ; proxy images from src attributes, if strict_proxy is set
-                (curry u
-                       (λ (v) (config-true? 'strict_proxy))
-                       (λ (v) (attribute-maybe-update 'src u-proxy-url v)))
-                ; don't lazyload images
-                (curry u
-                       (λ (v) (dict-has-key? v 'data-src))
-                       (λ (v) (attribute-maybe-update 'src (λ (_) (car (dict-ref v 'data-src))) v)))
-                ; don't use srcset - TODO: use srcset?
-                (λ (v) (dict-remove v 'srcset)))
-               attributes)
-              ;; children
-              ((compose1
-                ; more uncollapsing - sample: bandori/wiki/BanG_Dream!_Wikia
-                (curry u
-                       (λ (v) (has-class? "mw-collapsible-content" attributes))
-                       (λ (v) (for/list ([element v])
-                                (u (λ (element) (pair? element))
-                                   (λ (element)
-                                     `(,(car element)
-                                       (@ ,@(attribute-maybe-update 'style (λ (a) (regexp-replace #rx"display: *none" a "display:inline")) (bits->attributes element)))
-                                       ,@(filter element-is-content? (cdr element))))
-                                   element))))
-                ; wrap blinking animated images in a slot so they can be animated with CSS
-                (curry u
-                       (λ (v) (and (has-class? "animated" attributes)
-                                   ((length v) . > . 1)))
-                       (λ (v)
-                         `((span (@ (class "animated-slot__outer") (style ,(format "--steps: ~a" (length v))))
-                                 (span (@ (class "animated-slot__inner"))
-                                       ,@v))))))
-               children))]))
-   tree))
-(module+ test
-  (define transformed
-    (parameterize ([(config-parameter 'strict_proxy) "true"])
-      (update-tree-wiki wiki-document "test")))
-  ; check that wikilinks are changed to be local
-  (check-equal? (get-attribute 'href (bits->attributes
-                                      ((query-selector
-                                        (λ (t a c) (dict-has-key? a 'data-test-wikilink))
-                                        transformed))))
-                "/test/wiki/Another_Page")
-  ; check that a.image has noreferrer
-  (check-equal? (get-attribute 'rel (bits->attributes
-                                     ((query-selector
-                                       (λ (t a c) (and (eq? t 'a)
-                                                       (has-class? "image" a)))
-                                       transformed))))
-                " noreferrer")
-  ; check that article collapse sections become uncollapsed
-  (check-equal? (get-attribute 'class (bits->attributes
-                                       ((query-selector
-                                         (λ (t a c) (dict-has-key? a 'data-test-collapsesection))
-                                         transformed))))
-                "collapsible collapsetoggle-inline")
-  ; check that iframes are gone
-  (check-false ((query-selector (λ (t a c) (eq? t 'iframe)) transformed)))
-  (check-equal? (let* ([alternative ((query-selector (λ (t a c) (has-class? "iframe-alternative" a)) transformed))]
-                       [link ((query-selector (λ (t a c) (eq? t 'a)) alternative))])
-                  (get-attribute 'href (bits->attributes link)))
-                "https://example.com/iframe-src")
-  ; check that images are proxied
-  (check-equal? (get-attribute 'src (bits->attributes
-                                     ((query-selector
-                                       (λ (t a c) (eq? t 'img))
-                                       transformed))))
-                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image-thumbnail.png")
-  ; check that links to images are proxied
-  (check-equal? (get-attribute 'href (bits->attributes
-                                      ((query-selector
-                                        (λ (t a c) (and (eq? t 'a) (has-class? "image-thumbnail" a)))
-                                        transformed))))
-                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png")
-  (check-equal? (get-attribute 'href (bits->attributes
-                                      ((query-selector
-                                        (λ (t a c) (member '(data-test-figure-a) a))
-                                        transformed))))
-                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png")
-  ; check that noscript images are removed
-  (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f))
-
 (define (page-wiki req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))
   (define user-cookies (user-cookies-getter req))
diff --git a/src/tree-updater.rkt b/src/tree-updater.rkt
new file mode 100644
index 00000000..815ef8a5
--- /dev/null
+++ b/src/tree-updater.rkt
@@ -0,0 +1,267 @@
+#lang racket/base
+(require racket/dict
+         racket/function
+         racket/match
+         racket/string
+         "config.rkt"
+         "pure-utils.rkt"
+         "url-utils.rkt"
+         "xexpr-utils.rkt")
+
+(provide
+ update-tree-wiki)
+
+(module+ test
+  (require rackunit
+           html-parsing)
+  (define wiki-document
+    '(*TOP*
+      (div (@ (class "mw-parser-output"))
+           (aside (@ (role "region") (class "portable-infobox pi-theme-wikia pi-layout-default"))
+                  (h2 (@ (class "pi-item pi-title") (data-source "title"))
+                      "Infobox Title")
+                  (figure (@ (class "pi-item pi-image") (data-source "image"))
+                          (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image image-thumbnail") (title ""))
+                             (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png") (class "pi-image-thumbnail")))))
+                  (div (@ (class "pi-item pi-data") (data-source "description"))
+                       (h3 (@ (class "pi-data-label"))
+                           "Description")
+                       (div (@ (class "pi-data-value"))
+                            "Mystery infobox!")))
+           (div (@ (data-test-collapsesection) (class "collapsible collapsetoggle-inline collapsed"))
+                (i (b "This section is hidden for dramatic effect."))
+                (div (@ (class "collapsible-content"))
+                     (p "Another page link: "
+                        (a (@ (data-test-wikilink) (href "https://test.fandom.com/wiki/Another_Page") (title "Another Page"))
+                           "Another Page"))))
+           (figure (@ (class "thumb tnone"))
+                   (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image") (data-test-figure-a))
+                      (img (@ (src "data:image/gif;base64,R0lGODlhAQABAIABAAAAAP///yH5BAEAAAEALAAAAAABAAEAQAICTAEAOw%3D%3D")
+                              (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
+                              (class "thumbimage lazyload"))))
+                   (noscript
+                    (a (@ (href "https://static.wikia.nocookie.net/nice-image.png") (class "image"))
+                       (img (@ (src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
+                               (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
+                               (class "thumbimage")))))
+                   (figcaption "Test figure!"))
+           (iframe (@ (src "https://example.com/iframe-src")))))))
+
+(define (updater wikiname)
+  (define classlist-updater
+    (compose1
+     ; uncollapse all navbox items (bottom of page mass navigation)
+     (curry u
+            (λ (classlist) (and ; removed due to scoping, would improve peformance (eq? element-type 'table)
+                            (member "navbox" classlist)
+                            (member "collapsed" classlist)))
+            (λ (classlist) (filter (curry (negate equal?) "collapsed") classlist)))
+     ; uncollapse portable-infobox sections
+     (curry u
+            (λ (classlist) (and ; removed due to scoping, would improve performance (eq? element-type 'section)
+                            (member "pi-collapse" classlist)))
+            (λ (classlist) (filter (λ (v)
+                                     (and (not (equal? v "pi-collapse-closed"))
+                                          (not (equal? v "pi-collapse"))))
+                                   classlist)))
+     ; generic: includes article sections and tables, probably more
+     (curry u
+            (λ (classlist) (and (member "collapsible" classlist)
+                                (member "collapsed" classlist)))
+            (λ (classlist) (filter (curry (negate equal?) "collapsed") classlist)))))
+
+  (define ((string-replace-curried from to) str)
+    (string-replace str from to))
+
+  (define class-updater
+    (compose1
+     (string-replace-curried " collapsed" "")
+     (string-replace-curried "pi-collapse-closed" "")
+     (string-replace-curried "pi-collapse" "")))
+
+  (define attributes-updater
+    (compose1
+     ; uncollapsing
+     #;(curry attribute-maybe-update 'class
+              (λ (class) (string-join (classlist-updater (string-split class " ")) " ")))
+     (curry attribute-maybe-update 'class class-updater)
+     ; change links to stay on the same wiki
+     (curry attribute-maybe-update 'href
+            (λ (href)
+              ((compose1
+                (λ (href) (regexp-replace #rx"^(/wiki/.*)" href (format "/~a\\1" wikiname)))
+                (λ (href) (regexp-replace (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)" px-wikiname)) href "/\\1\\2")))
+               href)))
+     ; add noreferrer to a.image
+     (curry u
+            (λ (v) (and #;(eq? element-type 'a)
+                        (has-class? "image" v)))
+            (λ (v) (dict-update v 'rel (λ (s)
+                                         (list (string-append (car s) " noreferrer")))
+                                '(""))))
+     ; proxy images from inline styles, if strict_proxy is set
+     (curry u
+            (λ (v) (config-true? 'strict_proxy))
+            (λ (v) (attribute-maybe-update
+                    'style
+                    (λ (style)
+                      (regexp-replace #rx"url\\(['\"]?(.*?)['\"]?\\)" style
+                                      (λ (whole url)
+                                        (string-append
+                                         "url("
+                                         (u-proxy-url url)
+                                         ")")))) v)))
+     ; and also their links, if strict_proxy is set
+     (curry u
+            (λ (v)
+              (and (config-true? 'strict_proxy)
+                   #;(eq? element-type 'a)
+                   (or (has-class? "image-thumbnail" v)
+                       (has-class? "image" v))))
+            (λ (v) (attribute-maybe-update 'href u-proxy-url v)))
+     ; proxy images from src attributes, if strict_proxy is set
+     (curry u
+            (λ (v) (config-true? 'strict_proxy))
+            (λ (v) (attribute-maybe-update 'src u-proxy-url v)))
+     ; don't lazyload images
+     (curry u
+            (λ (v) (dict-has-key? v 'data-src))
+            (λ (v) (attribute-maybe-update 'src (λ (_) (car (dict-ref v 'data-src))) v)))
+     ; don't use srcset - TODO: use srcset?
+     (λ (v) (dict-remove v 'srcset))))
+
+  (define (children-updater attributes children)
+    ; more uncollapsing - sample: bandori/wiki/BanG_Dream!_Wikia
+    ((λ (children)
+       (u
+        (λ (v) (has-class? "mw-collapsible-content" attributes))
+        (λ (v) (for/list ([element v])
+                 (u (λ (element) (pair? element))
+                    (λ (element)
+                      `(,(car element)
+                        (@ ,@(attribute-maybe-update 'style (λ (a) (regexp-replace #rx"display: *none" a "display:inline")) (bits->attributes element)))
+                        ,@(filter element-is-content? (cdr element))))
+                    element)))
+        children))
+     ; wrap blinking animated images in a slot so they can be animated with CSS
+     ((λ (children)
+        (u
+         (λ (v) (and (has-class? "animated" attributes)
+                     ((length v) . > . 1)))
+         (λ (v)
+           `((span (@ (class "animated-slot__outer") (style ,(format "--steps: ~a" (length v))))
+                   (span (@ (class "animated-slot__inner"))
+                         ,@v))))
+         children))
+      children)))
+
+  (define (updater element element-type attributes children)
+    ;; replace whole element?
+    (cond
+      ; wrap tables in a div.table-scroller
+      [(and (eq? element-type 'table)
+            (has-class? "wikitable" attributes)
+            (not (dict-has-key? attributes 'data-scrolling)))
+       `(div
+         ((class "table-scroller"))
+         ((,element-type (@ (data-scrolling) ,@attributes)
+                         ,@children)))]
+      ; exclude empty figcaptions
+      [(and (eq? element-type 'figcaption)
+            (or (eq? (length (filter element-is-element? children)) 0)
+                ((query-selector (λ (element-type attributes children)
+                                   (eq? element-type 'use))
+                                 element))))
+       return-no-element]
+      ; exclude infobox items that are videos, and gallery items that are videos
+      [(and (or (has-class? "pi-item" attributes)
+                (has-class? "wikia-gallery-item" attributes))
+            ((query-selector (λ (element-type attributes children)
+                               (has-class? "video-thumbnail" attributes))
+                             element)))
+       return-no-element]
+      ; exclude the invisible brackets after headings
+      [(and (eq? element-type 'span)
+            (has-class? "mw-editsection" attributes))
+       return-no-element]
+      ; display a link instead of an iframe
+      [(eq? element-type 'iframe)
+       (define src (car (dict-ref attributes 'src null)))
+       `(a
+         ((class "iframe-alternative") (href ,src))
+         (,(format "Embedded media: ~a" src)))]
+      ; remove noscript versions of images because they are likely lower quality than the script versions
+      [(and (eq? element-type 'noscript)
+            (match children
+              ; either the noscript has a.image as a first child...
+              [(list (list 'a (list '@ a-att ...) _)) (has-class? "image" a-att)]
+              ; or the noscript has img as a first child
+              [(list (list 'img _)) #t]
+              [_ #f]))
+       return-no-element]
+      [#t
+       (list element-type
+             ;; attributes
+             (attributes-updater #; element-type attributes)
+             ;; children
+             (children-updater attributes children))]))
+
+  updater)
+
+(define (update-tree-wiki tree wikiname)
+  (update-tree (updater wikiname) tree))
+
+(module+ test
+  (define transformed
+    (parameterize ([(config-parameter 'strict_proxy) "true"])
+      (update-tree-wiki wiki-document "test")))
+  ; check that wikilinks are changed to be local
+  (check-equal? (get-attribute 'href (bits->attributes
+                                      ((query-selector
+                                        (λ (t a c) (dict-has-key? a 'data-test-wikilink))
+                                        transformed))))
+                "/test/wiki/Another_Page")
+  ; check that a.image has noreferrer
+  (check-equal? (get-attribute 'rel (bits->attributes
+                                     ((query-selector
+                                       (λ (t a c) (and (eq? t 'a)
+                                                       (has-class? "image" a)))
+                                       transformed))))
+                " noreferrer")
+  ; check that article collapse sections become uncollapsed
+  (check-equal? (get-attribute 'class (bits->attributes
+                                       ((query-selector
+                                         (λ (t a c) (dict-has-key? a 'data-test-collapsesection))
+                                         transformed))))
+                "collapsible collapsetoggle-inline")
+  ; check that iframes are gone
+  (check-false ((query-selector (λ (t a c) (eq? t 'iframe)) transformed)))
+  (check-equal? (let* ([alternative ((query-selector (λ (t a c) (has-class? "iframe-alternative" a)) transformed))]
+                       [link ((query-selector (λ (t a c) (eq? t 'a)) alternative))])
+                  (get-attribute 'href (bits->attributes link)))
+                "https://example.com/iframe-src")
+  ; check that images are proxied
+  (check-equal? (get-attribute 'src (bits->attributes
+                                     ((query-selector
+                                       (λ (t a c) (eq? t 'img))
+                                       transformed))))
+                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image-thumbnail.png")
+  ; check that links to images are proxied
+  (check-equal? (get-attribute 'href (bits->attributes
+                                      ((query-selector
+                                        (λ (t a c) (and (eq? t 'a) (has-class? "image-thumbnail" a)))
+                                        transformed))))
+                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png")
+  (check-equal? (get-attribute 'href (bits->attributes
+                                      ((query-selector
+                                        (λ (t a c) (member '(data-test-figure-a) a))
+                                        transformed))))
+                "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png")
+  ; check that noscript images are removed
+  (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f)
+  ; benchmark
+  (when (file-exists? "Frog.html2")
+    (with-input-from-file "Frog.html2"
+      (λ ()
+        (define tree (html->xexp (current-input-port)))
+        (time (length (update-tree-wiki tree "minecraft")))))))

From 99b5d8d8f69825135f838c73153cf53a55f5f2ef Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 4 Dec 2022 23:55:18 +1300
Subject: [PATCH 082/166] Allow breaking lines in the URL in the footer

---
 static/main.css | 1 +
 1 file changed, 1 insertion(+)

diff --git a/static/main.css b/static/main.css
index b6973506..4fefe0f3 100644
--- a/static/main.css
+++ b/static/main.css
@@ -74,6 +74,7 @@ p {
     margin-top: 30px;
     padding-top: 20px;
     border-top: 1px solid var(--theme-page-text-color);
+    word-break: break-word;
 }
 .custom-footer__cols {
     display: grid;

From f216a1996ab3b2e4b3f7d82e637ae4325d660cab Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Tue, 29 Nov 2022 20:28:28 +0700
Subject: [PATCH 083/166] Stop redirecting pages if there's a redirect=no
 parameter

---
 src/page-wiki.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 6f22ad8f..e41b093d 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -94,10 +94,14 @@
                 #:head-data head-data
                 #:siteinfo siteinfo))
              (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
+             (define redirect-query-parameter (dict-ref (url-query (request-uri req)) 'redirect "yes"))
              (define headers
                (build-headers
                 always-headers
-                (when redirect-msg
+                ; redirect-query-parameter: only the string "no" is significant:
+                ; https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Wiki.php#L367
+                (when (and redirect-msg
+                           (not (equal? redirect-query-parameter "no")))
                   (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
                          [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
                     (header #"Refresh" value)))))

From 31bac8ab56e4865cf4441f1e3c738cec4b2b795c Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 10 Dec 2022 18:57:05 +1300
Subject: [PATCH 084/166] nofollow to fandom.com

---
 src/application-globals.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index e6feaafd..7caa270f 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -67,13 +67,13 @@
                             ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application_name)))))
                 ,(if source-url
                      `(div (p "This page displays proxied content from "
-                              (a (@ (href ,source-url) (rel "noreferrer")) ,source-url)
+                              (a (@ (href ,source-url) (rel "nofollow noreferrer")) ,source-url)
                               ,(format ". Text content is available under the ~a license, " (license^-text license))
                               (a (@ (href ,(license^-url license))) "see license info.")
                               " Media files may have different copying restrictions.")
                            (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))
                      `(div (p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "
-                              (a (@ (href "https://www.fandom.com/licensing")) "see license info.")
+                              (a (@ (href "https://www.fandom.com/licensing") (rel "nofollow")) "see license info.")
                               " Media files and official Fandom documents have different copying restrictions.")
                            (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))))))
 

From b8e5fb8dc536be683c201132665fd4431738d1ae Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 10 Dec 2022 19:16:28 +1300
Subject: [PATCH 085/166] nofollow to fandom.com (adding one that I missed)

---
 src/application-globals.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 7caa270f..6af4367d 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -69,7 +69,7 @@
                      `(div (p "This page displays proxied content from "
                               (a (@ (href ,source-url) (rel "nofollow noreferrer")) ,source-url)
                               ,(format ". Text content is available under the ~a license, " (license^-text license))
-                              (a (@ (href ,(license^-url license))) "see license info.")
+                              (a (@ (href ,(license^-url license)) (rel "nofollow")) "see license info.")
                               " Media files may have different copying restrictions.")
                            (p ,(format "Fandom is a trademark of Fandom, Inc. ~a is not affiliated with Fandom." (config-get 'application_name))))
                      `(div (p "Text content on wikis run by Fandom is available under the Creative Commons Attribution-Share Alike License 3.0 (Unported), "

From c7cce5479d7f602474b49abe9b81d6a48ce72d51 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 5 Feb 2023 17:56:15 +1300
Subject: [PATCH 086/166] Create archiver and offline code handlers

Somewhat messy. Will clean up gradually in future commits.
---
 archiver/archive-info.rkt        |    3 +
 archiver/archiver-cli.rkt        |   71 ++
 archiver/archiver-database.rkt   |   47 +
 archiver/archiver-gui.rkt        |  204 ++++
 archiver/archiver.rkt            |  309 +++++
 breezewiki.rkt                   |    4 +
 dist.rkt                         |    4 +
 lib/archive-file-mappings.rkt    |   28 +
 lib/html-parsing/main.rkt        | 1887 ++++++++++++++++++++++++++++++
 lib/mime-types.rkt               |   34 +
 lib/mime.types                   |   85 ++
 {src => lib}/pure-utils.rkt      |   17 +-
 {src => lib}/syntax.rkt          |   59 +-
 {src => lib}/tree-updater.rkt    |   41 +-
 {src => lib}/typed-rackunit.rkt  |    0
 {src => lib}/url-utils.rkt       |   14 +-
 {src => lib}/xexpr-utils.rkt     |    6 +-
 misc/download-wiki-names.rkt     |    2 +-
 src/application-globals.rkt      |  172 ++-
 src/config.rkt                   |   81 +-
 src/data.rkt                     |   53 +-
 src/dispatcher-tree.rkt          |   11 +-
 src/extwiki-data.rkt             |  401 +++++++
 src/extwiki-generic.rkt          |  125 ++
 src/niwa-data.rkt                |  156 ---
 src/page-category.rkt            |    7 +-
 src/page-file.rkt                |   88 +-
 src/page-global-search.rkt       |    4 +-
 src/page-home.rkt                |   11 +-
 src/page-proxy.rkt               |    4 +-
 src/page-redirect-wiki-home.rkt  |    4 +-
 src/page-search.rkt              |   14 +-
 src/page-set-user-settings.rkt   |    4 +-
 src/page-static-archive.rkt      |   90 ++
 src/page-static.rkt              |   36 +-
 src/page-subdomain.rkt           |    4 +-
 src/page-wiki-offline.rkt        |  142 +++
 src/page-wiki.rkt                |   31 +-
 src/reloadable.rkt               |    5 +-
 src/whole-utils.rkt              |   11 +
 static/breezewiki-color.svg      |  136 +++
 static/breezewiki-icon-color.svg |   83 ++
 static/breezewiki-master.svg     |  142 +++
 static/internal.css              |    2 +-
 static/main.css                  |   49 +-
 static/three-balloons.png        |  Bin 0 -> 6316 bytes
 46 files changed, 4274 insertions(+), 407 deletions(-)
 create mode 100644 archiver/archive-info.rkt
 create mode 100644 archiver/archiver-cli.rkt
 create mode 100644 archiver/archiver-database.rkt
 create mode 100644 archiver/archiver-gui.rkt
 create mode 100644 archiver/archiver.rkt
 create mode 100644 lib/archive-file-mappings.rkt
 create mode 100644 lib/html-parsing/main.rkt
 create mode 100644 lib/mime-types.rkt
 create mode 100644 lib/mime.types
 rename {src => lib}/pure-utils.rkt (69%)
 rename {src => lib}/syntax.rkt (66%)
 rename {src => lib}/tree-updater.rkt (87%)
 rename {src => lib}/typed-rackunit.rkt (100%)
 rename {src => lib}/url-utils.rkt (94%)
 rename {src => lib}/xexpr-utils.rkt (96%)
 create mode 100644 src/extwiki-data.rkt
 create mode 100644 src/extwiki-generic.rkt
 delete mode 100644 src/niwa-data.rkt
 create mode 100644 src/page-static-archive.rkt
 create mode 100644 src/page-wiki-offline.rkt
 create mode 100644 src/whole-utils.rkt
 create mode 100644 static/breezewiki-color.svg
 create mode 100644 static/breezewiki-icon-color.svg
 create mode 100644 static/breezewiki-master.svg
 create mode 100644 static/three-balloons.png

diff --git a/archiver/archive-info.rkt b/archiver/archive-info.rkt
new file mode 100644
index 00000000..17bb7475
--- /dev/null
+++ b/archiver/archive-info.rkt
@@ -0,0 +1,3 @@
+#lang info
+
+(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "ini-lib" "memo" "net-cookies-lib" "gui-easy-lib" "sql" "charterm" "cli"))
diff --git a/archiver/archiver-cli.rkt b/archiver/archiver-cli.rkt
new file mode 100644
index 00000000..d96aa650
--- /dev/null
+++ b/archiver/archiver-cli.rkt
@@ -0,0 +1,71 @@
+#lang cli
+(require charterm
+         "archiver.rkt")
+
+(help (usage "Downloads a single Fandom wiki in BreezeWiki offline format."
+             ""
+             "Downloaded pages go into `archive/` next to the executable."
+             "Database goes into `archiver.db*` next to the executable."
+             "The database is necessary to store your download progress and resume where you left off if the process is interrupted.")
+      (ps ""
+          "Default output style is `progress` in a tty and `lines` otherwise."))
+
+(flag (output-quiet?)
+      ("-q" "--output-quiet" "disable progress output")
+      (output-quiet? #t))
+
+(flag (output-lines?)
+      ("-l" "--output-lines" "output the name of each file downloaded")
+      (output-lines? #t))
+
+(flag (output-progress?)
+      ("-p" "--output-progress" "progress output for terminals")
+      (output-progress? #t))
+
+(constraint (one-of output-quiet? output-lines? output-progress?))
+
+(program
+ (start [wikiname "wikiname to download"])
+ ;; set up arguments
+ (define width 80)
+ (when (not (or (output-quiet?) (output-lines?) (output-progress?)))
+   (cond [(terminal-port? current-input-port)
+          (output-progress? #t)]
+         [else
+          (output-lines? #t)]))
+ (define (update-width)
+   (when (output-progress?)
+     (with-charterm
+       (call-with-values (λ () (charterm-screen-size))
+                         (λ (cols rows) (set! width cols))))))
+ (update-width)
+ ;; check
+ (when (or (not wikiname) (equal? wikiname ""))
+   (raise-user-error "Please specify the wikiname to download on the command line."))
+ ;; stage 1
+ (cond [(output-lines?) (displayln "Downloading list of pages...")]
+       [(output-progress?) (printf "Downloading list of pages... \r")])
+ (if-necessary-download-list-of-pages
+  wikiname
+  (λ (a b c)
+    (cond [(output-progress?) (printf "Downloading list of pages... [~a/~b]\r" a b)])))
+ ;; stage 2
+ (save-each-page
+  wikiname
+  (λ (a b c)
+    (define basename (basename->name-for-query c))
+    (cond
+      [(output-lines?)
+       (displayln basename)]
+      [(output-progress?)
+       (when (eq? (modulo a 20) 0)
+         (thread (λ () (update-width))))
+       (define prefix (format "[~a/~a] " a b))
+       (define rest (- width (string-length prefix)))
+       (define real-width (min (string-length basename) rest))
+       (define spare-width (- rest real-width))
+       (define name-display (substring basename 0 real-width))
+       (define whitespace (make-string spare-width #\ ))
+       (printf "~a~a~a\r" prefix name-display whitespace)]))))
+
+(run start)
diff --git a/archiver/archiver-database.rkt b/archiver/archiver-database.rkt
new file mode 100644
index 00000000..2defb0e6
--- /dev/null
+++ b/archiver/archiver-database.rkt
@@ -0,0 +1,47 @@
+#lang racket/base
+(require racket/list
+         racket/path
+         racket/runtime-path
+         racket/string
+         json
+         json-pointer
+         db
+         "../lib/syntax.rkt")
+
+(provide
+ slc)
+
+(define-runtime-path database-file "../storage/archiver.db")
+
+(define migrations
+  (wrap-sql
+   ((query-exec slc "create table page (wikiname TEXT NOT NULL, basename TEXT NOT NULL, progress INTEGER NOT NULL, PRIMARY KEY (wikiname, basename))")
+    (query-exec slc "create table wiki (wikiname TEXT NOT NULL, progress INTEGER, PRIMARY KEY (wikiname))"))
+   ((query-exec slc "create table special_page (wikiname TEXT NOT NULL, key TEXT NOT NULL, basename TEXT NOT NULL, PRIMARY KEY (wikiname, key))"))
+   ((query-exec slc "update wiki set progress = 2 where wikiname in (select wikiname from wiki inner join page using (wikiname) group by wikiname having min(page.progress) = 1)"))
+   ((query-exec slc "create table image (wikiname TEXT NOT NULL, hash TEXT NTO NULL, url TEXT NOT NULL, ext TEXT, source INTEGER NOT NULL, progress INTEGER NOT NULL, PRIMARY KEY (wikiname, hash))"))
+   ((query-exec slc "alter table wiki add column sitename TEXT")
+    (query-exec slc "alter table wiki add column basepage TEXT")
+    (query-exec slc "alter table wiki add column license_text TEXT")
+    (query-exec slc "alter table wiki add column license_url TEXT"))))
+
+(define slc (sqlite3-connect #:database database-file #:mode 'create))
+(query-exec slc "PRAGMA journal_mode=WAL")
+(define database-version
+  (with-handlers ([exn:fail:sql?
+                   (λ (exn)
+                     ; need to set up the database
+                     (query-exec slc "create table database_version (version integer, primary key (version))")
+                     (query-exec slc "insert into database_version values (0)")
+                     0)])
+    (query-value slc "select version from database_version")))
+
+(let do-migrate-step ()
+  (when (database-version . < . (length migrations))
+    (call-with-transaction
+     slc
+     (list-ref migrations database-version))
+    (set! database-version (add1 database-version))
+    (query-exec slc "update database_version set version = $1" database-version)
+    (do-migrate-step)))
+
diff --git a/archiver/archiver-gui.rkt b/archiver/archiver-gui.rkt
new file mode 100644
index 00000000..1badf650
--- /dev/null
+++ b/archiver/archiver-gui.rkt
@@ -0,0 +1,204 @@
+#lang racket/base
+(require racket/class
+         racket/list
+         racket/port
+         racket/set
+         racket/string
+         db
+         net/http-easy
+         racket/gui/easy
+         racket/gui/easy/operator
+         "archiver-database.rkt"
+         "archiver.rkt"
+         "../lib/url-utils.rkt"
+         "../lib/xexpr-utils.rkt")
+
+(define active-threads (mutable-seteq))
+
+(define/obs @auto-retry #f)
+(define/obs @wikiname "")
+(define/obs @state 'waiting)
+(define/obs @num-pages 1)
+(define/obs @done-pages 0)
+(define/obs @just-done "")
+(define/obs @queue '())
+(define @title
+  (obs-combine
+   (λ (state queue num-pages done-pages)
+     (define suffix (if (pair? queue)
+                        (format " +~a" (length queue))
+                        ""))
+     (define progress (if (eq? num-pages 0)
+                          " 0%"
+                          (format " ~a%" (round (inexact->exact (* (/ done-pages num-pages) 100))))))
+     (case state
+       [(waiting stage-0) (format "Fandom Archiver~a" suffix)]
+       [(stage-1) (format "Fandom Archiver 0%~a" suffix)]
+       [(stage-2) (format "Fandom Archiver~a~a" progress suffix)]
+       [(err) "ERROR Fandom Archiver"]
+       [(done) "Fandom Archiver 100%"]))
+   @state @queue @num-pages (obs-throttle @done-pages #:duration 5000)))
+
+(define-syntax-rule (t body ...)
+  (set-add! active-threads (thread (λ () body ...))))
+
+(define (do-start-or-queue)
+  (define wikiname (obs-peek @wikiname))
+  (:= @wikiname "")
+  (when (not (equal? (string-trim wikiname) ""))
+    (@queue . <~ . (λ (q) (append q (list wikiname))))
+    (shift-queue-maybe)))
+
+(define (shift-queue-maybe)
+  (when (memq (obs-peek @state) '(waiting done))
+    (define q (obs-peek @queue))
+    (cond
+      [(pair? q)
+       (define wikiname (car q))
+       (:= @queue (cdr q))
+       (do-start-stage1 wikiname)]
+      [#t (:= @state 'done)])))
+
+(define (do-start-stage1 wikiname)
+  (:= @just-done "")
+  (:= @done-pages 0)
+  (:= @num-pages 1)
+  (t (with-handlers ([exn:fail? (handle-graphical-exn wikiname)])
+       (:= @state 'stage-0)
+       (if-necessary-download-list-of-pages wikiname (λ (now-done num-pages just-done-name)
+                                                       (:= @num-pages num-pages)
+                                                       (:= @done-pages now-done)
+                                                       (:= @just-done just-done-name)
+                                                       (:= @state 'stage-1)))
+       (do-start-stage2 wikiname))))
+
+(define (do-start-stage2 wikiname)
+  (:= @just-done "")
+  (:= @num-pages 1)
+  (:= @done-pages 0)
+  (t (with-handlers ([exn:fail? (handle-graphical-exn wikiname)])
+       (save-each-page wikiname (λ (now-done num-pages just-done-path)
+                                  (:= @num-pages num-pages)
+                                  (:= @done-pages now-done)
+                                  (:= @just-done just-done-path)))
+       (:= @state 'waiting)
+       (shift-queue-maybe)))
+  (:= @state 'stage-2))
+
+(define (exn->string e)
+  (with-output-to-string
+    (λ ()
+      (displayln (exn-message e))
+      (displayln "context:")
+      (for ([item (continuation-mark-set->context (exn-continuation-marks e))])
+        (printf "  ~a" (srcloc->string (cdr item)))
+        (when (car item)
+          (printf ": ~a" (car item)))
+        (displayln "")))))
+
+(define ((handle-graphical-exn wikiname) e)
+  (displayln (exn->string e) (current-error-port))
+  (cond
+    [(obs-peek @auto-retry)
+     (do-retry-end wikiname)]
+    [#t
+     (:= @state 'err)
+     (thread
+      (λ ()
+        (define/obs @visible? #t)
+        (render
+         (dialog #:title "Download Error"
+                 #:style '(resize-border)
+                 #:mixin (λ (%) (class % (super-new)
+                                  (obs-observe! @visible? (λ (visible?) (send this show visible?)))))
+                 (vpanel #:margin '(15 15)
+                         (text "Encountered this error while downloading:")
+                         (input #:style '(multiple hscroll)
+                                #:min-size '(#f 200)
+                                (exn->string e))
+                         (button "Retry Now" (λ () (:= @visible? #f) (do-retry-now wikiname)))
+                         (button "Retry Round-Robin" (λ () (:= @visible? #f) (do-retry-end wikiname)))
+                         (button "Skip Wiki" (λ () (:= @visible? #f) (do-continue)))
+                         (button "Use Auto-Retry" (λ ()
+                                                    (:= @auto-retry #t)
+                                                    (:= @visible? #f)
+                                                    (do-retry-end wikiname)))
+                         (text "Be careful not to auto-retry an infinite loop!")))
+         main-window)))
+     (sleep)
+     ; make sure the old broken threads are all gone
+     (for ([th active-threads]) (kill-thread th))
+     (set-clear! active-threads)]))
+
+(define (do-retry-now wikiname)
+  (@queue . <~ . (λ (q) (append (list wikiname) q)))
+  (:= @state 'waiting)
+  (shift-queue-maybe))
+
+(define (do-retry-end wikiname)
+  (@queue . <~ . (λ (q) (append q (list wikiname))))
+  (:= @state 'waiting)
+  (shift-queue-maybe))
+
+(define (do-continue)
+  (:= @state 'waiting)
+  (shift-queue-maybe))
+
+(define (display-basename basename)
+  (define limit 40)
+  (cond [(string? basename)
+         (define query (basename->name-for-query basename))
+         (define segments (string-split query "/"))
+         (when (and ((string-length query) . > . limit) ((length segments) . >= . 2))
+           (set! query (string-append ".../" (last segments))))
+         (when ((string-length query) . > . limit)
+           (set! query (string-append (substring query 0 (- limit 3)) "...")))
+         query]
+        [#t "?"]))
+
+(define main-window
+  (render
+   (window #:title @title
+           #:size '(360 200)
+           #:mixin (λ (%) (class %
+                            (super-new)
+                            (define/augment (on-close)
+                              (for ([th active-threads]) (kill-thread th))
+                              (disconnect slc))))
+           ;; input box at the top
+           (hpanel (text "https://")
+                   (input @wikiname
+                          (λ (event data) (cond
+                                            [(eq? event 'input) (:= @wikiname data)]
+                                            [(eq? event 'return) (do-start-or-queue)])))
+                   (text ".fandom.com"))
+           (button (@queue . ~> . (λ (q) (if (null? q) "Start" "Queue"))) (λ () (do-start-or-queue)))
+           (text (@queue . ~> . (λ (q) (if (null? q) "" (string-join #:before-first "Queue: " q ", ")))))
+           ;; show status based on overall application state
+           (case-view
+            @state
+            ;; waiting for wikiname entry
+            ((waiting) (vpanel
+                        (text "Fill in the wikiname and click start.")))
+            ((stage-0) (vpanel
+                        (text "Checking data...")))
+            ((stage-1) (vpanel
+                        (text "Gathering list of pages...")
+                        (text (@just-done . ~> . display-basename))
+                        (text (@done-pages . ~> . (λ (x) (if (eq? x 0)
+                                                             "0/?"
+                                                             (format "~a/~a" x (obs-peek @num-pages))))))))
+            ;; downloading contents
+            ((stage-2) (vpanel
+                        (text "Downloading page text...")
+                        (progress @done-pages #:range @num-pages)
+                        (text (@done-pages . ~> . (λ (x) (format "~a/~a" x (obs-peek @num-pages)))))
+                        (text (@just-done . ~> . display-basename))))
+            ((done) (vpanel
+                     (text "All wikis downloaded!")))
+            ((err) (vpanel
+                      (text "Error. Check the popup window.")))
+            (else (text (@state . ~> . (λ (state) (format "invalid state: ~a" state))))))
+           (checkbox #:label "Auto-retry on error? (Dangerous)"
+                     #:checked? @auto-retry
+                     (λ:= @auto-retry)))))
diff --git a/archiver/archiver.rkt b/archiver/archiver.rkt
new file mode 100644
index 00000000..fbeec460
--- /dev/null
+++ b/archiver/archiver.rkt
@@ -0,0 +1,309 @@
+#lang racket/base
+(require racket/file
+         racket/function
+         racket/list
+         racket/runtime-path
+         racket/string
+         net/url
+         net/mime
+         file/sha1
+         net/http-easy
+         db
+         "../lib/html-parsing/main.rkt"
+         json
+         "archiver-database.rkt"
+         "../lib/mime-types.rkt"
+         "../lib/tree-updater.rkt"
+         "../lib/url-utils.rkt"
+         "../lib/xexpr-utils.rkt"
+         "../lib/archive-file-mappings.rkt")
+
+(define archive-slc slc)
+
+(provide
+ if-necessary-download-list-of-pages
+ download-list-of-pages
+ save-each-page
+ basename->name-for-query
+ image-url->values
+ hash->save-dir
+ archive-slc)
+
+(module+ test
+  (require rackunit))
+
+(define-runtime-path archive-root "../storage/archive")
+#;(define archive-root "archive")
+
+(define sources '#hasheq((style . 1) (page . 2)))
+
+(define (get-origin wikiname)
+  (format "https://~a.fandom.com" wikiname))
+
+(define (insert-wiki-entry wikiname)
+  (define dest-url
+    (format "https://~a.fandom.com/api.php?~a"
+            wikiname
+            (params->query '(("action" . "query")
+                             ("meta" . "siteinfo")
+                             ("siprop" . "general|rightsinfo")
+                             ("format" . "json")
+                             ("formatversion" . "2")))))
+  (define data (response-json (get dest-url)))
+  (define exists? (query-maybe-value slc "select progress from wiki where wikiname = ?" wikiname))
+  (if exists?
+      (query-exec slc "update wiki set sitename = ?, basepage = ?, license_text = ?, license_url = ? where wikiname = ?"
+                  (jp "/query/general/sitename" data)
+                  (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
+                  (jp "/query/rightsinfo/text" data)
+                  (jp "/query/rightsinfo/url" data)
+                  wikiname)
+      (query-exec slc "insert into wiki (wikiname, progress, sitename, basepage, license_text, license_url) values (?, 1, ?, ?, ?, ?)"
+                  wikiname
+                  (jp "/query/general/sitename" data)
+                  (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
+                  (jp "/query/rightsinfo/text" data)
+                  (jp "/query/rightsinfo/url" data))))
+
+;; call 1 if not yet done for that wiki
+(define (if-necessary-download-list-of-pages wikiname callback)
+  (define wiki-progress (query-maybe-value slc "select progress from wiki where wikiname = ?" wikiname))
+  ;; done yet?
+  (unless (and (real? wiki-progress) (wiki-progress . >= . 1))
+    ;; count total pages
+    (define dest-url
+      (format "https://~a.fandom.com/api.php?~a"
+              wikiname
+              (params->query `(("action" . "query") ("meta" . "siteinfo") ("siprop" . "statistics") ("format" . "json")))))
+    (define num-pages (jp "/query/statistics/articles" (response-json (get dest-url))))
+    (download-list-of-pages wikiname callback 0 num-pages #f)))
+
+;; 1. Download list of wiki pages and store in database
+(define (download-list-of-pages wikiname callback total-so-far grand-total path-with-namefrom)
+  (define url (if path-with-namefrom
+                  (format "https://~a.fandom.com~a" wikiname path-with-namefrom)
+                  (format "https://~a.fandom.com/wiki/Local_Sitemap" wikiname)))
+  (define r (get url))
+  (define page (html->xexp (bytes->string/utf-8 (response-body r))))
+  (define link-namefrom
+    ((query-selector (λ (t a c x) (and (eq? t 'a)
+                                       (pair? x)
+                                       (string-contains? (car x) "Next page")
+                                       (let ([href (get-attribute 'href a)] )
+                                         (and href (string-contains? href "/wiki/Local_Sitemap")))))
+                     page #:include-text? #t)))
+  (define row-values
+    (for/list ([link (in-producer
+                      (query-selector
+                       (λ (t a c) (eq? t 'a))
+                       ((query-selector (λ (t a c) (has-class? "mw-allpages-chunk" a)) page)))
+                      #f)])
+      (list wikiname (local-encoded-url->basename (get-attribute 'href (bits->attributes link))) 0)))
+  (define query-template (string-join (make-list (length row-values) "(?, ?, ?)") ", " #:before-first "insert or ignore into page (wikiname, basename, progress) values "))
+  (apply query-exec slc query-template (flatten row-values))
+  (define new-total (+ (length row-values) total-so-far))
+  (callback new-total grand-total (second (last row-values)))
+  (cond
+    [link-namefrom ; repeat on the next page
+     (download-list-of-pages wikiname callback new-total grand-total (get-attribute 'href (bits->attributes link-namefrom)))]
+    [#t ; all done downloading sitemap
+     (insert-wiki-entry wikiname)]))
+
+;; 2. Download each page via API and:
+;; * Save API response to file
+(define max-page-progress 1)
+(define (save-each-page wikiname callback)
+  ;; prepare destination folder
+  (define save-dir (build-path archive-root wikiname))
+  (make-directory* save-dir)
+  ;; gather list of basenames to download (that aren't yet complete)
+  (define basenames (query-list slc "select basename from page where wikiname = ? and progress < ?"
+                                wikiname max-page-progress))
+  ;; counter of complete/incomplete basenames
+  (define already-done-count
+    (query-value slc "select count(*) from page where wikiname = ? and progress = ?"
+                 wikiname max-page-progress))
+  (define not-done-count
+    (query-value slc "select count(*) from page where wikiname = ? and progress < ?"
+                 wikiname max-page-progress))
+  ;; set initial progress
+  (callback already-done-count (+ already-done-count not-done-count) "")
+  ;; loop through basenames and download
+  (for ([basename basenames]
+        [i (in-naturals 1)])
+    (define name-for-query (basename->name-for-query basename))
+    (define dest-url
+      (format "https://~a.fandom.com/api.php?~a"
+              wikiname
+              (params->query `(("action" . "parse")
+                               ("page" . ,name-for-query)
+                               ("prop" . "text|headhtml|langlinks")
+                               ("formatversion" . "2")
+                               ("format" . "json")))))
+    (define r (get dest-url))
+    (define body (response-body r))
+    (define filename (string-append basename ".json"))
+    (define save-path
+      (cond [((string-length basename) . > . 240)
+             (define key (sha1 (string->bytes/latin-1 basename)))
+             (query-exec slc "insert into special_page (wikiname, key, basename) values (?, ?, ?)"
+                         wikiname key basename)
+             (build-path save-dir (string-append key ".json"))]
+            [#t
+             (build-path save-dir (string-append basename ".json"))]))
+    (display-to-file body save-path #:exists 'replace)
+    (query-exec slc "update page set progress = 1 where wikiname = ? and basename = ?"
+                wikiname basename)
+    (callback (+ already-done-count i) (+ already-done-count not-done-count) basename))
+  ;; saved all pages, register that fact in the database
+  (query-exec slc "update wiki set progress = 2 where wikiname = ?" wikiname))
+
+;; 3. Download CSS and:
+;; * Save CSS to file
+;; * Record style images to database
+(define (check-style-for-images wikiname path)
+  (define content (file->string path))
+  (define urls (regexp-match* #rx"url\\(\"?'?([^)]*)'?\"?\\)" content #:match-select cadr))
+  (for/list ([url urls]
+             #:when (not (or (equal? url "")
+                             (equal? url "'")
+                             (string-contains? url "/resources-ucp/")
+                             (string-contains? url "/fonts/")
+                             (string-contains? url "/drm_fonts/")
+                             (string-contains? url "//db.onlinewebfonts.com/")
+                             (string-contains? url "//bits.wikimedia.org/")
+                             (string-contains? url "dropbox")
+                             (string-contains? url "only=styles")
+                             (string-contains? url "https://https://")
+                             (regexp-match? #rx"^%20" url)
+                             (regexp-match? #rx"^data:" url))))
+    (cond
+      [(string-prefix? url "https://") url]
+      [(string-prefix? url "http://") (regexp-replace #rx"http:" url "https:")]
+      [(string-prefix? url "//") (string-append "https:" url)]
+      [(string-prefix? url "/") (format "https://~a.fandom.com~a" wikiname url)]
+      [else (raise-user-error "While calling check-style-for-images, this URL had an unknown format and couldn't be saved:" url path)])))
+
+(define (download-styles-for-wiki wikiname)
+  (define save-dir (build-path archive-root wikiname "styles"))
+  (make-directory* save-dir)
+  (define theme (λ (theme-name)
+                  (cons (format "https://~a.fandom.com/wikia.php?controller=ThemeApi&method=themeVariables&variant=~a" wikiname theme-name)
+                        (build-path save-dir (format "themeVariables-~a.css" theme-name)))))
+  ;; (Listof (Pair url save-path))
+  (define styles
+    (list
+     (theme "default")
+     (theme "light")
+     (theme "dark")
+     (cons (format "https://~a.fandom.com/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop" wikiname)
+           (build-path save-dir "site.css"))))
+  (for ([style styles])
+    (define r (get (car style)))
+    (define body (response-body r))
+    (display-to-file body (cdr style) #:exists 'replace)
+    ;; XXX: how the HELL do I deal with @import?? would need some kind of recursion here. how will the page server know where to look up the style file to be able to serve them again? do I add another link-stylesheet tag to the main page? what about the remaining stuck @import url?
+    )
+  styles)
+
+(define (do-step-3 wikiname)
+  (define wiki-progress (query-maybe-value slc "select progress from wiki where wikiname = ?" wikiname))
+  (unless (and (number? wiki-progress) (wiki-progress . >= . 3))
+    (define styles (download-styles-for-wiki wikiname))
+    (define unique-image-urls
+      (remove-duplicates
+       (map image-url->values
+            (flatten
+             (for/list ([style styles])
+               (check-style-for-images wikiname (cdr style)))))
+       #:key cdr))
+    (println unique-image-urls)
+    (for ([pair unique-image-urls])
+      (query-exec slc "insert or ignore into image (wikiname, url, hash, ext, source, progress) values (?, ?, ?, NULL, 1, 0)" wikiname (car pair) (cdr pair)))
+    (query-exec slc "update wiki set progress = 3 where wikiname = ?" wikiname)))
+
+;; 4: From downloaded pages, record URLs of image sources and inline style images to database
+(define (hash->save-dir wikiname hash)
+  (build-path archive-root wikiname "images" (substring hash 0 1) (substring hash 0 2)))
+
+(define (image-url->values i)
+  ;; TODO: handle case where there is multiple cb parameter on minecraft wiki
+  ;; TODO: ensure it still "works" with broken &amp; on minecraft wiki
+  (define no-cb (regexp-replace #rx"\\cb=[0-9]+&?" i "")) ; remove cb url parameter which does nothing
+  (define key (regexp-replace #rx"[&?]$" no-cb "")) ; remove extra separator if necessary
+  (define hash (sha1 (string->bytes/utf-8 key)))
+  (cons key hash))
+
+(define (check-json-for-images wikiname path)
+  (define data (with-input-from-file path (λ () (read-json))))
+  (define page (html->xexp (preprocess-html-wiki (jp "/parse/text" data))))
+  (define tree (update-tree-wiki page wikiname))
+  (remove-duplicates
+   (for/list ([element (in-producer
+                        (query-selector
+                         (λ (t a c)
+                           (and (eq? t 'img)
+                                (get-attribute 'src a)))
+                         tree)
+                        #f)])
+     (image-url->values (get-attribute 'src (bits->attributes element))))))
+
+;; 5. Download image sources and style images according to database
+(define (save-each-image wikiname source callback)
+  ;; gather list of basenames to download (that aren't yet complete)
+  (define rows (query-rows slc "select url, hash from image where wikiname = ? and source <= ? and progress < 1"
+                                wikiname source))
+  ;; counter of complete/incomplete basenames
+  (define already-done-count
+    (query-value slc "select count(*) from image where wikiname = ? and source <= ? and progress = 1"
+                 wikiname source))
+  (define not-done-count
+    (query-value slc "select count(*) from image where wikiname = ? and source <= ? and progress < 1"
+                 wikiname source))
+  ;; set initial progress
+  (callback already-done-count (+ already-done-count not-done-count) "")
+  ;; loop through urls and download
+  (for ([row rows]
+        [i (in-naturals 1)])
+    ;; row fragments
+    (define url (vector-ref row 0))
+    (define hash (vector-ref row 1))
+    ;; check
+    (printf "~a -> ~a~n" url hash)
+    (define r (get url))
+    (define declared-type (response-headers-ref r 'content-type))
+    (define final-type (if (equal? declared-type #"application/octet-stream")
+                           (let ([sniff-entity (message-entity (mime-analyze (response-body r)))])
+                             (string->bytes/latin-1 (format "~a/~a" (entity-type sniff-entity) (entity-subtype sniff-entity))))
+                           declared-type))
+    (define ext (bytes->string/latin-1 (mime-type->ext final-type)))
+    ;; save
+    (define save-dir (hash->save-dir wikiname hash))
+    (make-directory* save-dir)
+    (define save-path (build-path save-dir (string-append hash "." ext)))
+    (define body (response-body r))
+    (display-to-file body save-path #:exists 'replace)
+    (query-exec slc "update image set progress = 1, ext = ? where wikiname = ? and hash = ?"
+                ext wikiname hash)
+    (callback (+ already-done-count i) (+ already-done-count not-done-count) (string-append hash "." ext)))
+  ;; TODO: saved all images, register that fact in the database
+  )
+
+
+(module+ test
+  (check-equal? (html->xexp "<img src=\"https://example.com/images?src=Blah.jpg&amp;width=150\">")
+                '(*TOP* (img (@ (src "https://example.com/images?src=Blah.jpg&width=150")))))
+  #;(download-list-of-pages "minecraft" values)
+  #;(save-each-page "minecraft" values)
+  #;(check-json-for-images "chiki" (build-path archive-root "chiki" "Fiona.json"))
+  #;(do-step-3 "gallowmere")
+  #;(save-each-image "gallowmere" (hash-ref sources 'style) (λ (a b c) (printf "~a/~a ~a~n" a b c)))
+
+  #;(for ([wikiname (query-list slc "select wikiname from wiki")])
+      (println wikiname)
+      (insert-wiki-entry wikiname))
+
+  #;(for ([wikiname (query-list slc "select wikiname from wiki")])
+      (println wikiname)
+      (do-step-3 wikiname)
+      (save-each-image wikiname (hash-ref sources 'style) (λ (a b c) (printf "~a/~a ~a~n" a b c)))))
diff --git a/breezewiki.rkt b/breezewiki.rkt
index 44d6771c..2e2772f9 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -19,8 +19,10 @@
 (require-reloadable "src/page-search.rkt" page-search)
 (require-reloadable "src/page-set-user-settings.rkt" page-set-user-settings)
 (require-reloadable "src/page-static.rkt" static-dispatcher)
+(require-reloadable "src/page-static-archive.rkt" page-static-archive)
 (require-reloadable "src/page-subdomain.rkt" subdomain-dispatcher)
 (require-reloadable "src/page-wiki.rkt" page-wiki)
+(require-reloadable "src/page-wiki-offline.rkt" page-wiki-offline)
 (require-reloadable "src/page-file.rkt" page-file)
 
 (reload!)
@@ -42,7 +44,9 @@
       page-proxy
       page-search
       page-set-user-settings
+      page-static-archive
       page-wiki
+      page-wiki-offline
       page-file
       redirect-wiki-home
       static-dispatcher
diff --git a/dist.rkt b/dist.rkt
index 35e1824c..deb08a89 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -13,8 +13,10 @@
 (require (only-in "src/page-search.rkt" page-search))
 (require (only-in "src/page-set-user-settings.rkt" page-set-user-settings))
 (require (only-in "src/page-static.rkt" static-dispatcher))
+(require (only-in "src/page-static-archive.rkt" page-static-archive))
 (require (only-in "src/page-subdomain.rkt" subdomain-dispatcher))
 (require (only-in "src/page-wiki.rkt" page-wiki))
+(require (only-in "src/page-wiki-offline.rkt" page-wiki-offline))
 (require (only-in "src/page-file.rkt" page-file))
 
 (serve/launch/wait
@@ -31,7 +33,9 @@
     page-proxy
     page-search
     page-set-user-settings
+    page-static-archive
     page-wiki
+    page-wiki-offline
     page-file
     redirect-wiki-home
     static-dispatcher
diff --git a/lib/archive-file-mappings.rkt b/lib/archive-file-mappings.rkt
new file mode 100644
index 00000000..4aa8a690
--- /dev/null
+++ b/lib/archive-file-mappings.rkt
@@ -0,0 +1,28 @@
+#lang racket/base
+(require racket/string
+         net/url
+         (only-in net/uri-codec uri-decode)
+         "url-utils.rkt")
+(provide
+ local-encoded-url->segments
+ url-segments->basename
+ local-encoded-url->basename
+ basename->name-for-query
+ url-segments->guess-title)
+
+(define (local-encoded-url->segments str) ; '("wiki" "Page_title")
+  (map path/param-path (url-path (string->url str))))
+
+(define (url-segments->basename segments) ; "Page_title" filename encoded, no extension or dir prefix
+  (define extra-encoded (map (λ (s) (bytes->string/latin-1 (percent-encode s filename-set #f))) (cdr segments)))
+  (define basic-filename (string-join extra-encoded "#"))
+  basic-filename)
+
+(define (local-encoded-url->basename str) ; '("wiki" "Page_title"), no extension or dir prefix
+  (url-segments->basename (local-encoded-url->segments str)))
+
+(define (basename->name-for-query str)
+  (uri-decode (regexp-replace* #rx"#" str "/")))
+
+(define (url-segments->guess-title segments)
+  (regexp-replace* #rx"_" (cadr segments) " "))
diff --git a/lib/html-parsing/main.rkt b/lib/html-parsing/main.rkt
new file mode 100644
index 00000000..bdc09b16
--- /dev/null
+++ b/lib/html-parsing/main.rkt
@@ -0,0 +1,1887 @@
+#lang racket/base
+;; Copyright Neil Van Dyke.  For legal info, see file "info.rkt".
+
+(require mcfly)
+
+(module+ test
+  (require overeasy))
+
+(doc (section "Introduction")
+
+     (para "The "
+           (code "html-parsing")
+           " library provides a permissive HTML parser.  The parser is useful
+for software agent extraction of information from Web pages, for
+programmatically transforming HTML files, and for implementing interactive Web
+browsers.  "
+           (code "html-parsing")
+           " emits "
+           ;; TODO: 2016-02-21 Once create sxml-doc package, reference that.
+           (seclink "top"
+                    #:doc '(lib "sxml-intro/sxml-intro.scrbl")
+                    #:indirect? #true
+                    "SXML/xexp")
+           ", so that conventional HTML may be processed with XML tools such as
+SXPath.  Like Oleg Kiselyov's "
+           (hyperlink "http://pobox.com/~oleg/ftp/Scheme/xml.html#HTML-parser"
+                      "SSAX-based HTML parser")
+           ", "
+           (code "html-parsing")
+           " provides a permissive tokenizer, but "
+           (code "html-parsing")
+           " extends this by attempting to recover syntactic structure.")
+
+     (para "The "
+           (code "html-parsing")
+           " parsing behavior is permissive in that it accepts erroneous HTML,
+handling several classes of HTML syntax errors gracefully, without yielding a
+parse error.  This is crucial for parsing arbitrary real-world Web pages, since
+many pages actually contain syntax errors that would defeat a strict or
+validating parser.  "
+           (code "html-parsing")
+           "'s handling of errors is intended to generally emulate popular Web
+browsers' interpretation of the structure of erroneous HTML.")
+     (para (code "html-parsing")
+           " also has some support for XHTML, although XML namespace qualifiers
+are accepted but stripped from the resulting SXML/xexp.  Note that "
+           (italic "valid")
+           " XHTML input might be better handled by a validating XML parser
+like Kiselyov's SSAX."))
+
+;; BEGIN COPIED FROM XEXP PACKAGE
+
+(define (%html-parsing:make-xexp-char-ref val)
+  (if (or (symbol? val) (integer? val))
+      `(& ,val)
+      (error 'make-xexp-char-ref
+             "invalid xexp reference value: ~S"
+             val)))
+
+(define %html-parsing:always-empty-html-elements
+  '(area base br frame hr img input isindex keygen link meta param
+         spacer wbr))
+
+;; END COPIED FROM XEXP PACKAGE
+
+(define %html-parsing:empty-token-symbol       '*empty*)
+(define %html-parsing:end-token-symbol         '*end*)
+(define %html-parsing:start-token-symbol       '*start*)
+(define %html-parsing:entity-token-symbol      '*entity*)
+(define %html-parsing:text-string-token-symbol '*text-string*)
+(define %html-parsing:text-char-token-symbol   '*text-char*)
+
+(define %html-parsing:make-html-tokenizer
+  ;; TODO: Have the tokenizer replace contiguous whitespace within individual
+  ;; text tokens with single space characters (except for when in `pre' and
+  ;; verbatim elements).  The parser will introduce new contiguous whitespace
+  ;; (e.g., when text tokens are concatenated, invalid end tags are removed,
+  ;; whitespace is irrelevant between certain elements), but then the parser
+  ;; only has to worry about the first and last character of each string.
+  ;; Perhaps the text tokens should have both leading and trailing whitespace
+  ;; stripped, and contain flags for whether or not leading and trailing
+  ;; whitespace occurred.
+  (letrec ((no-token '())
+
+           ;; TODO: Maybe make these three variables options.
+
+           (verbatim-to-eof-elems '(plaintext))
+
+           (verbatim-pair-elems '(script server style xmp))
+
+           (ws-chars (list #\space
+                           (integer->char 9)
+                           (integer->char 10)
+                           (integer->char 11)
+                           (integer->char 12)
+                           (integer->char 13)))
+
+           (gosc/string-or-false
+            (lambda (os)
+              (let ((s (get-output-string os)))
+                (if (string=? s "") #f s))))
+
+           (gosc/symbol-or-false
+            (lambda (os)
+              (let ((s (gosc/string-or-false os)))
+                (if s (string->symbol s) #f))))
+           )
+    (lambda (in normalized?)
+      ;; TODO: Make a tokenizer option that causes XML namespace qualifiers to
+      ;; be ignored.
+      (letrec
+          (
+           ;; Port buffer with inexpensive unread of one character and slightly
+           ;; more expensive pushback of second character to unread.  The
+           ;; procedures themselves do no consing.  The tokenizer currently
+           ;; needs two-symbol lookahead, due to ambiguous "/" while parsing
+           ;; element and attribute names, which could be either empty-tag
+           ;; syntax or XML qualified names.
+           (c           #f)
+           (next-c      #f)
+           (c-consumed? #t)
+           (read-c      (lambda ()
+                          (if c-consumed?
+                              (if next-c
+                                  (begin (set! c      next-c)
+                                         (set! next-c #f))
+                                  (set! c (read-char in)))
+                              (set! c-consumed? #t))))
+           (unread-c    (lambda ()
+                          (if c-consumed?
+                              (set! c-consumed? #f)
+                              ;; TODO: Procedure name in error message really
+                              ;; isn't "%html-parsing:make-html-tokenizer"...
+                              (error '%html-parsing:make-html-tokenizer
+                                     "already unread: ~S"
+                                     c))))
+           (push-c      (lambda (new-c)
+                          (if c-consumed?
+                              (begin (set! c           new-c)
+                                     (set! c-consumed? #f))
+                              (if next-c
+                                  (error '%html-parsing:make-html-tokenizer
+                                         "pushback full: ~S"
+                                         c)
+                                  (begin (set! next-c      c)
+                                         (set! c           new-c)
+                                         (set! c-consumed? #f))))))
+
+           ;; TODO: These procedures are a temporary convenience for
+           ;; enumerating the pertinent character classes, with an eye towards
+           ;; removing redundant tests of character class.  These procedures
+           ;; should be eliminated in a future version.
+           (c-eof?      (lambda () (eof-object? c)))
+           (c-amp?      (lambda () (eqv? c #\&)))
+           (c-apos?     (lambda () (eqv? c #\')))
+           (c-bang?     (lambda () (eqv? c #\!)))
+           (c-colon?    (lambda () (eqv? c #\:)))
+           (c-quot?     (lambda () (eqv? c #\")))
+           (c-equals?   (lambda () (eqv? c #\=)))
+           (c-gt?       (lambda () (eqv? c #\>)))
+           (c-lsquare?  (lambda () (eqv? c #\[)))
+           (c-lt?       (lambda () (eqv? c #\<)))
+           (c-minus?    (lambda () (eqv? c #\-)))
+           (c-pound?    (lambda () (eqv? c #\#)))
+           (c-ques?     (lambda () (eqv? c #\?)))
+           (c-semi?     (lambda () (eqv? c #\;)))
+           (c-slash?    (lambda () (eqv? c #\/)))
+           (c-splat?    (lambda () (eqv? c #\*)))
+           (c-lf?       (lambda () (eqv? c #\newline)))
+           (c-angle?    (lambda () (memv c '(#\< #\>))))
+           (c-ws?       (lambda () (memv c ws-chars)))
+           (c-alpha?    (lambda () (char-alphabetic? c)))
+           (c-digit?    (lambda () (char-numeric? c)))
+           (c-alphanum? (lambda () (or (c-alpha?) (c-digit?))))
+           (c-hexlet?   (lambda () (memv c '(#\a #\b #\c #\d #\e #\f
+                                             #\A #\B #\C #\D #\E #\F))))
+
+           (skip-ws     (lambda () (read-c) (if (c-ws?) (skip-ws) (unread-c))))
+
+           (if-read-chars
+            (lambda (match-chars yes-thunk no-proc)
+              (let loop ((chars       match-chars)
+                         (match-count 0))
+                (if (null? chars)
+                    (yes-thunk)
+                    (begin (read-c)
+                           (if (eqv? c (car chars))
+                               (begin (loop (cdr chars) (+ 1 match-count)))
+                               (begin (unread-c)
+                                      (no-proc match-chars match-count))))))))
+
+           (write-chars-count
+            (lambda (chars count port)
+              (let loop ((chars chars)
+                         (count count))
+                (or (zero? count)
+                    (begin (write-char (car chars) port)
+                           (loop (cdr chars)
+                                 (- count 1)))))))
+
+           (make-start-token
+            (if normalized?
+                (lambda (name ns attrs)
+                  (list name (cons '@ attrs)))
+                (lambda (name ns attrs)
+                  (if (null? attrs)
+                      (list name)
+                      (list name (cons '@ attrs))))))
+
+           (make-empty-token
+            (lambda (name ns attrs)
+              (cons %html-parsing:empty-token-symbol
+                    (make-start-token name ns attrs))))
+
+           (make-end-token
+            (if normalized?
+                (lambda (name ns attrs)
+                  (list %html-parsing:end-token-symbol
+                        name
+                        (cons '@ attrs)))
+                (lambda (name ns attrs)
+                  (if (null? attrs)
+                      (list %html-parsing:end-token-symbol name)
+                      (list %html-parsing:end-token-symbol
+                            name
+                            (cons '@ attrs))))))
+
+           (make-comment-token
+            (lambda (str) (list '*COMMENT* str)))
+
+           (make-decl-token
+            (lambda (parts) (cons '*DECL* parts)))
+
+           (scan-qname
+            ;; TODO: Make sure we don't accept local names that have "*", since
+            ;; this can break SXML tools.  Have to validate this afterwards if
+            ;; "verbatim-safe?".  Also check for "@" and maybe "@@".  Check
+            ;; qname parsing code, especially for verbatim mode.  This is
+            ;; important!
+            (lambda (verbatim-safe?)
+              ;; Note: If we accept some invalid local names, we only need two
+              ;; symbols of lookahead to determine the end of a qname.
+              (letrec ((os      #f)
+                       (ns      '())
+                       (vcolons 0)
+                       (good-os (lambda ()
+                                  (or os
+                                      (begin (set! os (open-output-string))
+                                             os)))))
+                (let loop ()
+                  (read-c)
+                  (cond ((c-eof?) #f)
+                        ((or (c-ws?) (c-splat?))
+                         (if verbatim-safe?
+                             (unread-c)
+                             #f))
+                        ((or (c-angle?) (c-equals?) (c-quot?) (c-apos?))
+                         (unread-c))
+                        ((c-colon?)
+                         (or (null? ns)
+                             (set! ns (cons ":" ns)))
+                         (if os
+                             (begin
+                               (set! ns (cons (get-output-string os)
+                                              ns))
+                               (set! os #f))
+                             #f)
+                         (loop))
+                        ((c-slash?)
+                         (read-c)
+                         (cond ((or (c-eof?)
+                                    (c-ws?)
+                                    (c-equals?)
+                                    (c-apos?)
+                                    (c-quot?)
+                                    (c-angle?)
+                                    (c-splat?))
+                                (unread-c)
+                                (push-c #\/))
+                               (else (write-char #\/ (good-os))
+                                     (write-char c   os)
+                                     (loop))))
+                        (else (write-char c (good-os))
+                              (loop))))
+                (let ((ns    (if (null? ns)
+                                 #f
+                                 (apply string-append
+                                        (reverse ns))))
+                      (localname (if os (get-output-string os) #f)))
+                  (if verbatim-safe?
+                      ;; TODO: Make sure we don't have ambiguous ":" or drop
+                      ;; any characters!
+                      (cons ns localname)
+                      ;; Note: We represent "xml:" and "xmlns:" syntax as
+                      ;; normal qnames, for lack of something better to do with
+                      ;; them when we don't support XML namespaces.
+                      ;;
+                      ;; TODO: Local names are currently forced to lowercase,
+                      ;; since HTML is usually case-insensitive.  If XML
+                      ;; namespaces are used, we might wish to keep local names
+                      ;; case-sensitive.
+                      (if localname
+                          (if ns
+                              (if (or (string=? ns "xml")
+                                      (string=? ns "xmlns"))
+                                  (string->symbol (string-append ns
+                                                                 ":"
+                                                                 localname))
+                                  (cons ns
+                                        (string->symbol (string-downcase
+                                                         localname))))
+                              (string->symbol (string-downcase localname)))
+                          (if ns
+                              (string->symbol (string-downcase ns))
+                              ;; TODO: Ensure in rest of code that returning #f
+                              ;; as a name here is OK.
+                              #f)))))))
+
+           (scan-tag
+            (lambda (start?)
+              (skip-ws)
+              (let ((tag-name   (scan-qname #f))
+                    (tag-ns     #f)
+                    (tag-attrs  #f)
+                    (tag-empty? #f))
+                ;; Scan element name.
+                (if (pair? tag-name)
+                    (begin (set! tag-ns   (car tag-name))
+                           (set! tag-name (cdr tag-name)))
+                    #f)
+                ;; TODO: Ensure there's no case in which a #f tag-name isn't
+                ;; compensated for later.
+                ;;
+                ;; Scan element attributes.
+                (set! tag-attrs
+                      (let scan-attr-list ()
+                        (read-c)
+                        (cond ((c-eof?)   '())
+                              ((c-angle?) (unread-c) '())
+                              ((c-slash?)
+                               (set! tag-empty? #t)
+                               (scan-attr-list))
+                              ((c-alpha?)
+                               (unread-c)
+                               (let ((attr (scan-attr)))
+                                 (cons attr (scan-attr-list))))
+                              (else (scan-attr-list)))))
+                ;; Find ">" or unnatural end.
+                (let loop ()
+                  (read-c)
+                  (cond ((c-eof?)   no-token)
+                        ((c-slash?) (set! tag-empty? #t) (loop))
+                        ((c-gt?)    #f)
+                        ((c-ws?)    (loop))
+                        (else       (unread-c))))
+                ;; Change the tokenizer mode if necessary.
+                (cond ((not start?) #f)
+                      (tag-empty?   #f)
+                      ;; TODO: Maybe make one alist lookup here, instead of
+                      ;; two.
+                      ((memq tag-name verbatim-to-eof-elems)
+                       (set! nexttok verbeof-nexttok))
+                      ((memq tag-name verbatim-pair-elems)
+                       (set! nexttok (make-verbpair-nexttok tag-name))))
+                ;; Return a token object.
+                (if start?
+                    (if tag-empty?
+                        (make-empty-token tag-name tag-ns tag-attrs)
+                        (make-start-token tag-name tag-ns tag-attrs))
+                    (make-end-token tag-name tag-ns tag-attrs)))))
+
+           (scan-attr
+            (lambda ()
+              (let ((name (scan-qname #f))
+                    (val  #f))
+                (if (pair? name)
+                    (set! name (cdr name))
+                    #f)
+                (let loop-equals-or-end ()
+                  (read-c)
+                  (cond ((c-eof?) no-token)
+                        ((c-ws?)  (loop-equals-or-end))
+                        ((c-equals?)
+                         (let loop-quote-or-unquoted ()
+                           (read-c)
+                           (cond ((c-eof?) no-token)
+                                 ((c-ws?) (loop-quote-or-unquoted))
+                                 ((or (c-apos?) (c-quot?))
+                                  (let ((term c))
+                                    (set! val (open-output-string))
+                                    (let loop-quoted-val ()
+                                      (read-c)
+                                      (cond ((c-eof?)      #f)
+                                            ((eqv? c term) #f)
+                                            ((c-amp?) (let ((entity (scan-entity)))
+                                                        (display entity val)
+                                                        (loop-quoted-val)))
+                                            (else (write-char c val)
+                                                  (loop-quoted-val))))))
+                                 ((c-angle?) (unread-c))
+                                 (else
+                                  (set! val (open-output-string))
+                                  (write-char c val)
+                                  (let loop-unquoted-val ()
+                                    (read-c)
+                                    (cond ((c-eof?)  no-token)
+                                          ((c-apos?) #f)
+                                          ((c-quot?) #f)
+                                          ((or (c-ws?) (c-angle?)
+                                               ;;(c-slash?)
+                                               )
+                                           (unread-c))
+                                          ;; Note: We can treat a slash in an
+                                          ;; unquoted attribute value as a
+                                          ;; value constituent because the
+                                          ;; slash is specially-handled only
+                                          ;; for XHTML, and XHTML attribute
+                                          ;; values must always be quoted.  We
+                                          ;; could do lookahead for "/>", but
+                                          ;; that wouldn't let us parse HTML
+                                          ;; "<a href=/>" correctly, so this is
+                                          ;; an easier and more correct way to
+                                          ;; do things.
+                                          (else (write-char c val)
+                                                (loop-unquoted-val))))))))
+                        (else (unread-c))))
+                (if normalized?
+                    (list name (if val
+                                   (get-output-string val)
+                                   (symbol->string name)))
+                    (if val
+                        (list name (get-output-string val))
+                        (list name))))))
+
+           (scan-comment
+            ;; TODO: Rewrite this to use tail recursion rather than a state
+            ;; variable.
+            (lambda ()
+              (let ((os    (open-output-string))
+                    (state 'start-minus))
+                (let loop ()
+                  (read-c)
+                  (cond ((c-eof?) #f)
+                        ((c-minus?)
+                         (set! state
+                               (case state
+                                 ((start-minus)            'start-minus-minus)
+                                 ((start-minus-minus body) 'end-minus)
+                                 ((end-minus)              'end-minus-minus)
+                                 ((end-minus-minus) (write-char #\- os) state)
+                                 (else (error '<%html-parsing:make-html-tokenizer>
+                                              "invalid state: ~S"
+                                              state))))
+                         (loop))
+                        ((and (c-gt?) (eq? state 'end-minus-minus)) #f)
+                        (else (case state
+                                ((end-minus)       (write-char #\- os))
+                                ((end-minus-minus) (display "--" os)))
+                              (set! state 'body)
+                              (write-char c os)
+                              (loop))))
+                (make-comment-token (get-output-string os)))))
+
+           (scan-possible-cdata
+            (lambda ()
+              ;; Read "<!" and current character is "[", so try to read the
+              ;; rest of the CDATA start delimeter.
+              (if-read-chars
+               '(#\C #\D #\A #\T #\A #\[)
+               (lambda ()
+                 ;; Successfully read CDATA section start delimiter, so read
+                 ;; the section.
+                 (scan-cdata))
+               (lambda (chars count)
+                 ;; Did not read rest of CDATA section start delimiter, so
+                 ;; return a string for what we did read.
+                 (let ((os (open-output-string)))
+                   (display "<![" os)
+                   (write-chars-count chars count os)
+                   (get-output-string os))))))
+
+           (scan-cdata
+            (lambda ()
+              (let ((os (open-output-string)))
+                (let loop ()
+                  (if-read-chars
+                   '(#\] #\] #\>)
+                   (lambda () (get-output-string os))
+                   (lambda (chars count)
+                     (if (zero? count)
+                         (if (eof-object? c)
+                             (get-output-string os)
+                             (begin (write-char c os)
+                                    (read-c)
+                                    (loop)))
+                         (begin (write-char #\] os)
+                                (if (= count 2)
+                                    (push-c #\])
+                                    #f)
+                                (loop)))))))))
+
+           (scan-pi
+            (lambda ()
+              (skip-ws)
+              (let ((name (open-output-string))
+                    (val  (open-output-string)))
+                (let scan-name ()
+                  (read-c)
+                  (cond ((c-eof?)   #f)
+                        ((c-ws?)    #f)
+                        ((c-alpha?) (write-char c name) (scan-name))
+                        (else       (unread-c))))
+                ;; TODO: Do we really want to emit #f for PI name?
+                (set! name (gosc/symbol-or-false name))
+                (let scan-val ()
+                  (read-c)
+                  (cond ((c-eof?)  #f)
+                        ;; ((c-amp?) (display (scan-entity) val)
+                        ;;           (scan-val))
+                        ((c-ques?)
+                         (read-c)
+                         (cond ((c-eof?) (write-char #\? val))
+                               ((c-gt?)  #f)
+                               (else     (write-char #\? val)
+                                         (unread-c)
+                                         (scan-val))))
+                        (else (write-char c val) (scan-val))))
+                (list '*PI*
+                      name
+                      (get-output-string val)))))
+
+           (scan-decl
+            ;; TODO: Find if SXML includes declaration forms, and if so, use
+            ;; whatever format SXML wants.
+            ;;
+            ;; TODO: Rewrite to eliminate state variables.
+            (letrec
+                ((scan-parts
+                  (lambda ()
+                    (let ((part       (open-output-string))
+                          (nonsymbol? #f)
+                          (state      'before)
+                          (last?      #f))
+                      (let loop ()
+                        (read-c)
+                        (cond ((c-eof?) #f)
+                              ((c-ws?)
+                               (case state
+                                 ((before) (loop))
+                                 ((quoted) (write-char c part) (loop))))
+                              ((and (c-gt?) (not (eq? state 'quoted)))
+                               (set! last? #t))
+                              ((and (c-lt?) (not (eq? state 'quoted)))
+                               (unread-c))
+                              ((c-quot?)
+                               (case state
+                                 ((before)   (set! state 'quoted) (loop))
+                                 ((unquoted) (unread-c))
+                                 ((quoted)   #f)))
+                              (else
+                               (if (eq? state 'before)
+                                   (set! state 'unquoted)
+                                   #f)
+                               (set! nonsymbol? (or nonsymbol?
+                                                    (not (c-alphanum?))))
+                               (write-char c part)
+                               (loop))))
+                      (set! part (get-output-string part))
+                      (if (string=? part "")
+                          '()
+                          (cons (if (or (eq? state 'quoted) nonsymbol?)
+                                    part
+                                    ;; TODO: Normalize case of things we make
+                                    ;; into symbols here.
+                                    (string->symbol part))
+                                (if last?
+                                    '()
+                                    (scan-parts))))))))
+              (lambda () (make-decl-token (scan-parts)))))
+
+           (special-entity-reverse-chars-to-string-alist
+            '(((#\p #\m #\a)     . "&")
+              ((#\s #\o #\p #\a) . "'")
+              ((#\t #\g)         . ">")
+              ((#\t #\l)         . "<")
+              ((#\t #\o #\u #\q) . "\"")))
+           
+           (finish-terminated-named-entity
+            (lambda (reverse-name-chars)
+              (cond ((equal? '() reverse-name-chars)
+                     "&")
+                    ((assoc reverse-name-chars
+                            special-entity-reverse-chars-to-string-alist)
+                     => (lambda (p)
+                          (cdr p)))
+                    (else (%html-parsing:make-xexp-char-ref 
+                           (string->symbol (apply string (reverse reverse-name-chars))))))))
+           
+           (finish-unterminated-named-entity
+            (lambda (reverse-name-chars)
+              (apply string (cons #\& (reverse reverse-name-chars)))))
+           
+           (scan-entity
+            (lambda ()
+              (read-c)
+              (cond ((c-eof?) "&")
+                    ((c-alpha?)
+                     ;; TODO: Do entity names have a maximum length?
+                       (let loop ((reverse-name-chars (cons c '())))
+                         (read-c)
+                         (cond ((c-eof?)   (finish-unterminated-named-entity
+                                            reverse-name-chars))
+                               ((c-alpha?) (let ((reverse-name-chars (cons c reverse-name-chars)))
+                                             (cond ((assoc reverse-name-chars
+                                                           special-entity-reverse-chars-to-string-alist)
+                                                    => (lambda (p)
+                                                         (read-c)
+                                                         (or (c-semi?)
+                                                             (unread-c))
+                                                         (cdr p)))
+                                                   (else (loop reverse-name-chars)))))
+                               ((c-semi?)  (finish-terminated-named-entity
+                                            reverse-name-chars))
+                               (else       (unread-c)
+                                           (finish-unterminated-named-entity
+                                            reverse-name-chars)))))
+                    ((c-pound?)
+                     (let ((num  (open-output-string))
+                           (hex? #f))
+                       (read-c)
+                       (cond ((c-eof?)            #f)
+                             ((memv c '(#\x #\X)) (set! hex? #t) (read-c)))
+                       (let loop ()
+                         (cond ((c-eof?)  #f)
+                               ((c-semi?) #f)
+                               ((or (c-digit?) (and hex? (c-hexlet?)))
+                                (write-char c num)
+                                (read-c)
+                                (loop))
+                               (else (unread-c))))
+                       (set! num (get-output-string num))
+                       (if (string=? num "")
+                           "&#;"
+                           (let ((n (string->number num (if hex? 16 10))))
+                             (if (<= 32 n 126)
+                                 (string (integer->char n))
+                                 (string (integer->char n)))))))
+                    (else (unread-c) "&"))))
+
+           (normal-nexttok
+            (lambda ()
+              (read-c)
+              (cond ((c-eof?) no-token)
+                    ((c-lt?)
+                     (let loop ()
+                       (read-c)
+                       (cond ((c-eof?)   "<")
+                             ;; ((c-ws?)    (loop))
+                             ((c-slash?) (scan-tag #f))
+                             ((c-ques?)  (scan-pi))
+                             ((c-alpha?) (unread-c) (scan-tag #t))
+                             ((c-bang?)
+                              (read-c)
+                              (if (c-lsquare?)
+                                  (scan-possible-cdata)
+                                  (let loop ()
+                                    (cond ((c-eof?)   no-token)
+                                          ((c-ws?)    (read-c) (loop))
+                                          ((c-minus?) (scan-comment))
+                                          (else       (unread-c)
+                                                      (scan-decl))))))
+                             (else (unread-c) "<"))))
+                    ((c-gt?) ">")
+                    (else (let ((os (open-output-string)))
+                            (let loop ()
+                              (cond ((c-eof?)   #f)
+                                    ((c-angle?) (unread-c))
+                                    ((c-amp?)
+                                     (let ((entity (scan-entity)))
+                                       (if (string? entity)
+                                           (begin (display entity os)
+                                                  (read-c)
+                                                  (loop))
+                                           (let ((saved-nexttok nexttok))
+                                             (set! nexttok
+                                                   (lambda ()
+                                                     (set! nexttok
+                                                           saved-nexttok)
+                                                     entity))))))
+                                    (else (write-char c os)
+                                          (or (c-lf?)
+                                              (begin (read-c) (loop))))))
+                            (let ((text (get-output-string os)))
+                              (if (equal? text "")
+                                  (nexttok)
+                                  text)))))))
+
+           (verbeof-nexttok
+            (lambda ()
+              (read-c)
+              (if (c-eof?)
+                  no-token
+                  (let ((os (open-output-string)))
+                    (let loop ()
+                      (or (c-eof?)
+                          (begin (write-char c os)
+                                 (or (c-lf?)
+                                     (begin (read-c) (loop))))))
+                    (get-output-string os)))))
+
+           (make-verbpair-nexttok
+            (lambda (elem-name)
+              (lambda ()
+                (let ((os (open-output-string)))
+                  ;; Accumulate up to a newline-terminated line.
+                  (let loop ()
+                    (read-c)
+                    (cond ((c-eof?)
+                           ;; Got EOF in verbatim context, so set the normal
+                           ;; nextok procedure, then fall out of loop.
+                           (set! nexttok normal-nexttok))
+                          ((c-lt?)
+                           ;; Got "<" in verbatim context, so get next
+                           ;; character.
+                           (read-c)
+                           (cond ((c-eof?)
+                                  ;; Got "<" then EOF, so set to the normal
+                                  ;; nexttok procedure, add the "<" to the
+                                  ;; verbatim string, and fall out of loop.
+                                  (set! nexttok normal-nexttok)
+                                  (write-char #\< os))
+                                 ((c-slash?)
+                                  ;; Got "</", so...
+                                  (read-c)
+                                  (cond
+                                   ((c-eof?)
+                                    (display "</" os))
+                                   ((c-alpha?)
+                                    ;; Got "</" followed by alpha, so unread
+                                    ;; the alpha, scan qname, compare...
+                                    (unread-c)
+                                    (let* ((vqname (scan-qname #t))
+                                           (ns     (car vqname))
+                                           (local  (cdr vqname)))
+                                      ;; Note: We ignore XML namespace
+                                      ;; qualifier for purposes of comparison.
+                                      ;;
+                                      ;; Note: We're interning strings here for
+                                      ;; comparison when in theory there could
+                                      ;; be many such unique interned strings
+                                      ;; in a valid HTML document, although in
+                                      ;; practice this should not be a problem.
+                                      (if (and local
+                                               (eqv? (string->symbol
+                                                      (string-downcase local))
+                                                     elem-name))
+                                          ;; This is the terminator tag, so
+                                          ;; scan to the end of it, set the
+                                          ;; nexttok, and fall out of the loop.
+                                          (begin
+                                            (let scan-to-end ()
+                                              (read-c)
+                                              (cond ((c-eof?) #f)
+                                                    ((c-gt?)  #f)
+                                                    ((c-lt?)  (unread-c))
+                                                    ((c-alpha?)
+                                                     (unread-c)
+                                                     ;; Note: This is an
+                                                     ;; expensive way to skip
+                                                     ;; over an attribute, but
+                                                     ;; in practice more
+                                                     ;; verbatim end tags will
+                                                     ;; not have attributes.
+                                                     (scan-attr)
+                                                     (scan-to-end))
+                                                    (else (scan-to-end))))
+                                            (set! nexttok
+                                                  (lambda ()
+                                                    (set! nexttok
+                                                          normal-nexttok)
+                                                    (make-end-token
+                                                     elem-name #f '()))))
+                                          ;; This isn't the terminator tag, so
+                                          ;; add to the verbatim string the
+                                          ;; "</" and the characters of what we
+                                          ;; were scanning as a qname, and
+                                          ;; recurse in the loop.
+                                          (begin
+                                            (display "</" os)
+                                            (if ns
+                                                (begin (display ns os)
+                                                       (display ":" os))
+                                                #f)
+                                            (if local
+                                                (display local os)
+                                                #f)
+                                            (loop)))))
+                                   (else
+                                    ;; Got "</" and non-alpha, so unread new
+                                    ;; character, add the "</" to verbatim
+                                    ;; string, then loop.
+                                    (unread-c)
+                                    (display "</" os)
+                                    (loop))))
+                                 (else
+                                  ;; Got "<" and non-slash, so unread the new
+                                  ;; character, write the "<" to the verbatim
+                                  ;; string, then loop.
+                                  (unread-c)
+                                  (write-char #\< os)
+                                  (loop))))
+                          (else
+                           ;; Got non-"<" in verbatim context, so just add it
+                           ;; to the buffer, then, if it's not a linefeed, fall
+                           ;; out of the loop so that the token can be
+                           ;; returned.
+                           (write-char c os)
+                           (or (c-lf?) (loop)))))
+                  ;; Return the accumulated line string, if non-null, or call
+                  ;; nexttok.
+                  (or (gosc/string-or-false os) (nexttok))))))
+
+           (nexttok #f))
+
+        (set! nexttok normal-nexttok)
+        (lambda () (nexttok))))))
+
+(define (%html-parsing:tokenize-html in normalized?)
+  (let ((next-tok (%html-parsing:make-html-tokenizer in normalized?)))
+    (let loop ((tok (next-tok)))
+      (if (null? tok)
+          '()
+          (cons tok (loop (next-tok)))))))
+
+(define (%html-parsing:xexp-token-kind token)
+  (cond ((string? token) %html-parsing:text-string-token-symbol)
+        ((char?   token) %html-parsing:text-char-token-symbol)
+        ((list?   token)
+         (let ((s (car token)))
+           (if (memq s `(*COMMENT*
+                         *DECL*
+                         *PI*
+                         ,%html-parsing:empty-token-symbol
+                         ,%html-parsing:end-token-symbol
+                         ,%html-parsing:entity-token-symbol))
+               s
+               %html-parsing:start-token-symbol)))
+        (else (error '%html-parsing:xexp-token-kind
+                     "unrecognized token kind: ~S"
+                     token))))
+
+(doc (section "Interface"))
+
+;; @defvar %html-parsing:empty-elements
+;;
+;; List of names of HTML element types that have no content, represented as a
+;; list of symbols.  This is used internally by the parser and encoder.  The
+;; effect of mutating this list is undefined.
+
+;; TODO: Document exactly which elements these are, after we make the new
+;; parameterized parser constructor.
+
+(define %html-parsing:empty-elements
+  (cons '& %html-parsing:always-empty-html-elements))
+
+;; @defproc parse-html/tokenizer tokenizer normalized?
+;;
+;; Emits a parse tree like @code{html->xexp} and related procedures, except
+;; using @var{tokenizer} as a source of tokens, rather than tokenizing from an
+;; input port.  This procedure is used internally, and generally should not be
+;; called directly.
+
+(define %html-parsing:parse-html/tokenizer
+  ;; Note: This algorithm was originally written in 2001 (as part of the first
+  ;; Scheme library the author ever wrote), and then on 2009-08-16 was revamped
+  ;; to not use mutable pairs, for PLT 4 compatibility.  It could still use
+  ;; some work to be more FP, but it works for now.
+  (letrec ((empty-elements
+            ;; TODO: Maybe make this an option.
+            %html-parsing:empty-elements)
+           (h-elem-parents
+            ;; Am doing this kludge mainly for mid-1990s HTML that uses the `p`
+            ;; element wrong.  Trying to get all appropriate parents other than
+            ;; `p` that I can, to reduce breaking other code.
+            '(a article aside blink blockquote body center footer form header html li main nav section slot template))
+           (parent-constraints
+            ;; TODO: Maybe make this an option.
+            `((area     . (map span))
+              (body     . (html))
+              (caption  . (table))
+              (colgroup . (table))
+              (dd       . (dl))
+              (dt       . (dl))
+              (frame    . (frameset))
+              (head     . (html))
+              (h1       . ,h-elem-parents)
+              (h2       . ,h-elem-parents)
+              (h3       . ,h-elem-parents)
+              (h4       . ,h-elem-parents)
+              (h5       . ,h-elem-parents)
+              (h6       . ,h-elem-parents)
+              (isindex  . (head))
+              (li       . (dir menu ol ul))
+              (meta     . (head))
+              (noframes . (frameset))
+              (option   . (select))
+              (p        . (blockquote body details figcaption html li td th))
+              (param    . (applet))
+              (tbody    . (table))
+              (td       . (tr))
+              (th       . (tr))
+              (thead    . (table))
+              (title    . (head))
+              (tr       . (table tbody thead))))
+           (token-kinds-that-always-get-added
+            `(*COMMENT*
+              *DECL*
+              *PI*
+              ,%html-parsing:entity-token-symbol
+              ,%html-parsing:text-string-token-symbol
+              ,%html-parsing:text-char-token-symbol))
+           (start-tag-name (lambda (tag-token) (car tag-token)))
+           (end-tag-name   (lambda (tag-token) (list-ref tag-token 1))))
+    (lambda (tokenizer normalized?)
+      ;;(log-html-parsing-debug "(%html-parsing:parse-html/tokenizer ~S ~S)" tokenizer normalized?)
+      (let ((begs (list (vector #f '()))))
+        (letrec ((add-thing-as-child-of-current-beg
+                  (lambda (tok)
+                    (let ((beg (car begs)))
+                      (vector-set! beg 1 (cons tok (vector-ref beg 1))))))
+
+                 (beg->elem
+                  (lambda (beg)
+                    (let ((elem-name          (vector-ref beg 0))
+                          (attrs-and-contents (reverse (vector-ref beg 1))))
+                      (cons elem-name attrs-and-contents))))
+
+                 (finish-current-beg-and-return-elem
+                  (lambda ()
+                    (let ((elem (beg->elem (car begs))))
+                      (set! begs (cdr begs))
+                      (or (null? begs)
+                          (add-thing-as-child-of-current-beg elem))
+                      elem)))
+
+                 (finish-current-beg
+                  (lambda ()
+                    (finish-current-beg-and-return-elem)))
+
+                 (finish-all-begs-and-return-top
+                  (lambda ()
+                    (let loop ()
+                      (let ((elem (finish-current-beg-and-return-elem)))
+                        (if (car elem)
+                            (loop)
+                            (cdr elem))))))
+
+                 (finish-begs-up-to-and-including-name
+                  (lambda (name)
+                    ;; (log-html-parsing-debug "(finish-begs-up-to-and-including-name ~S)" name)
+                    (let loop-find-name ((find-begs begs)
+                                         (depth     1))
+                      (let ((beg-name (vector-ref (car find-begs) 0)))
+                        (cond ((not beg-name)
+                               ;; We reached the root without finding a
+                               ;; matching beg, so don't finish anything.
+                               ;;
+                               ;; TODO: 2022-04-02: Consider having a `*TOP*`
+                               ;; kludge in `parent-constraints` that's checked
+                               ;; here, especially for handling mid-1990s HTML
+                               ;; `p` element (so that we can keep `p` from
+                               ;; being a child of `p` even when there's no
+                               ;; parent `body` or `html` element).
+                               (void))
+                              ((eqv? name beg-name)
+                               ;; We found a match, so finish the begs up to
+                               ;; depth.
+                               (let loop-finish ((depth depth))
+                                 (or (zero? depth)
+                                     (begin
+                                       (finish-current-beg)
+                                       (loop-finish (- depth 1))))))
+                              (else
+                               ;; Didn't find a match yet, and there's still at
+                               ;; least one more beg to look at, so recur.
+                               (loop-find-name (cdr find-begs)
+                                               (+ depth 1))))))))
+
+                 (finish-begs-upto-but-not-including-names
+                  (lambda (names)
+                    ;; (log-html-parsing-debug "(finish-begs-upto-but-not-including-names ~S)" names)
+                    ;; (log-html-parsing-debug "begs = ~S" begs)
+                    (let loop-find-name ((find-begs begs)
+                                         (depth     0))
+                      (let ((beg-name (vector-ref (car find-begs) 0)))
+                        (cond ((not beg-name)
+                               ;; We reached the root without finding a
+                               ;; matching beg, so simply discard it.
+                               (void))
+                              ((memq beg-name names)
+                               ;; We found a match, so finish the begs up to
+                               ;; depth.
+                               (let loop-finish ((depth depth))
+                                 (or (zero? depth)
+                                     (begin
+                                       (finish-current-beg)
+                                       (loop-finish (- depth 1))))))
+                              (else
+                               ;; Didn't find a match yet, and there's still at
+                               ;; least one more beg to look at, so recur.
+                               (loop-find-name (cdr find-begs)
+                                               (+ depth 1)))))))))
+
+          (let loop ()
+            (let ((tok (tokenizer)))
+              (if (null? tok)
+                  (finish-all-begs-and-return-top)
+                  (let ((kind (%html-parsing:xexp-token-kind tok)))
+                    ;; (log-html-parsing-debug "kind = ~S" kind)
+                    (cond ((memv kind token-kinds-that-always-get-added)
+                           (add-thing-as-child-of-current-beg tok))
+                          ((eqv? kind %html-parsing:start-token-symbol)
+                           ;; (log-html-parsing-debug "is-start-token-symbol")
+                           (let* ((name (start-tag-name tok))
+                                  (cell (assq name parent-constraints)))
+                             ;; (log-html-parsing-debug "name = ~S cell = ~S" name cell)
+                             (and cell
+                                  (finish-begs-upto-but-not-including-names
+                                   (cons 'div (cdr cell))))
+                             (if (memq name empty-elements)
+                                 (add-thing-as-child-of-current-beg tok)
+                                 (set! begs (cons (vector (car tok)
+                                                          (cdr tok))
+                                                  begs)))))
+                          ((eqv? kind %html-parsing:empty-token-symbol)
+                           ;; Empty tag token, so just add it to current
+                           ;; beginning while stripping off leading `*EMPTY*'
+                           ;; symbol so that the token becomes normal SXML
+                           ;; element syntax.
+                           (add-thing-as-child-of-current-beg (cdr tok)))
+                          ((eqv? kind %html-parsing:end-token-symbol)
+                           (let ((name (end-tag-name tok)))
+                             (if name
+                                 ;; Try to finish to a start tag matching this
+                                 ;; end tag.  If none, just drop the token,
+                                 ;; though we used to add it to the current
+                                 ;; beginning.
+                                 (finish-begs-up-to-and-including-name
+                                  name)
+                                 ;; We have an anonymous end tag, so match it
+                                 ;; with the most recent beginning.  If no
+                                 ;; beginning to match, then just drop the
+                                 ;; token, though we used to add it to the
+                                 ;; current beginning.
+                                 (and (vector-ref (car begs) 0)
+                                      (finish-current-beg)))))
+                          (else (error 'parse-html/tokenizer
+                                       "unknown tag kind: ~S"
+                                       kind)))
+                    (loop))))))))))
+
+;; TODO: Quote of message to a user:
+;;
+;; >I think this behavior is due to HtmlPrag's use in "parse-html/tokenizer"
+;; >of its local "parent-constraints" variable.
+;; >
+;; >The following line of code from the variable binding expresses the
+;; >constraint that any "p" element can have as immediate parent element
+;; >only "body", "td", or "th":
+;; >
+;; >              (p        . (body td th))
+;; >
+;; >I think I know a good heuristic for dealing with unfamiliar but
+;; >seemingly well-formed elements, like "page" in this case, but I'm afraid
+;; >I don't have time to implement it right now.  (I am job-hunting right
+;; >now, and there are many other coding things I need to do first.)
+;; >
+;; >Would adding "page" to the above line of the HtmlPrag source code work
+;; >around the current problem, or do you need a better solution right now?
+
+;; @defproc %parse-html input normalized? top?
+;;
+;; This procedure is now used internally by @code{html->xexp} and its
+;; variants, and should not be used directly by programs.  The interface is
+;; likely to change in future versions of HtmlPrag.
+
+(define (%html-parsing:parse-html input normalized? top?)
+  (let ((parse
+         (lambda ()
+           (%html-parsing:parse-html/tokenizer
+            (%html-parsing:make-html-tokenizer
+             (cond ((input-port? input) input)
+                   ((string?     input) (open-input-string input))
+                   (else (error
+                          '%html-parsing:parse-html
+                          "invalid input type: ~E"
+                          input)))
+             normalized?)
+            normalized?))))
+    (if top?
+        (cons '*TOP* (parse))
+        (parse))))
+
+;; @defproc  html->sxml-0nf input
+;; @defprocx html->sxml-1nf input
+;; @defprocx html->sxml-2nf input
+;; @defprocx html->sxml     input
+(doc (defproc (html->xexp (input (or/c input-port? string?)))
+         xexp
+
+       (para "Parse HTML permissively from "
+             (racket input)
+             ", which is either an input port or a string, and emit an
+SXML/xexp equivalent or approximation.  To borrow and slightly modify an
+example from Kiselyov's discussion of his HTML parser:")
+
+       (racketinput
+        (html->xexp
+         (string-append
+          "<html><head><title></title><title>whatever</title></head>"
+          "<body> <a href=\"url\">link</a><p align=center>"
+          "<ul compact style=\"aa\"> <p>BLah<!-- comment <comment> -->"
+          " <i> italic <b> bold <tt> ened</i> still &lt; bold </b>"
+          "</body><P> But not done yet...")))
+       (racketresultblock
+        (*TOP* (html (head (title) (title "whatever"))
+                     (body "\n"
+                           (a (@ (href "url")) "link")
+                           (p (@ (align "center"))
+                              (ul (@ (compact) (style "aa")) "\n"))
+                           (p "BLah"
+                              (*COMMENT* " comment <comment> ")
+                              " "
+                              (i " italic " (b " bold " (tt " ened")))
+                              "\n"
+                              "still < bold "))
+                     (p " But not done yet..."))))
+
+       (para "Note that, in the emitted SXML/xexp, the text token "
+             (racket "still < bold")
+             " is "
+             (italic "not")
+             " inside the "
+             (racketfont "b")
+             " element.  This is one old Web browser quirk-handling of invalid
+HTML that this parser does not try to emulate.")))
+;; (: html->xexp ((U String InputPort) -> Xexp))
+(provide html->xexp)
+(define (html->xexp input)
+  (%html-parsing:parse-html input #f #t))
+
+;; (define-logger html-parsing)
+
+(module+ test
+
+  (test (html->xexp "<a>>") '(*TOP* (a ">")))
+  (test (html->xexp "<a<>") '(*TOP* (a "<" ">")))
+
+  (test (html->xexp "<>")      '(*TOP* "<" ">"))
+  (test (html->xexp "< >")
+        ;; `(*TOP* "<" ">")
+        '(*TOP* "<" " " ">"))
+  (test (html->xexp "< a>")
+        ;; `(*TOP* (a))
+        '(*TOP*  "<" " a" ">"))
+  (test (html->xexp "< a / >")
+        ;; `(*TOP* (a))
+        '(*TOP* "<" " a / " ">"))
+
+  (test (html->xexp "<a<")  '(*TOP* (a "<")))
+  (test (html->xexp "<a<b") '(*TOP* (a (b))))
+
+  (test (html->xexp "><a>") '(*TOP* ">" (a)))
+
+  (test (html->xexp "</>") '(*TOP*))
+
+  (test (html->xexp "<\">") '(*TOP* "<" "\"" ">"))
+
+  (test (html->xexp (string-append "<a>xxx<plaintext>aaa" "\n"
+                                   "bbb" "\n"
+                                   "c<c<c"))
+        `(*TOP*
+          (a "xxx" (plaintext ,(string-append "aaa" "\n")
+                              ,(string-append "bbb" "\n")
+                              "c<c<c"))))
+
+  (test (html->xexp "aaa<!-- xxx -->bbb")
+        `(*TOP*
+          "aaa" (*COMMENT* " xxx ")   "bbb"))
+
+  (test (html->xexp "aaa<! -- xxx -->bbb")
+        `(*TOP*
+          "aaa" (*COMMENT* " xxx ")   "bbb"))
+
+  (test (html->xexp "aaa<!-- xxx --->bbb")
+        `(*TOP*
+          "aaa" (*COMMENT* " xxx -")  "bbb"))
+
+  (test (html->xexp "aaa<!-- xxx ---->bbb")
+        `(*TOP*
+          "aaa" (*COMMENT* " xxx --") "bbb"))
+
+  (test (html->xexp "aaa<!-- xxx -y-->bbb")
+        `(*TOP*
+          "aaa" (*COMMENT* " xxx -y") "bbb"))
+
+  (test (html->xexp "aaa<!----->bbb")
+        `(*TOP*
+          "aaa" (*COMMENT* "-")       "bbb"))
+
+  (test (html->xexp "aaa<!---->bbb")
+        `(*TOP*
+          "aaa" (*COMMENT* "")        "bbb"))
+
+  (test (html->xexp "aaa<!--->bbb")
+        `(*TOP* "aaa" (*COMMENT* "->bbb")))
+
+  (test (html->xexp "<hr>")   `(*TOP* (hr)))
+  (test (html->xexp "<hr/>")  `(*TOP* (hr)))
+  (test (html->xexp "<hr />") `(*TOP* (hr)))
+
+  (test (html->xexp "<hr noshade>")
+        `(*TOP* (hr (@ (noshade)))))
+  (test (html->xexp "<hr noshade/>")
+        `(*TOP* (hr (@ (noshade)))))
+  (test (html->xexp "<hr noshade />")
+        `(*TOP* (hr (@ (noshade)))))
+  (test (html->xexp "<hr noshade / >")
+        `(*TOP* (hr (@ (noshade)))))
+  (test (html->xexp "<hr noshade=1 />")
+        `(*TOP* (hr (@ (noshade "1")))))
+  (test (html->xexp "<hr noshade=1/>")
+        `(*TOP* (hr (@ (noshade "1/")))))
+
+  (test (html->xexp "<q>aaa<p/>bbb</q>ccc</p>ddd")
+        `(*TOP* (q "aaa" (p) "bbb") "ccc" "ddd"))
+
+  (test (html->xexp "&lt;") `(*TOP* "<"))
+  (test (html->xexp "&gt;") `(*TOP* ">"))
+
+  (test (html->xexp "Gilbert &amp; Sullivan")
+        `(*TOP* "Gilbert & Sullivan"))
+  (test (html->xexp "Gilbert &amp Sullivan")
+        `(*TOP* "Gilbert & Sullivan"))
+  (test (html->xexp "Gilbert & Sullivan")
+        `(*TOP* "Gilbert & Sullivan"))
+
+  (test (html->xexp "Copyright &copy; Foo")
+        `(*TOP* "Copyright "
+                (& copy)
+                " Foo"))
+  (test (html->xexp "aaa&copy;bbb")
+        `(*TOP*
+          "aaa" (& copy) "bbb"))
+  
+  (test 'unterminated-nonspecial-character-entity-reference-at-eof
+        (html->xexp "aaa&copy")
+        ;; Note: 20180518 Previously, we parsed this as (*TOP* "aaa" (& copy))
+        `(*TOP* "aaa&copy"))
+
+  (test (html->xexp "&#42;")  '(*TOP* "*"))
+  (test (html->xexp "&#42")   '(*TOP* "*"))
+  (test (html->xexp "&#42x")  '(*TOP* "*x"))
+  (test (html->xexp "&#151")  `(*TOP* ,(string (integer->char 151))))
+  (test (html->xexp "&#1000") `(*TOP* ,(string (integer->char 1000))))
+  (test (html->xexp "&#x42")  '(*TOP* "B"))
+  (test (html->xexp "&#xA2")  `(*TOP* ,(string (integer->char 162))))
+  (test (html->xexp "&#xFF")  `(*TOP* ,(string (integer->char 255))))
+  (test (html->xexp "&#x100") `(*TOP* ,(string (integer->char 256))))
+  (test (html->xexp "&#X42")  '(*TOP* "B"))
+  (test (html->xexp "&42;")   '(*TOP* "&42;"))
+
+  (test (html->xexp (string-append "aaa&copy;bbb&amp;ccc&lt;ddd&&gt;"
+                                   "eee&#42;fff&#1000;ggg&#x5a;hhh"))
+        `(*TOP*
+          "aaa"
+          (& copy)
+          ,(string-append "bbb&ccc<ddd&>eee*fff"
+                          (string (integer->char 1000))
+                          "gggZhhh")))
+
+  (test (html->xexp
+         (string-append
+          "<IMG src=\"http://e.e/aw/pics/listings/"
+          "ebayLogo_38x16.gif\" border=0 width=\"38\" height=\"16\" "
+          "HSPACE=5 VSPACE=0\">2</FONT>"))
+        `(*TOP*
+          (img (@
+                (src
+                 "http://e.e/aw/pics/listings/ebayLogo_38x16.gif")
+                (border "0") (width "38") (height "16")
+                (hspace "5") (vspace "0")))
+          "2"))
+
+  (test (html->xexp "<aaa bbb=ccc\"ddd>eee")
+        `(*TOP* (aaa (@ (bbb "ccc") (ddd)) "eee")))
+  (test (html->xexp "<aaa bbb=ccc \"ddd>eee")
+        `(*TOP* (aaa (@ (bbb "ccc") (ddd)) "eee")))
+
+  (test (html->xexp
+         (string-append
+          "<HTML><Head><Title>My Title</Title></Head>"
+          "<Body BGColor=\"white\" Foo=42>"
+          "This is a <B><I>bold-italic</B></I> test of </Erk>"
+          "broken HTML.<br>Yes it is.</Body></HTML>"))
+        `(*TOP*
+          (html (head (title "My Title"))
+                (body (@ (bgcolor "white") (foo "42"))
+                      "This is a "
+                      (b (i "bold-italic"))
+                      " test of "
+                      "broken HTML."
+                      (br)
+                      "Yes it is."))))
+
+  (test (html->xexp
+         (string-append
+          "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\""
+          " \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"))
+        `(*TOP*
+          (*DECL*
+           DOCTYPE
+           html
+           PUBLIC
+           "-//W3C//DTD XHTML 1.0 Strict//EN"
+           "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd")))
+
+  (test (html->xexp
+         (string-append
+          "<html xmlns=\"http://www.w3.org/1999/xhtml\" "
+          "xml:lang=\"en\" "
+          "lang=\"en\">"))
+        `(*TOP*
+          (html (@ (xmlns "http://www.w3.org/1999/xhtml")
+                   (xml:lang "en") (lang "en")))))
+
+  (test (html->xexp
+         (string-append
+          "<html:html xmlns:html=\"http://www.w3.org/TR/REC-html40\">"
+          "<html:head><html:title>Frobnostication</html:title></html:head>"
+          "<html:body><html:p>Moved to <html:a href=\"http://frob.com\">"
+          "here.</html:a></html:p></html:body></html:html>"))
+        `(*TOP*
+          (html (@ (xmlns:html "http://www.w3.org/TR/REC-html40"))
+                (head (title "Frobnostication"))
+                (body (p "Moved to "
+                         (a (@ (href "http://frob.com"))
+                            "here."))))))
+
+  (test (html->xexp
+         (string-append
+          "<RESERVATION xmlns:HTML=\"http://www.w3.org/TR/REC-html40\">"
+          "<NAME HTML:CLASS=\"largeSansSerif\">Layman, A</NAME>"
+          "<SEAT CLASS=\"Y\" HTML:CLASS=\"largeMonotype\">33B</SEAT>"
+          "<HTML:A HREF=\"/cgi-bin/ResStatus\">Check Status</HTML:A>"
+          "<DEPARTURE>1997-05-24T07:55:00+1</DEPARTURE></RESERVATION>"))
+        `(*TOP*
+          (reservation (@ (,(string->symbol "xmlns:HTML")
+                           "http://www.w3.org/TR/REC-html40"))
+                       (name (@ (class "largeSansSerif"))
+                             "Layman, A")
+                       (seat (@ (class "Y") (class "largeMonotype"))
+                             "33B")
+                       (a (@ (href "/cgi-bin/ResStatus"))
+                          "Check Status")
+                       (departure "1997-05-24T07:55:00+1"))))
+
+  (test (html->xexp
+         (string-append
+          "<html><head><title></title><title>whatever</title></head><body>"
+          "<a href=\"url\">link</a><p align=center><ul compact style=\"aa\">"
+          "<p>BLah<!-- comment <comment> --> <i> italic <b> bold <tt> ened </i>"
+          " still &lt; bold </b></body><P> But not done yet..."))
+        `(*TOP*
+          (html (head (title) (title "whatever"))
+                (body (a (@ (href "url")) "link")
+                      (p (@ (align "center"))
+                         (ul (@ (compact) (style "aa"))))
+                      (p "BLah"
+                         (*COMMENT* " comment <comment> ")
+                         " "
+                         (i " italic " (b " bold " (tt " ened ")))
+                         " still < bold "))
+                (p " But not done yet..."))))
+
+  (test (html->xexp "<?xml version=\"1.0\" encoding=\"UTF-8\"?>")
+        `(*TOP*
+          (*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")))
+
+  (test (html->xexp "<?php php_info(); ?>")
+        `(*TOP* (*PI* php "php_info(); ")))
+  (test (html->xexp "<?php php_info(); ?")
+        `(*TOP* (*PI* php "php_info(); ?")))
+  (test (html->xexp "<?php php_info(); ")
+        `(*TOP* (*PI* php "php_info(); ")))
+
+  (test (html->xexp "<?foo bar ? baz > blort ?>")
+        `(*TOP*
+          (*PI* foo "bar ? baz > blort ")))
+
+  (test (html->xexp "<?foo b?>x")
+        `(*TOP* (*PI* foo "b") "x"))
+  (test (html->xexp "<?foo ?>x")
+        `(*TOP* (*PI* foo "")  "x"))
+  (test (html->xexp "<?foo ?>x")
+        `(*TOP* (*PI* foo "")  "x"))
+  (test (html->xexp "<?foo?>x")
+        `(*TOP* (*PI* foo "")  "x"))
+  (test (html->xexp "<?f?>x")
+        `(*TOP* (*PI* f   "")  "x"))
+  (test (html->xexp "<??>x")
+        `(*TOP* (*PI* #f  "")  "x"))
+  (test (html->xexp "<?>x")
+        `(*TOP* (*PI* #f  ">x")))
+
+  (test (html->xexp "<foo bar=\"baz\">blort")
+        `(*TOP* (foo (@ (bar "baz")) "blort")))
+  (test (html->xexp "<foo bar='baz'>blort")
+        `(*TOP* (foo (@ (bar "baz")) "blort")))
+  (test (html->xexp "<foo bar=\"baz'>blort")
+        `(*TOP* (foo (@ (bar "baz'>blort")))))
+  (test (html->xexp "<foo bar='baz\">blort")
+        `(*TOP* (foo (@ (bar "baz\">blort")))))
+
+  (test (html->xexp (string-append "<p>A</p>"
+                                   "<script>line0 <" "\n"
+                                   "line1" "\n"
+                                   "<line2></script>"
+                                   "<p>B</p>"))
+        `(*TOP* (p "A")
+                (script ,(string-append "line0 <" "\n")
+                        ,(string-append "line1"   "\n")
+                        "<line2>")
+                (p "B")))
+
+  (test (html->xexp "<xmp>a<b>c</XMP>d")
+        `(*TOP* (xmp "a<b>c") "d"))
+  (test (html->xexp "<XMP>a<b>c</xmp>d")
+        `(*TOP* (xmp "a<b>c") "d"))
+  (test (html->xexp "<xmp>a<b>c</foo:xmp>d")
+        `(*TOP* (xmp "a<b>c") "d"))
+  (test (html->xexp "<foo:xmp>a<b>c</xmp>d")
+        `(*TOP* (xmp "a<b>c") "d"))
+  (test (html->xexp "<foo:xmp>a<b>c</foo:xmp>d")
+        `(*TOP* (xmp "a<b>c") "d"))
+  (test (html->xexp "<foo:xmp>a<b>c</bar:xmp>d")
+        `(*TOP* (xmp "a<b>c") "d"))
+
+  (test (html->xexp "<xmp>a</b>c</xmp>d")
+        `(*TOP* (xmp "a</b>c")     "d"))
+  (test (html->xexp "<xmp>a</b >c</xmp>d")
+        `(*TOP* (xmp "a</b >c")    "d"))
+  (test (html->xexp "<xmp>a</ b>c</xmp>d")
+        `(*TOP* (xmp "a</ b>c")    "d"))
+  (test (html->xexp "<xmp>a</ b >c</xmp>d")
+        `(*TOP* (xmp "a</ b >c")   "d"))
+  (test (html->xexp "<xmp>a</b:x>c</xmp>d")
+        `(*TOP* (xmp "a</b:x>c")   "d"))
+  (test (html->xexp "<xmp>a</b::x>c</xmp>d")
+        `(*TOP* (xmp "a</b::x>c")  "d"))
+  (test (html->xexp "<xmp>a</b:::x>c</xmp>d")
+        `(*TOP* (xmp "a</b:::x>c") "d"))
+  (test (html->xexp "<xmp>a</b:>c</xmp>d")
+        `(*TOP* (xmp "a</b:>c")    "d"))
+  (test (html->xexp "<xmp>a</b::>c</xmp>d")
+        `(*TOP* (xmp "a</b::>c")   "d"))
+  (test (html->xexp "<xmp>a</xmp:b>c</xmp>d")
+        `(*TOP* (xmp "a</xmp:b>c") "d"))
+
+  (let ((expected `(*TOP* (p "real1")
+                          "\n"
+                          (xmp "\n"
+                               ,(string-append "alpha"       "\n")
+                               ,(string-append "<P>fake</P>" "\n")
+                               ,(string-append "bravo"       "\n"))
+                          (p "real2"))))
+
+    (test (html->xexp (string-append "<P>real1</P>" "\n"
+                                     "<XMP>"        "\n"
+                                     "alpha"        "\n"
+                                     "<P>fake</P>"  "\n"
+                                     "bravo"        "\n"
+                                     "</XMP "       "\n"
+                                     "<P>real2</P>"))
+          expected)
+
+    (test (html->xexp (string-append "<P>real1</P>" "\n"
+                                     "<XMP>"        "\n"
+                                     "alpha"        "\n"
+                                     "<P>fake</P>"  "\n"
+                                     "bravo"        "\n"
+                                     "</XMP"        "\n"
+                                     "<P>real2</P>"))
+          expected))
+
+  (test (html->xexp "<xmp>a</xmp>x")
+        `(*TOP* (xmp "a")   "x"))
+  (test (html->xexp (string-append "<xmp>a" "\n" "</xmp>x"))
+        `(*TOP* (xmp ,(string-append "a" "\n")) "x"))
+  (test (html->xexp "<xmp></xmp>x")
+        `(*TOP* (xmp)       "x"))
+
+  (test (html->xexp "<xmp>a</xmp") `(*TOP* (xmp "a")))
+  (test (html->xexp "<xmp>a</xm")  `(*TOP* (xmp "a</xm")))
+  (test (html->xexp "<xmp>a</x")   `(*TOP* (xmp "a</x")))
+  (test (html->xexp "<xmp>a</")    `(*TOP* (xmp "a</")))
+  (test (html->xexp "<xmp>a<")     `(*TOP* (xmp "a<")))
+  (test (html->xexp "<xmp>a")      `(*TOP* (xmp "a")))
+  (test (html->xexp "<xmp>")       `(*TOP* (xmp)))
+  (test (html->xexp "<xmp")        `(*TOP* (xmp)))
+
+  (test (html->xexp "<xmp x=42 ")
+        `(*TOP* (xmp (@ (x "42")))))
+  (test (html->xexp "<xmp x= ")   `(*TOP* (xmp (@ (x)))))
+  (test (html->xexp "<xmp x ")    `(*TOP* (xmp (@ (x)))))
+  (test (html->xexp "<xmp x")     `(*TOP* (xmp (@ (x)))))
+
+  (test (html->xexp "<script>xxx")
+        `(*TOP* (script "xxx")))
+  (test (html->xexp "<script/>xxx")
+        `(*TOP* (script) "xxx"))
+
+  (test (html->xexp "<html xml:lang=\"en\" lang=\"en\">")
+        `(*TOP* (html (@ (xml:lang "en") (lang "en")))))
+
+  (test (html->xexp "<a href=/foo.html>")
+        `(*TOP* (a (@ (href "/foo.html")))))
+  (test (html->xexp "<a href=/>foo.html")
+        `(*TOP* (a (@ (href "/")) "foo.html")))
+
+  ;; TODO: Add verbatim-pair cases with attributes in the end tag.
+
+  (test (html->xexp "&copy;")
+        `(*TOP* (& copy)))
+  (test (html->xexp "&rArr;")
+        `(*TOP* (& ,(string->symbol "rArr"))))
+  (test (html->xexp "&#151;")
+        `(*TOP* ,(string (integer->char 151))))
+
+  (test (html->xexp "&#999;")
+        `(*TOP* ,(string (integer->char 999))))
+
+  (test (html->xexp "xxx<![CDATA[abc]]>yyy")
+        `(*TOP* "xxx" "abc" "yyy"))
+
+  (test (html->xexp "xxx<![CDATA[ab]c]]>yyy")
+        `(*TOP* "xxx" "ab]c" "yyy"))
+
+  (test (html->xexp "xxx<![CDATA[ab]]c]]>yyy")
+        `(*TOP* "xxx" "ab]]c" "yyy"))
+
+  (test (html->xexp "xxx<![CDATA[]]]>yyy")
+        `(*TOP* "xxx" "]" "yyy"))
+
+  (test (html->xexp "xxx<![CDATAyyy")
+        `(*TOP* "xxx" "<![CDATA" "yyy"))
+
+  (test (html->xexp "<html><div><p>P1</p><p>P2</p></div><p>P3</p>")
+        `(*TOP* (html (div (p "P1")
+                           (p "P2"))
+                      (p "P3")))
+        #:id 'parent-constraints-with-div)
+
+  (test (html->xexp "&#151;")
+        `(*TOP* ,(string (integer->char 151)))
+        #:id 'once-again-converting-character-references-above-126-to-string)
+
+  (test (html->xexp "<ul><li>a<p>b</p>")
+        `(*TOP* (ul (li "a" (p "b"))))
+        #:id 'p-element-can-be-child-of-li-element)
+
+  (test-section 'unterminated-named-character-entity-references
+
+    (test-section 'old-school-names
+      (test 'amp  (html->xexp "<p>a&ampz</p>")  '(*TOP* (p "a&z")))
+      (test 'apos (html->xexp "<p>a&aposz</p>") '(*TOP* (p "a'z")))
+      (test 'lt   (html->xexp "<p>a&ltz</p>")   '(*TOP* (p "a<z")))
+      (test 'gt   (html->xexp "<p>a&gtz</p>")   '(*TOP* (p "a>z")))
+      (test 'quot (html->xexp "<p>a&quotz</p>") '(*TOP* (p "a\"z"))))
+
+    (test-section 'new-school-names
+      (test 'rarr (html->xexp "<p>a&rarrz</p>") '(*TOP* (p "a&rarrz"))))
+
+    (test-section 'unrecognized-names
+      (test 'a-t-and-t
+            (html->xexp "<p>AT&T Bell Labs</p>")
+            '(*TOP* (p "AT&T Bell Labs")))))
+  
+  (test-section 'terminated-old-school-named-character-entity-references
+    (test 'amp  (html->xexp "<p>a&amp;z</p>")  '(*TOP* (p "a&z")))
+    (test 'apos (html->xexp "<p>a&apos;z</p>") '(*TOP* (p "a'z")))
+    (test 'lt   (html->xexp "<p>a&lt;z</p>")   '(*TOP* (p "a<z")))
+    (test 'gt   (html->xexp "<p>a&gt;z</p>")   '(*TOP* (p "a>z")))
+    (test 'quot (html->xexp "<p>a&quot;z</p>") '(*TOP* (p "a\"z"))))
+
+  (test-section 'parent-constraints-should-permit-p-inside-blockquote
+    (test 'basic
+          (html->xexp "<x>A<blockquote><p>B</p>C<p>D</p>E</blockquote>F</x>")
+          `(*TOP* (x "A"
+                     (blockquote (p "B")
+                                 "C"
+                                 (p "D")
+                                 "E")
+                     "F")))
+    (test 'initial-sorawee-porncharoenwase-example
+          (html->xexp 
+           "<blockquote><tr><td><blockquote><p></p></blockquote></td><div></div></tr></blockquote>")
+          '(*TOP* (blockquote (tr (td (blockquote (p)))
+                                  (div))))))
+
+  (test-section 'p-elem-can-be-child-of-details-elem
+
+    (test 'initial-jacder-example-modified
+          (html->xexp "<div><details><p>text in details</p></details></div>")
+          '(*TOP* (div (details (p "text in details"))))))
+
+  ;; TODO: 2022-01-22 Go through latest HTML elements and add them to parent constraints
+  ;; in the ancient quirks handling from over 20 years ago.
+
+  (test-section 'p-elem-cannot-be-child-of-p-elem
+
+    (test 'initial-simpson-example
+          (html->xexp "<html><p>foo<p>bar</html>")
+          '(*TOP* (html (p "foo") (p "bar"))))
+
+    (test 'non-p-parent-in-which-p-shouldnt-nest
+          (html->xexp "<html><xyz>foo<p>bar</html>")
+          '(*TOP* (html (xyz "foo") (p "bar"))))
+
+    (test 'p-shouldnt-nest-even-without-html-element
+          (html->xexp "<p>foo<p>bar")
+          '(*TOP* (p "foo") (p "bar"))
+          #:fail "see code comment about parent-constraints when no top elements"))
+
+  (test-section 'break-the-world-with-h-elem-mid-90s-handling
+
+    (test 'initial
+          (html->xexp "<html><p>foo<h3>bar</h3></html>")
+          '(*TOP* (html (p "foo") (h3 "bar")))))
+
+  (test-section 'twrpme-h2-in-li-elements
+
+    (test 'simple
+          (html->xexp "<html><body><ul><li><h2>My Header Item</h2></li><li>My Non-Header Item</li></ul></body></html>")
+          '(*TOP* (html (body (ul (li (h2 "My Header Item"))
+                                  (li "My Non-Header Item"))))))
+
+    (test 'simon-budinsky-example
+          (html->xexp
+           (string-append
+            "<html>"
+            "<head></head>"
+            "<body>"
+            "<ul class=\"post-list\">"
+            "<li>"
+            "<span class=\"post-meta\">Mar 10, 2022</span>"
+            "<h2>"
+            "<a class=\"post-link\" href=\"/site/update/2022/03/10/twrp-3.6.1-released.html\">TWRP 3.6.1 Released</a>"
+            "</h2>"
+            "</li>"
+            "<li>"
+            "<span class=\"post-meta\">Mar 10, 2022</span>"
+            "<h2>"
+            "<a class=\"post-link\" href=\"/site/update/2022/03/10/twrp-3.6.1-released.html\">TWRP 3.6.1 Released</a>"
+            "</h2>"
+            "</li>"
+            "</ul>"
+            "</body>"
+            "</html>"))
+          '(*TOP* (html (head)
+                        (body (ul (@ (class "post-list"))
+                                  (li (span (@ (class "post-meta"))
+                                            "Mar 10, 2022")
+                                      (h2 (a (@ (class "post-link")
+                                                (href "/site/update/2022/03/10/twrp-3.6.1-released.html"))
+                                             "TWRP 3.6.1 Released")))
+                                  
+                                  (li (span (@ (class "post-meta"))
+                                            "Mar 10, 2022")
+                                      (h2 (a (@ (class "post-link")
+                                                (href "/site/update/2022/03/10/twrp-3.6.1-released.html"))
+                                             "TWRP 3.6.1 Released")))))))))
+
+  (test-section 'area-in-span-in-microformats
+
+    (test 'area-from-jacob-hall
+          (html->xexp "<div><span><area></area></span></div>")
+          '(*TOP* (div (span (area)))))
+
+    (test 'object-from-jacob-hall
+          (html->xexp "<div><object>Jane Doe</object></div>")
+          '(*TOP* (div (object "Jane Doe")))))
+
+  (test-section 'bugs-from-cadence
+
+    (test 'figcaption-as-parent-of-p
+          (html->xexp "<figcaption> <p class=\"caption\">words</p><img src=\"nowhere\"></figcaption>")
+          '(*TOP* (figcaption " "
+                              (p (@ (class "caption")) "words")
+                              (img (@ (src "nowhere"))))))
+
+    (test 'attribute-html-entities-1
+          (html->xexp "<img src=\"https://example.com/images?src=Blah.jpg&amp;width=150\">")
+          '(*TOP* (img (@ (src "https://example.com/images?src=Blah.jpg&width=150")))))
+
+    (test 'attribute-html-entities-2
+          (html->xexp "<a href=\"https://example.com/phpbb/viewtopic.php?f=31&amp;t=1125\">https://example.com/phpbb/viewtopic.php?f=31&amp;t=1125</a>")
+          '(*TOP* (a (@ (href "https://example.com/phpbb/viewtopic.php?f=31&t=1125"))
+                     "https://example.com/phpbb/viewtopic.php?f=31&t=1125"))))
+
+  ;; TODO: Document this.
+  ;;
+  ;; (define html-1 "<myelem myattr=\"&\">")
+  ;; (define shtml   (html->xexp html-1))
+  ;; shtml
+  ;; (define html-2 (shtml->html shtml))
+  ;; html-2
+  )
+
+(doc history
+
+     (#:planet 12:0 #:date "2023-01-28"
+               (itemlist
+                (item "Within attributes, HTML entities like &amp; are now decoded.")
+                (item "A "
+                      (code "p")
+                      " element can now appear as a child of a "
+                      (code "figcaption")
+                      " element.")))
+
+     (#:planet 11:0 #:date "2022-07-19"
+               (itemlist
+                (item "An "
+                      (code "object")
+                      " element is no longer considered always-empty.  Incrementing major
+version again, because this could break parses.")))
+     
+     (#:planet 10:0 #:date "2022-07-19"
+               (itemlist
+                (item "To pass a \"microformats\" test suite ("
+                      (hyperlink "https://github.com/microformats/tests/blob/master/tests/microformats-v2/h-card/impliedname.html#L11"
+                                 "impliedname.html")
+                      "), an "
+                      (code "area")
+                      " element can now be a child of a "
+                      (code "span")
+                      " element.  In the future, we might be even more flexible about where "
+                      (code "span")
+                      " elements are permitted.  (Thanks to Jacob Hall for
+discussing.)")))
+     
+     (#:planet 9:0 #:date "2022-04-16"
+               (itemlist
+                (item "Header elements may once again appear as children of "
+                      (code "li")
+                      " elements (which we broke in the previous version), as we see how far we can stretch a 20 year-old hack for invalid HTML.  (Thanks for Simon Budinsky for reporting.)")))
+
+     (#:planet 8:0 #:date "2022-04-03"
+               (itemlist
+                (item "The original \"H\" elements ("
+                      (code "h1")
+                      ", "
+                      (code "h2")
+                      ", etc.) now are parsed with \"parent constraints\" for
+handling invalid HTML, to accommodate a need to parse mid-1990s HTML in which "
+                      (code "<P>")
+                      " was used as a separator or terminator, rather than a
+start delimeter.  There is a chance that change this will break a real-world
+scraper or other tool.")))
+                
+     (#:planet 7:1 #:date "2022-04-02"
+               (itemlist
+                (item "Include a test case #:fail that was unsaved in DrRacket.")))
+     
+     (#:planet 7:0 #:date "2022-04-02"
+               (itemlist
+                
+                (item "Fixed a quirks-handling bug in which "
+                      (code "p")
+                      " elements would be (directly or indirectly) nested under other "
+                      (code "p")
+                      " elements in cases in which there was no "
+                      (code "body")
+                      " element, but there was an "
+                      (code "html")
+                      " element.  (Thanks to Jonathan Simpson for reporting.)")))
+     
+     (#:planet 6:1 #:date "2022-01-22"
+               (itemlist
+                (item "Permit "
+                      (code "details")
+                      " element to be parent of "
+                      (code "p")
+                      " element in quirks handling. (Thanks to Jacder for reporting.)")))
+     
+     (#:planet 6:0 #:date "2018-05-22"
+               (itemlist
+                (item "Fix to permit "
+                      (code "p")
+                      " elements as children of "
+                      (code "blockquote")
+                      " elements.  Incrementing major version number because
+this is a breaking change of 17 years, but seems an appropriate change for
+modern HTML, and fixes a particular real-world problem.  (Thanks to
+Sorawee Porncharoenwase for reporting.)")))
+     
+     (#:planet 5:0 #:date "2018-05-15"
+               (itemlist
+                (item "In a breaking change of handing invalid HTML, most named
+character entity references that are invalid because (possibly among multiple
+reasons) they are not terminated by semicolon, now are treated as literal
+strings (including the ampersand), rather than as named character entites.  For
+example, parser input string "
+                      (racket "<p>A&B Co.<p>")
+                      " will now parse as "
+                      (racket (p "A&B Co."))
+                      " rather than as "
+                      (racket (p "A" (& B) " Co."))
+                      ".  (Thanks for Greg Hendershott for suggesting this, and discussing.)")
+                (item "For support of historical quirks handling, five early
+HTML named character entities (specifically, "
+                      (tt "amp")
+                      ", "
+                      (tt "apos")
+                      ", "
+                      (tt "lt")
+                      ", "
+                      (tt "gt")
+                      ", "
+                      (tt "quot")
+                      ") do not need to be terminated with a semicolon, and
+will even be recognized if followed immediately by an alphabetic.  For
+example, "
+                      (racket "<p>a&ltz</p>")
+                      " will now parse as "
+                      (racket (p "a<z"))
+                      ", rather than as "
+                      (racket (p (& ltz)))
+                      ".")
+                (item "Invalid character entity references that are terminated
+by EOF rather than semicolon may now be parsed as literal strings, rather than
+as entity references.")))
+               
+     (#:planet 4:3 #:date "2016-12-15"
+               (itemlist
+                (item "Error message ``"
+                      (code "%html-parsing:parse-html: invalid input type:")
+                      "'' now abbreviates the invalid value, to avoid possibly
+huge messages.  (Thanks to John B. Clements.)")))
+
+     (#:planet 4:2 #:date "2016-03-02"
+               (itemlist
+                (item "Tweaked info.rkt, filenames.")))
+     
+     (#:planet 4:1 #:date "2016-02-25"
+               (itemlist
+                (item "Updated deps.")
+                (item "Documentation tweaks.")))
+
+     (#:planet 4:0 #:date "2016-02-21"
+               (itemlist
+                (item "Moving from PLaneT to new package system.")
+                (item "Moved unit tests into main source file.")))
+
+     (#:planet 3:0 #:date "2015-04-24"
+               (itemlist
+                (item "Numeric character entities now parse to Racket strings
+instead of Racket characters, to bring SXML/xexp back closer to SXML.  (Thanks
+to John Clements for reporting.)")))
+
+     (#:planet 2:0 #:date "2012-06-13"
+               (itemlist
+                (item "Converted to McFly.")))
+
+     (#:version "0.3" #:planet 1:2 #:date "2011-08-27"
+                (itemlist
+                 (item "Converted test suite from Testeez to Overeasy.")))
+
+     (#:version "0.2" #:planet 1:1 #:date "2011-08-27"
+                (itemlist
+                 (item "Fixed embarrassing bug due to code tidying.  (Thanks to
+Danny Yoo for reporting.)")))
+
+     (#:version "0.1" #:planet 1:0 #:date "2011-08-21"
+                (itemlist
+                 (item "Part of forked development from HtmlPrag, parser
+originally written 2001-04."))))
diff --git a/lib/mime-types.rkt b/lib/mime-types.rkt
new file mode 100644
index 00000000..906219ae
--- /dev/null
+++ b/lib/mime-types.rkt
@@ -0,0 +1,34 @@
+#lang racket/base
+(require racket/contract
+         racket/match
+         racket/path
+         racket/runtime-path
+         racket/string)
+
+(provide
+ (contract-out
+  [ext->mime-type (-> bytes? bytes?)]
+  [mime-type->ext (-> bytes? bytes?)]))
+
+(define-runtime-path mime.types-path "mime.types")
+
+(define ls
+  (call-with-input-file mime.types-path
+    (λ (in) (for/list ([line (in-lines in)]
+                       #:when (not (regexp-match? #rx"^ *($|#)" line)))
+              (match line
+                [(regexp #rx"^([^ ]+) +(.+)$" (list _ mime ext))
+                 (cons (string->bytes/utf-8 ext) (string->bytes/utf-8 mime))]
+                [(regexp #rx"^ *#") (void)]
+                [_ (log-warning "mime-types: failed to parse line ~s" line)])))))
+
+(define forward-hash (make-immutable-hash ls))
+(define reverse-hash (make-immutable-hash (map (λ (x) (cons (cdr x) (car x))) ls)))
+
+(define (ext->mime-type ext-in)
+  (define ext (regexp-replace #rx"^\\." ext-in #""))
+  (hash-ref forward-hash ext))
+
+(define (mime-type->ext m-in)
+  (define m (regexp-replace #rx";.*" m-in #""))
+  (hash-ref reverse-hash m))
diff --git a/lib/mime.types b/lib/mime.types
new file mode 100644
index 00000000..74ddeeff
--- /dev/null
+++ b/lib/mime.types
@@ -0,0 +1,85 @@
+text/html                             html
+text/css                              css
+text/xml                              xml
+image/gif                             gif
+image/jpeg                            jpeg
+application/javascript                js
+text/javascript                       js
+application/atom+xml                  atom
+application/rss+xml                   rss
+
+text/mathml                           mml
+text/plain                            txt
+text/x-component                      htc
+
+image/png                             png
+image/tiff                            tiff
+image/vnd.wap.wbmp                    wbmp
+image/x-icon                          ico
+image/x-jng                           jng
+image/x-ms-bmp                        bmp
+image/svg+xml                         svg
+image/webp                            webp
+
+application/font-woff2                woff2
+application/acad                      woff2
+font/woff2                            woff2
+application/font-woff                 woff
+application/x-font-ttf                ttf
+application/x-font-truetype           ttf
+application/x-truetype-font           ttf
+application/font-sfnt                 ttf
+font/sfnt                             ttf
+application/vnd.oasis.opendocument.formula-template otf
+application/x-font-opentype           otf
+application/vnd.ms-opentype           otf
+font/otf                              otf
+application/java-archive              jar
+application/json                      json
+application/mac-binhex40              hqx
+application/msword                    doc
+application/pdf                       pdf
+application/postscript                ps
+application/rtf                       rtf
+application/vnd.apple.mpegurl         m3u8
+application/vnd.ms-excel              xls
+application/vnd.ms-fontobject         eot
+application/vnd.ms-powerpoint         ppt
+application/vnd.wap.wmlc              wmlc
+application/vnd.google-earth.kml+xml  kml
+application/vnd.google-earth.kmz      kmz
+application/x-7z-compressed           7z
+application/x-cocoa                   cco
+application/x-java-archive-diff       jardiff
+application/x-java-jnlp-file          jnlp
+application/x-makeself                run
+application/x-perl                    pl
+application/x-rar-compressed          rar
+application/x-redhat-package-manager  rpm
+application/x-sea                     sea
+application/x-shockwave-flash         swf
+application/x-stuffit                 sit
+application/x-tcl                     tcl
+application/x-x509-ca-cert            pem
+application/x-xpinstall               xpi
+application/xhtml+xml                 xhtml
+application/xspf+xml                  xspf
+application/zip                       zip
+application/gzip                      gz
+
+audio/midi                            mid midi kar
+audio/mpeg                            mp3
+audio/ogg                             ogg
+audio/x-m4a                           m4a
+audio/x-realaudio                     ra
+
+video/mp2t                            ts
+video/mp4                             mp4
+video/mpeg                            mpeg
+video/quicktime                       mov
+video/webm                            webm
+video/x-flv                           flv
+video/x-m4v                           m4v
+video/x-mng                           mng
+video/x-ms-wmv                        wmv
+video/x-msvideo                       avi
diff --git a/src/pure-utils.rkt b/lib/pure-utils.rkt
similarity index 69%
rename from src/pure-utils.rkt
rename to lib/pure-utils.rkt
index eb730ec3..ff8b9331 100644
--- a/src/pure-utils.rkt
+++ b/lib/pure-utils.rkt
@@ -4,13 +4,19 @@
  ; call the updater on the dictionary key only if it has that key
  alist-maybe-update
  ; update a value only if a condition succeeds on it
- u)
+ u
+ ; like string-join, but for lists
+ list-join
+ u-counter)
 
 (module+ test
   (require "typed-rackunit.rkt"))
 
+(define u-counter (box 0))
+
 (: alist-maybe-update (∀ (A B) ((Listof (Pairof A B)) A (B -> B) -> (Listof (Pairof A B)))))
 (define (alist-maybe-update alist key updater)
+  (set-box! u-counter (add1 (unbox u-counter)))
   (map (λ ([p : (Pairof A B)])
          (if (eq? (car p) key)
              (cons (car p) (updater (cdr p)))
@@ -24,7 +30,16 @@
 
 (: u (∀ (A) ((A -> Any) (A -> A) A -> A)))
 (define (u condition updater value)
+  (set-box! u-counter (add1 (unbox u-counter)))
   (if (condition value) (updater value) value))
 (module+ test
   (check-equal? (u (λ ([x : Integer]) (< x 5)) (λ ([x : Integer]) (* x -1)) 4) -4)
   (check-equal? (u (λ ([x : Integer]) (< x 5)) (λ ([x : Integer]) (* x -1)) 8) 8))
+
+(: list-join (∀ (A B) (A (Listof B) -> (Listof (U A B)))))
+(define (list-join element ls)
+  (if (pair? (cdr ls))
+      (list* (car ls) element (list-join element (cdr ls)))
+      (list (car ls))))
+(module+ test
+  (check-equal? (list-join "h" '(2 3 4 5)) '(2 "h" 3 "h" 4 "h" 5)))
diff --git a/src/syntax.rkt b/lib/syntax.rkt
similarity index 66%
rename from src/syntax.rkt
rename to lib/syntax.rkt
index f8fda0dc..1c3fae21 100644
--- a/src/syntax.rkt
+++ b/lib/syntax.rkt
@@ -5,7 +5,11 @@
  ; help make a nested if. if/in will gain the same false form of its containing if/out.
  if/out
  ; let, but the value for each variable is evaluated within a thread
- thread-let)
+ thread-let
+ ; cond, but values can be defined between conditions
+ cond/var
+ ; wrap sql statements into lambdas so they can be executed during migration
+ wrap-sql)
 
 (module+ test
   (require rackunit)
@@ -17,9 +21,12 @@
 ;; it's in a submodule so that it can be required in both levels, for testing
 
 (module transform racket/base
+  (require racket/list)
+
   (provide
    transform-if/out
-   transform-thread-let)
+   transform-thread-let
+   transform/out-cond/var)
 
   (define (transform-if/out stx)
     (define tree (cdr (syntax->datum stx))) ; condition true false
@@ -62,12 +69,46 @@
                      (define def (list-ref defs n))
                      `(,(car def) (channel-get (vector-ref chv ,n))))
                    counter)
-            ,@forms)))))
+          ,@forms))))
+
+  (define (transform/out-cond/var stx)
+    (define tree (transform-cond/var (cdr (syntax->datum stx))))
+    (datum->syntax
+     stx
+     tree))
+
+  (define (transform-cond/var tree)
+    (define-values (els temp) (splitf-at tree (λ (el) (and (pair? el) (not (eq? (car el) 'var))))))
+    (define-values (vars rest) (splitf-at temp (λ (el) (and (pair? el) (eq? (car el) 'var)))))
+    (if (null? rest)
+        `(cond ,@els)
+        `(cond
+          ,@els
+          [#t
+           (let ,(for/list ([var vars])
+                   (cdr var))
+             ,(transform-cond/var rest))]))))
 
 ;; the syntax definitions and their tests go below here
 
 (require 'transform (for-syntax 'transform))
 
+(define-syntax (wrap-sql stx)
+  ; the arguments
+  (define xs (cdr (syntax->list stx)))
+  ; wrap each argument
+  (define wrapped (map (λ (xe) ; xe is the syntax of an argument
+                         (if (list? (car (syntax->datum xe)))
+                             ; it's a list of lists (a list of sql migration steps)
+                             ; return instead syntax of a lambda that will call everything in xe
+                             (datum->syntax stx `(λ () ,@xe))
+                             ; it's just a single sql migration step
+                             ; return instead syntax of a lambda that will call xe
+                             (datum->syntax stx `(λ () ,xe))))
+                       xs))
+  ; since I'm returning *code*, I need to return the form (list ...) so that runtime makes a list
+  (datum->syntax stx `(list ,@wrapped)))
+
 (define-syntax (if/out stx)
   (transform-if/out stx))
 (module+ test
@@ -106,3 +147,15 @@
   ; check that it assigns the correct value to the correct variable
   (check-equal? (thread-let ([a (sleep 0) 'a] [b 'b]) (list a b))
                 '(a b)))
+
+(define-syntax (cond/var stx)
+  (transform/out-cond/var stx))
+(module+ test
+  (check-syntax-equal? (transform/out-cond/var #'(cond/def [#f 0] (var d (* a 2)) [(eq? d 8) d] [#t "not 4"]))
+                       #'(cond
+                           [#f 0]
+                           [#t
+                            (let ([d (* a 2)])
+                              (cond
+                                [(eq? d 8) d]
+                                [#t "not 4"]))])))
diff --git a/src/tree-updater.rkt b/lib/tree-updater.rkt
similarity index 87%
rename from src/tree-updater.rkt
rename to lib/tree-updater.rkt
index 815ef8a5..a6edb6be 100644
--- a/src/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -3,17 +3,35 @@
          racket/function
          racket/match
          racket/string
-         "config.rkt"
          "pure-utils.rkt"
          "url-utils.rkt"
          "xexpr-utils.rkt")
 
 (provide
+ preprocess-html-wiki
  update-tree-wiki)
 
+(define (preprocess-html-wiki html)
+  (define ((rr* find replace) contents)
+    (regexp-replace* find contents replace))
+  ((compose1
+    ; fix navbox list nesting
+    ; navbox on right of page has incorrect html "<td ...><li>" and the xexpr parser puts the <li> much further up the tree
+    ; add a <ul> to make the parser happy
+    ; usage: /fallout/wiki/Fallout:_New_Vegas_achievements_and_trophies
+    (rr* #rx"(<td[^>]*>\n?)(<li>)" "\\1<ul>\\2")
+    ; change <figcaption><p> to <figcaption><span> to make the parser happy
+    (rr* #rx"(<figcaption[^>]*>)[ \t]*<p class=\"caption\">([^<]*)</p>" "\\1<span class=\"caption\">\\2</span>"))
+   html))
+(module+ test
+  (check-equal? (preprocess-html-wiki "<td class=\"va-navbox-column\" style=\"width: 33%\">\n<li>Hey</li>")
+                "<td class=\"va-navbox-column\" style=\"width: 33%\">\n<ul><li>Hey</li>")
+  (check-equal? (preprocess-html-wiki "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"> 	<p class=\"caption\">Caption text.</p></figcaption></figure>")
+                "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"><span class=\"caption\">Caption text.</span></figcaption></figure>"))
+
 (module+ test
   (require rackunit
-           html-parsing)
+           "html-parsing/main.rkt")
   (define wiki-document
     '(*TOP*
       (div (@ (class "mw-parser-output"))
@@ -47,7 +65,7 @@
                    (figcaption "Test figure!"))
            (iframe (@ (src "https://example.com/iframe-src")))))))
 
-(define (updater wikiname)
+(define (updater wikiname #:strict-proxy? [strict-proxy? #f])
   (define classlist-updater
     (compose1
      ; uncollapse all navbox items (bottom of page mass navigation)
@@ -101,7 +119,7 @@
                                 '(""))))
      ; proxy images from inline styles, if strict_proxy is set
      (curry u
-            (λ (v) (config-true? 'strict_proxy))
+            (λ (v) strict-proxy?)
             (λ (v) (attribute-maybe-update
                     'style
                     (λ (style)
@@ -114,14 +132,14 @@
      ; and also their links, if strict_proxy is set
      (curry u
             (λ (v)
-              (and (config-true? 'strict_proxy)
+              (and strict-proxy?
                    #;(eq? element-type 'a)
                    (or (has-class? "image-thumbnail" v)
                        (has-class? "image" v))))
             (λ (v) (attribute-maybe-update 'href u-proxy-url v)))
      ; proxy images from src attributes, if strict_proxy is set
      (curry u
-            (λ (v) (config-true? 'strict_proxy))
+            (λ (v) strict-proxy?)
             (λ (v) (attribute-maybe-update 'src u-proxy-url v)))
      ; don't lazyload images
      (curry u
@@ -208,13 +226,12 @@
 
   updater)
 
-(define (update-tree-wiki tree wikiname)
-  (update-tree (updater wikiname) tree))
+(define (update-tree-wiki tree wikiname #:strict-proxy? [strict-proxy? #f])
+  (update-tree (updater wikiname #:strict-proxy? strict-proxy?) tree))
 
 (module+ test
   (define transformed
-    (parameterize ([(config-parameter 'strict_proxy) "true"])
-      (update-tree-wiki wiki-document "test")))
+    (update-tree-wiki wiki-document "test" #:strict-proxy? #t))
   ; check that wikilinks are changed to be local
   (check-equal? (get-attribute 'href (bits->attributes
                                       ((query-selector
@@ -260,8 +277,8 @@
   ; check that noscript images are removed
   (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f)
   ; benchmark
-  (when (file-exists? "Frog.html2")
-    (with-input-from-file "Frog.html2"
+  (when (file-exists? "../misc/Frog.html")
+    (with-input-from-file "../misc/Frog.html"
       (λ ()
         (define tree (html->xexp (current-input-port)))
         (time (length (update-tree-wiki tree "minecraft")))))))
diff --git a/src/typed-rackunit.rkt b/lib/typed-rackunit.rkt
similarity index 100%
rename from src/typed-rackunit.rkt
rename to lib/typed-rackunit.rkt
diff --git a/src/url-utils.rkt b/lib/url-utils.rkt
similarity index 94%
rename from src/url-utils.rkt
rename to lib/url-utils.rkt
index 1df933c5..4722d49a 100644
--- a/src/url-utils.rkt
+++ b/lib/url-utils.rkt
@@ -1,6 +1,5 @@
 #lang typed/racket/base
 (require racket/string
-         "config.rkt"
          "pure-utils.rkt")
 (require/typed web-server/http/request-structs
                [#:opaque Header header?])
@@ -10,12 +9,14 @@
  px-wikiname
  ; make a query string from an association list of strings
  params->query
+ ; custom percent encoding (you probably want params->query instead)
+ percent-encode
+ ; sets for custom percent encoding
+ path-set urlencoded-set filename-set
  ; make a proxied version of a fandom url
  u-proxy-url
  ; check whether a url is on a domain controlled by fandom
  is-fandom-url?
-  ; prints "out: <url>"
- log-outgoing
  ; pass in a header, headers, or something useless. they'll all combine into a list
  build-headers
  ; try to follow wikimedia's format for which characters should be encoded/replaced in page titles for the url
@@ -41,6 +42,8 @@
                           )
                         path-set))
 
+(define filename-set '(#\< #\> #\: #\" #\/ #\\ #\| #\? #\* #\# #\~ #\&))
+
 (: percent-encode (String (Listof Char) Boolean -> Bytes))
 (define (percent-encode value set space-as-plus)
   (define b (string->bytes/utf-8 value))
@@ -87,11 +90,6 @@
    (λ ([v : String]) (string-append "/proxy?" (params->query `(("dest" . ,url)))))
    url))
 
-(: log-outgoing (String -> Void))
-(define (log-outgoing url-string)
-  (when (config-true? 'log_outgoing)
-    (printf "out: ~a~n" url-string)))
-
 (: build-headers ((U Header (Listof Header) False Void) * -> (Listof Header)))
 (define (build-headers . fs)
   (apply
diff --git a/src/xexpr-utils.rkt b/lib/xexpr-utils.rkt
similarity index 96%
rename from src/xexpr-utils.rkt
rename to lib/xexpr-utils.rkt
index f5ef3cf7..018d8c34 100644
--- a/src/xexpr-utils.rkt
+++ b/lib/xexpr-utils.rkt
@@ -129,7 +129,7 @@
   (λ (element-type attributes children)
     (equal? (get-attribute name attributes) value)))
 
-(define (query-selector selector element)
+(define (query-selector selector element #:include-text? [include-text? #f])
   (generator
    ()
    (let loop ([element element])
@@ -140,7 +140,9 @@
        [(equal? element-type '*DECL*) #f]
        [(equal? element-type '@) #f]
        [#t
-        (when (selector element-type attributes children)
+        (when (if include-text?
+                   (selector element-type attributes children (filter string? (cdr element)))
+                   (selector element-type attributes children))
           (yield element))
         (for ([child children]) (loop child))]))
   #f))
diff --git a/misc/download-wiki-names.rkt b/misc/download-wiki-names.rkt
index 96a8f9a1..14e281f6 100644
--- a/misc/download-wiki-names.rkt
+++ b/misc/download-wiki-names.rkt
@@ -4,7 +4,7 @@
          racket/string
          json
          net/http-easy
-         html-parsing
+         "../lib/html-parsing/main.rkt"
          "../src/xexpr-utils.rkt"
          "../src/url-utils.rkt")
 
diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 6af4367d..a040ee59 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -8,13 +8,16 @@
          html-parsing
          html-writing
          web-server/http
+         web-server/http/bindings
          "config.rkt"
          "data.rkt"
-         "niwa-data.rkt"
+         "extwiki-data.rkt"
+         "extwiki-generic.rkt"
          "static-data.rkt"
-         "pure-utils.rkt"
-         "xexpr-utils.rkt"
-         "url-utils.rkt")
+         "../lib/syntax.rkt"
+         "../lib/pure-utils.rkt"
+         "../lib/xexpr-utils.rkt"
+         "../lib/url-utils.rkt")
 
 (provide
  ; headers to always send on all http responses
@@ -79,32 +82,69 @@
 
 ;; generate a notice with a link if a fandom wiki has a replacement as part of NIWA or similar
 ;; if the wiki has no replacement, display nothing
-(define (niwa-notice wikiname title)
-  (define ind (findf (λ (item) (member wikiname (first item))) niwa-data))
-  (if ind
-      (let* ([search-page (format "/Special:Search?~a"
-                                  (params->query `(("search" . ,title)
-                                                   ("go" . "Go"))))]
-             [go (if (string-suffix? (third ind) "/")
-                     (regexp-replace #rx"/$" (third ind) (λ (_) search-page))
-                     (let* ([joiner (second (regexp-match #rx"/(w[^./]*)/" (third ind)))])
-                       (regexp-replace #rx"/w[^./]*/.*$" (third ind) (λ (_) (format "/~a~a" joiner search-page)))))])
-        `(aside (@ (class "niwa__notice"))
-                (h1 (@ (class "niwa__header")) ,(second ind) " has its own website separate from Fandom.")
-                (a (@ (class "niwa__go") (href ,go)) "Read " ,title " on " ,(second ind) " →")
-                (div (@ (class "niwa__cols"))
-                     (div (@ (class "niwa__left"))
-                          (p "Most major Nintendo wikis are part of the "
-                             (a (@ (href "https://www.niwanetwork.org/about/")) "Nintendo Independent Wiki Alliance")
-                             " and have their own wikis off Fandom. You can help this wiki by "
-                             (a (@ (href ,go)) "visiting it directly."))
-                          (p ,(fifth ind))
-                          (div (@ (class "niwa__divider")))
-                          (p "Why are you seeing this message? Fandom refuses to delete or archive their copy of this wiki, so that means their pages will appear high up in search results. Fandom hopes to get clicks from readers who don't know any better.")
-                          (p (@ (class "niwa__feedback")) "This notice brought to you by BreezeWiki / " (a (@ (href "https://www.kotaku.com.au/2022/10/massive-zelda-wiki-reclaims-independence-six-months-before-tears-of-the-kingdom/")) "Info & Context") " / " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "Feedback?")))
-                     (div (@ (class "niwa__right"))
-                          (img (@ (class "niwa__logo") (src ,(format "https://www.niwanetwork.org~a" (fourth ind)))))))))
-      ""))
+(define (extwiki-notice wikiname title)
+  (define xt (findf (λ (item) (member wikiname (extwiki^-wikinames item))) extwikis))
+  (cond/var
+   [xt
+    (let* ([group (hash-ref extwiki-groups (extwiki^-group xt))]
+           [search-page (format "/Special:Search?~a"
+                                (params->query `(("search" . ,title)
+                                                 ("go" . "Go"))))]
+           [go (if (string-suffix? (extwiki^-home xt) "/")
+                   (regexp-replace #rx"/$" (extwiki^-home xt) (λ (_) search-page))
+                   (let* ([joiner (second (regexp-match #rx"/(w[^./]*)/" (extwiki^-home xt)))])
+                     (regexp-replace #rx"/w[^./]*/.*$" (extwiki^-home xt) (λ (_) (format "/~a~a" joiner search-page)))))]
+           [props (extwiki-props^ go)])
+      (cond
+        [(eq? (extwiki^-banner xt) 'default)
+         `(aside (@ (class "niwa__notice"))
+                 (h1 (@ (class "niwa__header")) ,(extwiki^-name xt) " has its own website separate from Fandom.")
+                 (a (@ (class "niwa__go") (href ,go)) "Read " ,title " on " ,(extwiki^-name xt) " →")
+                 (div (@ (class "niwa__cols"))
+                      (div (@ (class "niwa__left"))
+                           (p ,((extwiki-group^-description group) props))
+                           (p ,((extwiki^-description xt) props))
+                           (p "This wiki's core community has wholly migrated away from Fandom. You should "
+                              (a (@ (href ,go)) "go to " ,(extwiki^-name xt) " now!"))
+                           (p (@ (class "niwa__feedback"))
+                              ,@(add-between
+                                 `(,@(for/list ([link (extwiki-group^-links group)])
+                                       `(a (@ (href ,(cdr link))) ,(car link)))
+                                   "This notice is from BreezeWiki"
+                                   (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "Feedback?"))
+                                 " / ")))
+                      (div (@ (class "niwa__right"))
+                           (img (@ (class "niwa__logo") (src ,(extwiki^-logo xt)))))))]
+        [(eq? (extwiki^-banner xt) 'parallel)
+         `(aside (@ (class "niwa__parallel"))
+                 (h1 (@ (class "niwa__header-mini"))
+                     "See also "
+                     (a (@ (href ,go)) ,(extwiki^-name xt)))
+                 (p "This topic has multiple communities of editors, some active on the Fandom wiki, others active on " ,(extwiki^-name xt) ".")
+                 (p "For thorough research, be sure to check both communities since they may have different information!")
+                 (p (@ (class "niwa__feedback"))
+                    ,@(add-between
+                       `(,@(for/list ([link (extwiki-group^-links group)])
+                             `(a (@ (href ,(cdr link))) ,(car link)))
+                         "This notice is from BreezeWiki"
+                         (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "Feedback?"))
+                       " / ")))]
+        [(eq? (extwiki^-banner xt) 'empty)
+         `(aside (@ (class "niwa__notice niwa__notice--alt"))
+                 (h1 (@ (class "niwa__header")) "You will be redirected to " ,(extwiki^-name xt) ".")
+                 (p (@ (style "position: relative; top: -12px;")) "This independent wiki community has its own site separate from Fandom.")
+                 (a (@ (class "niwa__go") (href ,go)) "Take me there! →")
+
+                 (p (@ (class "niwa__feedback") (style "text-align: left"))
+                    ,@(add-between
+                       `(,@(for/list ([link (extwiki-group^-links group)])
+                             `(a (@ (href ,(cdr link))) ,(car link)))
+                         "This notice is from BreezeWiki")
+                       " / ")))]))]
+   (var fetched-callback (get-redirect-content wikiname))
+   [fetched-callback
+    (fetched-callback title)]
+   [#t ""]))
 
 (define (generate-wiki-page
          content
@@ -114,22 +154,26 @@
          #:title title
          #:head-data [head-data-in #f]
          #:siteinfo [siteinfo-in #f]
-         #:user-cookies [user-cookies-in #f])
+         #:user-cookies [user-cookies-in #f]
+         #:online-styles [online-styles #t])
   (define siteinfo (or siteinfo-in siteinfo-default))
   (define head-data (or head-data-in ((head-data-getter wikiname))))
   (define user-cookies (or user-cookies-in (user-cookies-getter req)))
-  (define (required-styles origin)
-    (map (λ (dest-path)
-           (define url (format dest-path origin))
-           (if (config-true? 'strict_proxy)
-               (u-proxy-url url)
-               url))
-         `(#;"~a/load.php?lang=en&modules=skin.fandomdesktop.styles&only=styles&skin=fandomdesktop"
-           #;"~a/load.php?lang=en&modules=ext.gadget.dungeonsWiki%2CearthWiki%2Csite-styles%2Csound-styles&only=styles&skin=fandomdesktop"
-           #;"~a/load.php?lang=en&modules=site.styles&only=styles&skin=fandomdesktop"
-           ; combine the above entries into a single request for potentially extra speed - fandom.com doesn't even do this!
-           ,(format "~~a/wikia.php?controller=ThemeApi&method=themeVariables&variant=~a" (user-cookies^-theme user-cookies))
-           "~a/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop")))
+  (define origin (format "https://~a.fandom.com" wikiname))
+  (define required-styles
+    (cond
+      [online-styles
+       (define styles
+         (list
+          (format "~a/wikia.php?controller=ThemeApi&method=themeVariables&variant=~a" origin (user-cookies^-theme user-cookies))
+          (format "~a/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop" origin)))
+       (if (config-true? 'strict_proxy)
+           (map u-proxy-url styles)
+           styles)]
+      [#t
+       (list
+        (format "/archive/~a/styles/themeVariables-~a.css" wikiname (user-cookies^-theme user-cookies))
+        (format "/archive/~a/styles/site.css" wikiname))]))
   `(*TOP*
     (*DECL* DOCTYPE html)
     (html
@@ -141,7 +185,7 @@
                       (config-get 'application_name)))
       ,@(map (λ (url)
                `(link (@ (rel "stylesheet") (type "text/css") (href ,url))))
-             (required-styles (format "https://~a.fandom.com" wikiname)))
+             required-styles)
       (link (@ (rel "stylesheet") (type "text/css") (href ,(get-static-url "main.css"))))
       (script "const BWData = "
               ,(jsexpr->string (hasheq 'wikiname wikiname
@@ -154,11 +198,25 @@
                                       (λ (v) (u-proxy-url v))
                                       (head-data^-icon-url head-data))))))
      (body (@ (class ,(head-data^-body-class head-data)))
+           ,(if (config-true? 'instance_is_official)
+                (let ([balloon '(img (@ (src "/static/three-balloons.png") (class "bw-balloon") (title "Image Source: pngimg.com/image/4955 | License: CC BY-NC 4.0 | Modifications: Resized") (width "52") (height "56")))]
+                      [extension-eligible? (and req (assq 'user-agent (request-headers req)) (string-contains? (string-downcase (cdr (assq 'user-agent (request-headers req)))) "firefox/"))])
+                  `(div (@ (class "bw-top-banner"))
+                         ,balloon
+                         (div
+                          "BreezeWiki is back! Most major wikis are available.\n"
+                          ,(if extension-eligible?
+                               '(div (@ (class "bw-top-banner-rainbow"))
+                                     "Try " (a (@ (href "https://addons.mozilla.org/en-GB/firefox/addon/indie-wiki-buddy/")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n")
+                               "")
+                          "As always, " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "please go here") " to report problems, suggest features, or talk about the project.")
+                         ,balloon))
+                "")
            (div (@ (class "main-container"))
                 (div (@ (class "fandom-community-header__background tileHorizontally header")))
                 (div (@ (class "page"))
                      (main (@ (class "page__main"))
-                           ,(niwa-notice wikiname title)
+                           ,(extwiki-notice wikiname title)
                            (div (@ (class "custom-top"))
                                 (h1 (@ (class "page-title")) ,title)
                                 (nav (@ (class "sitesearch"))
@@ -172,18 +230,18 @@
                                      (div (@ (class "bw-theme__select"))
                                           (span (@ (class "bw-theme__main-label")) "Page theme")
                                           (div (@ (class "bw-theme__items"))
-                                           ,@(for/list ([theme '(default light dark)])
-                                               (define class
-                                                 (if (equal? theme (user-cookies^-theme user-cookies))
-                                                     "bw-theme__item bw-theme__item--selected"
-                                                     "bw-theme__item"))
-                                               `(a (@ (href ,(user-cookies-setter-url
-                                                              req
-                                                              (struct-copy user-cookies^ user-cookies
-                                                                           [theme theme]))) (class ,class))
-                                                   (div (@ (class "bw-theme__icon-container"))
-                                                    ,(hash-ref theme-icons theme))
-                                                   ,(format "~a" theme)))))))
+                                               ,@(for/list ([theme '(default light dark)])
+                                                   (define class
+                                                     (if (equal? theme (user-cookies^-theme user-cookies))
+                                                         "bw-theme__item bw-theme__item--selected"
+                                                         "bw-theme__item"))
+                                                   `(a (@ (href ,(user-cookies-setter-url
+                                                                  req
+                                                                  (struct-copy user-cookies^ user-cookies
+                                                                               [theme theme]))) (class ,class))
+                                                       (div (@ (class "bw-theme__icon-container"))
+                                                            ,(hash-ref theme-icons theme))
+                                                       ,(format "~a" theme)))))))
                            (div (@ (id "content") #;(class "page-content"))
                                 (div (@ (id "mw-content-text"))
                                      ,content))
diff --git a/src/config.rkt b/src/config.rkt
index bc0cf6c7..4b79f4a9 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -2,11 +2,8 @@
 (require racket/function
          racket/pretty
          racket/runtime-path
-         racket/string)
-(require/typed ini
-  [#:opaque Ini ini?]
-  [read-ini (Input-Port -> Ini)]
-  [ini->hash (Ini -> (Immutable-HashTable Symbol (Immutable-HashTable Symbol String)))])
+         racket/string
+         typed/ini)
 
 (provide
  config-parameter
@@ -14,7 +11,7 @@
  config-get)
 
 (module+ test
-  (require "typed-rackunit.rkt"))
+  (require "../lib/typed-rackunit.rkt"))
 
 (define-runtime-path path-config "../config.ini")
 
@@ -38,54 +35,58 @@
     (instance_is_official . "false") ; please don't turn this on, or you will make me very upset
     (log_outgoing . "true")
     (port . "10416")
-    (strict_proxy . "true")))
+    (strict_proxy . "false")
+
+    (feature_offline::enabled . "false")
+    (feature_offline::format . "json.gz")
+    (feature_offline::only . "false")))
 
 (define loaded-alist
   (with-handlers
     ([exn:fail:filesystem:errno?
       (λ (exn)
-        (begin0
-            '()
-          (displayln "note: config file not detected, using defaults")))]
+        (displayln "note: config file not detected, using defaults")
+        '())]
      [exn:fail:contract?
       (λ (exn)
-        (begin0
-            '()
-          (displayln "note: config file empty or missing [] section, using defaults")))])
+        (displayln "note: config file empty or missing [] section, using defaults")
+        '())])
+    (define h (in-hash
+               (ini->hash
+                (call-with-input-file path-config
+                  (λ (in)
+                    (read-ini in))))))
     (define l
-      (hash->list
-       (hash-ref
-        (ini->hash
-         (call-with-input-file path-config
-           (λ (in)
-             (read-ini in))))
-        '||)))
-    (begin0
-        l
-      (printf "note: ~a items loaded from config file~n" (length l)))))
+      (for*/list : (Listof (Pairof Symbol String))
+                 ([(section-key section) h]
+                  [(key value) (in-hash section)])
+        (if (eq? section-key '||)
+            (cons key value)
+            (cons (string->symbol (string-append (symbol->string section-key)
+                                                 "::"
+                                                 (symbol->string key)))
+                  value))))
+    (printf "note: ~a items loaded from config file~n" (length l))
+    l))
 
 (define env-alist
-  (let ([e-names (environment-variables-names (current-environment-variables))]
-        [e-ref (λ ([name : Bytes])
-                 (bytes->string/latin-1
-                  (cast (environment-variables-ref (current-environment-variables) name)
-                        Bytes)))])
-    (map (λ ([name : Bytes])
-           (cons (string->symbol (string-downcase (substring (bytes->string/latin-1 name) 3)))
-                 (e-ref name)))
-         (filter (λ ([name : Bytes]) (string-prefix? (string-downcase (bytes->string/latin-1 name))
-                                                     "bw_"))
-                 e-names))))
+  (for/list : (Listof (Pairof Symbol String))
+            ([name (environment-variables-names (current-environment-variables))]
+             #:when (string-prefix? (string-downcase (bytes->string/latin-1 name)) "bw_"))
+    (cons
+     ;; key: convert to string, remove bw_ prefix, convert to symbol
+     (string->symbol (string-downcase (substring (bytes->string/latin-1 name) 3)))
+     ;; value: convert to string
+     (bytes->string/latin-1
+      (cast (environment-variables-ref (current-environment-variables) name) Bytes)))))
 (when (> (length env-alist) 0)
   (printf "note: ~a items loaded from environment variables~n" (length env-alist)))
 
 (define combined-alist (append default-config loaded-alist env-alist))
 
 (define config
-  (make-immutable-hasheq
-   (map (λ ([pair : (Pairof Symbol String)])
-          (cons (car pair) (make-parameter (cdr pair))))
-        combined-alist)))
+  (for/hasheq ([pair combined-alist]) : (Immutable-HashTable Symbol (Parameter String))
+    (values (car pair) (make-parameter (cdr pair)))))
 
 (when (config-true? 'debug)
   ; all values here are optimised for maximum prettiness
@@ -107,4 +108,6 @@
   (parameterize ([(config-parameter 'application_name) "JeffWiki"]
                  [(config-parameter 'strict_proxy) ""])
     (check-equal? (config-get 'application_name) "JeffWiki")
-    (check-false (config-true? 'strict_proxy))))
+    (check-false (config-true? 'strict_proxy))
+    (check-equal? (string? (config-get 'feature_offline::format)) #t)))
+
diff --git a/src/data.rkt b/src/data.rkt
index cdd8c39e..35024d20 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -5,10 +5,14 @@
          net/url-string
          (only-in net/cookies/server cookie-header->alist cookie->set-cookie-header make-cookie)
          (prefix-in easy: net/http-easy)
+         db
          memo
          "static-data.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt")
+         "../lib/url-utils.rkt"
+         "whole-utils.rkt"
+         "../lib/xexpr-utils.rkt"
+         "../archiver/archiver-database.rkt"
+         "config.rkt")
 
 (provide
  (struct-out siteinfo^)
@@ -30,25 +34,38 @@
 (struct head-data^ (body-class icon-url) #:transparent)
 
 (define license-default (license^ "CC-BY-SA" "https://www.fandom.com/licensing"))
-(define siteinfo-default (siteinfo^ "Test Wiki" "Main_Page" license-default))
+(define siteinfo-default (siteinfo^ "Unknown Wiki" "Main_Page" license-default))
 (define head-data-default (head-data^ "skin-fandomdesktop" (get-static-url "breezewiki-favicon.svg")))
 
 (define/memoize (siteinfo-fetch wikiname) #:hash hash
-  (define dest-url
-    (format "https://~a.fandom.com/api.php?~a"
-            wikiname
-            (params->query '(("action" . "query")
-                             ("meta" . "siteinfo")
-                             ("siprop" . "general|rightsinfo")
-                             ("format" . "json")
-                             ("formatversion" . "2")))))
-  (log-outgoing dest-url)
-  (define res (easy:get dest-url))
-  (define data (easy:response-json res))
-  (siteinfo^ (jp "/query/general/sitename" data)
-             (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
-             (license^ (jp "/query/rightsinfo/text" data)
-                       (jp "/query/rightsinfo/url" data))))
+  (cond
+    [(config-true? 'feature_offline::only)
+     (when (config-true? 'debug)
+       (printf "using offline mode for siteinfo ~a~n" wikiname))
+     (define row (query-maybe-row slc "select sitename, basepage, license_text, license_url from wiki where wikiname = ?"
+                                  wikiname))
+     (if row
+         (siteinfo^ (vector-ref row 0)
+                    (vector-ref row 1)
+                    (license^ (vector-ref row 2)
+                              (vector-ref row 3)))
+         siteinfo-default)]
+    [else
+     (define dest-url
+       (format "https://~a.fandom.com/api.php?~a"
+               wikiname
+               (params->query '(("action" . "query")
+                                ("meta" . "siteinfo")
+                                ("siprop" . "general|rightsinfo")
+                                ("format" . "json")
+                                ("formatversion" . "2")))))
+     (log-outgoing dest-url)
+     (define res (easy:get dest-url))
+     (define data (easy:response-json res))
+     (siteinfo^ (jp "/query/general/sitename" data)
+                (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
+                (license^ (jp "/query/rightsinfo/text" data)
+                          (jp "/query/rightsinfo/url" data)))]))
 
 (define/memoize (head-data-getter wikiname) #:hash hash
   ;; data will be stored here, can be referenced by the memoized closure
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 251aa43b..288634a1 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -1,16 +1,17 @@
 #lang racket/base
-(require "syntax.rkt"
+(require "../lib/syntax.rkt"
          (for-syntax racket/base)
          racket/string
          net/url
          web-server/http
+         web-server/dispatchers/dispatch
          (prefix-in host: web-server/dispatchers/dispatch-host)
          (prefix-in pathprocedure: web-server/dispatchers/dispatch-pathprocedure)
          (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer)
          (prefix-in lift: web-server/dispatchers/dispatch-lift)
          (prefix-in filter: web-server/dispatchers/dispatch-filter)
          "config.rkt"
-         "url-utils.rkt")
+         "../lib/url-utils.rkt")
 
 (provide
  ; syntax to make the hashmap from names
@@ -43,8 +44,14 @@
    (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
    (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
    (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
+   (if (config-true? 'feature_offline::enabled)
+       (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki-offline)))
+       (λ (_conn _req) (next-dispatcher)))
    (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
    (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
    (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
+   (if (config-true? 'feature_offline::enabled)
+       (filter:make (pregexp (format "^/archive/~a/(styles|images)/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-static-archive)))
+       (λ (_conn _req) (next-dispatcher)))
    (hash-ref ds 'static-dispatcher)
    (lift:make (hash-ref ds 'page-not-found))))
diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
new file mode 100644
index 00000000..a4b8d775
--- /dev/null
+++ b/src/extwiki-data.rkt
@@ -0,0 +1,401 @@
+#lang racket/base
+
+(provide
+ (struct-out extwiki-props^)
+ (struct-out extwiki-group^)
+ extwiki-groups
+ (struct-out extwiki^)
+ extwikis)
+
+(struct extwiki-props^ (go) #:transparent)
+
+(struct extwiki-group^ (name links description) #:transparent)
+(define extwiki-groups
+  (hasheq 'NIWA
+          (extwiki-group^
+           "NIWA"
+           '(("Why did editors leave Fandom?" . "https://www.kotaku.com.au/2022/10/massive-zelda-wiki-reclaims-independence-six-months-before-tears-of-the-kingdom/"))
+           (λ (props)
+             `(p "Most major Nintendo wikis are part of the "
+                 (a (@ (href "https://www.niwanetwork.org/about/")) "Nintendo Independent Wiki Alliance")
+                 " and have their own wikis off Fandom.")))
+
+          'SEIWA
+          (extwiki-group^
+           "SEIWA"
+           '(("SEIWA Website" . "https://seiwanetwork.org/"))
+           (λ (props)
+             `(p "The Square Enix Indpendent Wiki Alliance, or SEIWA, is a network of independent wikis established in 2011 and focused on providing high-quality coverage of Square Enix and its content. We work together, along with our affiliates and others, to co-operate and support one another while providing the best-quality content on the various Square Enix video games and media.")))
+
+          'Terraria
+          (extwiki-group^
+           "Terraria"
+           '(("Announcement: New Official Terraria Wiki!" . "https://forums.terraria.org/index.php?threads/new-official-terraria-wiki-launches-today.111239/") ("In the media" . "https://www.pcgamesn.com/terraria/wiki"))
+           (λ (props) '()))
+
+          'ARK
+          (extwiki-group^
+           "ARK"
+           '(("Announcement: Official Wiki Is Moving!" . "https://survivetheark.com/index.php?/forums/topic/657902-official-ark-wiki-feedback/")
+             ("Reasons" . "https://todo.sr.ht/~cadence/breezewiki-todo/4#event-216613")
+             ("Browser Extension" . "https://old.reddit.com/r/playark/comments/xe51sy/official_ark_wiki_launched_a_browser_extension_to/"))
+           (λ (props) '()))
+
+          'Astroneer
+          (extwiki-group^
+           "Astroneer"
+           '(("Migration discussion" . "https://old.reddit.com/r/Astroneer/comments/z905id/the_official_astroneer_wiki_has_moved_to_wikigg/") ("Migration info" . "https://astroneer.fandom.com/wiki/Talk:Astroneer_Wiki/Migration_to_Wiki.gg"))
+           (λ (props) '()))
+
+          'empty
+          (extwiki-group^
+           "Misc"
+           '(("This wiki doesn't have a description yet. Add one?" . "https://docs.breezewiki.com/Reporting_Bugs.html"))
+           #f)))
+
+;; wikiname, niwa-name, url, logo-url
+(struct extwiki^ (wikinames banner group name home logo description) #:transparent)
+(define extwikis
+  (list
+   (extwiki^
+    '("arms" "armsgame") 'default
+    'NIWA
+    "ARMS Institute"
+    "https://armswiki.org/wiki/Home"
+    "https://niwanetwork.org/images/logos/armswiki.png"
+    (λ (props)
+      `((p "ARMS Institute is a comprehensive resource for information about the Nintendo Switch game, ARMS. Founded on May 1, 2017 and growing rapidly, the wiki strives to offer in-depth coverage of ARMS from both a competitive and casual perspective. Join us and ARM yourself with knowledge!"))))
+
+   (extwiki^
+    '("pokemon" "monster") 'default
+    'NIWA
+    "Bulbapedia"
+    "https://bulbapedia.bulbagarden.net/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/bulbapedia.png"
+    (λ (props)
+      `((p "A part of the Bulbagarden community, Bulbapedia was founded on December 21, 2004 by Liam Pomfret. Everything you need to know about Pokémon can be found at Bulbapedia, whether about the games, the anime, the manga, or something else entirely. With its Bulbanews section and the Bulbagarden forums, it's your one-stop online place for Pokémon."))))
+
+   (extwiki^
+    '("dragalialost") 'default
+    'NIWA
+    "Dragalia Lost Wiki"
+    "https://dragalialost.wiki/w/Dragalia_Lost_Wiki"
+    "https://niwanetwork.org/images/logos/dragalialost.png"
+    (λ (props)
+      `((p "The Dragalia Lost Wiki was originally founded in September 2018 on the Gamepedia platform but went independent in January 2021. The Wiki aims to document anything and everything Dragalia Lost, from in-game data to mechanics, story, guides, and more!"))))
+
+   (extwiki^
+    '("dragonquest") 'default
+    'NIWA
+    "Dragon Quest Wiki"
+    "https://dragon-quest.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/dragonquestwiki.png"
+    (λ (props)
+      `((p "Originally founded on Wikia, the Dragon Quest Wiki was largely inactive until FlyingRagnar became an admin in late 2009. The wiki went independent about a year later when it merged with the Dragon Quest Dictionary/Encyclopedia which was run by Zenithian and supported by the Dragon's Den.  The Dragon Quest Wiki aims to be the most complete resource for Dragon Quest information on the web. It continues to grow in the hope that one day the series will be as popular in the rest of the world as it is in Japan."))))
+
+   (extwiki^
+    '("fireemblem") 'default
+    'NIWA
+    "Fire Emblem Wiki"
+    "https://fireemblemwiki.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/fireemblemwiki.png"
+    (λ (props)
+      `((p "Growing since August 26, 2010, Fire Emblem Wiki is a project whose goal is to cover all information pertaining to the Fire Emblem series. It aspires to become the most complete and accurate independent source of information on this series."))))
+
+   (extwiki^
+    '("fzero" "f-zero") 'default
+    'NIWA
+    "F-Zero Wiki"
+    "https://mutecity.org/wiki/F-Zero_Wiki"
+    "https://niwanetwork.org/images/logos/fzerowiki.png"
+    (λ (props)
+      `((p "Founded on Wikia in November 2007, F-Zero Wiki became independent with NIWA's help in 2011. F-Zero Wiki is quickly growing into the Internet's definitive source for the world of 2200 km/h+, from pilots to machines, and is the founding part of MuteCity.org, the web's first major F-Zero community."))))
+
+   (extwiki^
+    '("goldensun") 'default
+    'NIWA
+    "Golden Sun Universe"
+    "https://www.goldensunwiki.net/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/goldensununiverse.png"
+    (λ (props)
+      `((p "Originally founded on Wikia in late 2006, Golden Sun Universe has always worked hard to meet one particular goal: to be the single most comprehensive yet accessible resource on the Internet for Nintendo's RPG series Golden Sun. It became an independent wiki four years later. Covering characters and plot, documenting all aspects of the gameplay, featuring walkthroughs both thorough and bare-bones, and packed with all manner of odd and fascinating minutiae, Golden Sun Universe leaves no stone unturned!"))))
+
+   (extwiki^
+    '("tetris") 'default
+    'NIWA
+    "Hard Drop - Tetris Wiki"
+    "https://harddrop.com/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/harddrop.png"
+    (λ (props)
+      `((p "The Tetris Wiki was founded by Tetris fans for Tetris fans on tetrisconcept.com in March 2006. The Tetris Wiki torch was passed to harddrop.com in July 2009. Hard Drop is a Tetris community for all Tetris players, regardless of skill or what version of Tetris you play."))))
+
+   (extwiki^
+    '("kidicarus") 'default
+    'NIWA
+    "Icaruspedia"
+    "https://www.kidicaruswiki.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/icaruspedia.png"
+    (λ (props)
+      `((p "Icaruspedia is the Kid Icarus wiki that keeps flying to new heights. After going independent on January 8, 2012, Icaruspedia has worked to become the largest and most trusted independent source of Kid Icarus information. Just like Pit, they'll keep on fighting until the job is done."))))
+
+   (extwiki^
+    '("splatoon" "uk-splatoon" "splatoon3" "splatoon2") 'default
+    'NIWA
+    "Inkipedia"
+    "https://splatoonwiki.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/inkipedia.png"
+    (λ (props)
+      `((p "Inkipedia is your ever-growing go-to source for all things Splatoon related. Though founded on Wikia on June 10, 2014, Inkipedia went independent on May 18, 2015, just days before Splatoon's release. Our aim is to cover all aspects of the series, both high and low. Come splat with us now!"))))
+
+   (extwiki^
+    '("starfox") 'default
+    'NIWA
+    "Lylat Wiki"
+    "https://starfoxwiki.info/wiki/Lylat_Wiki"
+    "https://niwanetwork.org/images/logos/lylatwiki.png"
+    (λ (props)
+      `((p "Out of seemingly nowhere, Lylat Wiki sprung up one day in early 2010. Led by creator, Justin Folvarcik, and project head, Tacopill, the wiki has reached stability since the move to its own domain. The staff of Lylat Wiki are glad to help out the NIWA wikis and are even prouder to join NIWA's ranks as the source for information on the Star Fox series."))))
+
+   (extwiki^
+    '("metroid" "themetroid") 'default
+    'NIWA
+    "Metroid Wiki"
+    "https://www.metroidwiki.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/metroidwiki.png"
+    (λ (props)
+      `((p "Metroid Wiki, founded on January 27, 2010 by Nathanial Rumphol-Janc and Zelda Informer, is a rapidly expanding wiki that covers everything Metroid, from the games, to every suit, vehicle and weapon."))))
+
+   (extwiki^
+    '("nintendo" "nintendoseries" "nintendogames") 'default
+    'NIWA
+    "Nintendo Wiki"
+    "http://niwanetwork.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/nintendowiki.png"
+    (λ (props)
+      `((p "Created on May 12, 2010, NintendoWiki (N-Wiki) is a collaborative project by the NIWA team to create an encyclopedia dedicated to Nintendo, being the company around which all other NIWA content is focused. It ranges from mainstream information such as the games and people who work for the company, to the most obscure info like patents and interesting trivia."))))
+
+   (extwiki^
+    '("animalcrossing" "animalcrossingcf" "acnh") 'default
+    'NIWA
+    "Nookipedia"
+    "https://nookipedia.com/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/nookipedia.png"
+    (λ (props)
+      `((p "Founded in August 2005 on Wikia, Nookipedia was originally known as Animal Crossing City. Shortly after its five-year anniversary, Animal Crossing City decided to merge with the independent Animal Crossing Wiki, which in January 2011 was renamed to Nookipedia. Covering everything from the series including characters, items, critters, and much more, Nookipedia is your number one resource for everything Animal Crossing!"))))
+
+   (extwiki^
+    '("pikmin") 'default
+    'NIWA
+    "Pikipedia"
+    "https://www.pikminwiki.com/"
+    "https://niwanetwork.org/images/logos/pikipedia.png"
+    (λ (props)
+      `((p "Pikipedia, also known as Pikmin Wiki, was founded by Dark Lord Revan on Wikia in December 2005. In September 2010, with NIWA's help, Pikipedia moved away from Wikia to become independent. Pikipedia is working towards their goal of being the foremost source for everything Pikmin."))))
+
+   (extwiki^
+    '("pikmin-fan" "pikpikpedia") 'default
+    'NIWA
+    "Pimkin Fanon"
+    "https://www.pikminfanon.com/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/pikifanon.png"
+    (λ (props)
+      `((p "Pikmin Fanon is a Pikmin wiki for fan stories (fanon). Founded back on November 1, 2008 by Rocky0718 as a part of Wikia, Pikmin Fanon has been independent since September 14, 2010. Check them out for fan created stories based around the Pikmin series."))))
+
+   (extwiki^
+    '("supersmashbros") 'default
+    'NIWA
+    "SmashWiki"
+    "https://www.ssbwiki.com/"
+    "https://niwanetwork.org/images/logos/smashwiki.png"
+    (λ (props)
+      `((p "Originally two separate wikis (one on SmashBoards, the other on Wikia), SmashWiki as we know it was formed out of a merge on February 29th, 2008, becoming independent on September 28th, 2010. SmashWiki is the premier source of Smash Bros. information, from simple tidbits to detailed mechanics, and also touches on the origins of its wealth of content from its sibling franchises."))))
+
+   (extwiki^
+    '("starfy") 'default
+    'NIWA
+    "Starfy Wiki"
+    "https://www.starfywiki.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/starfywiki.png"
+    (λ (props)
+      `((p "Founded on May 30, 2009, Starfy Wiki's one goal is to become the best source on Nintendo's elusive game series The Legendary Starfy. After gaining independence in 2011 with the help of Tappy and the wiki's original administrative team, the wiki still hopes to achieve its goal and be the best source of Starfy info for all present and future fans."))))
+
+   (extwiki^
+    '() 'default
+    'NIWA
+    "StrategyWiki"
+    "https://www.strategywiki.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/strategywiki.png"
+    (λ (props)
+      `((p "StrategyWiki was founded in December 2005 by former member Brandon Suit with the idea that the existing strategy guides on the Internet could be improved. Three years later, in December 2008, Scott Jacobi officially established Abxy LLC for the purpose of owning and operating StrategyWiki as a community. Their vision is to bring free, collaborative video game strategy guides to the masses, including Nintendo franchise strategy guides."))))
+
+   (extwiki^
+    '("mario" "themario" "imario" "supermarionintendo" "mariokart" "luigi-kart" "mario3") 'default
+    'NIWA
+    "Super Mario Wiki"
+    "https://www.mariowiki.com/"
+    "https://niwanetwork.org/images/logos/mariowiki.png"
+    (λ (props)
+      `((p "Online since August 12, 2005, when it was founded by Steve Shinn, Super Mario Wiki has you covered for anything Mario, Donkey Kong, Wario, Luigi, Yoshi—the whole gang, in fact. With its own large community in its accompanying forum, Super Mario Wiki is not only a great encyclopedia, but a fansite for you to talk anything Mario."))))
+
+   (extwiki^
+    '("mario64") 'default
+    'NIWA
+    "Ukikipedia"
+    "https://ukikipedia.net/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/ukikipedia.png"
+    (λ (props)
+      `((p "Founded in 2018, Ukikipedia is a wiki focused on expert level knowledge of Super Mario 64, including detailed coverage of game mechanics, glitches, speedrunning, and challenges."))))
+
+   (extwiki^
+    '("advancewars") 'default
+    'NIWA
+    "Wars Wiki"
+    "https://www.warswiki.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/warswiki.png"
+    (λ (props)
+      `((p "Created in February 2009, Wars Wiki is a small wiki community with a large heart. Founded by JoJo and Wars Central, Wars Wiki is going strong on one of Nintendo's lesser known franchises. Wars Wiki is keen to contribute to NIWA, and we're proud to be able to support them. With the Wars Central community, including forums, it's definitely worth checking out."))))
+
+   (extwiki^
+    '("earthbound") 'default
+    'NIWA
+    "WikiBound"
+    "https://www.wikibound.info/wiki/WikiBound"
+    "https://niwanetwork.org/images/logos/wikibound.png"
+    (λ (props)
+      `((p "Founded in early 2010 by Tacopill, WikiBound strives to create a detailed database on the Mother/EarthBound games, a quaint series only having two games officially released outside of Japan. Help spread the PK Love by editing WikiBound!"))))
+
+   (extwiki^
+    '("kirby") 'default
+    'NIWA
+    "WiKirby"
+    "https://wikirby.com/wiki/Kirby_Wiki"
+    "https://niwanetwork.org/images/logos/wikirby.png"
+    (λ (props)
+      `((p "WiKirby. It's a wiki. About Kirby! Amidst the excitement of NIWA being founded, Josh LeJeune decided to create a Kirby Wiki, due to lack of a strong independent one online. Coming online on January 24, 2010, WiKirby continues its strong launch with a dedicated community and a daily growing source of Kirby based knowledge."))))
+
+   (extwiki^
+    '("xenoblade" "xenoseries" "xenogears" "xenosaga") 'parallel
+    'NIWA
+    "Xeno Series Wiki"
+    "https://www.xenoserieswiki.org/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/xenoserieswiki.png"
+    (λ (props)
+      `((p "Xeno Series Wiki was created February 4, 2020 by Sir Teatei Moonlight. While founded by the desire to have an independent wiki for Xenoblade, there was an interest in including the Xenogears and Xenosaga games within its focus as well. This wide range of coverage means it's always in need of new editors to help bolster its many subjects."))))
+
+   (extwiki^
+    '("zelda" "zelda-archive") 'default
+    'NIWA
+    "Zeldapedia"
+    "https://zeldapedia.wiki/wiki/Main_Page"
+    "https://niwanetwork.org/images/logos/zeldapedia.png"
+    (λ (props)
+      `((p "Founded on April 23, 2005 as Zelda Wiki, today's Zeldapedia is your definitive source for encyclopedic information on The Legend of Zelda series, as well as all of the latest Zelda news. Zeldapedia went independent from Fandom in October 2022, citing Fandom's recent buyouts and staffing decisions among their reasons."))))
+
+   (extwiki^
+    '("chrono") 'default
+    'SEIWA
+    "Chrono Wiki"
+    "https://www.chronowiki.org/wiki/Chrono_Wiki"
+    "https://cdn.wikimg.net/en/chronowiki/images/5/59/Site-wiki.png"
+    (λ (props) '((p "A free encyclopedia dedicated to Chrono Trigger, Chrono Cross, Radical Dreamers, and everything else related to the series. A long, rich history and a friendly, encouraging userbase makes this the best Chrono in the entire time/space continuum!"))))
+
+   (extwiki^
+    '("finalfantasy" "finalfantasyxv" "ffxiclopedia") 'parallel
+    'SEIWA
+    "Final Fantasy Wiki"
+    "https://finalfantasywiki.com/wiki/Main_Page"
+    "https://cdn.finalfantasywiki.com/wiki.png"
+    (λ (props) '((p "A new wiki focused on covering Square Enix's flagship franchise, the critically-acclaimed Final Fantasy series. The Final Fantasy Wiki was founded on January 12, 2020 as part of SEIWA and covers all things Final Fantasy and related franchises."))))
+
+   (extwiki^
+    '("kingdomhearts") 'default
+    'SEIWA
+    "Kingdom Hearts Wiki"
+    "https://www.khwiki.com/"
+    "https://kh.wiki.gallery/images/b/bc/Wiki.png"
+    (λ (props) '((p "The Kingdom Hearts Wiki attempts to document all things related to the Kingdom Hearts series, from elements of storyline to gameplay. The site was originally founded on April 1, 2006 on Wikia and became independent on February 9, 2011. Since this time, the community of the KHWiki strives to be the most professional and comprehensive Kingdom Hearts resource in the world."))))
+
+   (extwiki^
+    '("squareenix") 'default
+    'SEIWA
+    "Square Enix Wiki"
+    "https://wiki.seiwanetwork.org/wiki/Main_Page"
+    "https://cdn.seiwanetwork.org/thumb/9/94/Square_Enix_Wiki_Logo.png/200px-Square_Enix_Wiki_Logo.png"
+    (λ (props) '((p "The Square Enix Wiki was founded on February 8, 2012, and is an up-and-coming wiki project created by SEIWA. It focuses on covering all things Square Enix, from its video game series to its physical publications to its most notable employees and work as a company."))))
+
+   (extwiki^
+    '("ark" "ark-survival-evolved-archive") 'default
+    'ARK
+    "ARK Community Wiki"
+    "https://ark.wiki.gg/wiki/ARK_Survival_Evolved_Wiki"
+    "https://ark.wiki.gg/images/e/e6/Site-logo.png"
+    (λ (props)
+      `((p "The official ARK: Survival Evolved Wiki launched in 2016. In April 2022 it moved to wiki.gg's hosting to improve creative control and the overall browsing experience."))))
+
+   (extwiki^
+    '("astroneer") 'default
+    'Astroneer
+    "Astroneer Wiki"
+    "https://astroneer.wiki.gg/wiki/Astroneer_Wiki"
+    "https://astroneer.wiki.gg/images/7/74/Icon_Astroneer.png"
+    (λ (props)
+      `((p "“Fandom bought Gamepedia and forced a migration, with their restricted, ad-heavy appearance, and other annoying features that we could not remove, the wiki grew slow and annoying to use, especially for logged out users.")
+        (p "“We decided to move away from Fandom to Wiki.gg, which returns the wiki to how it used to be on gamepedia, without the ads spamming and forced videos.”"))))
+
+   ;; fandom wikinames * empty * empty * Name * Home Page
+   (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
+   (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)
+   (extwiki^ '("calamitymod") 'empty 'empty "Calamity Mod Wiki" "https://calamitymod.wiki.gg/wiki/Calamity_Mod_Wiki" #f #f)
+   (extwiki^ '("chivalry" "chivalry2") 'empty 'empty "Official Chivalry Wiki" "https://chivalry.wiki.gg/wiki/Chivalry_Wiki" #f #f)
+   (extwiki^ '("clockup") 'empty 'empty "CLOCKUP WIKI" "https://en.clockupwiki.org/wiki/CLOCKUP_WIKI:Plan" #f #f)
+   (extwiki^ '("half-life") 'empty 'empty "Combine OverWiki" "https://combineoverwiki.net/wiki/Main_Page" #f #f)
+   (extwiki^ '("coromon") 'empty 'empty "Coromon Wiki" "https://coromon.wiki.gg/wiki/Coromon_Wiki" #f #f)
+   (extwiki^ '("cosmoteer") 'empty 'empty "Cosmoteer Wiki" "https://cosmoteer.wiki.gg/wiki/Cosmoteer_Wiki" #f #f)
+   (extwiki^ '("criticalrole") 'empty 'empty "Encylopedia Exandria" "https://criticalrole.miraheze.org/wiki/Main_Page" #f #f)
+   (extwiki^ '("cuphead") 'empty 'empty "Cuphead Wiki" "https://cuphead.wiki.gg/wiki/Cuphead_Wiki" #f #f)
+   (extwiki^ '("darkdeity") 'empty 'empty "Dark Deity Wiki" "https://darkdeity.wiki.gg/wiki/Dark_Deity_Wiki" #f #f)
+   (extwiki^ '("deeprockgalactic") 'empty 'empty "Deep Rock Galactic Wiki" "https://deeprockgalactic.wiki.gg/wiki/Deep_Rock_Galactic_Wiki" #f #f)
+   (extwiki^ '("doom") 'empty 'empty "DoomWiki.org" "https://doomwiki.org/wiki/Entryway" #f #f)
+   (extwiki^ '("dreamscaper") 'empty 'empty "Official Dreamscaper Wiki" "https://dreamscaper.wiki.gg/wiki/Dreamscaper_Wiki" #f #f)
+   (extwiki^ '("elderscrolls") 'empty 'empty "UESP" "https://en.uesp.net/wiki/Main_Page" #f #f)
+   (extwiki^ '("fiend-folio") 'empty 'empty "Official Fiend Folio Wiki" "https://fiendfolio.wiki.gg/wiki/Fiend_Folio_Wiki" #f #f)
+   (extwiki^ '("foxhole") 'empty 'empty "Foxhole Wiki" "https://foxhole.wiki.gg/wiki/Foxhole_Wiki" #f #f)
+   (extwiki^ '("have-a-nice-death") 'empty 'empty "Have a Nice Death Wiki" "https://haveanicedeath.wiki.gg/wiki/Have_a_Nice_Death_Wiki" #f #f)
+   (extwiki^ '("jojo" "jojos") 'empty 'empty "JoJo's Bizarre Encyclopedia" "https://jojowiki.com/" #f #f)
+   (extwiki^ '("legiontd2") 'empty 'empty "Legion TD 2 Wiki" "https://legiontd2.wiki.gg/wiki/Legion_TD_2_Wiki" #f #f)
+   (extwiki^ '("noita") 'empty 'empty "Noita Wiki" "https://noita.wiki.gg/wiki/Noita_Wiki" #f #f)
+   (extwiki^ '("pathofexile") 'empty 'empty "Official Path of Exile Wiki" "https://www.poewiki.net/wiki/Path_of_Exile_Wiki" #f #f)
+   (extwiki^ '("projectarrhythmia") 'empty 'empty "Project Arrhythmia Wiki" "https://projectarrhythmia.wiki.gg/wiki/Project_Arrhythmia_Wiki" #f #f)
+   (extwiki^ '("sandsofaura") 'empty 'empty "Official Sands of Aura Wiki" "https://sandsofaura.wiki.gg/wiki/Sands_of_Aura_Wiki" #f #f)
+   (extwiki^ '("seaofthieves") 'empty 'empty "Official Sea of Thieves Wiki" "https://seaofthieves.wiki.gg/wiki/Sea_of_Thieves" #f #f)
+   (extwiki^ '("sonsoftheforest") 'empty 'empty "Sons of the Forest Wiki" "https://sonsoftheforest.wiki.gg/wiki/Sons_of_the_Forest_Wiki" #f #f)
+   (extwiki^ '("stardewvalley") 'empty 'empty "Official Stardew Valley Wiki" "https://www.stardewvalleywiki.com/Stardew_Valley_Wiki" #f #f)
+   (extwiki^ '("steamworld") 'empty 'empty "Official SteamWorld Wiki" "https://steamworld.wiki.gg/wiki/SteamWorld_Wiki" #f #f)
+   (extwiki^ '("teamfortress") 'empty 'empty "Official Team Fortress Wiki" "https://wiki.teamfortress.com/wiki/Main_Page" #f #f)
+   (extwiki^ '("temtem") 'empty 'empty "Official Temtem Wiki" "https://temtem.wiki.gg/wiki/Temtem_Wiki" #f #f)
+   (extwiki^ '("thoriummod") 'empty 'empty "Official Thorium Mod Wiki" "https://thoriummod.wiki.gg/wiki/Thorium_Mod_Wiki" #f #f)
+   (extwiki^ '("totherescue") 'empty 'empty "To The Rescue!" "https://totherescue.wiki.gg/wiki/To_The_Rescue%21_Wiki" #f #f)
+   (extwiki^ '("touhou") 'empty 'empty "Touhou Wiki" "https://en.touhouwiki.net/wiki/Touhou_Wiki" #f #f)
+   (extwiki^ '("undermine") 'empty 'empty "Official UnderMine Wiki" "https://undermine.wiki.gg/wiki/UnderMine_Wiki" #f #f)
+   (extwiki^ '("westofloathing" "loathing") 'empty 'empty "Wiki of Loathing" "https://loathing.wiki.gg/wiki/Wiki_of_Loathing" #f #f)
+   (extwiki^ '("willyousnail") 'empty 'empty "Official Will You Snail Wiki" "https://willyousnail.wiki.gg/wiki/Will_You_Snail_Wiki" #f #f)
+   (extwiki^ '("yumenikki" "yume-nikki-dream-diary") 'empty 'empty "Yume Wiki" "https://yume.wiki/Main_Page" #f #f)))
+
+;; get the current dataset so it can be stored above
+(module+ fetch
+  (require racket/generator
+           racket/list
+           net/http-easy
+           html-parsing
+           "../lib/xexpr-utils.rkt")
+  (define r (get "https://www.niwanetwork.org/members/"))
+  (define x (html->xexp (bytes->string/utf-8 (response-body r))))
+  (define english ((query-selector (λ (e a c) (equal? (get-attribute 'id a) "content1")) x)))
+  (define gen (query-selector (λ (e a c) (has-class? "member" a)) english))
+  (for/list ([item (in-producer gen #f)])
+    (define links (query-selector (λ (e a c) (eq? e 'a)) item))
+    (define url (get-attribute 'href (bits->attributes (links))))
+    (define title (third (links)))
+    (define icon (get-attribute 'src (bits->attributes ((query-selector (λ (e a c) (eq? e 'img)) item)))))
+    (define description (second ((query-selector (λ (e a c) (eq? e 'p)) item))))
+    (list '() title url icon description)))
diff --git a/src/extwiki-generic.rkt b/src/extwiki-generic.rkt
new file mode 100644
index 00000000..878c02f8
--- /dev/null
+++ b/src/extwiki-generic.rkt
@@ -0,0 +1,125 @@
+#lang racket/base
+(require racket/list
+         racket/match
+         racket/string
+         memo
+         net/http-easy
+         html-parsing
+         "../lib/pure-utils.rkt"
+         "../lib/syntax.rkt"
+         "../lib/url-utils.rkt"
+         "../lib/xexpr-utils.rkt")
+
+(provide
+ get-redirect-content)
+
+(module+ test
+  (require rackunit))
+
+;; fandom wikinames * Title * Main Page * Search page override * API endpoint override
+(define wikis
+  '(((gallowmere) "Gallowmere Historia" "https://medievil.wiki/w/Main_Page" #f #f)
+    ((fallout) "Fallout Wiki" "https://fallout.wiki/wiki/Fallout_Wiki" #f "https://fallout.wiki/api.php")
+    ))
+
+(define wikis-hash (make-hash))
+(for ([w wikis])
+  (for ([wikiname (car w)])
+    (hash-set! wikis-hash (symbol->string wikiname) w)))
+(module+ test
+  (check-equal? (cadr (hash-ref wikis-hash "gallowmere"))
+                "Gallowmere Historia"))
+
+(define (parse-table table)
+  (define rows (query-selector (λ (t a c) (eq? t 'tr)) table))
+  (define header-row (rows))
+  (define column-names
+    (for/list ([th (in-producer (query-selector (λ (t a c) (eq? t 'th)) header-row) #f)])
+      (string->symbol (string-downcase (string-trim (findf string? th))))))
+  (define data-row (rows))
+  (for/hasheq ([col-name column-names]
+               [col-value (in-producer (query-selector (λ (t a c) (eq? t 'td)) data-row) #f)])
+    (values col-name (filter element-is-content? (cdr col-value)))))
+(module+ test
+  (check-equal? (parse-table (html->xexp "<table> <tbody><tr> <th>Links</th></tr> <tr> <td><a target=\"_blank\" rel=\"nofollow noreferrer noopener\" class=\"external text\" href=\"https://sirdanielfortesque.proboards.com/\">Forum</a></td></tr></tbody></table>"))
+                '#hasheq((links . ((a (@ (target "_blank") (rel "nofollow noreferrer noopener") (class "external text") (href "https://sirdanielfortesque.proboards.com/")) "Forum"))))))
+
+(define (table->links table)
+  (define v (hash-ref table 'links #f))
+  (cond/var
+   [(not v) (values null '("Data table must have a \"Links\" column"))]
+   (var links (filter (λ (a) (and (pair? a) (eq? (car a) 'a))) v)) ; <a> elements
+   [(null? links) (values null '("Links column must have at least one link"))]
+   [#t (values links null)]))
+
+(define (table->logo table)
+  (define logo (hash-ref table 'logo #f))
+  (cond/var
+   [(not logo) (values #f '("Data table must have a \"Logo\" column"))]
+   [(null? logo) (values #f '("Logo table column must have a link"))]
+   (var href (get-attribute 'href (bits->attributes (car (hash-ref table 'logo)))))
+   [(not href) (values #f '("Logo table column must have a link"))]
+   [#t (values href null)]))
+
+(define (get-api-endpoint wiki)
+  (define main-page (third wiki))
+  (define override (fifth wiki))
+  (or override
+      (match main-page
+        [(regexp #rx"/$") (string-append main-page "api.php")]
+        [(regexp #rx"^(.*)/wiki/" (list _ domain)) (string-append domain "/w/api.php")]
+        [(regexp #rx"^(.*)/w/" (list _ domain)) (string-append domain "/api.php")]
+        [_ (error 'get-api-endpoint "unknown url format: ~a" main-page)])))
+
+(define (get-search-page wiki)
+  (define main-page (third wiki))
+  (define override (fourth wiki))
+  (or override
+      (match main-page
+        [(regexp #rx"/$") (string-append main-page "Special:Search")]
+        [(regexp #rx"^(.*/w[^./]*/)" (list _ wiki-prefix)) (string-append wiki-prefix "Special:Search")]
+        [_ (error 'get-search-page "unknown url format: ~a" main-page)])))
+
+(define/memoize (get-redirect-content wikiname) #:hash hash
+  (define wiki (hash-ref wikis-hash wikiname #f))
+  (cond
+    [wiki
+     (define display-name (cadr wiki))
+     (define endpoint (string-append (get-api-endpoint wiki) "?action=parse&page=MediaWiki:BreezeWikiRedirect&prop=text&formatversion=2&format=json"))
+     (define res (get endpoint))
+     (define html (jp "/parse/text" (response-json res)))
+     (define content ((query-selector (λ (t a c) (has-class? "mw-parser-output" a))
+                                      (html->xexp html))))
+     (define body (for/list ([p (in-producer (query-selector (λ (t a c) (eq? t 'p)) content) #f)]) p))
+     (define table (parse-table ((query-selector (λ (t a c) (eq? t 'table)) content))))
+     (define-values (links links-errors) (table->links table))
+     (define-values (logo logo-errors) (table->logo table))
+     (define construct-errors (append links-errors logo-errors))
+     (λ (title)
+       (define go
+         (string-append (get-search-page wiki)
+                        "?"
+                        (params->query `(("search" . ,title)
+                                         ("go" . "Go")))))
+       `(aside (@ (class "niwa__notice"))
+               (h1 (@ (class "niwa__header")) ,display-name " has its own website separate from Fandom.")
+               (div (@ (class "niwa__cols"))
+                    (div (@ (class "niwa__left"))
+                         (a (@ (class "niwa__go") (href ,go)) "Read " ,title " on " ,display-name " →")
+                         ,@body
+                         (p "This wiki's core community has wholly migrated away from Fandom. You should "
+                            (a (@ (href ,go)) "go to " ,display-name " now!")))
+                    (div (@ (class "niwa__right"))
+                         (img (@ (class "niwa__logo") (src ,logo)))))
+               ,(if (pair? links)
+                    `(p (@ (class "niwa__feedback"))
+                        ,@(add-between links " / "))
+                    "")
+               ,(if (pair? construct-errors)
+                    `(ul
+                      ,@(for/list ([error construct-errors])
+                          `(li ,error)))
+                    "")))]
+    [#t #f]))
+(module+ test
+  ((get-redirect-content "gallowmere") "Gallowmere Historia"))
diff --git a/src/niwa-data.rkt b/src/niwa-data.rkt
deleted file mode 100644
index a1036af2..00000000
--- a/src/niwa-data.rkt
+++ /dev/null
@@ -1,156 +0,0 @@
-#lang racket/base
-
-(provide
- niwa-data)
-
-;; wikiname, niwa-name, url, logo-url
-(define niwa-data
-  '((("arms" "armsgame")
-     "ARMS Institute"
-     "https://armswiki.org/wiki/Home"
-     "/images/logos/armswiki.png"
-     "ARMS Institute is a comprehensive resource for information about the Nintendo Switch game, ARMS. Founded on May 1, 2017 and growing rapidly, the wiki strives to offer in-depth coverage of ARMS from both a competitive and casual perspective. Join us and ARM yourself with knowledge!")
-    (("pokemon" "monster")
-     "Bulbapedia"
-     "https://bulbapedia.bulbagarden.net/wiki/Main_Page"
-     "/images/logos/bulbapedia.png"
-     "A part of the Bulbagarden community, Bulbapedia was founded on December 21, 2004 by Liam Pomfret. Everything you need to know about Pokémon can be found at Bulbapedia, whether about the games, the anime, the manga, or something else entirely. With its Bulbanews section and the Bulbagarden forums, it's your one-stop online place for Pokémon.")
-    (("dragalialost")
-     "Dragalia Lost Wiki"
-     "https://dragalialost.wiki/w/Dragalia_Lost_Wiki"
-     "/images/logos/dragalialost.png"
-     "The Dragalia Lost Wiki was originally founded in September 2018 on the Gamepedia platform but went independent in January 2021. The Wiki aims to document anything and everything Dragalia Lost, from in-game data to mechanics, story, guides, and more!")
-    (("dragonquest")
-     "Dragon Quest Wiki"
-     "https://dragon-quest.org/wiki/Main_Page"
-     "/images/logos/dragonquestwiki.png"
-     "Originally founded on Wikia, the Dragon Quest Wiki was largely inactive until FlyingRagnar became an admin in late 2009. The wiki went independent about a year later when it merged with the Dragon Quest Dictionary/Encyclopedia which was run by Zenithian and supported by the Dragon's Den.  The Dragon Quest Wiki aims to be the most complete resource for Dragon Quest information on the web. It continues to grow in the hope that one day the series will be as popular in the rest of the world as it is in Japan.")
-    (("fireemblem")
-     "Fire Emblem Wiki"
-     "https://fireemblemwiki.org/wiki/Main_Page"
-     "/images/logos/fireemblemwiki.png"
-     "Growing since August 26, 2010, Fire Emblem Wiki is a project whose goal is to cover all information pertaining to the Fire Emblem series. It aspires to become the most complete and accurate independent source of information on this series.")
-    (("fzero" "f-zero")
-     "F-Zero Wiki"
-     "https://mutecity.org/wiki/F-Zero_Wiki"
-     "/images/logos/fzerowiki.png"
-     "Founded on Wikia in November 2007, F-Zero Wiki became independent with NIWA's help in 2011. F-Zero Wiki is quickly growing into the Internet's definitive source for the world of 2200 km/h+, from pilots to machines, and is the founding part of MuteCity.org, the web's first major F-Zero community.")
-    (("goldensun")
-     "Golden Sun Universe"
-     "https://www.goldensunwiki.net/wiki/Main_Page"
-     "/images/logos/goldensununiverse.png"
-     "Originally founded on Wikia in late 2006, Golden Sun Universe has always worked hard to meet one particular goal: to be the single most comprehensive yet accessible resource on the Internet for Nintendo's RPG series Golden Sun. It became an independent wiki four years later. Covering characters and plot, documenting all aspects of the gameplay, featuring walkthroughs both thorough and bare-bones, and packed with all manner of odd and fascinating minutiae, Golden Sun Universe leaves no stone unturned!")
-    (("tetris")
-     "Hard Drop - Tetris Wiki"
-     "https://harddrop.com/wiki/Main_Page"
-     "/images/logos/harddrop.png"
-     "The Tetris Wiki was founded by Tetris fans for Tetris fans on tetrisconcept.com in March 2006. The Tetris Wiki torch was passed to harddrop.com in July 2009. Hard Drop is a Tetris community for all Tetris players, regardless of skill or what version of Tetris you play.")
-    (("kidicarus")
-     "Icaruspedia"
-     "https://www.kidicaruswiki.org/wiki/Main_Page"
-     "/images/logos/icaruspedia.png"
-     "Icaruspedia is the Kid Icarus wiki that keeps flying to new heights. After going independent on January 8, 2012, Icaruspedia has worked to become the largest and most trusted independent source of Kid Icarus information. Just like Pit, they'll keep on fighting until the job is done.")
-    (("splatoon" "uk-splatoon" "splatoon3" "splatoon2")
-     "Inkipedia"
-     "https://splatoonwiki.org/wiki/Main_Page"
-     "/images/logos/inkipedia.png"
-     "Inkipedia is your ever-growing go-to source for all things Splatoon related. Though founded on Wikia on June 10, 2014, Inkipedia went independent on May 18, 2015, just days before Splatoon's release. Our aim is to cover all aspects of the series, both high and low. Come splat with us now!")
-    (("starfox")
-     "Lylat Wiki"
-     "https://starfoxwiki.info/wiki/Lylat_Wiki"
-     "/images/logos/lylatwiki.png"
-     "Out of seemingly nowhere, Lylat Wiki sprung up one day in early 2010. Led by creator, Justin Folvarcik, and project head, Tacopill, the wiki has reached stability since the move to its own domain. The staff of Lylat Wiki are glad to help out the NIWA wikis and are even prouder to join NIWA's ranks as the source for information on the Star Fox series.")
-    (("metroid" "themetroid")
-     "Metroid Wiki"
-     "https://www.metroidwiki.org/wiki/Main_Page"
-     "/images/logos/metroidwiki.png"
-     "Metroid Wiki, founded on January 27, 2010 by Nathanial Rumphol-Janc and Zelda Informer, is a rapidly expanding wiki that covers everything Metroid, from the games, to every suit, vehicle and weapon.")
-    (("nintendo" "nintendoseries" "nintendogames")
-     "Nintendo Wiki"
-     "http://niwanetwork.org/wiki/Main_Page"
-     "/images/logos/nintendowiki.png"
-     "Created on May 12, 2010, NintendoWiki (N-Wiki) is a collaborative project by the NIWA team to create an encyclopedia dedicated to Nintendo, being the company around which all other NIWA content is focused. It ranges from mainstream information such as the games and people who work for the company, to the most obscure info like patents and interesting trivia.")
-    (("animalcrossing" "animalcrossingcf" "acnh")
-     "Nookipedia"
-     "https://nookipedia.com/wiki/Main_Page"
-     "/images/logos/nookipedia.png"
-     "Founded in August 2005 on Wikia, Nookipedia was originally known as Animal Crossing City. Shortly after its five-year anniversary, Animal Crossing City decided to merge with the independent Animal Crossing Wiki, which in January 2011 was renamed to Nookipedia. Covering everything from the series including characters, items, critters, and much more, Nookipedia is your number one resource for everything Animal Crossing!")
-    (("pikmin")
-     "Pikipedia"
-     "https://www.pikminwiki.com/"
-     "/images/logos/pikipedia.png"
-     "Pikipedia, also known as Pikmin Wiki, was founded by Dark Lord Revan on Wikia in December 2005. In September 2010, with NIWA's help, Pikipedia moved away from Wikia to become independent. Pikipedia is working towards their goal of being the foremost source for everything Pikmin.")
-    (("pikmin-fan" "pikpikpedia")
-     "Pimkin Fanon"
-     "https://www.pikminfanon.com/wiki/Main_Page"
-     "/images/logos/pikifanon.png"
-     "Pikmin Fanon is a Pikmin wiki for fan stories (fanon). Founded back on November 1, 2008 by Rocky0718 as a part of Wikia, Pikmin Fanon has been independent since September 14, 2010. Check them out for fan created stories based around the Pikmin series.")
-    (("supersmashbros")
-     "SmashWiki"
-     "https://www.ssbwiki.com/"
-     "/images/logos/smashwiki.png"
-     "Originally two separate wikis (one on SmashBoards, the other on Wikia), SmashWiki as we know it was formed out of a merge on February 29th, 2008, becoming independent on September 28th, 2010. SmashWiki is the premier source of Smash Bros. information, from simple tidbits to detailed mechanics, and also touches on the origins of its wealth of content from its sibling franchises.")
-    (("starfy")
-     "Starfy Wiki"
-     "https://www.starfywiki.org/wiki/Main_Page"
-     "/images/logos/starfywiki.png"
-     "Founded on May 30, 2009, Starfy Wiki's one goal is to become the best source on Nintendo's elusive game series The Legendary Starfy. After gaining independence in 2011 with the help of Tappy and the wiki's original administrative team, the wiki still hopes to achieve its goal and be the best source of Starfy info for all present and future fans.")
-    (()
-     "StrategyWiki"
-     "https://www.strategywiki.org/wiki/Main_Page"
-     "/images/logos/strategywiki.png"
-     "StrategyWiki was founded in December 2005 by former member Brandon Suit with the idea that the existing strategy guides on the Internet could be improved. Three years later, in December 2008, Scott Jacobi officially established Abxy LLC for the purpose of owning and operating StrategyWiki as a community. Their vision is to bring free, collaborative video game strategy guides to the masses, including Nintendo franchise strategy guides.")
-    (("mario" "themario" "imario" "supermarionintendo" "mariokart" "luigi-kart" "mario3")
-     "Super Mario Wiki"
-     "https://www.mariowiki.com/"
-     "/images/logos/mariowiki.png"
-     "Online since August 12, 2005, when it was founded by Steve Shinn, Super Mario Wiki has you covered for anything Mario, Donkey Kong, Wario, Luigi, Yoshi—the whole gang, in fact. With its own large community in its accompanying forum, Super Mario Wiki is not only a great encyclopedia, but a fansite for you to talk anything Mario.")
-    (("mario64")
-     "Ukikipedia"
-     "https://ukikipedia.net/wiki/Main_Page"
-     "/images/logos/ukikipedia.png"
-     "Founded in 2018, Ukikipedia is a wiki focused on expert level knowledge of Super Mario 64, including detailed coverage of game mechanics, glitches, speedrunning, and challenges.")
-    (("advancewars")
-     "Wars Wiki"
-     "https://www.warswiki.org/wiki/Main_Page"
-     "/images/logos/warswiki.png"
-     "Created in February 2009, Wars Wiki is a small wiki community with a large heart. Founded by JoJo and Wars Central, Wars Wiki is going strong on one of Nintendo's lesser known franchises. Wars Wiki is keen to contribute to NIWA, and we're proud to be able to support them. With the Wars Central community, including forums, it's definitely worth checking out.")
-    (("earthbound")
-     "WikiBound"
-     "https://www.wikibound.info/wiki/WikiBound"
-     "/images/logos/wikibound.png"
-     "Founded in early 2010 by Tacopill, WikiBound strives to create a detailed database on the Mother/EarthBound games, a quaint series only having two games officially released outside of Japan. Help spread the PK Love by editing WikiBound!")
-    (("kirby")
-     "WiKirby"
-     "https://wikirby.com/wiki/Kirby_Wiki"
-     "/images/logos/wikirby.png"
-     "WiKirby. It's a wiki. About Kirby! Amidst the excitement of NIWA being founded, Josh LeJeune decided to create a Kirby Wiki, due to lack of a strong independent one online. Coming online on January 24, 2010, WiKirby continues its strong launch with a dedicated community and a daily growing source of Kirby based knowledge.")
-    (("xenoblade" "xenoseries" "xenogears" "xenosaga")
-     "Xeno Series Wiki"
-     "https://www.xenoserieswiki.org/wiki/Main_Page"
-     "/images/logos/xenoserieswiki.png"
-     "Xeno Series Wiki was created February 4, 2020 by Sir Teatei Moonlight. While founded by the desire to have an independent wiki for Xenoblade, there was an interest in including the Xenogears and Xenosaga games within its focus as well. This wide range of coverage means it's always in need of new editors to help bolster its many subjects.")
-    (("zelda" "zelda-archive")
-     "Zeldapedia"
-     "https://zeldapedia.wiki/wiki/Main_Page"
-     "/images/logos/zeldapedia.png"
-     "Founded on April 23, 2005 as Zelda Wiki, today's Zeldapedia is your definitive source for encyclopedic information on The Legend of Zelda series, as well as all of the latest Zelda news.")))
-
-;; get the current dataset so it can be stored above
-(module+ fetch
-  (require racket/generator
-           racket/list
-           net/http-easy
-           html-parsing
-           "xexpr-utils.rkt")
-  (define r (get "https://www.niwanetwork.org/members/"))
-  (define x (html->xexp (bytes->string/utf-8 (response-body r))))
-  (define english ((query-selector (λ (e a c) (equal? (get-attribute 'id a) "content1")) x)))
-  (define gen (query-selector (λ (e a c) (has-class? "member" a)) english))
-  (for/list ([item (in-producer gen #f)])
-    (define links (query-selector (λ (e a c) (eq? e 'a)) item))
-    (define url (get-attribute 'href (bits->attributes (links))))
-    (define title (third (links)))
-    (define icon (get-attribute 'src (bits->attributes ((query-selector (λ (e a c) (eq? e 'img)) item)))))
-    (define description (second ((query-selector (λ (e a c) (eq? e 'p)) item))))
-    (list '() title url icon description)))
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 62b7f387..aa48ffd8 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -16,9 +16,10 @@
          "config.rkt"
          "data.rkt"
          "page-wiki.rkt"
-         "syntax.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt")
+         "../lib/syntax.rkt"
+         "../lib/url-utils.rkt"
+         "whole-utils.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide
  page-category)
diff --git a/src/page-file.rkt b/src/page-file.rkt
index d999ba46..20628927 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -16,9 +16,10 @@
          "config.rkt"
          "data.rkt"
          "page-wiki.rkt"
-         "syntax.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt")
+         "../lib/syntax.rkt"
+         "../lib/url-utils.rkt"
+         "whole-utils.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide page-file)
 
@@ -101,47 +102,48 @@
               `""))))
 
 (define (page-file req)
-  (define wikiname (path/param-path (first (url-path (request-uri req)))))
-  (define prefixed-title (path/param-path (caddr (url-path (request-uri req)))))
-  (define origin (format "https://~a.fandom.com" wikiname))
-  (define source-url (format "~a/wiki/~a" origin prefixed-title))
+  (response-handler
+   (define wikiname (path/param-path (first (url-path (request-uri req)))))
+   (define prefixed-title (path/param-path (caddr (url-path (request-uri req)))))
+   (define origin (format "https://~a.fandom.com" wikiname))
+   (define source-url (format "~a/wiki/~a" origin prefixed-title))
 
-  (thread-let ([media-detail
-                (define dest-url
-                  (format "~a/wikia.php?~a"
-                          origin
-                          (params->query `(("format" . "json") ("controller" . "Lightbox")
-                                                               ("method" . "getMediaDetail")
-                                                               ("fileTitle" . ,prefixed-title)))))
-                (log-outgoing dest-url)
-                (define dest-res (easy:get dest-url #:timeouts timeouts))
-                (easy:response-json dest-res)]
-               [siteinfo (siteinfo-fetch wikiname)])
-              (if (not (jp "/exists" media-detail #f))
-                  (next-dispatcher)
-                  (response-handler
-                   (define file-title (jp "/fileTitle" media-detail ""))
-                   (define title
-                     (if (non-empty-string? file-title) (format "File:~a" file-title) prefixed-title))
-                   (define image-content-type
-                     (if (non-empty-string? (jp "/videoEmbedCode" media-detail ""))
-                         #f
-                         (url-content-type (jp "/imageUrl" media-detail))))
-                   (define body
-                     (generate-results-page #:req req
-                                            #:source-url source-url
-                                            #:wikiname wikiname
-                                            #:title title
-                                            #:media-detail media-detail
-                                            #:image-content-type image-content-type
-                                            #:siteinfo siteinfo))
-                   (when (config-true? 'debug)
-                     ; used for its side effects
-                     ; convert to string with error checking, error will be raised if xexp is invalid
-                     (xexp->html body))
-                   (response/output #:code 200
-                                    #:headers (build-headers always-headers)
-                                    (λ (out) (write-html body out)))))))
+   (thread-let
+    ([media-detail (define dest-url
+                     (format "~a/wikia.php?~a"
+                             origin
+                             (params->query `(("format" . "json") ("controller" . "Lightbox")
+                                                                  ("method" . "getMediaDetail")
+                                                                  ("fileTitle" . ,prefixed-title)))))
+                   (log-outgoing dest-url)
+                   (define dest-res (easy:get dest-url #:timeouts timeouts))
+                   (easy:response-json dest-res)]
+     [siteinfo (siteinfo-fetch wikiname)])
+    (if (not (jp "/exists" media-detail #f))
+        (next-dispatcher)
+        (response-handler
+         (define file-title (jp "/fileTitle" media-detail ""))
+         (define title
+           (if (non-empty-string? file-title) (format "File:~a" file-title) prefixed-title))
+         (define image-content-type
+           (if (non-empty-string? (jp "/videoEmbedCode" media-detail ""))
+               #f
+               (url-content-type (jp "/imageUrl" media-detail))))
+         (define body
+           (generate-results-page #:req req
+                                  #:source-url source-url
+                                  #:wikiname wikiname
+                                  #:title title
+                                  #:media-detail media-detail
+                                  #:image-content-type image-content-type
+                                  #:siteinfo siteinfo))
+         (when (config-true? 'debug)
+           ; used for its side effects
+           ; convert to string with error checking, error will be raised if xexp is invalid
+           (xexp->html body))
+         (response/output #:code 200
+                          #:headers (build-headers always-headers)
+                          (λ (out) (write-html body out))))))))
 (module+ test
   (parameterize ([(config-parameter 'strict_proxy) "true"])
     (check-equal? (get-media-html "https://static.wikia.nocookie.net/a" "image/jpeg")
diff --git a/src/page-global-search.rkt b/src/page-global-search.rkt
index a9c79bb0..a7748d52 100644
--- a/src/page-global-search.rkt
+++ b/src/page-global-search.rkt
@@ -5,8 +5,8 @@
          web-server/http
          "application-globals.rkt"
          "data.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt")
+         "../lib/url-utils.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide
  page-global-search)
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 23ede8b4..95793d37 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -6,8 +6,8 @@
          "application-globals.rkt"
          "data.rkt"
          "static-data.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt"
+         "../lib/url-utils.rkt"
+         "../lib/xexpr-utils.rkt"
          "config.rkt")
 
 (provide
@@ -26,13 +26,16 @@
 (define content
   `((h2 "BreezeWiki makes wiki pages on Fandom readable")
     (p "It removes ads, videos, and suggested content, leaving you with a clean page that doesn't slow down your device or use up your data.")
-    (p "BreezeWiki can also be called an \"alternative frontend for Fandom\".")
     (p ,(format "To use BreezeWiki, just replace \"fandom.com\" with \"~a\", and you'll instantly be teleported to a better world."
                 (if (config-true? 'canonical_origin)
                     (url-host (string->url (config-get 'canonical_origin)))
                     "breezewiki.com")))
     (p "If you'd like to be automatically sent to BreezeWiki every time in the future, "
+       (a (@ (href "https://getindie.wiki")) "get our affiliated browser extension (NEW!)")
+       " or "
        (a (@ (href "https://docs.breezewiki.com/Automatic_Redirection.html")) "check out the tutorial in the manual."))
+    (p "BreezeWiki is available on several different websites called " (a (@ (href "https://en.wikipedia.org/wiki/Mirror_site")) "mirrors") ". Each is independently run. If one mirror is offline, the others still work. "
+       (a (@ (href "https://docs.breezewiki.com/Links.html#%28part._.Mirrors%29")) "See the list."))
     (h2 "Find a page")
     (form (@ (action "/search"))
           (label (@ (class "paired__label"))
@@ -50,7 +53,7 @@
             examples))
     (h2 "Testimonials")
     (p (@ (class "testimonial")) ">so glad someone introduced me to a F*ndom alternative (BreezeWiki) because that x-factorized spillway of an ad-infested radioactive dumpsite can go die in a fire —RB")
-    (p (@ (class "testimonial")) ">you are so right that fandom still sucks even with adblock somehow. even zapping all the stupid padding it still sucks —Minimus")
+    (p (@ (class "testimonial")) ">apparently there are thousands of people essentially running our company " (em "for free") " right now, creating tons of content, and we just put ads on top of it and they're not even employees. thousands of people we can't lay off. thousands! —" (a (@ (href "https://hard-drive.net/fandom-ceo-frustrated-its-impossible-to-lay-off-unpaid-users-who-update-wikias-for-fun/?utm_source=breezewiki") (target "_blank")) "Perkins Miller, Fandom CEO"))
     (p (@ (class "testimonial")) ">attempting to go to a wiki's forum page with breezewiki doesn't work, which is based honestly —Tom Skeleton")
     (p (@ (class "testimonial")) ">Fandom pages crashing and closing, taking forever to load and locking up as they load the ads on the site... they are causing the site to crash because they are trying to load video ads both at the top and bottom of the site as well as two or three banner ads, then a massive top of site ad and eventually my anti-virus shuts the whole site down because it's literally pulling more resources than WoW in ultra settings... —Anonymous")
     (p (@ (class "testimonial")) ">reblogs EXTREMELY appreciated I want that twink* (*fandom wiki) obliterated —footlong")
diff --git a/src/page-proxy.rkt b/src/page-proxy.rkt
index 3c22e1e3..cd94603a 100644
--- a/src/page-proxy.rkt
+++ b/src/page-proxy.rkt
@@ -9,8 +9,8 @@
          web-server/http
          (only-in web-server/dispatchers/dispatch next-dispatcher)
          "application-globals.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt")
+         "../lib/url-utils.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide
  page-proxy)
diff --git a/src/page-redirect-wiki-home.rkt b/src/page-redirect-wiki-home.rkt
index c8e6dde9..255f625e 100644
--- a/src/page-redirect-wiki-home.rkt
+++ b/src/page-redirect-wiki-home.rkt
@@ -3,8 +3,8 @@
          web-server/http
          "application-globals.rkt"
          "data.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt")
+         "../lib/url-utils.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide
  redirect-wiki-home)
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 10ff66cc..2066af3c 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -13,9 +13,10 @@
          "application-globals.rkt"
          "config.rkt"
          "data.rkt"
-         "syntax.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt")
+         "../lib/syntax.rkt"
+         "../lib/url-utils.rkt"
+         "whole-utils.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide
  page-search)
@@ -60,6 +61,8 @@
    (define wikiname (path/param-path (first (url-path (request-uri req)))))
    (define query (dict-ref (url-query (request-uri req)) 'q #f))
    (define origin (format "https://~a.fandom.com" wikiname))
+   (when (config-true? 'feature_offline::only)
+     (raise-user-error "Full search is currently not available on breezewiki.com - for now, please use the pop-up search suggestions or wait for me to fix it! Thanks <3"))
    (define dest-url
      (format "~a/api.php?~a"
              origin
@@ -87,5 +90,6 @@
      (λ (out)
        (write-html body out))))))
 (module+ test
-  (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
-                                    (generate-results-page test-req "" "test" "Gacha" search-json-data)))))
+  (parameterize ([(config-parameter 'feature_offline::only) "false"])
+    (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
+                                      (generate-results-page test-req "" "test" "Gacha" search-json-data))))))
diff --git a/src/page-set-user-settings.rkt b/src/page-set-user-settings.rkt
index 2fbc5733..588129d0 100644
--- a/src/page-set-user-settings.rkt
+++ b/src/page-set-user-settings.rkt
@@ -4,8 +4,8 @@
          web-server/http
          "application-globals.rkt"
          "data.rkt"
-         "url-utils.rkt"
-         "xexpr-utils.rkt")
+         "../lib/url-utils.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide
  page-set-user-settings)
diff --git a/src/page-static-archive.rkt b/src/page-static-archive.rkt
new file mode 100644
index 00000000..a4e145fb
--- /dev/null
+++ b/src/page-static-archive.rkt
@@ -0,0 +1,90 @@
+#lang racket/base
+(require racket/file
+         racket/path
+         racket/port
+         racket/runtime-path
+         racket/string
+         net/url
+         web-server/http
+         web-server/servlet-dispatch
+         web-server/dispatchers/filesystem-map
+         (only-in web-server/dispatchers/dispatch next-dispatcher)
+         "../archiver/archiver.rkt"
+         "../lib/mime-types.rkt"
+         "../lib/xexpr-utils.rkt"
+         "../src/config.rkt")
+
+(provide
+ page-static-archive)
+
+(define-runtime-path path-archive "../storage/archive")
+
+(define ((replacer wikiname) whole url)
+  (format
+   "url(~a)"
+   (if (or (equal? url "")
+           (equal? url "'")
+           (string-contains? url "/resources-ucp/")
+           (string-contains? url "/fonts/")
+           (string-contains? url "/drm_fonts/")
+           (string-contains? url "//db.onlinewebfonts.com/")
+           (string-contains? url "//bits.wikimedia.org/")
+           (string-contains? url "dropbox")
+           (string-contains? url "only=styles")
+           (string-contains? url "https://https://")
+           (regexp-match? #rx"^%20|^'" url)
+           (regexp-match? #rx"^\"?data:" url))
+       url
+       (let* ([norm-url
+               (cond
+                 [(string-prefix? url "https://") url]
+                 [(string-prefix? url "http://") (regexp-replace #rx"http:" url "https:")]
+                 [(string-prefix? url "//") (string-append "https:" url)]
+                 [(string-prefix? url "/") (format "https://~a.fandom.com~a" wikiname url)]
+                 [else (raise-user-error "While calling replace-style-for-images, this URL had an unknown format and couldn't be saved:" url)])])
+         (define p (image-url->values norm-url))
+         ;; (printf "hashed: ~a~n     -> ~a~n    #-> ~a~n" url (car p) (cdr p))
+         (format "/archive/~a/images/~a" wikiname (cdr p))))))
+
+(define (replace-style-for-images wikiname path)
+  (define content (file->string path))
+  (regexp-replace* #rx"url\\(([^)]*)\\)" content (replacer wikiname)))
+
+(define (handle-style wikiname dest)
+  (when (config-true? 'debug)
+    (printf "using offline mode for style ~a ~a~n" wikiname dest))
+  (define fs-path (build-path path-archive wikiname "styles" dest))
+  (println fs-path)
+  (unless (file-exists? fs-path)
+    (next-dispatcher))
+  (response-handler
+   (define new-content (replace-style-for-images wikiname fs-path))
+   (response/output
+    #:code 200
+    #:headers (list (header #"Content-Type" #"text/css")
+                    (header #"Referrer-Policy" #"same-origin"))
+    (λ (out) (displayln new-content out)))))
+
+(define (handle-image wikiname dest) ;; dest is the hash with no extension
+  (unless ((string-length dest) . >= . 40) (next-dispatcher))
+  (response-handler
+   (define dir (build-path path-archive wikiname "images" (substring dest 0 1) (substring dest 0 2)))
+   (unless (directory-exists? dir) (next-dispatcher))
+   (define candidates (directory-list dir))
+   (define target (path->string (findf (λ (f) (string-prefix? (path->string f) dest)) candidates)))
+   (unless target (next-dispatcher))
+   (define ext (substring target 41))
+   (response/output
+    #:code 200
+    #:headers (list (header #"Content-Type" (ext->mime-type (string->bytes/latin-1 ext))))
+    (λ (out)
+      (call-with-input-file (build-path dir target)
+        (λ (in)
+          (copy-port in out)))))))
+
+(define (page-static-archive req)
+  (define path (url-path (request-uri req)))
+  (define-values (_ wikiname kind dest) (apply values (map path/param-path path)))
+  (cond [(equal? kind "styles") (handle-style wikiname dest)]
+        [(equal? kind "images") (handle-image wikiname dest)]
+        [else (response-handler (raise-user-error "page-static-archive: how did we get here?" kind))]))
diff --git a/src/page-static.rkt b/src/page-static.rkt
index 2bf684cd..e2c984e7 100644
--- a/src/page-static.rkt
+++ b/src/page-static.rkt
@@ -7,6 +7,7 @@
          web-server/dispatchers/filesystem-map
          (only-in web-server/dispatchers/dispatch next-dispatcher)
          (prefix-in files: web-server/dispatchers/dispatch-files)
+         "../lib/mime-types.rkt"
          "config.rkt")
 
 (provide
@@ -16,6 +17,7 @@
   (require rackunit))
 
 (define-runtime-path path-static "../static")
+(define-runtime-path path-archive "../storage/archive")
 
 (define hash-ext-mime-type
   (hash #".css" #"text/css"
@@ -25,45 +27,49 @@
         #".woff2" #"font/woff2"
         #".txt" #"text/plain"))
 
-(define (ext->mime-type ext)
-  (hash-ref hash-ext-mime-type ext))
-(module+ test
-  (check-equal? (ext->mime-type #".png") #"image/png"))
-
 (define (make-path segments)
   (map (λ (seg) (path/param seg '())) segments))
 (module+ test
   (check-equal? (make-path '("static" "main.css"))
                 (list (path/param "static" '()) (path/param "main.css" '()))))
 
+;; given a request path, return a rewritten request path and the source directory on the filesystem to serve based on
 (define (path-rewriter p)
   (cond
     ; url is ^/static/... ?
     [(equal? (path/param-path (car p)) "static")
      ; rewrite to ^/... which will be treated as relative to static/ on the filesystem
-     (cdr p)]
+     (values (cdr p) path-static)]
+    ; url is ^/archive/... ?
+    [(equal? (path/param-path (car p)) "archive")
+     ; rewrite req to ^/<wikiname> and dir to /storage/archive
+     (values (cdr p) path-archive)]
     ; url is literally ^/robots.txt
     [(equal? p (make-path '("robots.txt")))
      ; rewrite to ^/... -- it already is!
-     p]
+     (values p path-static)]
     ; not going to use the static file dispatcher
     [#t (next-dispatcher)]))
 (module+ test
-  (check-equal? (path-rewriter (make-path '("static" "main.css")))
-                (make-path '("main.css")))
-  (check-equal? (path-rewriter (make-path '("static" "robots.txt")))
-                (make-path '("robots.txt")))
-  (check-equal? (path-rewriter (make-path '("robots.txt")))
-                (make-path '("robots.txt"))))
+  (check-equal? (call-with-values (λ () (path-rewriter (make-path '("static" "main.css")))) cons)
+                (cons (make-path '("main.css")) path-static))
+  (check-equal? (call-with-values (λ () (path-rewriter (make-path '("static" "robots.txt")))) cons)
+                (cons (make-path '("robots.txt")) path-static))
+  (check-equal? (call-with-values (λ () (path-rewriter (make-path '("robots.txt")))) cons)
+                (cons (make-path '("robots.txt")) path-static))
+  (check-equal? (call-with-values (λ () (path-rewriter (make-path '("archive" "minecraft" "styles" "main.css")))) cons)
+                (cons (make-path '("minecraft" "styles" "main.css")) path-archive)))
 
 (define (static-dispatcher conn old-req)
   (define old-uri (request-uri old-req))
   (define old-path (url-path old-uri))
-  (define new-path (path-rewriter old-path))
+  (define-values (new-path source-dir) (path-rewriter old-path))
   (define new-uri (struct-copy url old-uri [path new-path]))
   (define new-req (struct-copy request old-req [uri new-uri]))
   ((files:make
-    #:url->path (lambda (u) ((make-url->path path-static) u))
+    #:url->path (lambda (u) ((make-url->path source-dir) u))
+    #:path->headers (lambda (p) (list (header #"Access-Control-Allow-Origin" #"*")
+                                      (header #"Referrer-Policy" #"same-origin")))
     #:path->mime-type (lambda (u) (ext->mime-type (path-get-extension u)))
     #:cache-no-cache (config-true? 'debug)
     #:cache-immutable (not (config-true? 'debug))
diff --git a/src/page-subdomain.rkt b/src/page-subdomain.rkt
index c2542368..024ea79d 100644
--- a/src/page-subdomain.rkt
+++ b/src/page-subdomain.rkt
@@ -9,8 +9,8 @@
          (prefix-in lift: web-server/dispatchers/dispatch-lift)
          "application-globals.rkt"
          "config.rkt"
-         "syntax.rkt"
-         "xexpr-utils.rkt")
+         "../lib/syntax.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide
  subdomain-dispatcher)
diff --git a/src/page-wiki-offline.rkt b/src/page-wiki-offline.rkt
new file mode 100644
index 00000000..064ba056
--- /dev/null
+++ b/src/page-wiki-offline.rkt
@@ -0,0 +1,142 @@
+#lang racket/base
+(require racket/dict
+         racket/file
+         racket/function
+         racket/list
+         racket/match
+         racket/runtime-path
+         racket/string
+         ; libs
+         (prefix-in easy: net/http-easy)
+         file/sha1
+         file/gunzip
+         json
+         ; html libs
+         "../lib/html-parsing/main.rkt"
+         html-writing
+         ; web server libs
+         net/url
+         web-server/http
+         web-server/dispatchers/dispatch
+         ; my libs
+         "application-globals.rkt"
+         "config.rkt"
+         "data.rkt"
+         "page-wiki.rkt"
+         "../lib/archive-file-mappings.rkt"
+         "../lib/pure-utils.rkt"
+         "../lib/syntax.rkt"
+         "../lib/tree-updater.rkt"
+         "../lib/xexpr-utils.rkt"
+         "../lib/url-utils.rkt")
+
+(provide
+ ; used by the web server
+ page-wiki-offline)
+
+(module+ test
+  (require rackunit))
+
+(define-runtime-path path-archive "../storage/archive")
+
+(define (page-wiki-offline req)
+  (response-handler
+   (define wikiname (path/param-path (first (url-path (request-uri req)))))
+   (define segments (map path/param-path (cdr (url-path (request-uri req)))))
+   (define basename (url-segments->basename segments))
+   (define maybe-hashed-basename (if ((string-length basename) . > . 240)
+                                     (sha1 (string->bytes/latin-1 basename))
+                                     basename))
+   (define archive-format
+     (case (config-get 'feature_offline::format)
+       [(".json" "json") (cons "~a.json" (λ () (read-json)))]
+       [(".json.gz" "json.gz") (cons "~a.json.gz" (λ ()
+                                                    (define-values (in out) (make-pipe))
+                                                    (gunzip-through-ports (current-input-port) out)
+                                                    (read-json in)))]
+       [else (error 'archive-format "unknown archive format configured")]))
+   (define fs-path (build-path path-archive wikiname (format (car archive-format) maybe-hashed-basename)))
+   (define source-url (format "https://~a.fandom.com/wiki/~a" wikiname (basename->name-for-query basename)))
+   (cond
+     [(not (file-exists? fs-path))
+      (unless (config-true? 'feature_offline::only)
+        (next-dispatcher))
+      (define mirror-path (url->string (request-uri req)))
+      (define body
+        (generate-wiki-page
+         `(div (@ (class "unsaved-page"))
+               (style ".unsaved-page a { text-decoration: underline !important }")
+               (p "breezewiki.com doesn't have this page saved.")
+               (p "You can see this page by visiting a BreezeWiki mirror:")
+               (ul
+                (li (a (@ (href ,(format "https://antifandom.com~a" mirror-path))) "View on antifandom.com"))
+                (li (a (@ (href ,(format "https://bw.artemislena.eu~a" mirror-path))) "View on artemislena.eu"))
+                (li (a (@ (href ,source-url)) "or, you can see the original page on Fandom (ugh)")))
+               (p "If you'd like " ,wikiname ".fandom.com to be added to breezewiki.com, " (a (@ (href "https://lists.sr.ht/~cadence/breezewiki-requests")) "let me know about it!")))
+         #:req req
+         #:source-url source-url
+         #:wikiname wikiname
+         #:title (url-segments->guess-title segments)
+         #:online-styles #f
+         #:siteinfo (siteinfo-fetch wikiname)
+         ))
+      (when (config-true? 'debug)
+        ; used for its side effects
+        ; convert to string with error checking, error will be raised if xexp is invalid
+        (xexp->html body))
+      (response/output
+       #:code 200
+       #:headers always-headers
+       (λ (out)
+         (write-html body out)))]
+     [#t
+      (when (config-true? 'debug)
+        (printf "using offline mode for ~v~n" fs-path))
+      (response-handler
+       (define data (with-input-from-file fs-path (cdr archive-format)))
+       (define article-title (jp "/parse/title" data))
+       (define original-page (html->xexp (preprocess-html-wiki (jp "/parse/text" data))))
+       (define page ((query-selector (λ (t a c) (has-class? "mw-parser-output" a)) original-page)))
+       (define initial-head-data ((head-data-getter wikiname) data))
+       (define user-cookies (user-cookies-getter req))
+       (define theme (user-cookies^-theme user-cookies))
+       (define head-data
+         (case theme
+           [(light dark)
+            (struct-copy head-data^ initial-head-data
+                         [body-class (regexp-replace #rx"(theme-fandomdesktop-)(light|dark)"
+                                                     (head-data^-body-class initial-head-data)
+                                                     (format "\\1~a" theme))])]
+           [else initial-head-data]))
+       (define body
+         (generate-wiki-page
+          (update-tree-wiki page wikiname)
+          #:req req
+          #:source-url source-url
+          #:wikiname wikiname
+          #:title article-title
+          #:online-styles #f
+          #:head-data head-data
+          #:siteinfo (siteinfo-fetch wikiname)
+          ))
+       (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
+       (define redirect-query-parameter (dict-ref (url-query (request-uri req)) 'redirect "yes"))
+       (define headers
+         (build-headers
+          always-headers
+          ; redirect-query-parameter: only the string "no" is significant:
+          ; https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Wiki.php#L367
+          (when (and redirect-msg
+                     (not (equal? redirect-query-parameter "no")))
+            (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+                   [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
+              (header #"Refresh" value)))))
+       (when (config-true? 'debug)
+         ; used for its side effects
+         ; convert to string with error checking, error will be raised if xexp is invalid
+         (xexp->html body))
+       (response/output
+        #:code 200
+        #:headers headers
+        (λ (out)
+          (write-html body out))))])))
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index e41b093d..3fa905b9 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -7,7 +7,7 @@
          ; libs
          (prefix-in easy: net/http-easy)
          ; html libs
-         html-parsing
+         "../lib/html-parsing/main.rkt"
          html-writing
          ; web server libs
          net/url
@@ -17,11 +17,12 @@
          "application-globals.rkt"
          "config.rkt"
          "data.rkt"
-         "pure-utils.rkt"
-         "syntax.rkt"
-         "tree-updater.rkt"
-         "xexpr-utils.rkt"
-         "url-utils.rkt")
+         "../lib/pure-utils.rkt"
+         "../lib/syntax.rkt"
+         "../lib/tree-updater.rkt"
+         "../lib/url-utils.rkt"
+         "whole-utils.rkt"
+         "../lib/xexpr-utils.rkt")
 
 (provide
  ; used by the web server
@@ -33,24 +34,6 @@
 (module+ test
   (require rackunit))
 
-(define (preprocess-html-wiki html)
-  (define ((rr* find replace) contents)
-    (regexp-replace* find contents replace))
-  ((compose1
-    ; fix navbox list nesting
-    ; navbox on right of page has incorrect html "<td ...><li>" and the xexpr parser puts the <li> much further up the tree
-    ; add a <ul> to make the parser happy
-    ; usage: /fallout/wiki/Fallout:_New_Vegas_achievements_and_trophies
-    (rr* #rx"(<td[^>]*>\n?)(<li>)" "\\1<ul>\\2")
-    ; change <figcaption><p> to <figcaption><span> to make the parser happy
-    (rr* #rx"(<figcaption[^>]*>)[ \t]*<p class=\"caption\">([^<]*)</p>" "\\1<span class=\"caption\">\\2</span>"))
-   html))
-(module+ test
-  (check-equal? (preprocess-html-wiki "<td class=\"va-navbox-column\" style=\"width: 33%\">\n<li>Hey</li>")
-                "<td class=\"va-navbox-column\" style=\"width: 33%\">\n<ul><li>Hey</li>")
-  (check-equal? (preprocess-html-wiki "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"> 	<p class=\"caption\">Caption text.</p></figcaption></figure>")
-                "<figure class=\"thumb tright\" style=\"width: 150px\"><a class=\"image\"><img></a><noscript><a><img></a></noscript><figcaption class=\"thumbcaption\"><span class=\"caption\">Caption text.</span></figcaption></figure>"))
-
 (define (page-wiki req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))
   (define user-cookies (user-cookies-getter req))
diff --git a/src/reloadable.rkt b/src/reloadable.rkt
index 1939a8b1..3cac00b0 100644
--- a/src/reloadable.rkt
+++ b/src/reloadable.rkt
@@ -3,6 +3,7 @@
 ;;; Source: https://github.com/tonyg/racket-reloadable/blob/master/reloadable/main.rkt
 ;;; Source commit: cae2a14 from 24 May 2015
 ;;; Source license: LGPL 3 or later
+;;; Further modifications by Cadence as seen in this repo's git history.
 
 (provide (struct-out reloadable-entry-point)
          reload-poll-interval
@@ -19,8 +20,8 @@
 (require racket/match)
 (require racket/rerequire)
 
-(define reload-poll-interval 0.5) ;; seconds
-(define reload-failure-retry-delay (make-parameter 5)) ;; seconds
+(define reload-poll-interval 0.5) ; seconds
+(define reload-failure-retry-delay (make-parameter 5)) ; seconds
 
 (struct reloadable-entry-point (name
                                 module-path
diff --git a/src/whole-utils.rkt b/src/whole-utils.rkt
new file mode 100644
index 00000000..71188664
--- /dev/null
+++ b/src/whole-utils.rkt
@@ -0,0 +1,11 @@
+#lang typed/racket/base
+(require "config.rkt")
+
+(provide
+ ; prints "out: <url>"
+ log-outgoing)
+
+(: log-outgoing (String -> Void))
+(define (log-outgoing url-string)
+  (when (config-true? 'log_outgoing)
+    (printf "out: ~a~n" url-string)))
diff --git a/static/breezewiki-color.svg b/static/breezewiki-color.svg
new file mode 100644
index 00000000..f273dd3e
--- /dev/null
+++ b/static/breezewiki-color.svg
@@ -0,0 +1,136 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<svg:svg
+   xmlns:dc="http://purl.org/dc/elements/1.1/"
+   xmlns:cc="http://creativecommons.org/ns#"
+   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+   xmlns:svg="http://www.w3.org/2000/svg"
+   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
+   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+   height="36.41787"
+   width="224.9014"
+   version="1.1"
+   id="svg912"
+   sodipodi:docname="breezewiki-color.svg"
+   inkscape:version="0.92.5 (2060ec1f9f, 2020-04-08)">
+  <svg:metadata
+     id="metadata918">
+    <rdf:RDF>
+      <cc:Work
+         rdf:about="">
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type
+           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+        <dc:title></dc:title>
+      </cc:Work>
+    </rdf:RDF>
+  </svg:metadata>
+  <svg:defs
+     id="defs916" />
+  <sodipodi:namedview
+     pagecolor="#ffffff"
+     bordercolor="#666666"
+     borderopacity="1"
+     objecttolerance="10"
+     gridtolerance="10"
+     guidetolerance="10"
+     inkscape:pageopacity="0"
+     inkscape:pageshadow="2"
+     inkscape:window-width="1882"
+     inkscape:window-height="1059"
+     id="namedview914"
+     showgrid="false"
+     showguides="false"
+     inkscape:zoom="2.8284271"
+     inkscape:cx="123.17581"
+     inkscape:cy="7.7496502"
+     inkscape:window-x="38"
+     inkscape:window-y="0"
+     inkscape:window-maximized="1"
+     inkscape:current-layer="svg912"
+     showborder="true"
+     inkscape:pagecheckerboard="true"
+     inkscape:snap-bbox="true"
+     inkscape:bbox-nodes="true"
+     inkscape:snap-smooth-nodes="true" />
+  <div
+     id="saka-gui-root">
+    <div>
+      <div>
+        <style />
+      </div>
+    </div>
+  </div>
+  <svg:g
+     aria-label="wiki"
+     style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;line-height:2.67644334px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-feature-settings:normal;text-align:start;writing-mode:lr-tb;text-anchor:start;opacity:1;fill:#000000;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+     id="text926"
+     transform="translate(97.9947,1.1875002)">
+    <svg:path
+       d="m 81.588122,13.020001 q 0,0.08533 0,0.298666 -0.04267,0.256001 -0.04267,0.384001 0,0.128 -0.341333,0.213333 -0.810667,0.170667 -0.981334,0.256 -0.341333,0.170667 -0.725333,0.725333 -0.512,0.725334 -1.237333,2.517334 l -4.480001,11.008 q -0.128,0.298667 -0.725333,0.298667 -0.554667,0 -0.682667,-0.298667 l -3.584,-8.874667 -3.626667,8.874667 q -0.128,0.298667 -0.725333,0.298667 -0.554667,0 -0.682667,-0.298667 L 58.846788,16.561334 q -0.554667,-1.322666 -1.066667,-1.92 -0.469333,-0.64 -1.706667,-0.896 -0.341333,-0.08533 -0.341333,-0.256 v -0.725333 q 0,-0.298667 0.298667,-0.298667 0.896,0 2.474666,0.08533 1.749334,0.08533 2.432,0.08533 0,0 4.821334,0 1.152,0 3.456,-0.08533 2.304,-0.08533 3.456,-0.08533 0.341333,0 0.341333,0.469333 0,0.08533 0,0.298667 -0.04267,0.170667 -0.04267,0.256 0,0.256 -0.981334,0.384 -0.981333,0.128 -0.981333,0.682667 0,0.256 0.128,0.597333 l 3.157333,8.064 2.986667,-7.552 q 0.213333,-0.554666 0.213333,-0.938666 0,-0.554667 -0.810666,-0.682667 -0.810667,-0.128 -0.810667,-0.384 v -0.725334 q 0,-0.298666 0.469333,-0.298666 0.384,0 1.194667,0.128 0.810667,0.08533 1.194667,0.08533 0.426667,0 1.194667,-0.08533 0.768,-0.128 1.024,-0.128 0.64,0 0.64,0.384 z m -13.525334,4.693333 -0.853333,-2.133333 q -0.554667,-1.408 -2.517334,-1.408 h -1.536 q -0.810667,0 -0.810667,0.64 0,0.256 0.128,0.597333 l 3.242667,8.149334 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';text-align:start;text-anchor:start;fill:#000000;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+       id="path842"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 91.700066,5.6813339 q 0,1.1093334 -0.768,1.8773334 -0.768,0.768 -1.877333,0.768 -1.109333,0 -1.877333,-0.768 -0.768,-0.768 -0.768,-1.8773334 0,-1.1093333 0.768,-1.8773334 0.768,-0.768 1.877333,-0.768 1.109333,0 1.877333,0.768 0.768,0.7680001 0.768,1.8773334 z m 1.706667,22.3573341 q 0,0.298667 -0.298667,0.298667 -0.298666,0 -0.298666,0 -1.962667,-0.170667 -3.669334,-0.170667 -1.621333,0 -3.584,0.170667 0,0 -0.170666,0 -0.469334,0 -0.469334,-0.426667 0,-0.08533 0.04267,-0.298667 0,-0.213333 0,-0.298666 0,-0.256 0.853333,-0.384 0.853334,-0.128 1.066667,-0.554667 0.256,-0.469333 0.256,-1.834667 v -6.528 q 0,-1.322667 -0.256,-1.749333 -0.170667,-0.298667 -1.109333,-0.682667 -0.896,-0.384 -0.896,-0.768 0,-0.256 0.128,-0.469333 0.04267,-0.08533 2.858666,-1.194667 2.816,-1.152 3.029334,-1.152 0.341333,0 0.341333,0.341333 v 11.904 q 0,1.749334 0.170667,2.090667 0.256,0.469334 1.109333,0.597334 0.896,0.128 0.896,0.384 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';text-align:start;text-anchor:start;fill:#000000;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+       id="path844"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 114.52672,27.526668 q 0,0.810667 -0.29867,0.810667 -0.59733,0 -1.87733,-0.08533 -1.23733,-0.08533 -1.87733,-0.08533 -0.59734,0 -1.83467,0.08533 -1.19467,0.08533 -1.792,0.08533 -0.384,0 -0.384,-0.469334 0,-0.08533 0.0427,-0.298666 0,-0.170667 0,-0.256 0,-0.256 0.55466,-0.341334 0.59734,-0.128 0.59734,-0.512 0,-0.298666 -0.512,-1.152 l -3.24267,-5.418667 -1.87733,1.408 v 3.2 q 0,1.408001 0.21333,1.877334 0.21333,0.426667 1.152,0.554667 0.81067,0.128 0.81067,0.384 v 0.725333 q 0,0.298667 -0.59734,0.298667 -0.59733,0 -1.83466,-0.08533 -1.19467,-0.08533 -1.792004,-0.08533 -0.597333,0 -1.834667,0.08533 -1.194666,0.08533 -1.792,0.08533 -0.597333,0 -0.597333,-0.426667 v -0.597333 q 0,-0.256 0.853333,-0.384 0.853334,-0.128 1.066667,-0.554667 0.256,-0.469333 0.256,-1.834667 V 6.4920006 q 0,-1.3226667 -0.256,-1.7493334 -0.170667,-0.2986666 -1.109333,-0.6826666 -0.896001,-0.3840001 -0.896001,-0.7680001 0,-0.256 0.128,-0.4693333 0.04267,-0.085333 2.858667,-1.1946667 2.816001,-1.15200005 3.029331,-1.15200005 0.34134,0 0.34134,0.34133334 V 19.718668 q 5.71733,-4.309334 5.71733,-5.290667 0,-0.682667 -1.792,-0.682667 -0.46933,0 -0.46933,-0.512 0,-0.768 0.42666,-0.768 0.55467,0 1.70667,0.08533 1.19467,0.08533 1.74933,0.08533 0.55467,0 1.70667,-0.08533 1.152,-0.08533 1.70667,-0.08533 0.42666,0 0.42666,0.469333 0,0.08533 0,0.298667 -0.0427,0.170667 -0.0427,0.298667 0,0.128 -0.384,0.213333 -0.64,0.08533 -1.83467,0.426667 -0.512,0.213333 -2.048,1.578667 -1.024,0.896 -2.09067,1.834666 l 4.224,6.656 q 1.57867,2.474667 2.60267,2.688001 0.29867,0.04267 0.59733,0.128 0.29867,0.08533 0.29867,0.469333 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';text-align:start;text-anchor:start;fill:#000000;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+       id="path846"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 123.69999,5.6813339 q 0,1.1093334 -0.768,1.8773334 -0.768,0.768 -1.87734,0.768 -1.10933,0 -1.87733,-0.768 -0.768,-0.768 -0.768,-1.8773334 0,-1.1093333 0.768,-1.8773334 0.768,-0.768 1.87733,-0.768 1.10934,0 1.87734,0.768 0.768,0.7680001 0.768,1.8773334 z m 1.70666,22.3573341 q 0,0.298667 -0.29866,0.298667 -0.29867,0 -0.29867,0 -1.96267,-0.170667 -3.66933,-0.170667 -1.62134,0 -3.584,0.170667 0,0 -0.17067,0 -0.46933,0 -0.46933,-0.426667 0,-0.08533 0.0427,-0.298667 0,-0.213333 0,-0.298666 0,-0.256 0.85334,-0.384 0.85333,-0.128 1.06666,-0.554667 0.256,-0.469333 0.256,-1.834667 v -6.528 q 0,-1.322667 -0.256,-1.749333 -0.17066,-0.298667 -1.10933,-0.682667 -0.896,-0.384 -0.896,-0.768 0,-0.256 0.128,-0.469333 0.0427,-0.08533 2.85867,-1.194667 2.816,-1.152 3.02933,-1.152 0.34133,0 0.34133,0.341333 v 11.904 q 0,1.749334 0.17067,2.090667 0.256,0.469334 1.10933,0.597334 0.896,0.128 0.896,0.384 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';text-align:start;text-anchor:start;fill:#000000;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+       id="path848"
+       inkscape:connector-curvature="0" />
+  </svg:g>
+  <svg:g
+     aria-label="breeze"
+     style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;line-height:2.57638931px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-feature-settings:normal;text-align:start;writing-mode:lr-tb;text-anchor:start;opacity:1;fill:#252525;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+     id="text930"
+     transform="translate(-69.005304,1.5000002)">
+    <svg:path
+       d="m 162.59026,13.697235 q 0,0.782126 -0.48131,1.363707 -0.46126,0.581581 -1.22333,0.581581 -0.46125,0 -0.92251,-0.421145 -0.44119,-0.421144 -0.80218,-0.421144 -0.16043,0 -0.9225,0.80218 -1.28349,1.323598 -2.68731,3.690031 -1.34365,2.266161 -2.00545,4.111176 -0.48131,1.504089 -1.52414,4.452103 -0.28077,0.701908 -0.80219,0.701908 -0.50136,0 -0.98267,-0.240654 -0.58158,-0.280763 -0.58158,-0.721962 0,-0.180491 0.10028,-0.461254 l 2.52686,-7.259736 q 0.8824,-2.526869 0.8824,-4.111176 0,-1.383761 -0.80218,-1.383761 -1.103,0 -2.08567,1.263434 -0.96261,1.263435 -0.98267,1.263435 -0.14038,0 -0.46125,-0.2206 -0.32087,-0.240654 -0.32087,-0.381036 0,-0.140381 0.0802,-0.280763 0.80218,-1.383762 1.88513,-2.607087 1.50409,-1.664525 2.52687,-1.664525 2.12578,0 2.12578,3.10845 0,1.443925 -0.42115,3.288941 3.9708,-6.4375 6.05647,-6.4375 0.76207,0 1.28348,0.601635 0.54148,0.601636 0.54148,1.383762 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path853"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 148.05073,15.502142 q 0,4.672702 -5.71554,9.485786 -4.25155,3.569704 -7.74104,3.569704 -1.38376,0 -2.24611,-0.661799 -0.96261,-0.721962 -0.96261,-2.065615 0,-0.561526 0.20054,-1.24338 l 5.85592,-20.1748444 q 0.12033,-0.4211449 0.12033,-0.7420171 0,-0.8823988 -1.12305,-1.1832166 -1.12306,-0.3008177 -1.12306,-0.5013629 0,-0.7821262 0.62169,-1.04283489 0.30082,-0.0200545 0.78213,-0.0601636 0.56153,-0.0601635 2.28621,-0.4612539 Q 140.73083,-2.0861626e-7 140.791,-2.0861626e-7 q 0.42114,0 0.42114,0.38103582861626 0,0.18049066 -1.20327,4.33177578 L 136.09824,18.06912 q 5.03368,-6.357282 9.06464,-6.357282 1.34365,0 2.16589,1.263434 0.72196,1.102999 0.72196,2.52687 z m -2.92796,0.200545 q 0,-1.764798 -1.48403,-1.764798 -2.54693,0 -6.05647,4.331776 -3.42932,4.211449 -3.42932,6.83859 0,1.965343 1.36371,1.965343 2.78758,0 6.25701,-4.311721 3.3491,-4.17134 3.3491,-7.05919 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path851"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 175.36498,14.760125 q 0,3.028232 -3.66997,4.572429 -2.18595,0.902454 -6.29712,1.403817 -0.16044,1.123053 -0.16044,2.145833 0,3.54965 3.46943,3.54965 1.12306,0 2.4266,-1.183217 1.30354,-1.183216 1.22332,-1.183216 0.14039,0 0.46126,0.320872 0.32087,0.300818 0.32087,0.441199 0,0.140382 -0.12033,0.300818 -2.54692,3.429322 -5.89602,3.429322 -2.18595,0 -3.5296,-1.544197 -1.28349,-1.46398 -1.28349,-3.669977 0,-4.612539 2.82769,-8.12208 2.84774,-3.50954 6.61799,-3.50954 1.50409,0 2.50681,0.762072 1.103,0.842289 1.103,2.286215 z m -2.54692,0.220599 q 0,-1.784852 -1.46398,-1.784852 -1.84502,0 -3.54965,2.205997 -1.3236,1.704634 -2.04556,3.890576 7.05919,-0.822235 7.05919,-4.311721 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path855"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 188.96195,14.760125 q 0,3.028232 -3.66998,4.572429 -2.18594,0.902454 -6.29712,1.403817 -0.16043,1.123053 -0.16043,2.145833 0,3.54965 3.46943,3.54965 1.12305,0 2.4266,-1.183217 1.30354,-1.183216 1.22332,-1.183216 0.14038,0 0.46125,0.320872 0.32088,0.300818 0.32088,0.441199 0,0.140382 -0.12033,0.300818 -2.54692,3.429322 -5.89603,3.429322 -2.18594,0 -3.52959,-1.544197 -1.28349,-1.46398 -1.28349,-3.669977 0,-4.612539 2.82768,-8.12208 2.84775,-3.50954 6.618,-3.50954 1.50408,0 2.50681,0.762072 1.103,0.842289 1.103,2.286215 z m -2.54693,0.220599 q 0,-1.784852 -1.46398,-1.784852 -1.84501,0 -3.54964,2.205997 -1.3236,1.704634 -2.04557,3.890576 7.05919,-0.822235 7.05919,-4.311721 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path857"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 204.80502,12.514019 q 0,0.721962 -0.92251,1.704634 -0.36098,0.40109 -6.39739,6.477609 -1.34366,1.283489 -3.7502,3.850467 l 0.36098,0.180491 q 2.72742,1.363707 4.17134,4.411993 0.80218,1.68458 1.48404,1.68458 0.58158,0 1.103,-1.042835 0.54147,-1.042835 1.22332,-1.042835 0.94256,0 0.94256,0.942562 0,1.102999 -1.40381,1.865071 -1.20327,0.641744 -2.4266,0.641744 -1.58431,0 -3.16861,-1.363707 -0.42115,-0.381036 -2.36644,-2.546924 -1.22332,-1.363707 -1.96534,-1.363707 -0.48131,0 -1.12305,0.742017 -0.62169,0.742017 -1.103,0.742017 -0.68185,0 -0.68185,-0.561526 0,-0.4412 1.90518,-2.226052 0.0802,-0.08022 3.32905,-3.369159 1.8049,-1.764797 5.27433,-5.394665 -0.84229,-0.160436 -1.60436,-0.421145 -0.40109,-0.140381 -1.98539,-1.123052 -1.34366,-0.822236 -1.90518,-0.822236 -0.56153,0 -0.94257,0.461254 -0.38103,0.4412 -0.38103,1.002726 0,0.340927 0.34092,0.862344 0.34093,0.501363 0.34093,0.762072 0,0.481308 -0.58158,0.481308 -0.64174,0 -1.103,-0.982671 -0.38103,-0.802181 -0.38103,-1.544198 0,-1.504089 1.12305,-2.647196 1.12305,-1.163162 2.60709,-1.163162 1.20327,0 3.40926,1.24338 2.206,1.223326 3.38922,1.223326 0.70191,0 1.28349,-1.203272 0.58158,-1.203271 1.24338,-1.203271 0.6618,0 0.6618,0.742018 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path859"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 217.6399,14.760125 q 0,3.028232 -3.66997,4.572429 -2.18595,0.902454 -6.29712,1.403817 -0.16044,1.123053 -0.16044,2.145833 0,3.54965 3.46943,3.54965 1.12306,0 2.4266,-1.183217 1.30354,-1.183216 1.22333,-1.183216 0.14038,0 0.46125,0.320872 0.32087,0.300818 0.32087,0.441199 0,0.140382 -0.12032,0.300818 -2.54693,3.429322 -5.89603,3.429322 -2.18595,0 -3.5296,-1.544197 -1.28349,-1.46398 -1.28349,-3.669977 0,-4.612539 2.82769,-8.12208 2.84774,-3.50954 6.61799,-3.50954 1.50409,0 2.50682,0.762072 1.10299,0.842289 1.10299,2.286215 z m -2.54692,0.220599 q 0,-1.784852 -1.46398,-1.784852 -1.84502,0 -3.54965,2.205997 -1.3236,1.704634 -2.04556,3.890576 7.05919,-0.822235 7.05919,-4.311721 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path861"
+       inkscape:connector-curvature="0" />
+  </svg:g>
+  <svg:path
+     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#fa005a;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
+     d="m 16.886254,1.9938812 c -3.910133,-0.022008 -6.9535917,2.245681 -9.0800783,4.662109 -2.0973298,2.383295 -3.833062,5.3337288 -5.6621092,8.9804688 -2.05699735,4.100418 1.0356001,9.111984 5.6230472,9.111328 H 22.208519 c 1.140931,2.016544 2.30672,3.900631 3.666016,5.457031 2.103842,2.40891 5.109808,4.690926 9.011718,4.712891 3.908789,0.02201 6.953047,-2.243435 9.080078,-4.660157 2.097507,-2.383176 3.833076,-5.333755 5.66211,-8.980468 C 51.685439,17.176666 48.59284,12.1651 44.005394,12.165756 H 29.563988 C 28.422971,10.14915 27.258741,8.2650182 25.899925,6.7087242 23.796753,4.2998952 20.789506,2.0158522 16.886254,1.9938812 Z m -0.02344,4.4375 c 2.180149,0.012272 4.038227,1.299637 5.693359,3.1953118 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 a 2.2186407,2.2186407 0 0 0 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 C 27.969301,25.86123 26.721297,23.841706 25.429222,21.46849 A 2.2186407,2.2186407 0 0 0 23.480003,20.310287 H 7.7671137 C 6.2946566,20.310498 5.448665,18.940873 6.1089102,17.62474 7.8599547,14.133521 9.4461247,11.50847 11.138206,9.585677 12.801131,7.6960182 14.689541,6.4191492 16.862816,6.4313812 Z"
+     id="path819"
+     inkscape:connector-curvature="0" />
+  <svg:path
+     inkscape:connector-curvature="0"
+     id="path837"
+     d="m 43.966331,30.257552 c -29.310887,4.106878 -14.655444,2.053439 0,0 z M 16.862814,6.4313812 c 2.180149,0.012272 4.038227,1.299637 5.693359,3.1953118 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 0.388515,0.713988 1.136369,1.158355 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 -1.245075,-1.425619 -2.493079,-3.445143 -3.785154,-5.818359 -0.388515,-0.713988 -1.13637,-1.158355 -1.949219,-1.158203 H 7.7671137 C 6.2946566,20.310498 5.448665,18.940873 6.1089102,17.62474 7.8599547,14.133521 9.4461247,11.50847 11.138206,9.585677 12.801131,7.6960182 14.689541,6.4191492 16.862816,6.4313812 Z"
+     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#ffc500;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
+     sodipodi:nodetypes="cccsccccscsccccscc" />
+</svg:svg>
diff --git a/static/breezewiki-icon-color.svg b/static/breezewiki-icon-color.svg
new file mode 100644
index 00000000..5249b759
--- /dev/null
+++ b/static/breezewiki-icon-color.svg
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<svg:svg
+   xmlns:dc="http://purl.org/dc/elements/1.1/"
+   xmlns:cc="http://creativecommons.org/ns#"
+   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+   xmlns:svg="http://www.w3.org/2000/svg"
+   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
+   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+   height="68.119537"
+   width="68.119537"
+   version="1.1"
+   id="svg912"
+   sodipodi:docname="breezewiki-icon.svg"
+   inkscape:version="0.92.5 (2060ec1f9f, 2020-04-08)"
+   inkscape:export-filename="/tmp/breezewiki-icon.png"
+   inkscape:export-xdpi="721.55511"
+   inkscape:export-ydpi="721.55511">
+  <svg:metadata
+     id="metadata918">
+    <rdf:RDF>
+      <cc:Work
+         rdf:about="">
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type
+           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+        <dc:title />
+      </cc:Work>
+    </rdf:RDF>
+  </svg:metadata>
+  <svg:defs
+     id="defs916" />
+  <sodipodi:namedview
+     pagecolor="#ffffff"
+     bordercolor="#666666"
+     borderopacity="1"
+     objecttolerance="10"
+     gridtolerance="10"
+     guidetolerance="10"
+     inkscape:pageopacity="0"
+     inkscape:pageshadow="2"
+     inkscape:window-width="1882"
+     inkscape:window-height="1059"
+     id="namedview914"
+     showgrid="false"
+     showguides="false"
+     inkscape:zoom="8"
+     inkscape:cx="40.321257"
+     inkscape:cy="38.370751"
+     inkscape:window-x="38"
+     inkscape:window-y="0"
+     inkscape:window-maximized="1"
+     inkscape:current-layer="svg912"
+     showborder="true"
+     inkscape:pagecheckerboard="true"
+     inkscape:snap-bbox="true"
+     inkscape:bbox-nodes="true"
+     inkscape:snap-smooth-nodes="true" />
+  <svg:circle
+     style="opacity:1;fill:#520044;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:8;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:0.75294118;paint-order:stroke fill markers"
+     id="path835"
+     cx="34.059769"
+     cy="34.059769"
+     r="34.059769" />
+  <div
+     id="saka-gui-root">
+    <div>
+      <div>
+        <style />
+      </div>
+    </div>
+  </div>
+  <svg:path
+     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#fa005a;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
+     d="m 25.016194,17.638372 c -3.910133,-0.02201 -6.953592,2.245681 -9.080078,4.662109 -2.09733,2.383295 -3.833062,5.333729 -5.662109,8.980469 -2.0569978,4.100418 1.0356,9.111984 5.623047,9.111328 h 14.441405 c 1.140931,2.016544 2.30672,3.900631 3.666016,5.457031 2.103842,2.40891 5.109808,4.690926 9.011718,4.712891 3.908789,0.02201 6.953047,-2.243435 9.080078,-4.660157 2.097507,-2.383176 3.833076,-5.333755 5.66211,-8.980468 2.056998,-4.100418 -1.035601,-9.111984 -5.623047,-9.111328 H 37.693928 c -1.141017,-2.016606 -2.305247,-3.900738 -3.664063,-5.457032 -2.103172,-2.408829 -5.110419,-4.692872 -9.013671,-4.714843 z m -0.02344,4.4375 c 2.180149,0.01227 4.038227,1.299637 5.693359,3.195312 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 a 2.2186407,2.2186407 0 0 0 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 -1.245075,-1.425619 -2.493079,-3.445143 -3.785154,-5.818359 A 2.2186407,2.2186407 0 0 0 31.609943,35.954778 H 15.897054 c -1.472457,2.11e-4 -2.318449,-1.369414 -1.658204,-2.685547 1.751045,-3.491219 3.337215,-6.11627 5.029296,-8.039063 1.662925,-1.889659 3.551335,-3.166528 5.72461,-3.154296 z"
+     id="path819"
+     inkscape:connector-curvature="0" />
+  <svg:path
+     inkscape:connector-curvature="0"
+     id="path837"
+     d="m 52.096271,45.902043 c -29.310887,4.106878 -14.655444,2.053439 0,0 z M 24.992754,22.075872 c 2.180149,0.01227 4.038227,1.299637 5.693359,3.195312 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 0.388515,0.713988 1.136369,1.158355 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 -1.245075,-1.425619 -2.493079,-3.445143 -3.785154,-5.818359 -0.388515,-0.713988 -1.13637,-1.158355 -1.949219,-1.158203 H 15.897054 c -1.472457,2.11e-4 -2.318449,-1.369414 -1.658204,-2.685547 1.751045,-3.491219 3.337215,-6.11627 5.029296,-8.039063 1.662925,-1.889659 3.551335,-3.166528 5.72461,-3.154296 z"
+     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#ffc500;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
+     sodipodi:nodetypes="cccsccccscsccccscc" />
+</svg:svg>
diff --git a/static/breezewiki-master.svg b/static/breezewiki-master.svg
new file mode 100644
index 00000000..1119dce8
--- /dev/null
+++ b/static/breezewiki-master.svg
@@ -0,0 +1,142 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<svg:svg
+   xmlns:dc="http://purl.org/dc/elements/1.1/"
+   xmlns:cc="http://creativecommons.org/ns#"
+   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+   xmlns:svg="http://www.w3.org/2000/svg"
+   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
+   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+   height="36.41787"
+   width="224.9014"
+   version="1.1"
+   id="svg912"
+   sodipodi:docname="breezewiki-master.svg"
+   inkscape:version="0.92.5 (2060ec1f9f, 2020-04-08)">
+  <svg:metadata
+     id="metadata918">
+    <rdf:RDF>
+      <cc:Work
+         rdf:about="">
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type
+           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+        <dc:title></dc:title>
+      </cc:Work>
+    </rdf:RDF>
+  </svg:metadata>
+  <svg:defs
+     id="defs916" />
+  <sodipodi:namedview
+     pagecolor="#ffffff"
+     bordercolor="#666666"
+     borderopacity="1"
+     objecttolerance="10"
+     gridtolerance="10"
+     guidetolerance="10"
+     inkscape:pageopacity="0"
+     inkscape:pageshadow="2"
+     inkscape:window-width="1882"
+     inkscape:window-height="1059"
+     id="namedview914"
+     showgrid="false"
+     showguides="false"
+     inkscape:zoom="2.8284271"
+     inkscape:cx="123.17581"
+     inkscape:cy="7.7496502"
+     inkscape:window-x="38"
+     inkscape:window-y="0"
+     inkscape:window-maximized="1"
+     inkscape:current-layer="svg912"
+     showborder="true"
+     inkscape:pagecheckerboard="true"
+     inkscape:snap-bbox="true"
+     inkscape:bbox-nodes="true"
+     inkscape:snap-smooth-nodes="true" />
+  <svg:circle
+     style="opacity:1;fill:#520044;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:8;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:0.75294118;paint-order:stroke fill markers"
+     id="path835"
+     cx="25.929829"
+     cy="18.415277"
+     r="34.059769" />
+  <div
+     id="saka-gui-root">
+    <div>
+      <div>
+        <style />
+      </div>
+    </div>
+  </div>
+  <svg:g
+     aria-label="wiki"
+     style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;line-height:2.67644334px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-feature-settings:normal;text-align:start;writing-mode:lr-tb;text-anchor:start;opacity:1;fill:#000000;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+     id="text926"
+     transform="translate(97.9947,1.1875002)">
+    <svg:path
+       d="m 81.588122,13.020001 q 0,0.08533 0,0.298666 -0.04267,0.256001 -0.04267,0.384001 0,0.128 -0.341333,0.213333 -0.810667,0.170667 -0.981334,0.256 -0.341333,0.170667 -0.725333,0.725333 -0.512,0.725334 -1.237333,2.517334 l -4.480001,11.008 q -0.128,0.298667 -0.725333,0.298667 -0.554667,0 -0.682667,-0.298667 l -3.584,-8.874667 -3.626667,8.874667 q -0.128,0.298667 -0.725333,0.298667 -0.554667,0 -0.682667,-0.298667 L 58.846788,16.561334 q -0.554667,-1.322666 -1.066667,-1.92 -0.469333,-0.64 -1.706667,-0.896 -0.341333,-0.08533 -0.341333,-0.256 v -0.725333 q 0,-0.298667 0.298667,-0.298667 0.896,0 2.474666,0.08533 1.749334,0.08533 2.432,0.08533 0,0 4.821334,0 1.152,0 3.456,-0.08533 2.304,-0.08533 3.456,-0.08533 0.341333,0 0.341333,0.469333 0,0.08533 0,0.298667 -0.04267,0.170667 -0.04267,0.256 0,0.256 -0.981334,0.384 -0.981333,0.128 -0.981333,0.682667 0,0.256 0.128,0.597333 l 3.157333,8.064 2.986667,-7.552 q 0.213333,-0.554666 0.213333,-0.938666 0,-0.554667 -0.810666,-0.682667 -0.810667,-0.128 -0.810667,-0.384 v -0.725334 q 0,-0.298666 0.469333,-0.298666 0.384,0 1.194667,0.128 0.810667,0.08533 1.194667,0.08533 0.426667,0 1.194667,-0.08533 0.768,-0.128 1.024,-0.128 0.64,0 0.64,0.384 z m -13.525334,4.693333 -0.853333,-2.133333 q -0.554667,-1.408 -2.517334,-1.408 h -1.536 q -0.810667,0 -0.810667,0.64 0,0.256 0.128,0.597333 l 3.242667,8.149334 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';text-align:start;text-anchor:start;fill:#000000;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+       id="path842"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 91.700066,5.6813339 q 0,1.1093334 -0.768,1.8773334 -0.768,0.768 -1.877333,0.768 -1.109333,0 -1.877333,-0.768 -0.768,-0.768 -0.768,-1.8773334 0,-1.1093333 0.768,-1.8773334 0.768,-0.768 1.877333,-0.768 1.109333,0 1.877333,0.768 0.768,0.7680001 0.768,1.8773334 z m 1.706667,22.3573341 q 0,0.298667 -0.298667,0.298667 -0.298666,0 -0.298666,0 -1.962667,-0.170667 -3.669334,-0.170667 -1.621333,0 -3.584,0.170667 0,0 -0.170666,0 -0.469334,0 -0.469334,-0.426667 0,-0.08533 0.04267,-0.298667 0,-0.213333 0,-0.298666 0,-0.256 0.853333,-0.384 0.853334,-0.128 1.066667,-0.554667 0.256,-0.469333 0.256,-1.834667 v -6.528 q 0,-1.322667 -0.256,-1.749333 -0.170667,-0.298667 -1.109333,-0.682667 -0.896,-0.384 -0.896,-0.768 0,-0.256 0.128,-0.469333 0.04267,-0.08533 2.858666,-1.194667 2.816,-1.152 3.029334,-1.152 0.341333,0 0.341333,0.341333 v 11.904 q 0,1.749334 0.170667,2.090667 0.256,0.469334 1.109333,0.597334 0.896,0.128 0.896,0.384 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';text-align:start;text-anchor:start;fill:#000000;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+       id="path844"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 114.52672,27.526668 q 0,0.810667 -0.29867,0.810667 -0.59733,0 -1.87733,-0.08533 -1.23733,-0.08533 -1.87733,-0.08533 -0.59734,0 -1.83467,0.08533 -1.19467,0.08533 -1.792,0.08533 -0.384,0 -0.384,-0.469334 0,-0.08533 0.0427,-0.298666 0,-0.170667 0,-0.256 0,-0.256 0.55466,-0.341334 0.59734,-0.128 0.59734,-0.512 0,-0.298666 -0.512,-1.152 l -3.24267,-5.418667 -1.87733,1.408 v 3.2 q 0,1.408001 0.21333,1.877334 0.21333,0.426667 1.152,0.554667 0.81067,0.128 0.81067,0.384 v 0.725333 q 0,0.298667 -0.59734,0.298667 -0.59733,0 -1.83466,-0.08533 -1.19467,-0.08533 -1.792004,-0.08533 -0.597333,0 -1.834667,0.08533 -1.194666,0.08533 -1.792,0.08533 -0.597333,0 -0.597333,-0.426667 v -0.597333 q 0,-0.256 0.853333,-0.384 0.853334,-0.128 1.066667,-0.554667 0.256,-0.469333 0.256,-1.834667 V 6.4920006 q 0,-1.3226667 -0.256,-1.7493334 -0.170667,-0.2986666 -1.109333,-0.6826666 -0.896001,-0.3840001 -0.896001,-0.7680001 0,-0.256 0.128,-0.4693333 0.04267,-0.085333 2.858667,-1.1946667 2.816001,-1.15200005 3.029331,-1.15200005 0.34134,0 0.34134,0.34133334 V 19.718668 q 5.71733,-4.309334 5.71733,-5.290667 0,-0.682667 -1.792,-0.682667 -0.46933,0 -0.46933,-0.512 0,-0.768 0.42666,-0.768 0.55467,0 1.70667,0.08533 1.19467,0.08533 1.74933,0.08533 0.55467,0 1.70667,-0.08533 1.152,-0.08533 1.70667,-0.08533 0.42666,0 0.42666,0.469333 0,0.08533 0,0.298667 -0.0427,0.170667 -0.0427,0.298667 0,0.128 -0.384,0.213333 -0.64,0.08533 -1.83467,0.426667 -0.512,0.213333 -2.048,1.578667 -1.024,0.896 -2.09067,1.834666 l 4.224,6.656 q 1.57867,2.474667 2.60267,2.688001 0.29867,0.04267 0.59733,0.128 0.29867,0.08533 0.29867,0.469333 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';text-align:start;text-anchor:start;fill:#000000;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+       id="path846"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 123.69999,5.6813339 q 0,1.1093334 -0.768,1.8773334 -0.768,0.768 -1.87734,0.768 -1.10933,0 -1.87733,-0.768 -0.768,-0.768 -0.768,-1.8773334 0,-1.1093333 0.768,-1.8773334 0.768,-0.768 1.87733,-0.768 1.10934,0 1.87734,0.768 0.768,0.7680001 0.768,1.8773334 z m 1.70666,22.3573341 q 0,0.298667 -0.29866,0.298667 -0.29867,0 -0.29867,0 -1.96267,-0.170667 -3.66933,-0.170667 -1.62134,0 -3.584,0.170667 0,0 -0.17067,0 -0.46933,0 -0.46933,-0.426667 0,-0.08533 0.0427,-0.298667 0,-0.213333 0,-0.298666 0,-0.256 0.85334,-0.384 0.85333,-0.128 1.06666,-0.554667 0.256,-0.469333 0.256,-1.834667 v -6.528 q 0,-1.322667 -0.256,-1.749333 -0.17066,-0.298667 -1.10933,-0.682667 -0.896,-0.384 -0.896,-0.768 0,-0.256 0.128,-0.469333 0.0427,-0.08533 2.85867,-1.194667 2.816,-1.152 3.02933,-1.152 0.34133,0 0.34133,0.341333 v 11.904 q 0,1.749334 0.17067,2.090667 0.256,0.469334 1.10933,0.597334 0.896,0.128 0.896,0.384 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:42.66666794px;font-family:Alfios;-inkscape-font-specification:'Alfios Bold';text-align:start;text-anchor:start;fill:#000000;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+       id="path848"
+       inkscape:connector-curvature="0" />
+  </svg:g>
+  <svg:g
+     aria-label="breeze"
+     style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;line-height:2.57638931px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-feature-settings:normal;text-align:start;writing-mode:lr-tb;text-anchor:start;opacity:1;fill:#252525;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:0.72772277;paint-order:stroke fill markers"
+     id="text930"
+     transform="translate(-69.005304,1.5000002)">
+    <svg:path
+       d="m 162.59026,13.697235 q 0,0.782126 -0.48131,1.363707 -0.46126,0.581581 -1.22333,0.581581 -0.46125,0 -0.92251,-0.421145 -0.44119,-0.421144 -0.80218,-0.421144 -0.16043,0 -0.9225,0.80218 -1.28349,1.323598 -2.68731,3.690031 -1.34365,2.266161 -2.00545,4.111176 -0.48131,1.504089 -1.52414,4.452103 -0.28077,0.701908 -0.80219,0.701908 -0.50136,0 -0.98267,-0.240654 -0.58158,-0.280763 -0.58158,-0.721962 0,-0.180491 0.10028,-0.461254 l 2.52686,-7.259736 q 0.8824,-2.526869 0.8824,-4.111176 0,-1.383761 -0.80218,-1.383761 -1.103,0 -2.08567,1.263434 -0.96261,1.263435 -0.98267,1.263435 -0.14038,0 -0.46125,-0.2206 -0.32087,-0.240654 -0.32087,-0.381036 0,-0.140381 0.0802,-0.280763 0.80218,-1.383762 1.88513,-2.607087 1.50409,-1.664525 2.52687,-1.664525 2.12578,0 2.12578,3.10845 0,1.443925 -0.42115,3.288941 3.9708,-6.4375 6.05647,-6.4375 0.76207,0 1.28348,0.601635 0.54148,0.601636 0.54148,1.383762 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path853"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 148.05073,15.502142 q 0,4.672702 -5.71554,9.485786 -4.25155,3.569704 -7.74104,3.569704 -1.38376,0 -2.24611,-0.661799 -0.96261,-0.721962 -0.96261,-2.065615 0,-0.561526 0.20054,-1.24338 l 5.85592,-20.1748444 q 0.12033,-0.4211449 0.12033,-0.7420171 0,-0.8823988 -1.12305,-1.1832166 -1.12306,-0.3008177 -1.12306,-0.5013629 0,-0.7821262 0.62169,-1.04283489 0.30082,-0.0200545 0.78213,-0.0601636 0.56153,-0.0601635 2.28621,-0.4612539 Q 140.73083,-2.0861626e-7 140.791,-2.0861626e-7 q 0.42114,0 0.42114,0.38103582861626 0,0.18049066 -1.20327,4.33177578 L 136.09824,18.06912 q 5.03368,-6.357282 9.06464,-6.357282 1.34365,0 2.16589,1.263434 0.72196,1.102999 0.72196,2.52687 z m -2.92796,0.200545 q 0,-1.764798 -1.48403,-1.764798 -2.54693,0 -6.05647,4.331776 -3.42932,4.211449 -3.42932,6.83859 0,1.965343 1.36371,1.965343 2.78758,0 6.25701,-4.311721 3.3491,-4.17134 3.3491,-7.05919 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path851"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 175.36498,14.760125 q 0,3.028232 -3.66997,4.572429 -2.18595,0.902454 -6.29712,1.403817 -0.16044,1.123053 -0.16044,2.145833 0,3.54965 3.46943,3.54965 1.12306,0 2.4266,-1.183217 1.30354,-1.183216 1.22332,-1.183216 0.14039,0 0.46126,0.320872 0.32087,0.300818 0.32087,0.441199 0,0.140382 -0.12033,0.300818 -2.54692,3.429322 -5.89602,3.429322 -2.18595,0 -3.5296,-1.544197 -1.28349,-1.46398 -1.28349,-3.669977 0,-4.612539 2.82769,-8.12208 2.84774,-3.50954 6.61799,-3.50954 1.50409,0 2.50681,0.762072 1.103,0.842289 1.103,2.286215 z m -2.54692,0.220599 q 0,-1.784852 -1.46398,-1.784852 -1.84502,0 -3.54965,2.205997 -1.3236,1.704634 -2.04556,3.890576 7.05919,-0.822235 7.05919,-4.311721 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path855"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 188.96195,14.760125 q 0,3.028232 -3.66998,4.572429 -2.18594,0.902454 -6.29712,1.403817 -0.16043,1.123053 -0.16043,2.145833 0,3.54965 3.46943,3.54965 1.12305,0 2.4266,-1.183217 1.30354,-1.183216 1.22332,-1.183216 0.14038,0 0.46125,0.320872 0.32088,0.300818 0.32088,0.441199 0,0.140382 -0.12033,0.300818 -2.54692,3.429322 -5.89603,3.429322 -2.18594,0 -3.52959,-1.544197 -1.28349,-1.46398 -1.28349,-3.669977 0,-4.612539 2.82768,-8.12208 2.84775,-3.50954 6.618,-3.50954 1.50408,0 2.50681,0.762072 1.103,0.842289 1.103,2.286215 z m -2.54693,0.220599 q 0,-1.784852 -1.46398,-1.784852 -1.84501,0 -3.54964,2.205997 -1.3236,1.704634 -2.04557,3.890576 7.05919,-0.822235 7.05919,-4.311721 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path857"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 204.80502,12.514019 q 0,0.721962 -0.92251,1.704634 -0.36098,0.40109 -6.39739,6.477609 -1.34366,1.283489 -3.7502,3.850467 l 0.36098,0.180491 q 2.72742,1.363707 4.17134,4.411993 0.80218,1.68458 1.48404,1.68458 0.58158,0 1.103,-1.042835 0.54147,-1.042835 1.22332,-1.042835 0.94256,0 0.94256,0.942562 0,1.102999 -1.40381,1.865071 -1.20327,0.641744 -2.4266,0.641744 -1.58431,0 -3.16861,-1.363707 -0.42115,-0.381036 -2.36644,-2.546924 -1.22332,-1.363707 -1.96534,-1.363707 -0.48131,0 -1.12305,0.742017 -0.62169,0.742017 -1.103,0.742017 -0.68185,0 -0.68185,-0.561526 0,-0.4412 1.90518,-2.226052 0.0802,-0.08022 3.32905,-3.369159 1.8049,-1.764797 5.27433,-5.394665 -0.84229,-0.160436 -1.60436,-0.421145 -0.40109,-0.140381 -1.98539,-1.123052 -1.34366,-0.822236 -1.90518,-0.822236 -0.56153,0 -0.94257,0.461254 -0.38103,0.4412 -0.38103,1.002726 0,0.340927 0.34092,0.862344 0.34093,0.501363 0.34093,0.762072 0,0.481308 -0.58158,0.481308 -0.64174,0 -1.103,-0.982671 -0.38103,-0.802181 -0.38103,-1.544198 0,-1.504089 1.12305,-2.647196 1.12305,-1.163162 2.60709,-1.163162 1.20327,0 3.40926,1.24338 2.206,1.223326 3.38922,1.223326 0.70191,0 1.28349,-1.203272 0.58158,-1.203271 1.24338,-1.203271 0.6618,0 0.6618,0.742018 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path859"
+       inkscape:connector-curvature="0" />
+    <svg:path
+       d="m 217.6399,14.760125 q 0,3.028232 -3.66997,4.572429 -2.18595,0.902454 -6.29712,1.403817 -0.16044,1.123053 -0.16044,2.145833 0,3.54965 3.46943,3.54965 1.12306,0 2.4266,-1.183217 1.30354,-1.183216 1.22333,-1.183216 0.14038,0 0.46125,0.320872 0.32087,0.300818 0.32087,0.441199 0,0.140382 -0.12032,0.300818 -2.54693,3.429322 -5.89603,3.429322 -2.18595,0 -3.5296,-1.544197 -1.28349,-1.46398 -1.28349,-3.669977 0,-4.612539 2.82769,-8.12208 2.84774,-3.50954 6.61799,-3.50954 1.50409,0 2.50682,0.762072 1.10299,0.842289 1.10299,2.286215 z m -2.54692,0.220599 q 0,-1.784852 -1.46398,-1.784852 -1.84502,0 -3.54965,2.205997 -1.3236,1.704634 -2.04556,3.890576 7.05919,-0.822235 7.05919,-4.311721 z"
+       style="font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-size:41.07165146px;font-family:Alexander;-inkscape-font-specification:'Alexander Bold';text-align:start;writing-mode:lr-tb;text-anchor:start;fill:#252525;fill-opacity:1;stroke:#ffffff;stroke-width:3;stroke-opacity:0.72772277"
+       id="path861"
+       inkscape:connector-curvature="0" />
+  </svg:g>
+  <svg:path
+     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#fa005a;fill-opacity:1;fill-rule:nonzero;stroke:#ffffff;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
+     d="m 16.886254,1.9938812 c -3.910133,-0.022008 -6.9535917,2.245681 -9.0800783,4.662109 -2.0973298,2.383295 -3.833062,5.3337288 -5.6621092,8.9804688 -2.05699735,4.100418 1.0356001,9.111984 5.6230472,9.111328 H 22.208519 c 1.140931,2.016544 2.30672,3.900631 3.666016,5.457031 2.103842,2.40891 5.109808,4.690926 9.011718,4.712891 3.908789,0.02201 6.953047,-2.243435 9.080078,-4.660157 2.097507,-2.383176 3.833076,-5.333755 5.66211,-8.980468 C 51.685439,17.176666 48.59284,12.1651 44.005394,12.165756 H 29.563988 C 28.422971,10.14915 27.258741,8.2650182 25.899925,6.7087242 23.796753,4.2998952 20.789506,2.0158522 16.886254,1.9938812 Z m -0.02344,4.4375 c 2.180149,0.012272 4.038227,1.299637 5.693359,3.1953118 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 a 2.2186407,2.2186407 0 0 0 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 C 27.969301,25.86123 26.721297,23.841706 25.429222,21.46849 A 2.2186407,2.2186407 0 0 0 23.480003,20.310287 H 7.7671137 C 6.2946566,20.310498 5.448665,18.940873 6.1089102,17.62474 7.8599547,14.133521 9.4461247,11.50847 11.138206,9.585677 12.801131,7.6960182 14.689541,6.4191492 16.862816,6.4313812 Z"
+     id="path819"
+     inkscape:connector-curvature="0" />
+  <svg:path
+     inkscape:connector-curvature="0"
+     id="path837"
+     d="m 43.966331,30.257552 c -29.310887,4.106878 -14.655444,2.053439 0,0 z M 16.862814,6.4313812 c 2.180149,0.012272 4.038227,1.299637 5.693359,3.1953118 1.245218,1.426187 2.495246,3.44536 3.78711,5.818359 0.388515,0.713988 1.136369,1.158355 1.949218,1.158204 h 15.712891 c 1.472457,-2.11e-4 2.318449,1.369414 1.658203,2.685546 -1.751077,3.491284 -3.337367,6.116702 -5.029297,8.039063 -1.662405,1.888817 -3.551482,3.164578 -5.724609,3.152344 -2.180003,-0.01227 -4.040284,-1.298343 -5.695313,-3.19336 -1.245075,-1.425619 -2.493079,-3.445143 -3.785154,-5.818359 -0.388515,-0.713988 -1.13637,-1.158355 -1.949219,-1.158203 H 7.7671137 C 6.2946566,20.310498 5.448665,18.940873 6.1089102,17.62474 7.8599547,14.133521 9.4461247,11.50847 11.138206,9.585677 12.801131,7.6960182 14.689541,6.4191492 16.862816,6.4313812 Z"
+     style="color:#000000;font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:medium;line-height:normal;font-family:sans-serif;font-variant-ligatures:normal;font-variant-position:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-alternates:normal;font-feature-settings:normal;text-indent:0;text-align:start;text-decoration:none;text-decoration-line:none;text-decoration-style:solid;text-decoration-color:#000000;letter-spacing:normal;word-spacing:normal;text-transform:none;writing-mode:lr-tb;direction:ltr;text-orientation:mixed;dominant-baseline:auto;baseline-shift:baseline;text-anchor:start;white-space:normal;shape-padding:0;clip-rule:nonzero;display:inline;overflow:visible;visibility:visible;opacity:1;isolation:auto;mix-blend-mode:normal;color-interpolation:sRGB;color-interpolation-filters:linearRGB;solid-color:#000000;solid-opacity:1;vector-effect:none;fill:#ffc500;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:3;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-dasharray:none;stroke-dashoffset:0;stroke-opacity:0.72772277;paint-order:stroke fill markers;color-rendering:auto;image-rendering:auto;shape-rendering:auto;text-rendering:auto;enable-background:accumulate"
+     sodipodi:nodetypes="cccsccccscsccccscc" />
+</svg:svg>
diff --git a/static/internal.css b/static/internal.css
index 3b9a0376..3ca3d385 100644
--- a/static/internal.css
+++ b/static/internal.css
@@ -24,7 +24,7 @@
     --theme-body-background-color: #286cab;
     --theme-body-background-color--rgb: 40,108,171;
     
-    --theme-body-text-color: #fff;
+    --theme-body-text-color: #000;
     --theme-body-text-color--rgb: 255,255,255;
     --theme-body-text-color--hover: #cccccc;
     --theme-sticky-nav-background-color: #ffffff;
diff --git a/static/main.css b/static/main.css
index 4fefe0f3..ff18c4b1 100644
--- a/static/main.css
+++ b/static/main.css
@@ -31,6 +31,8 @@ body.skin-fandomdesktop, button, input, textarea, .wikitable, .va-table {
     font-family: "Source Sans Pro", "Segoe UI", sans-serif;
     font-size: 18px;
     line-height: 1.5;
+    margin: 0;
+    padding: 0;
 }
 h1, h2, h3, h4, h5, h6 {
     margin: 1.2em 0 0.6em;
@@ -67,6 +69,25 @@ p {
     max-width: 240px;
 }
 
+/* global top banner message */
+.bw-top-banner {
+    display: flex;
+    justify-content: space-evenly;
+    align-items: center;
+    background-color: #000;
+    color: #fff;
+    text-align: center;
+    white-space: pre-line;
+    padding: 8px;
+}
+.bw-top-banner a, .bw-top-banner a:visited {
+    color: #ffdd57;
+    text-decoration: underline;
+}
+.bw-top-banner-rainbow {
+    animation: bw-rainbow-color 1.6s linear infinite;
+}
+
 /* custom footer with source and license info */
 .custom-footer {
     clear: both;
@@ -338,8 +359,11 @@ figcaption, .lightbox-caption, .thumbcaption {
     border-radius: 6px;
     font-size: 18px;
 }
+.niwa__notice--alt {
+    background: #e5fdd8;
+}
 .niwa__header {
-    font-size: max(2.9vw, 26px);
+    font-size: max(2.75vw, 26px);
     margin-top: 0;
 }
 .niwa__notice a {
@@ -403,6 +427,10 @@ figcaption, .lightbox-caption, .thumbcaption {
     .niwa__right {
         display: none;
     }
+    /* remove balloons in top banner */
+    .bw-balloon {
+        display: none;
+    }
 }
 
 @media (min-width: 560px) { /* wider than 560 px */
@@ -418,6 +446,16 @@ figcaption, .lightbox-caption, .thumbcaption {
         width: auto !important;
         text-align: center !important;
     }
+    /* make text content hit the edges of the screen (no space for the background) */
+    .page {
+        margin: 0;
+    }
+    .page__main {
+        background: linear-gradient(to bottom, rgba(var(--theme-page-background-color--rgb), 0), rgba(var(--theme-page-background-color--rgb), 1) 160px);
+    }
+    .page-title {
+        color: var(--theme-body-text-color);
+    }
 }
 
 /* *****
@@ -456,3 +494,12 @@ figcaption, .lightbox-caption, .thumbcaption {
   font-display: swap;
   src: url("/static/source-sans-pro-v21-vietnamese_latin-ext_latin_greek-ext_greek_cyrillic-ext_cyrillic-700italic.woff2") format("woff2");
 }
+
+@keyframes bw-rainbow-color {
+    0% {
+        filter: hue-rotate(0deg);
+    }
+    100% {
+        filter: hue-rotate(360deg);
+    }
+}
diff --git a/static/three-balloons.png b/static/three-balloons.png
new file mode 100644
index 0000000000000000000000000000000000000000..616d527e1ad42e0777d6c24ed9594d09a72b1a61
GIT binary patch
literal 6316
zcmai2Wl$8}*Iq)(CBy}mPM6kQI+pG(DUk;0?nOXK`bR1aOG_%C3z7=BboWvUN_VaF
z%WwYk|L}fz=e=>x+<VS*o;i2U+?jjhbhTATN$5xb0060)s-phA7P_BeL<IM;p=BZE
zUg0~)X~_Wq^~n#ftsmU4S!`AHwEzGF1ORvw1pr*$Z@t+B0Q{f;z_t|tAdv+C(0Jyx
z=)vy|1U4Efih$dH`wn<2;(mwNQ`OW503bR1cjCy`2;I8_2z}MGln6I)@k!XhY4*=F
z?<3%<Dat)}TprF2PO&%kTMoPO8u>c9UvS@pVri2~AITGi+sP8)5HRRLy0QRDEO7?h
zxgaH*8VY@UhTLOzH95^PDEJd21qWC^<qgab0ta;&urMK5@0*iyNzmEQsqab$w(We`
z<xleDDwQiV(ZIs6_42&EY5#>~h)ameo*z&q+Wct6BHX|rO0&@MAy&Td!oeQRI8;J=
zHa$tv1S!AxNBN=#a`BM!yqdqh<u<}{-MH|$tq}c3$93J~_)o>+p?YX#$J{mc);zN;
zaVJyRXLLohsllg1)J~dt!Z<ljeeZFAccPkbN#4-RLd(r(NQg>yPHx-T(SByfPHX2y
z<;JxnO8Vkp_^`ovXaV%BadWL!n9wzq-^2r#oAGgKtKup3+R~$p(;Bn8!BMi!@q;S|
zt0|3cnbY=bY-Yf&nCG97hx4Kq)?){PLk~#`*ODGY6HahzH$9#Z@;s=F5o@gXg18Jz
z@)CRCNS!Qr^m~eiJ#4o+V9K4)X#4Zz0vY&HdOztJ+Pi1|*5V&`?YMMP;N-Td^C~At
z8GY&Ik_|_Hqx)q^r#KROb3%T|dvK?6{cCMyzV#O-*V6s{$(`r;a)?jnzRb6QI{Wo?
zmBeFdyxd7aCJ#P>$k;Jeq$|Dl(2ThEF@CRhK?-5H3$tWxW7y3RO+`#+kj2Gd_OG)a
zp8~r)@8TIP+G3XL82@^aPY&wJrcva|`XS`oQF1<a<7-DlziZR%4_M0k!|$$lcEi^H
zgh?UkE$*Zd%qNPOmr`ced7}H6$p)|KR7QsaiMes+XMM4*CRSJ)kPcW7F@akW!j2e8
zuk5ar(~VFQ%Hb-rFUj^=9dg<i3zZ><zus)@yft&!f5AO0!?>5jJSv5FR&parTQijY
z4EU);x_m=#Lze|o#7)0FoOVo)g|@DRKR4XE>A#w#OHD77@`_lIJ|1T#-84@QBd>K^
zVgVLNY@XFIAArqwHX6Uq%O@2EoW?wu7h+$gciMUHl&6PfZ+94~zwTP9vG_dH2b!W2
zbKy~UtBlRSFP~@#^-a1AkRB;3g#YMJ*|R=cl}ZeF2AvZ}KLgg6;4+?CEyl><EEl1X
z#ZfI~Z8wsdov%6RRYnDJg_u+L!l-z5bnY<Bct1OshYI26=CSYOj2t>)o;OYVZN3+A
zgT_y3=5O<&Lr!*=n-cPaGffwp`W6SWq94+jAciQV`r~3WQ0}Ijg%amXCQo?b25ujS
zK6AWCk98aD%IzGuC6|%)_-QiN{%v4_AyO~7=Fr698@P`FL<<rJi9@hi@NTTY@t>gU
zef!-&Rk;6pgIKkiv&_}8x$yugr~3sHGC+D?N9`%8+g7Lp9DKJPl)NO^v~ko5<|8}u
zp&jH+7<x7;xCkqiS#fA~==1dZ=4sv6Rq$Zlc)h=;@%D$GNavThVAte%F<mDOg;J46
zSNmpjN2rgm4bn&^F47Wsi42of+jkRP7v$mCprq~%!`qwvux~*z%;bj;*`LGQsF*9z
zi`E1`+CR2jwvdgPJq?j;Z1WCXwGgCBv}n3hyE<;qJg|0hBIX9koC1|YUXEImMDEN#
z1@O(72;{>0E)%cV*AcX5#!X`9!|7AWO`lKH?J2i*RI<Wu?p}5LGjtXMY=oi7Rh5!2
zZizN<s(<pIHXOi&wr$^2L%Ug#V+4s@%VvvRv5w}?T;B(u_F;M_K36RT-`*D1pZ%m3
zY1yDg1)eMqo&&Mw{!G;gyuX9c93#-|?;rva1(D2OG*T#s6yz8W-5aEx*^`jC#7o*?
z{>L->k{UjS+O~9WJI`pTJ*2w-xfLjRoyy1jt3g_h|0~&MHcm5sw!hUe(3|{*>6JVF
zvciJ=lDsBZPrv~>GXejM63x$Ew8tE31$>dt&!~99e6wJ5{?yX@mg;K0y)D5jtfz*1
zK3?#pHSFtsQC!%(wLH&SWU*%(ro`~H7=A}nL+D=qa?E{uj^d^_jC6<h3@jX2jq|~V
z-p<urwP*0As<Oc*q%nb-kTFq4@WD4s9Rvd~BxRM?Orcc9&kUNVB%Ngv&;Qc>tM~OB
z(OkhrSus~Zi}x>W|DiqP!6gOI-jrQg0)m?b&?j-qVd1G%FJ*CL&zc85rc_K&<nli^
zsoQY8^-egCB!^j&ZjmFvgxjdeL9Te+X+d?7t=>oRy`=P91KJEV;b2L0&0dr#C=FR`
z7wzEg7v8Y(G2ZXWq;P#LYogP&8G3p$cyj8-{20ilZjR#MRISZoNTcc6lC7fTigIF^
zCgx|?<b4T92h<NGZEWVte4BZ1fZgQ`;GcOg<!?2`!-Gqf26;7|(Q)>Hdu)whGS}Zq
zktM3GAn!odbRnGb2Uwv4$`;^Wk@*)`==`<IwqTAK%cUQl2l8!7ds$qG*Uw{@l4lj`
z2y%7$F6)R_MCtp&c95EsEEg3?5&3xZ8j&o)uRCuJ9C`$06hu36@)1yc_$()%phhgt
z+FXS9?w|Zu^t$Wc#Xpg?^@=4!<cd@NWDh&mou~cIo@rKEdUHGyAIMTXs2(q0^SB>^
zi&H|76fZ=*)`SzSTJr$H-$7|3(3~L)Bp@Wg2%SdSuNpc10X-m%_cvcM1x7q7n^w(G
zEGKx3-{}6`t;j9P8m}GqnBf{_1$qFo%Ih6Y?lTVfIa`r@#D@5CMy;Lz3}-D>hN8#b
z^VfbBYRoC-0gsS-O2rKF#Z$_2Jov7~jxywUqPPj5jeH-c>{1h{c{PM#{JY9U_aM!x
z$F>azPmNNJGW$f8eoQcakS>uZD)t<=+}Kw(?adpWF+n?@kobq^DNA8CO~&I1{P&gr
z%8`P~hS6*0(SWLWEexDvjf9&EHc6mqI;yqQ9B~)8F#fb`X|jAX91ZACS;Jl;k_jGc
z_N|JVDzF7$5eeF+O+l9umuo_q2)8|U6f|Yk^NpObgy4sbPE9(aWD@gvuZ5yN9S|Zq
z$M_bN^jVR_p{PNV+}H}Vf?cxAOdYl7QePL;WdUpM<~ibOQ9NqMw&sv}SuZ=8r#z8@
zREV$HpMdzJm{G)dk<~MOGAFIF;l*n#KRLQl2|e_Ke+_@V0j^V9=9K`Ie8OW(MUg~-
z`UH}b2uclDYe9Ykmq(3u?|NShb~zT|QSn1eRFO~c<6K8XxV5<unAIuUt*K`@L6=Hh
zAn{X%ob0-C`K~#jP-J<vDKA--w^>z_&bB_?o^}pOC`P+T&Qq;Khex^A2L9O(nfe~`
z<#$?%oLWu_l8ZR9X!-sa`QAHMe@|pIwPpo7$~9%QR5@)^i$o_S&84aWfO0W&uOG$(
z4FZK4Kk#J5)&~)Cg~t)6MH{IWp_PAR;N&T-_m1h9;B3HO8L=0G$Kz<U-tEoHCC0Tl
z_ZcX#ic4*!K1o*Giq~nPG6s4HTGyr#M1UP_i|2DvVsLZeT9Z~b0ppQTRV)A^IqyDi
z*8=NfH`zD!WDXBi$<o-=oL=GB$O@$reh*e5k@qQ=PpC0KG5Y+idII^u)hqSB(b-<t
zSU70l2*$2MtHi@4|BpfPtB8J5h@jX3w4Aq3L?|m;4&{t+Q^>_t=4WG!1aFnnQ%Jl|
z7fU<<qy}rwn6FNilj%Y!9{AznaBx87x$tbF=ae}NKgjza;`c4&cjjPGUl(G)WLhJx
zd;Az_{}EOT&t-Q}k;p-QZiAQm_ZK!IrjfcNMc<CPJPQe0m4GNhF<vDzfP8OA%U3O>
z??H*!6#EoO;KEH0wfVake2Z@{d|Qn;h$E0y9{|o{JY#TAT;d2tDxhePoO|`cWljU%
z5&E%Pmz_C9$x-Yr)ImeT)w=#`w*$2czj7<?H1dO9soLKuEe>UVWh%e&YWs0_$kfyW
zdp@z4Gg>>QF9ez2av1dS3%@};QRy3}u>(5+lXs7z(>Y2-iqvNMu4&rnZftn>K2Fzf
zf1R-QR(K`#b^SNQL5vRS!Yf2*Z1QqnLKduv?-vhN`eAFk$zj-1P&$*sw=^Zk#)gc;
zw?h|=SSR4F@nwTG2awb5pX<r|%!i8!ruUQwuy$tYu8r)m$A*HtOMj9?MSCF(bv9>?
z4pPzx@BYd!MM&!ma$36(=Sg`S)F-hGiMKYQj&vZ(xjkaprUx82wRn206puh2_=c=i
zHnl&_NM07Caz6Z0{4`>oNj6`0_ni2Whz^Ei+~FpIDGE7vU6BtSHNFd3^kEJbOO-aL
zh=<GwRhDZDe-RSGP-t2SG5jQnT*r;J30|t5KHK%@c~N?pB3aW2hB;CeE9Ynu<-}tC
zbk-9qQs_a=F<*;Wco9FPoEg<=K4YRLaOA`7TAVmYCLsE%Jt?YHO}~~nhd(6WpjF(d
zzFZa=VTL6PpVycFGcEGzt;F=tcfUT}7al179CS${g@mSr2NGo~wWp~@frz<vuM`zn
zoY<VYFmIIQCjEISBB>IDnS{xNsr4cq6@`#`<91_2l<z>4m0CR%t)>EM`prdf|Lsz9
zy0w@SJl9v90#brkfs8wu;%og1%2YhZS?Lvtd_jnArhby&5sVRE2;AgeR=8Gb4b_YZ
zhRY(8mU_nL2sS7wDf_vWQRXRntPup?sh3bHREm<+&s~HFgg8EHnGeMIccf9Iv#0?&
z?2dO8E(XYqq)(XZbzZN()6~{+UK?f>#^lx5D$%MBl$ScI51>kc!mJPC;R@|mgao1+
zpV%X5Bgmpm6w5`R>|+xX>I#qP)w#LNSsXc>dM1%tvKZAWydvjuBO+FREjTe-YN??9
z<JL*#(mk*fMwOloLL#!&^8&l>>yKy&oEmZGJ>3Wh&2p%L=SIo|{2EVJ(N0P)bpQ*a
z#Tu6a_|O6L@Z4N?RsL@@WUicLuqXPlLR!eDW}1__qQZtBKG<sU@|RQ9B=M2GYEE>Y
zU6+~(&hrD~EO2~wO*!YQ$FOL*lsc!T5UDxZaFj=Bz2S1+m0Vg~l=RZ}UpXaQF%w#D
zJ9~1T-ys{azfa;87*X}o5!tGTi1Z@(Lb9B427l@ko9ZSjA0LMzU4r<{=w=GaOO-hD
zVCM8)B71sbd-O#fJVc8pp4cs?)2h4&J`bOA)fcV!Aj<i9GEG+`3QWwMnucU!WU=kA
zLfi^h)`*^mT<LVQ@|`8O&G{`qWkUSy%NbqrK)LyRuYu8E8VsQ6v{T&MR3!EpkxjJU
z3DSscDEpNoh%+*Vx)MWoomt9dQ)G8CmfVu6U3wG-=v<9Tq}iWntkI<nId*fe+C^x)
ze0Cla@g-Glb^U}3_E8nYde~P>V_J6si+AmN2LYlLg_c*qQK`Rh_u#+hwi@j}*je9N
z>W+ukC%Zbfgidff&sHgr2o=diOk{*_&1BT}Q=6GRNq0($A{duV>7!i`*kpY5HK!Pj
z^M2^k{dE$R76wV|plT*Ku@20hahzs@6{)paa71($cr9C6%J}{^xVQ)wJKzmF#B04^
zo^uO3n%Zb~Kf7RPJ1!2MWwJ2yQ1~14JUICc1(jkeI_tS?#uSMg6<3ow3SyRF_T<k@
zVy&r?6D7o;+;1=>A@}v#K*`Gs-EVKxta$Q{z;XEIoYDLfHS#ERJAKy1oGIn!5@E4v
z)|{s6mb0C^*I3*3g0NBMI~g7AMe@$0vw33^DU>l)yE#W~FQ~AtSV~ScEf$uh&-OzV
z7!Ib?nr`?aUX=Iz`8~0b+JaClO_iyZW><c)G@74q6l!e7<ik)*ps7#vsM5t|x}LI0
zU4NcMYtE?c=`e}y=;csn$K2P${qr7#gy&syX#7U#RBk}2S<vydfuDQtqMM;%z9VMc
zIZgmXWfR{cLV=N8z|UzZs-?p;l;ve;idJN#r)A-4Eli-|1iRDBo`t2Dj(huBboedZ
zM6PwDPJ?+lMp97QQ#H;h5-de{wxBk7_r-1zpO5FQG%GYB4qIIcqKC%WSJl$ZWtViu
zz=99SEr0a_T=S%_YRla|0$KTb!A=TDw--58MU~F?sR`FQz9K!VDXwbicxTgN75MiX
zG1Ic2MEoCge?-`i9e2xHOGv+<S_21nk=j^R3#5gV!&sw8yWP(crF1?J;t@RE%PG3d
zMtBfL6PEwAbHCd|(_=k;RSmI&al`KI?p?oLKy3)S`RFaph(x_Fclt1p<Nd<l!DwQJ
zpIa#^>XFIH>=;~T?K;2p?lAl@d53dQe)sJ1Uh;n5<%;GA+^@T$jQA1#J6w&rx0?Lf
z^)BdzriIWWkJZvPUIwWj(M=uim>p!s71pqAyEm`5M`g71em^uc>}=E8^LQgYARgma
z*P7pjqV%KOnHta04O<J^X}mr&9@;|;Jz##pyz!Ai2UDB*`qLNAf0#R6|DX?EN;Dtz
zbi(0<1*ne<rJM|9baT70XZw>P*n^XVHM273i84-^!}O?&HCjZ^?dnLfr$bwk3w5EM
zrRQz5<@_8x*j7C*YqbNs%2lqKn5yh-BZCaV87wym+B4r^zHC?V7%od!xEOR^+3d(%
z-duGy%PTYsJ1V@H#Xhb1e4H?Q|76b~+rQM|jj5V-h+JN1IPnj~cS*Lm91A|%YxKD7
zu?n?$8#)*2*UP(gh6wfXS!<wJeW>_*p1bVfD-E-?UUS6J;&#!yR(G?OD=gDVae~NI
z<ZUK%Gxj!9d`H?nQT!MidL$0eK$}_wE}i5U7Y0lxShfX@cOqVU^h&DphP52dMP>zb
zURDtAa5`+p?9E*6ymq^!3ffA)J&JP){Z&~g>Gk{f9TA<h#O~S9^qH{E1!r}q_i=Qv
z#ovN%W9Crb{RF8Uhf#^l3*numt%uLrC|EvLBR<lfGru1s2a;c%ml%fx?P(l@912bw
zW=h4aw6CG>I^QtWk1|{c-JQ&kr;#_FYlaHUq_3~qw<5TJUrZ66v%@YQ#g4=5ik(72
zZrBcPTClg9+uJ-r1-)y%$p`f3gzdVbgx#<2stbcxSJ4Nde<o!fga3Az?mN`y&Mf19
zI&!&NeJjeG7Mw}8a8)OX7{=o?o;CW|yj?Ze=|3ukWdNm`vvnm{oU$$dMT?e)c7_f5
zN`!b9Y&<O!$}TLFp(%15oE&vT!%1xm(8qz<9S1t=S0`&*{adn%9bUV0u*T-*W++_}
zm@MY?>f=HyDA;pYc-AV>^mw^&=p;|H?H6fS06@y7y1E+hJ-E~BbaUKaBv+VR`tQ$|
z1skHt%Iq>s$zQk1b9V#b7HwDityt{U&0rF21$Dj{?WK*=zApT+Xyw2*Q5;5>bSt-j
z(ug5rBnc|;pjJwaq4+dIHaj!3i$<gE;7lu>&CP+%_V#}cAS`bfCH<kIq5*+o40TD$
z>`g5#En#pb?Bz}95oWey2BZY@9Z`F4f0a;dvV*;Hy1TvE7`hXG6n)SX+L>HcAb>6%
z9v*IlDHHNd`GqX!E}ud=eKtmhFD@>Y8s~Rm+-1)IZ9gA86LYv76<4?kE&Of;9X^4d
zEL;B0Gx!-;u+d9HLlexV@8<4Kw%yWU1!rRBjbF{Xl-YPg#vt}>YqDa}PJlSQ-wta9
z-K?#xm1?T0;`DHJg;#LJYc%lfRBpR*mq8iGMl0_Molh^k{JTj-DdYp=zxda=EnK~7
zoDVPNdg_r=PW6bEEJjBr@bKqBMaKTu{g$1P$^#z@1wiC?fXiOof=B1gABWL`_K#fg
z`I#@h`>*7Qq#pGf8yShj7mG32!Z$ibg9dOwN^&1(bMMVhu%TBAD;+l{g?HCUe&#F8
z@>#UD+I2NGuS@v`w=pgsr8YY5jKFkB%J8fC(dED22&Fw&O-B(k10(s8GPs%_J8v%~
z??kRcI&UnCzDEFw2O+)pALLJbl}vnXz3r`i?fLEQ1wa4_gYrX#`2}Imp)d&n5eZ>2
zUMN%o3gsR*D7y#n{tHm}7vSXK&hp&J%^u)y@6IB~V(sb8A^?Sovp~fq1cmMg3-5g>
zs8k7B{=Yo`5=i`q?4CzJkRK|*4;6Y2gGva(B!r>=;Ss5`-TGeuHxE0fS3&<bK;>k?
c@V|in`2Ihc_**?my$1l)l(ZG=<gFt92hfH8=>Px#

literal 0
HcmV?d00001


From c0ccb7f3d1618f3850d5a57dcc4f6ceff5e929d0 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 7 Feb 2023 00:28:02 +1300
Subject: [PATCH 087/166] Update browser extension URL

---
 src/application-globals.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index a040ee59..9d79b6df 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -207,7 +207,7 @@
                           "BreezeWiki is back! Most major wikis are available.\n"
                           ,(if extension-eligible?
                                '(div (@ (class "bw-top-banner-rainbow"))
-                                     "Try " (a (@ (href "https://addons.mozilla.org/en-GB/firefox/addon/indie-wiki-buddy/")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n")
+                                     "Try " (a (@ (href "https://getindie.wiki/")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n")
                                "")
                           "As always, " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "please go here") " to report problems, suggest features, or talk about the project.")
                          ,balloon))

From 7f85ce776b1c687a75573ce5674c5c29602246ef Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 8 Feb 2023 00:14:06 +1300
Subject: [PATCH 088/166] Crawlers should not crawl theme switch buttons

---
 src/application-globals.rkt | 3 ++-
 static/robots.txt           | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 9d79b6df..52fd9376 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -235,7 +235,8 @@
                                                      (if (equal? theme (user-cookies^-theme user-cookies))
                                                          "bw-theme__item bw-theme__item--selected"
                                                          "bw-theme__item"))
-                                                   `(a (@ (href ,(user-cookies-setter-url
+                                                   `(a (@ (rel "nofollow")
+                                                          (href ,(user-cookies-setter-url
                                                                   req
                                                                   (struct-copy user-cookies^ user-cookies
                                                                                [theme theme]))) (class ,class))
diff --git a/static/robots.txt b/static/robots.txt
index 6f706c51..b0e8bf6f 100644
--- a/static/robots.txt
+++ b/static/robots.txt
@@ -1,3 +1,4 @@
 User-Agent: *
 Disallow: /*/wiki/*
 Disallow: /proxy
+Disallow: /set-user-settings

From 0ba20c9e382fb3278500c0712df3c666a6d05686 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 8 Feb 2023 19:44:32 +1300
Subject: [PATCH 089/166] Match style URLs better in style archive server

---
 info.rkt                    | 2 +-
 src/page-static-archive.rkt | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/info.rkt b/info.rkt
index dd34d495..4769990d 100644
--- a/info.rkt
+++ b/info.rkt
@@ -1,3 +1,3 @@
 #lang info
 
-(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "ini-lib" "memo" "net-cookies-lib"))
+(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "typed-ini-lib" "memo" "net-cookies-lib"))
diff --git a/src/page-static-archive.rkt b/src/page-static-archive.rkt
index a4e145fb..0d01a590 100644
--- a/src/page-static-archive.rkt
+++ b/src/page-static-archive.rkt
@@ -41,14 +41,14 @@
                  [(string-prefix? url "http://") (regexp-replace #rx"http:" url "https:")]
                  [(string-prefix? url "//") (string-append "https:" url)]
                  [(string-prefix? url "/") (format "https://~a.fandom.com~a" wikiname url)]
-                 [else (raise-user-error "While calling replace-style-for-images, this URL had an unknown format and couldn't be saved:" url)])])
+                 [else (error 'replace-style-for-images "unknown URL format: ~a" url)])])
          (define p (image-url->values norm-url))
          ;; (printf "hashed: ~a~n     -> ~a~n    #-> ~a~n" url (car p) (cdr p))
          (format "/archive/~a/images/~a" wikiname (cdr p))))))
 
 (define (replace-style-for-images wikiname path)
   (define content (file->string path))
-  (regexp-replace* #rx"url\\(([^)]*)\\)" content (replacer wikiname)))
+  (regexp-replace* #rx"url\\(\"?'?([^)]*)'?\"?\\)" content (replacer wikiname)))
 
 (define (handle-style wikiname dest)
   (when (config-true? 'debug)

From c3c4ea9e55e5cfb7c932be4ccc7bb05ae3fbc6a6 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 8 Feb 2023 23:15:13 +1300
Subject: [PATCH 090/166] Add basic request logging, disabled by default

---
 src/application-globals.rkt    |  2 +-
 src/config.rkt                 |  4 ++-
 src/log.rkt                    | 54 ++++++++++++++++++++++++++++++++++
 src/page-set-user-settings.rkt |  2 ++
 src/page-static-archive.rkt    |  4 ++-
 src/page-wiki-offline.rkt      |  9 ++++--
 6 files changed, 70 insertions(+), 5 deletions(-)
 create mode 100644 src/log.rkt

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 52fd9376..7cc12fe2 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -61,7 +61,7 @@
                          "Documentation and more information"))
                      (p
                       (a (@ (href "https://lists.sr.ht/~cadence/breezewiki-discuss"))
-                         "Discussions / Bug reports / Feature requests"))
+                         "Chat / Bug reports / Feature requests"))
                      ,(if (config-true? 'instance_is_official)
                           `(p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
                               (a (@ (href "https://cadence.moe/contact"))
diff --git a/src/config.rkt b/src/config.rkt
index 4b79f4a9..90e1b992 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -39,7 +39,9 @@
 
     (feature_offline::enabled . "false")
     (feature_offline::format . "json.gz")
-    (feature_offline::only . "false")))
+    (feature_offline::only . "false")
+
+    (access_log::enabled . "false")))
 
 (define loaded-alist
   (with-handlers
diff --git a/src/log.rkt b/src/log.rkt
new file mode 100644
index 00000000..5647986e
--- /dev/null
+++ b/src/log.rkt
@@ -0,0 +1,54 @@
+#lang typed/racket/base
+(require racket/file
+         racket/port
+         racket/runtime-path
+         racket/string
+         typed/srfi/19
+         "config.rkt")
+
+(provide
+ log-page-request
+ log-styles-request
+ log-set-settings-request)
+
+(define last-flush 0)
+(define flush-every-millis 60000)
+
+(define-runtime-path log-file "../storage/logs/access-0.log")
+(define log-port
+  (if (config-true? 'access_log::enabled)
+      (begin
+        (make-directory* (simplify-path (build-path log-file 'up)))
+         (open-output-file log-file #:exists 'append))
+      (open-output-nowhere)))
+
+(: get-date-iso8601 (-> String))
+(define (get-date-iso8601)
+  (date->string (current-date 0) "~5"))
+
+(: offline-string (Boolean -> String))
+(define (offline-string offline?)
+  (if offline? "---" "ooo"))
+
+(: log (String * -> Void))
+(define (log . entry)
+  ;; create log entry string
+  (define full-entry (cons (get-date-iso8601) entry))
+  ;; write to output port
+  (displayln (string-join full-entry ";") log-port)
+  ;; flush output port to file (don't do this too frequently)
+  (when ((- (current-milliseconds) last-flush) . >= . flush-every-millis)
+    (flush-output log-port)
+    (set! last-flush (current-milliseconds))))
+
+(: log-page-request (Boolean String String (U 'light 'dark 'default) -> Void))
+(define (log-page-request offline? wikiname title theme)
+  (log "page" (offline-string offline?) wikiname title (symbol->string theme)))
+
+(: log-styles-request (Boolean String String -> Void))
+(define (log-styles-request offline? wikiname basename)
+  (log "style" (offline-string offline?) wikiname basename))
+
+(: log-set-settings-request (Symbol -> Void))
+(define (log-set-settings-request theme)
+  (log "settings" (symbol->string theme)))
diff --git a/src/page-set-user-settings.rkt b/src/page-set-user-settings.rkt
index 588129d0..b9491423 100644
--- a/src/page-set-user-settings.rkt
+++ b/src/page-set-user-settings.rkt
@@ -4,6 +4,7 @@
          web-server/http
          "application-globals.rkt"
          "data.rkt"
+         "log.rkt"
          "../lib/url-utils.rkt"
          "../lib/xexpr-utils.rkt")
 
@@ -14,5 +15,6 @@
   (response-handler
    (define next-location (dict-ref (url-query (request-uri req)) 'next_location))
    (define new-settings (read (open-input-string (dict-ref (url-query (request-uri req)) 'new_settings))))
+   (log-set-settings-request (user-cookies^-theme new-settings))
    (define headers (user-cookies-setter new-settings))
    (generate-redirect next-location #:headers headers)))
diff --git a/src/page-static-archive.rkt b/src/page-static-archive.rkt
index 0d01a590..a2c69ed5 100644
--- a/src/page-static-archive.rkt
+++ b/src/page-static-archive.rkt
@@ -12,7 +12,8 @@
          "../archiver/archiver.rkt"
          "../lib/mime-types.rkt"
          "../lib/xexpr-utils.rkt"
-         "../src/config.rkt")
+         "config.rkt"
+         "log.rkt")
 
 (provide
  page-static-archive)
@@ -53,6 +54,7 @@
 (define (handle-style wikiname dest)
   (when (config-true? 'debug)
     (printf "using offline mode for style ~a ~a~n" wikiname dest))
+  (log-styles-request #t wikiname dest)
   (define fs-path (build-path path-archive wikiname "styles" dest))
   (println fs-path)
   (unless (file-exists? fs-path)
diff --git a/src/page-wiki-offline.rkt b/src/page-wiki-offline.rkt
index 064ba056..a3986da8 100644
--- a/src/page-wiki-offline.rkt
+++ b/src/page-wiki-offline.rkt
@@ -22,6 +22,7 @@
          "application-globals.rkt"
          "config.rkt"
          "data.rkt"
+         "log.rkt"
          "page-wiki.rkt"
          "../lib/archive-file-mappings.rkt"
          "../lib/pure-utils.rkt"
@@ -47,6 +48,12 @@
    (define maybe-hashed-basename (if ((string-length basename) . > . 240)
                                      (sha1 (string->bytes/latin-1 basename))
                                      basename))
+
+   (define user-cookies (user-cookies-getter req))
+   (define theme (user-cookies^-theme user-cookies))
+
+   (log-page-request #t wikiname maybe-hashed-basename theme)
+
    (define archive-format
      (case (config-get 'feature_offline::format)
        [(".json" "json") (cons "~a.json" (λ () (read-json)))]
@@ -98,8 +105,6 @@
        (define original-page (html->xexp (preprocess-html-wiki (jp "/parse/text" data))))
        (define page ((query-selector (λ (t a c) (has-class? "mw-parser-output" a)) original-page)))
        (define initial-head-data ((head-data-getter wikiname) data))
-       (define user-cookies (user-cookies-getter req))
-       (define theme (user-cookies^-theme user-cookies))
        (define head-data
          (case theme
            [(light dark)

From de575d4e47c5ba6835ae7732dfc3ecbec1bec137 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 8 Feb 2023 23:41:02 +1300
Subject: [PATCH 091/166] Update name of MediEvil Wiki

---
 src/extwiki-generic.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/extwiki-generic.rkt b/src/extwiki-generic.rkt
index 878c02f8..61806760 100644
--- a/src/extwiki-generic.rkt
+++ b/src/extwiki-generic.rkt
@@ -18,7 +18,7 @@
 
 ;; fandom wikinames * Title * Main Page * Search page override * API endpoint override
 (define wikis
-  '(((gallowmere) "Gallowmere Historia" "https://medievil.wiki/w/Main_Page" #f #f)
+  '(((gallowmere) "MediEvil Wiki" "https://medievil.wiki/w/Main_Page" #f #f)
     ((fallout) "Fallout Wiki" "https://fallout.wiki/wiki/Fallout_Wiki" #f "https://fallout.wiki/api.php")
     ))
 

From 4cbe6fe289e844b1c22b362878d42cb3fb90d293 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 8 Feb 2023 23:54:55 +1300
Subject: [PATCH 092/166] Remove stdout logging statement

---
 src/page-static-archive.rkt | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/page-static-archive.rkt b/src/page-static-archive.rkt
index a2c69ed5..cfd5ab6d 100644
--- a/src/page-static-archive.rkt
+++ b/src/page-static-archive.rkt
@@ -56,7 +56,6 @@
     (printf "using offline mode for style ~a ~a~n" wikiname dest))
   (log-styles-request #t wikiname dest)
   (define fs-path (build-path path-archive wikiname "styles" dest))
-  (println fs-path)
   (unless (file-exists? fs-path)
     (next-dispatcher))
   (response-handler

From c8401c972cffe832847b329c1032f6b9c88d64a7 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 10 Feb 2023 14:53:15 +1300
Subject: [PATCH 093/166] Extension now available on Chrome

---
 src/application-globals.rkt | 27 +++++++++++++++++----------
 1 file changed, 17 insertions(+), 10 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 7cc12fe2..241b9ad8 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -200,17 +200,24 @@
      (body (@ (class ,(head-data^-body-class head-data)))
            ,(if (config-true? 'instance_is_official)
                 (let ([balloon '(img (@ (src "/static/three-balloons.png") (class "bw-balloon") (title "Image Source: pngimg.com/image/4955 | License: CC BY-NC 4.0 | Modifications: Resized") (width "52") (height "56")))]
-                      [extension-eligible? (and req (assq 'user-agent (request-headers req)) (string-contains? (string-downcase (cdr (assq 'user-agent (request-headers req)))) "firefox/"))])
+                      [extension-eligible?
+                       (and req (let* ([ua-pair (assq 'user-agent (request-headers req))]
+                                       [ua (string-downcase (cdr ua-pair))])
+                                  ;; everyone pretends to be chrome, so we do it in reverse
+                                  ;; this excludes common browsers that don't support the extension
+                                  (and (not (string-contains? ua "edge/"))
+                                       (not (string-contains? ua "edg/"))
+                                       (not (string-contains? ua "mobile")))))])
                   `(div (@ (class "bw-top-banner"))
-                         ,balloon
-                         (div
-                          "BreezeWiki is back! Most major wikis are available.\n"
-                          ,(if extension-eligible?
-                               '(div (@ (class "bw-top-banner-rainbow"))
-                                     "Try " (a (@ (href "https://getindie.wiki/")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n")
-                               "")
-                          "As always, " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "please go here") " to report problems, suggest features, or talk about the project.")
-                         ,balloon))
+                        ,balloon
+                        (div
+                         "BreezeWiki is back! Most major wikis are available.\n"
+                         ,(if extension-eligible?
+                              '(div (@ (class "bw-top-banner-rainbow"))
+                                    "Try " (a (@ (href "https://getindie.wiki/") (target "_blank")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n")
+                              "")
+                         "As always, " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "please go here") " to report problems, suggest features, or talk about the project.")
+                        ,balloon))
                 "")
            (div (@ (class "main-container"))
                 (div (@ (class "fandom-community-header__background tileHorizontally header")))

From 0b858cf4262ad374871310b7f2728b845612ebe7 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 10 Feb 2023 23:13:01 +1300
Subject: [PATCH 094/166] Unlock search suggestions properly, possibly fix
 safari

---
 static/search-suggestions.js | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/static/search-suggestions.js b/static/search-suggestions.js
index f4586be5..324bd4b2 100644
--- a/static/search-suggestions.js
+++ b/static/search-suggestions.js
@@ -74,7 +74,7 @@ effect(() => {
 	})
 })
 
-document.addEventListener("pageshow", () => {
+window.addEventListener("pageshow", () => {
 	st.value = "ready" // unlock results from changing after returning to page
 })
 
@@ -88,4 +88,12 @@ render(html`<${SuggestionInput} />`, eInput)
 // form focus
 
 eForm.addEventListener("focusin", () => focus.value = true)
-eForm.addEventListener("focusout", () => focus.value = false)
+eForm.addEventListener("focusout", event => {
+	if (eForm.contains(event.relatedTarget)) {
+		// event fired when changing from one form element to the other
+		focus.value = true
+	} else {
+		// event fired when moving out of the form element
+		focus.value = false
+	}
+})

From 5fa6e2fb9e6a00c964a3c8bffe66351ed5b3e7b2 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 10 Feb 2023 23:53:38 +1300
Subject: [PATCH 095/166] Unlock search suggestions properly (real)

---
 static/search-suggestions.js | 1 +
 1 file changed, 1 insertion(+)

diff --git a/static/search-suggestions.js b/static/search-suggestions.js
index 324bd4b2..e0a32d6e 100644
--- a/static/search-suggestions.js
+++ b/static/search-suggestions.js
@@ -64,6 +64,7 @@ render(html`<${SuggestionList} />`, eSuggestions)
 // input view
 
 effect(() => {
+	query.value // dependency should always be tracked
 	if (st.peek() === "accepted") return // lock results from changing during navigation
 	st.value = "loading"
 	fetchSuggestions(query.value).then(res => {

From 501dcaa3fc836bd7158efe69029659ae22a8735f Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 12 Feb 2023 13:55:33 +1300
Subject: [PATCH 096/166] Replace thread-let with thread-utils

---
 lib/syntax.rkt              |  52 ----------------
 lib/thread-utils.rkt        |  72 +++++++++++++++++++++++
 lib/tree-updater.rkt        |   4 +-
 src/application-globals.rkt |  17 +++---
 src/extwiki-generic.rkt     |   2 +-
 src/page-category.rkt       |  99 ++++++++++++++++---------------
 src/page-file.rkt           |  76 ++++++++++++------------
 src/page-search.rkt         |  34 ++++++-----
 src/page-wiki.rkt           | 114 +++++++++++++++++++-----------------
 9 files changed, 255 insertions(+), 215 deletions(-)
 create mode 100644 lib/thread-utils.rkt

diff --git a/lib/syntax.rkt b/lib/syntax.rkt
index 1c3fae21..17939056 100644
--- a/lib/syntax.rkt
+++ b/lib/syntax.rkt
@@ -4,8 +4,6 @@
 (provide
  ; help make a nested if. if/in will gain the same false form of its containing if/out.
  if/out
- ; let, but the value for each variable is evaluated within a thread
- thread-let
  ; cond, but values can be defined between conditions
  cond/var
  ; wrap sql statements into lambdas so they can be executed during migration
@@ -25,7 +23,6 @@
 
   (provide
    transform-if/out
-   transform-thread-let
    transform/out-cond/var)
 
   (define (transform-if/out stx)
@@ -51,26 +48,6 @@
           [#t node])))
     (datum->syntax stx (cons 'if result)))
 
-  (define (transform-thread-let stx)
-    (define tree (cdr (syntax->datum stx)))
-    (define defs (car tree))
-    (define forms (cdr tree))
-    (when (eq? (length forms) 0)
-      (error (format "thread-let: bad syntax (need some forms to execute after the threads)~n  forms: ~a" forms)))
-    (define counter (build-list (length defs) values))
-    (datum->syntax
-     stx
-     `(let ([chv (build-vector ,(length defs) (λ (_) (make-channel)))])
-        ,@(map (λ (n)
-                 (define def (list-ref defs n))
-                 `(thread (λ () (channel-put (vector-ref chv ,n) (let _ () ,@(cdr def))))))
-               counter)
-        (let ,(map (λ (n)
-                     (define def (list-ref defs n))
-                     `(,(car def) (channel-get (vector-ref chv ,n))))
-                   counter)
-          ,@forms))))
-
   (define (transform/out-cond/var stx)
     (define tree (transform-cond/var (cdr (syntax->datum stx))))
     (datum->syntax
@@ -119,35 +96,6 @@
   (check-equal? (if/out #t (if/in #f 'yes) 'no) 'no)
   (check-equal? (if/out #f (if/in #f 'yes) 'no) 'no))
 
-(define-syntax (thread-let stx)
-  (transform-thread-let stx))
-(module+ test
-  ; check that it is transformed as expected
-  (check-syntax-equal?
-   (transform-thread-let
-    #'(thread-let ([a (hey "this is a")]
-                   [b (hey "this is b")])
-                  (list a b)))
-   #'(let ([chv (build-vector 2 (λ (_) (make-channel)))])
-       (thread (λ () (channel-put (vector-ref chv 0) (let _ () (hey "this is a")))))
-       (thread (λ () (channel-put (vector-ref chv 1) (let _ () (hey "this is b")))))
-       (let ([a (channel-get (vector-ref chv 0))]
-             [b (channel-get (vector-ref chv 1))])
-         (list a b))))
-  ; check that they actually execute concurrently
-  (define ch (make-channel))
-  (check-equal? (thread-let ([a (begin
-                                  (channel-put ch 'a)
-                                  (channel-get ch))]
-                             [b (begin0
-                                    (channel-get ch)
-                                  (channel-put ch 'b))])
-                            (list a b))
-                '(b a))
-  ; check that it assigns the correct value to the correct variable
-  (check-equal? (thread-let ([a (sleep 0) 'a] [b 'b]) (list a b))
-                '(a b)))
-
 (define-syntax (cond/var stx)
   (transform/out-cond/var stx))
 (module+ test
diff --git a/lib/thread-utils.rkt b/lib/thread-utils.rkt
new file mode 100644
index 00000000..f907dac7
--- /dev/null
+++ b/lib/thread-utils.rkt
@@ -0,0 +1,72 @@
+#lang racket/base
+(require (prefix-in easy: net/http-easy)
+         "../src/data.rkt"
+         "xexpr-utils.rkt")
+
+(provide
+ thread-values)
+
+(module+ test
+  (require rackunit))
+
+(define (thread-values . thunks)
+  (parameterize-break #t
+    (define the-exn (box #f))
+    (define original-thread (current-thread))
+    (define (break e)
+      (when (box-cas! the-exn #f e)
+        (break-thread original-thread))
+      (sleep 0))
+    (define-values (threads channels)
+      (for/fold ([ts null]
+                 [chs null]
+                 #:result (values (reverse ts) (reverse chs)))
+                ([th thunks])
+        (define ch (make-channel))
+        (define t
+          (thread (λ ()
+                    (with-handlers ([exn? break])
+                      (channel-put ch (th))))))
+        (values (cons t ts) (cons ch chs))))
+    (apply
+     values
+     (with-handlers ([exn:break? (λ (_)
+                                   (for ([t threads]) (kill-thread t))
+                                   (if (unbox the-exn)
+                                       (raise (unbox the-exn))
+                                       (error 'thread-values "a thread broke, but without reporting its exception")))])
+       (for/list ([ch channels])
+         (channel-get ch))))))
+
+(module+ test
+  ; check that they actually execute concurrently
+  (define ch (make-channel))
+  (check-equal? (let-values ([(a b)
+                              (thread-values
+                               (λ ()
+                                 (begin
+                                   (channel-put ch 'a)
+                                   (channel-get ch)))
+                               (λ ()
+                                 (begin0
+                                     (channel-get ch)
+                                   (channel-put ch 'b))))])
+                  (list a b))
+                '(b a))
+  ; check that it assigns the correct value to the correct variable
+  (check-equal? (let-values ([(a b)
+                              (thread-values
+                               (λ () (sleep 0) 'a)
+                               (λ () 'b))])
+                  (list a b))
+                '(a b))
+  ; check that exceptions are passed to the original thread, and other threads are killed
+  ;; TODO: if the other thread was making an HTTP request, could it be left stuck open by the kill?
+  (check-equal? (let* ([x "!"]
+                       [res
+                        (with-handlers ([exn:fail:user? (λ (e) (exn-message e))])
+                          (thread-values
+                           (λ () (sleep 0) (set! x "?") (println "this side effect should not happen"))
+                           (λ () (raise-user-error "catch me"))))])
+                  (string-append res x))
+                "catch me!"))
diff --git a/lib/tree-updater.rkt b/lib/tree-updater.rkt
index a6edb6be..98a989bb 100644
--- a/lib/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -277,8 +277,8 @@
   ; check that noscript images are removed
   (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f)
   ; benchmark
-  (when (file-exists? "../misc/Frog.html")
-    (with-input-from-file "../misc/Frog.html"
+  (when (file-exists? "../storage/Frog.html")
+    (with-input-from-file "../storage/Frog.html"
       (λ ()
         (define tree (html->xexp (current-input-port)))
         (time (length (update-tree-wiki tree "minecraft")))))))
diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 241b9ad8..4a797ad2 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -201,13 +201,16 @@
            ,(if (config-true? 'instance_is_official)
                 (let ([balloon '(img (@ (src "/static/three-balloons.png") (class "bw-balloon") (title "Image Source: pngimg.com/image/4955 | License: CC BY-NC 4.0 | Modifications: Resized") (width "52") (height "56")))]
                       [extension-eligible?
-                       (and req (let* ([ua-pair (assq 'user-agent (request-headers req))]
-                                       [ua (string-downcase (cdr ua-pair))])
-                                  ;; everyone pretends to be chrome, so we do it in reverse
-                                  ;; this excludes common browsers that don't support the extension
-                                  (and (not (string-contains? ua "edge/"))
-                                       (not (string-contains? ua "edg/"))
-                                       (not (string-contains? ua "mobile")))))])
+                       (cond/var
+                        [(not req) #f]
+                        (var ua-pair (assq 'user-agent (request-headers req)))
+                        [(not ua-pair) #f]
+                        (var ua (string-downcase (cdr ua-pair)))
+                        ;; everyone pretends to be chrome, so we do it in reverse
+                        ;; this excludes common browsers that don't support the extension
+                        [#t (and (not (string-contains? ua "edge/"))
+                                 (not (string-contains? ua "edg/"))
+                                 (not (string-contains? ua "mobile")))])])
                   `(div (@ (class "bw-top-banner"))
                         ,balloon
                         (div
diff --git a/src/extwiki-generic.rkt b/src/extwiki-generic.rkt
index 61806760..a6abc33e 100644
--- a/src/extwiki-generic.rkt
+++ b/src/extwiki-generic.rkt
@@ -28,7 +28,7 @@
     (hash-set! wikis-hash (symbol->string wikiname) w)))
 (module+ test
   (check-equal? (cadr (hash-ref wikis-hash "gallowmere"))
-                "Gallowmere Historia"))
+                "MediEvil Wiki"))
 
 (define (parse-table table)
   (define rows (query-selector (λ (t a c) (eq? t 'tr)) table))
diff --git a/src/page-category.rkt b/src/page-category.rkt
index aa48ffd8..29b541cc 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -17,6 +17,7 @@
          "data.rkt"
          "page-wiki.rkt"
          "../lib/syntax.rkt"
+         "../lib/thread-utils.rkt"
          "../lib/url-utils.rkt"
          "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
@@ -69,55 +70,59 @@
    (define origin (format "https://~a.fandom.com" wikiname))
    (define source-url (format "~a/wiki/~a" origin prefixed-category))
 
-   (thread-let
-    ([members-data (define dest-url
-                     (format "~a/api.php?~a"
-                             origin
-                             (params->query `(("action" . "query")
-                                              ("list" . "categorymembers")
-                                              ("cmtitle" . ,prefixed-category)
-                                              ("cmlimit" . "max")
-                                              ("formatversion" . "2")
-                                              ("format" . "json")))))
-                   (log-outgoing dest-url)
-                   (define dest-res (easy:get dest-url #:timeouts timeouts))
-                   (easy:response-json dest-res)]
-     [page-data (define dest-url
-                  (format "~a/api.php?~a"
-                          origin
-                          (params->query `(("action" . "parse")
-                                           ("page" . ,prefixed-category)
-                                           ("prop" . "text|headhtml|langlinks")
-                                           ("formatversion" . "2")
-                                           ("format" . "json")))))
-                (log-outgoing dest-url)
-                (define dest-res (easy:get dest-url #:timeouts timeouts))
-                (easy:response-json dest-res)]
-     [siteinfo (siteinfo-fetch wikiname)])
+   (define-values (members-data page-data siteinfo)
+     (thread-values
+      (λ ()
+        (define dest-url
+          (format "~a/api.php?~a"
+                  origin
+                  (params->query `(("action" . "query")
+                                   ("list" . "categorymembers")
+                                   ("cmtitle" . ,prefixed-category)
+                                   ("cmlimit" . "max")
+                                   ("formatversion" . "2")
+                                   ("format" . "json")))))
+        (log-outgoing dest-url)
+        (define dest-res (easy:get dest-url #:timeouts timeouts))
+        (easy:response-json dest-res))
+      (λ ()
+        (define dest-url
+          (format "~a/api.php?~a"
+                  origin
+                  (params->query `(("action" . "parse")
+                                   ("page" . ,prefixed-category)
+                                   ("prop" . "text|headhtml|langlinks")
+                                   ("formatversion" . "2")
+                                   ("format" . "json")))))
+        (log-outgoing dest-url)
+        (define dest-res (easy:get dest-url #:timeouts timeouts))
+        (easy:response-json dest-res))
+      (λ ()
+        (siteinfo-fetch wikiname))))
 
-    (define title (preprocess-html-wiki (jp "/parse/title" page-data prefixed-category)))
-    (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
-    (define page (html->xexp page-html))
-    (define head-data ((head-data-getter wikiname) page-data))
-    (define body (generate-results-page
-                  #:req req
-                  #:source-url source-url
-                  #:wikiname wikiname
-                  #:title title
-                  #:members-data members-data
-                  #:page page
-                  #:head-data head-data
-                  #:siteinfo siteinfo))
+   (define title (preprocess-html-wiki (jp "/parse/title" page-data prefixed-category)))
+   (define page-html (preprocess-html-wiki (jp "/parse/text" page-data "")))
+   (define page (html->xexp page-html))
+   (define head-data ((head-data-getter wikiname) page-data))
+   (define body (generate-results-page
+                 #:req req
+                 #:source-url source-url
+                 #:wikiname wikiname
+                 #:title title
+                 #:members-data members-data
+                 #:page page
+                 #:head-data head-data
+                 #:siteinfo siteinfo))
 
-    (when (config-true? 'debug)
-      ; used for its side effects
-      ; convert to string with error checking, error will be raised if xexp is invalid
-      (xexp->html body))
-    (response/output
-     #:code 200
-     #:headers (build-headers always-headers)
-     (λ (out)
-       (write-html body out))))))
+   (when (config-true? 'debug)
+     ; used for its side effects
+     ; convert to string with error checking, error will be raised if xexp is invalid
+     (xexp->html body))
+   (response/output
+    #:code 200
+    #:headers (build-headers always-headers)
+    (λ (out)
+      (write-html body out)))))
 (module+ test
   (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
                                     (generate-results-page
diff --git a/src/page-file.rkt b/src/page-file.rkt
index 20628927..2a7332c1 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -17,6 +17,7 @@
          "data.rkt"
          "page-wiki.rkt"
          "../lib/syntax.rkt"
+         "../lib/thread-utils.rkt"
          "../lib/url-utils.rkt"
          "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
@@ -108,42 +109,45 @@
    (define origin (format "https://~a.fandom.com" wikiname))
    (define source-url (format "~a/wiki/~a" origin prefixed-title))
 
-   (thread-let
-    ([media-detail (define dest-url
-                     (format "~a/wikia.php?~a"
-                             origin
-                             (params->query `(("format" . "json") ("controller" . "Lightbox")
-                                                                  ("method" . "getMediaDetail")
-                                                                  ("fileTitle" . ,prefixed-title)))))
-                   (log-outgoing dest-url)
-                   (define dest-res (easy:get dest-url #:timeouts timeouts))
-                   (easy:response-json dest-res)]
-     [siteinfo (siteinfo-fetch wikiname)])
-    (if (not (jp "/exists" media-detail #f))
-        (next-dispatcher)
-        (response-handler
-         (define file-title (jp "/fileTitle" media-detail ""))
-         (define title
-           (if (non-empty-string? file-title) (format "File:~a" file-title) prefixed-title))
-         (define image-content-type
-           (if (non-empty-string? (jp "/videoEmbedCode" media-detail ""))
-               #f
-               (url-content-type (jp "/imageUrl" media-detail))))
-         (define body
-           (generate-results-page #:req req
-                                  #:source-url source-url
-                                  #:wikiname wikiname
-                                  #:title title
-                                  #:media-detail media-detail
-                                  #:image-content-type image-content-type
-                                  #:siteinfo siteinfo))
-         (when (config-true? 'debug)
-           ; used for its side effects
-           ; convert to string with error checking, error will be raised if xexp is invalid
-           (xexp->html body))
-         (response/output #:code 200
-                          #:headers (build-headers always-headers)
-                          (λ (out) (write-html body out))))))))
+   (define-values (media-detail siteinfo)
+     (thread-values
+      (λ ()
+        (define dest-url
+          (format "~a/wikia.php?~a"
+                  origin
+                  (params->query `(("format" . "json") ("controller" . "Lightbox")
+                                                       ("method" . "getMediaDetail")
+                                                       ("fileTitle" . ,prefixed-title)))))
+        (log-outgoing dest-url)
+        (define dest-res (easy:get dest-url #:timeouts timeouts))
+        (easy:response-json dest-res))
+      (λ ()
+        (siteinfo-fetch wikiname))))
+   (if (not (jp "/exists" media-detail #f))
+       (next-dispatcher)
+       (response-handler
+        (define file-title (jp "/fileTitle" media-detail ""))
+        (define title
+          (if (non-empty-string? file-title) (format "File:~a" file-title) prefixed-title))
+        (define image-content-type
+          (if (non-empty-string? (jp "/videoEmbedCode" media-detail ""))
+              #f
+              (url-content-type (jp "/imageUrl" media-detail))))
+        (define body
+          (generate-results-page #:req req
+                                 #:source-url source-url
+                                 #:wikiname wikiname
+                                 #:title title
+                                 #:media-detail media-detail
+                                 #:image-content-type image-content-type
+                                 #:siteinfo siteinfo))
+        (when (config-true? 'debug)
+          ; used for its side effects
+          ; convert to string with error checking, error will be raised if xexp is invalid
+          (xexp->html body))
+        (response/output #:code 200
+                         #:headers (build-headers always-headers)
+                         (λ (out) (write-html body out)))))))
 (module+ test
   (parameterize ([(config-parameter 'strict_proxy) "true"])
     (check-equal? (get-media-html "https://static.wikia.nocookie.net/a" "image/jpeg")
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 2066af3c..ce527c0e 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -14,6 +14,7 @@
          "config.rkt"
          "data.rkt"
          "../lib/syntax.rkt"
+         "../lib/thread-utils.rkt"
          "../lib/url-utils.rkt"
          "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
@@ -72,23 +73,26 @@
                               ("formatversion" . "2")
                               ("format" . "json")))))
 
-   (thread-let
-    ([dest-res (log-outgoing dest-url)
-               (easy:get dest-url #:timeouts timeouts)]
-     [siteinfo (siteinfo-fetch wikiname)])
+   (define-values (dest-res siteinfo)
+     (thread-values
+      (λ ()
+        (log-outgoing dest-url)
+        (easy:get dest-url #:timeouts timeouts))
+      (λ ()
+        (siteinfo-fetch wikiname))))
 
-    (define data (easy:response-json dest-res))
+   (define data (easy:response-json dest-res))
 
-    (define body (generate-results-page req dest-url wikiname query data #:siteinfo siteinfo))
-    (when (config-true? 'debug)
-      ; used for its side effects
-      ; convert to string with error checking, error will be raised if xexp is invalid
-      (xexp->html body))
-    (response/output
-     #:code 200
-     #:headers (build-headers always-headers)
-     (λ (out)
-       (write-html body out))))))
+   (define body (generate-results-page req dest-url wikiname query data #:siteinfo siteinfo))
+   (when (config-true? 'debug)
+     ; used for its side effects
+     ; convert to string with error checking, error will be raised if xexp is invalid
+     (xexp->html body))
+   (response/output
+    #:code 200
+    #:headers (build-headers always-headers)
+    (λ (out)
+      (write-html body out)))))
 (module+ test
   (parameterize ([(config-parameter 'feature_offline::only) "false"])
     (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 3fa905b9..8df701c2 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -19,6 +19,7 @@
          "data.rkt"
          "../lib/pure-utils.rkt"
          "../lib/syntax.rkt"
+         "../lib/thread-utils.rkt"
          "../lib/tree-updater.rkt"
          "../lib/url-utils.rkt"
          "whole-utils.rkt"
@@ -41,59 +42,62 @@
   (define path (string-join (map path/param-path (cddr (url-path (request-uri req)))) "/"))
   (define source-url (format "https://~a.fandom.com/wiki/~a" wikiname path))
 
-  (thread-let
-   ([dest-res (define dest-url
-                (format "~a/api.php?~a"
-                        origin
-                        (params->query `(("action" . "parse")
-                                         ("page" . ,path)
-                                         ("prop" . "text|headhtml|langlinks")
-                                         ("formatversion" . "2")
-                                         ("format" . "json")))))
-              (log-outgoing dest-url)
-              (easy:get dest-url
-                        #:timeouts timeouts
-                        #:headers `#hasheq((cookie . ,(format "theme=~a" (user-cookies^-theme user-cookies)))))]
-    [siteinfo (siteinfo-fetch wikiname)])
+  (define-values (dest-res siteinfo)
+    (thread-values
+     (λ ()
+       (define dest-url
+         (format "~a/api.php?~a"
+                 origin
+                 (params->query `(("action" . "parse")
+                                  ("page" . ,path)
+                                  ("prop" . "text|headhtml|langlinks")
+                                  ("formatversion" . "2")
+                                  ("format" . "json")))))
+       (log-outgoing dest-url)
+       (easy:get dest-url
+                 #:timeouts timeouts
+                 #:headers `#hasheq((cookie . ,(format "theme=~a" (user-cookies^-theme user-cookies))))))
+     (λ ()
+       (siteinfo-fetch wikiname))))
 
-   (cond
-     [(eq? 200 (easy:response-status-code dest-res))
-      (let* ([data (easy:response-json dest-res)]
-             [title (jp "/parse/title" data "")]
-             [page-html (jp "/parse/text" data "")]
-             [page-html (preprocess-html-wiki page-html)]
-             [page (html->xexp page-html)]
-             [head-data ((head-data-getter wikiname) data)])
-        (if (equal? "missingtitle" (jp "/error/code" data #f))
-            (next-dispatcher)
-            (response-handler
-             (define body
-               (generate-wiki-page
-                (update-tree-wiki page wikiname)
-                #:req req
-                #:source-url source-url
-                #:wikiname wikiname
-                #:title title
-                #:head-data head-data
-                #:siteinfo siteinfo))
-             (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
-             (define redirect-query-parameter (dict-ref (url-query (request-uri req)) 'redirect "yes"))
-             (define headers
-               (build-headers
-                always-headers
-                ; redirect-query-parameter: only the string "no" is significant:
-                ; https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Wiki.php#L367
-                (when (and redirect-msg
-                           (not (equal? redirect-query-parameter "no")))
-                  (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
-                         [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
-                    (header #"Refresh" value)))))
-             (when (config-true? 'debug)
-               ; used for its side effects
-               ; convert to string with error checking, error will be raised if xexp is invalid
-               (xexp->html body))
-             (response/output
-              #:code 200
-              #:headers headers
-              (λ (out)
-                (write-html body out))))))])))
+  (cond
+    [(eq? 200 (easy:response-status-code dest-res))
+     (let* ([data (easy:response-json dest-res)]
+            [title (jp "/parse/title" data "")]
+            [page-html (jp "/parse/text" data "")]
+            [page-html (preprocess-html-wiki page-html)]
+            [page (html->xexp page-html)]
+            [head-data ((head-data-getter wikiname) data)])
+       (if (equal? "missingtitle" (jp "/error/code" data #f))
+           (next-dispatcher)
+           (response-handler
+            (define body
+              (generate-wiki-page
+               (update-tree-wiki page wikiname)
+               #:req req
+               #:source-url source-url
+               #:wikiname wikiname
+               #:title title
+               #:head-data head-data
+               #:siteinfo siteinfo))
+            (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
+            (define redirect-query-parameter (dict-ref (url-query (request-uri req)) 'redirect "yes"))
+            (define headers
+              (build-headers
+               always-headers
+               ; redirect-query-parameter: only the string "no" is significant:
+               ; https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Wiki.php#L367
+               (when (and redirect-msg
+                          (not (equal? redirect-query-parameter "no")))
+                 (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+                        [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
+                   (header #"Refresh" value)))))
+            (when (config-true? 'debug)
+              ; used for its side effects
+              ; convert to string with error checking, error will be raised if xexp is invalid
+              (xexp->html body))
+            (response/output
+             #:code 200
+             #:headers headers
+             (λ (out)
+               (write-html body out))))))]))

From 155a277f26ca68b00f1899e5f584d09b11373d35 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 12 Feb 2023 23:51:48 +1300
Subject: [PATCH 097/166] indie wikis: add Wapopedia/Drawn To Life

---
 lib/syntax.rkt          | 10 +++++-----
 src/extwiki-generic.rkt | 17 +++++++++++------
 2 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/lib/syntax.rkt b/lib/syntax.rkt
index 17939056..10267dd4 100644
--- a/lib/syntax.rkt
+++ b/lib/syntax.rkt
@@ -60,11 +60,11 @@
     (if (null? rest)
         `(cond ,@els)
         `(cond
-          ,@els
-          [#t
-           (let ,(for/list ([var vars])
-                   (cdr var))
-             ,(transform-cond/var rest))]))))
+           ,@els
+           [#t
+            (let* ,(for/list ([var vars])
+                     (cdr var))
+              ,(transform-cond/var rest))]))))
 
 ;; the syntax definitions and their tests go below here
 
diff --git a/src/extwiki-generic.rkt b/src/extwiki-generic.rkt
index a6abc33e..fe30b14b 100644
--- a/src/extwiki-generic.rkt
+++ b/src/extwiki-generic.rkt
@@ -20,6 +20,7 @@
 (define wikis
   '(((gallowmere) "MediEvil Wiki" "https://medievil.wiki/w/Main_Page" #f #f)
     ((fallout) "Fallout Wiki" "https://fallout.wiki/wiki/Fallout_Wiki" #f "https://fallout.wiki/api.php")
+    ((drawntolife) "Wapopedia" "https://drawntolife.wiki/en/Main_Page" #f "https://drawntolife.wiki/w/api.php")
     ))
 
 (define wikis-hash (make-hash))
@@ -58,8 +59,10 @@
    [(not logo) (values #f '("Data table must have a \"Logo\" column"))]
    [(null? logo) (values #f '("Logo table column must have a link"))]
    (var href (get-attribute 'href (bits->attributes (car (hash-ref table 'logo)))))
-   [(not href) (values #f '("Logo table column must have a link"))]
-   [#t (values href null)]))
+   (var src (get-attribute 'src (bits->attributes (car (hash-ref table 'logo)))))
+   (var true-src (or href src))
+   [(not true-src) (values #f '("Logo table column must have a link"))]
+   [#t (values true-src null)]))
 
 (define (get-api-endpoint wiki)
   (define main-page (third wiki))
@@ -77,7 +80,7 @@
   (or override
       (match main-page
         [(regexp #rx"/$") (string-append main-page "Special:Search")]
-        [(regexp #rx"^(.*/w[^./]*/)" (list _ wiki-prefix)) (string-append wiki-prefix "Special:Search")]
+        [(regexp #rx"^(.*/(?:en|w[^./]*)/)" (list _ wiki-prefix)) (string-append wiki-prefix "Special:Search")]
         [_ (error 'get-search-page "unknown url format: ~a" main-page)])))
 
 (define/memoize (get-redirect-content wikiname) #:hash hash
@@ -109,8 +112,10 @@
                          ,@body
                          (p "This wiki's core community has wholly migrated away from Fandom. You should "
                             (a (@ (href ,go)) "go to " ,display-name " now!")))
-                    (div (@ (class "niwa__right"))
-                         (img (@ (class "niwa__logo") (src ,logo)))))
+                    ,(if logo
+                         `(div (@ (class "niwa__right"))
+                               (img (@ (class "niwa__logo") (src ,logo))))
+                         ""))
                ,(if (pair? links)
                     `(p (@ (class "niwa__feedback"))
                         ,@(add-between links " / "))
@@ -122,4 +127,4 @@
                     "")))]
     [#t #f]))
 (module+ test
-  ((get-redirect-content "gallowmere") "Gallowmere Historia"))
+  (check-not-false ((get-redirect-content "gallowmere") "MediEvil Wiki")))

From 29007b0e29c5ecff6a7b6824086bb08c6758ac71 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 5 Mar 2023 22:34:51 +1300
Subject: [PATCH 098/166] Add req.rktd for use with raco req

---
 archiver/archive-info.rkt | 3 ---
 info.rkt                  | 2 +-
 req.rktd                  | 1 +
 3 files changed, 2 insertions(+), 4 deletions(-)
 delete mode 100644 archiver/archive-info.rkt
 create mode 100644 req.rktd

diff --git a/archiver/archive-info.rkt b/archiver/archive-info.rkt
deleted file mode 100644
index 17bb7475..00000000
--- a/archiver/archive-info.rkt
+++ /dev/null
@@ -1,3 +0,0 @@
-#lang info
-
-(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "ini-lib" "memo" "net-cookies-lib" "gui-easy-lib" "sql" "charterm" "cli"))
diff --git a/info.rkt b/info.rkt
index 4769990d..c290d5b9 100644
--- a/info.rkt
+++ b/info.rkt
@@ -1,3 +1,3 @@
 #lang info
 
-(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "typed-ini-lib" "memo" "net-cookies-lib"))
+(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "typed-ini-lib" "memo" "net-cookies-lib" "db"))
diff --git a/req.rktd b/req.rktd
new file mode 100644
index 00000000..e2d2fc27
--- /dev/null
+++ b/req.rktd
@@ -0,0 +1 @@
+((local (".")))

From e0fec5fa9c7e429f334d017cda1938defe6c3d25 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 8 Mar 2023 22:53:07 +1300
Subject: [PATCH 099/166] Add bind_host setting requested by Artemis

---
 breezewiki.rkt | 4 +++-
 dist.rkt       | 4 +++-
 src/config.rkt | 3 ++-
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/breezewiki.rkt b/breezewiki.rkt
index 2e2772f9..5fd34b2b 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -30,7 +30,9 @@
 (define ch (make-channel))
 (define (start)
   (serve/launch/wait
-   #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
+   #:listen-ip (if (equal? (config-get 'bind_host) "auto")
+                 (if (config-true? 'debug) "127.0.0.1" #f)
+                 (config-get 'bind_host))
    #:port (string->number (config-get 'port))
    (λ (quit)
      (channel-put ch (lambda () (semaphore-post quit)))
diff --git a/dist.rkt b/dist.rkt
index deb08a89..2e46f8c2 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -20,7 +20,9 @@
 (require (only-in "src/page-file.rkt" page-file))
 
 (serve/launch/wait
- #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
+ #:listen-ip (if (equal? (config-get 'bind_host) "auto")
+                 (if (config-true? 'debug) "127.0.0.1" #f)
+                 (config-get 'bind_host))
  #:port (string->number (config-get 'port))
  (λ (quit)
    (dispatcher-tree
diff --git a/src/config.rkt b/src/config.rkt
index 90e1b992..09407c41 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -29,12 +29,13 @@
 
 (define default-config
   '((application_name . "BreezeWiki")
+    (bind_host . "auto")
+    (port . "10416")
     (canonical_origin . "")
     (debug . "false")
     (feature_search_suggestions . "true")
     (instance_is_official . "false") ; please don't turn this on, or you will make me very upset
     (log_outgoing . "true")
-    (port . "10416")
     (strict_proxy . "false")
 
     (feature_offline::enabled . "false")

From 453570bdc944cbd534930e2d25be8d967a21aa85 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 8 Mar 2023 22:56:04 +1300
Subject: [PATCH 100/166] Replace define-runtime-path with custom anytime-path
 function

---
 lib/mime.types              |  2 ++
 lib/syntax.rkt              | 42 ++++++++++++++++++++++++++++++++++---
 src/data.rkt                |  6 +++---
 src/page-static-archive.rkt |  4 ++--
 src/page-static.rkt         |  3 ++-
 src/page-wiki-offline.rkt   |  4 ++--
 6 files changed, 50 insertions(+), 11 deletions(-)

diff --git a/lib/mime.types b/lib/mime.types
index 74ddeeff..d31a2acc 100644
--- a/lib/mime.types
+++ b/lib/mime.types
@@ -1,5 +1,6 @@
 text/html                             html
 text/css                              css
+application/xml                       xml
 text/xml                              xml
 image/gif                             gif
 image/jpeg                            jpeg
@@ -25,6 +26,7 @@ application/font-woff2                woff2
 application/acad                      woff2
 font/woff2                            woff2
 application/font-woff                 woff
+font/woff                             woff
 application/x-font-ttf                ttf
 application/x-font-truetype           ttf
 application/x-truetype-font           ttf
diff --git a/lib/syntax.rkt b/lib/syntax.rkt
index 10267dd4..a587e03a 100644
--- a/lib/syntax.rkt
+++ b/lib/syntax.rkt
@@ -1,5 +1,5 @@
 #lang racket/base
-(require (for-syntax racket/base))
+(require (for-syntax racket/base syntax/location))
 
 (provide
  ; help make a nested if. if/in will gain the same false form of its containing if/out.
@@ -7,7 +7,12 @@
  ; cond, but values can be defined between conditions
  cond/var
  ; wrap sql statements into lambdas so they can be executed during migration
- wrap-sql)
+ wrap-sql
+ ; get the name of the file that contains the currently evaluating form
+ this-directory
+ this-file
+ ; replacement for define-runtime-path
+ anytime-path)
 
 (module+ test
   (require rackunit)
@@ -96,6 +101,16 @@
   (check-equal? (if/out #t (if/in #f 'yes) 'no) 'no)
   (check-equal? (if/out #f (if/in #f 'yes) 'no) 'no))
 
+(define-syntax (this-directory stx)
+  (datum->syntax stx (syntax-source-directory stx)))
+
+(define-syntax (this-file stx)
+  (datum->syntax stx (build-path (or (syntax-source-directory stx) 'same) (syntax-source-file-name stx))))
+
+(module+ test
+  (require racket/path)
+  (check-equal? (file-name-from-path (this-file)) (build-path "syntax.rkt")))
+
 (define-syntax (cond/var stx)
   (transform/out-cond/var stx))
 (module+ test
@@ -103,7 +118,28 @@
                        #'(cond
                            [#f 0]
                            [#t
-                            (let ([d (* a 2)])
+                            (let* ([d (* a 2)])
                               (cond
                                 [(eq? d 8) d]
                                 [#t "not 4"]))])))
+
+;;; Replacement for define-runtime-path that usually works well and doesn't include the files/folder contents into the distribution.
+;;; When running from source, should always work appropriately.
+;;; When running from a distribution, (current-directory) is treated as the root.
+;;; Usage:
+;;;   * to-root : Path-String * relative path from the source file to the project root
+;;;   * to-dest : Path-String * relative path from the root to the desired file/folder
+(define-syntax (anytime-path stx)
+  (define-values (_ to-root to-dest) (apply values (syntax->list stx)))
+  (define source (syntax-source stx))
+  (unless (complete-path? source)
+    (error 'anytime-path "syntax source has no directory: ~v" stx))
+  (datum->syntax
+   stx
+   `(let* ([syntax-to-root (build-path (path-only ,source) ,to-root)]
+           [root (if (directory-exists? syntax-to-root)
+                     ;; running on the same filesystem it was compiled on, i.e. it's running the source code out of a directory, and the complication is the intermediate compilation
+                     syntax-to-root
+                     ;; not running on the same filesystem, i.e. it's a distribution. we assume that the current working directory is where the executable is, and treat this as the root.
+                     (current-directory))])
+      (simple-form-path (build-path root ,to-dest)))))
diff --git a/src/data.rkt b/src/data.rkt
index 35024d20..cb4e194b 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -8,8 +8,8 @@
          db
          memo
          "static-data.rkt"
-         "../lib/url-utils.rkt"
          "whole-utils.rkt"
+         "../lib/url-utils.rkt"
          "../lib/xexpr-utils.rkt"
          "../archiver/archiver-database.rkt"
          "config.rkt")
@@ -42,8 +42,8 @@
     [(config-true? 'feature_offline::only)
      (when (config-true? 'debug)
        (printf "using offline mode for siteinfo ~a~n" wikiname))
-     (define row (query-maybe-row slc "select sitename, basepage, license_text, license_url from wiki where wikiname = ?"
-                                  wikiname))
+     (define row (query-maybe-row* "select sitename, basepage, license_text, license_url from wiki where wikiname = ?"
+                                   wikiname))
      (if row
          (siteinfo^ (vector-ref row 0)
                     (vector-ref row 1)
diff --git a/src/page-static-archive.rkt b/src/page-static-archive.rkt
index cfd5ab6d..c0c2e09c 100644
--- a/src/page-static-archive.rkt
+++ b/src/page-static-archive.rkt
@@ -2,7 +2,6 @@
 (require racket/file
          racket/path
          racket/port
-         racket/runtime-path
          racket/string
          net/url
          web-server/http
@@ -11,6 +10,7 @@
          (only-in web-server/dispatchers/dispatch next-dispatcher)
          "../archiver/archiver.rkt"
          "../lib/mime-types.rkt"
+         "../lib/syntax.rkt"
          "../lib/xexpr-utils.rkt"
          "config.rkt"
          "log.rkt")
@@ -18,7 +18,7 @@
 (provide
  page-static-archive)
 
-(define-runtime-path path-archive "../storage/archive")
+(define path-archive (anytime-path ".." "storage/archive"))
 
 (define ((replacer wikiname) whole url)
   (format
diff --git a/src/page-static.rkt b/src/page-static.rkt
index e2c984e7..03112299 100644
--- a/src/page-static.rkt
+++ b/src/page-static.rkt
@@ -8,6 +8,7 @@
          (only-in web-server/dispatchers/dispatch next-dispatcher)
          (prefix-in files: web-server/dispatchers/dispatch-files)
          "../lib/mime-types.rkt"
+         "../lib/syntax.rkt"
          "config.rkt")
 
 (provide
@@ -17,7 +18,7 @@
   (require rackunit))
 
 (define-runtime-path path-static "../static")
-(define-runtime-path path-archive "../storage/archive")
+(define path-archive (anytime-path ".." "storage/archive"))
 
 (define hash-ext-mime-type
   (hash #".css" #"text/css"
diff --git a/src/page-wiki-offline.rkt b/src/page-wiki-offline.rkt
index a3986da8..37832715 100644
--- a/src/page-wiki-offline.rkt
+++ b/src/page-wiki-offline.rkt
@@ -4,7 +4,7 @@
          racket/function
          racket/list
          racket/match
-         racket/runtime-path
+         racket/path
          racket/string
          ; libs
          (prefix-in easy: net/http-easy)
@@ -38,7 +38,7 @@
 (module+ test
   (require rackunit))
 
-(define-runtime-path path-archive "../storage/archive")
+(define path-archive (anytime-path ".." "storage/archive"))
 
 (define (page-wiki-offline req)
   (response-handler

From cf74ffb0e26e257f03fc467f2f0d1846533ba0df Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 8 Mar 2023 22:58:57 +1300
Subject: [PATCH 101/166] Rewrite archiver project

* Rewrite archiver.rkt to manage the stages order
* Rewrite archiver-gui.rkt:
  * Remembers the previous incomplete queue items
  * Pretty graphics for icons and progress bars
  * Segmented progress bars to indicate different stages
* Fix archiver-cli.rkt to use new stages
* Switch to req -d, so it doesn't auto-install gui libs
---
 archiver/archiver-cli.rkt      |  63 +++--
 archiver/archiver-database.rkt |  78 ++++--
 archiver/archiver-gui.rkt      | 417 +++++++++++++++++++++------------
 archiver/archiver.rkt          | 328 ++++++++++++++------------
 4 files changed, 536 insertions(+), 350 deletions(-)

diff --git a/archiver/archiver-cli.rkt b/archiver/archiver-cli.rkt
index d96aa650..11f25d0b 100644
--- a/archiver/archiver-cli.rkt
+++ b/archiver/archiver-cli.rkt
@@ -6,24 +6,24 @@
              ""
              "Downloaded pages go into `archive/` next to the executable."
              "Database goes into `archiver.db*` next to the executable."
-             "The database is necessary to store your download progress and resume where you left off if the process is interrupted.")
-      (ps ""
-          "Default output style is `progress` in a tty and `lines` otherwise."))
+             "The database is necessary to store your download progress and resume where you left off if the process is interrupted."))
 
 (flag (output-quiet?)
       ("-q" "--output-quiet" "disable progress output")
       (output-quiet? #t))
 
-(flag (output-lines?)
-      ("-l" "--output-lines" "output the name of each file downloaded")
-      (output-lines? #t))
-
 (flag (output-progress?)
-      ("-p" "--output-progress" "progress output for terminals")
+      ("-p" "--output-progress" "progress output for terminals (default in a tty)")
       (output-progress? #t))
 
+(flag (output-lines?)
+      ("-l" "--output-lines" "output the name of each file downloaded (default outside of a tty)")
+      (output-lines? #t))
+
 (constraint (one-of output-quiet? output-lines? output-progress?))
 
+
+
 (program
  (start [wikiname "wikiname to download"])
  ;; set up arguments
@@ -42,30 +42,27 @@
  ;; check
  (when (or (not wikiname) (equal? wikiname ""))
    (raise-user-error "Please specify the wikiname to download on the command line."))
- ;; stage 1
- (cond [(output-lines?) (displayln "Downloading list of pages...")]
-       [(output-progress?) (printf "Downloading list of pages... \r")])
- (if-necessary-download-list-of-pages
-  wikiname
-  (λ (a b c)
-    (cond [(output-progress?) (printf "Downloading list of pages... [~a/~b]\r" a b)])))
- ;; stage 2
- (save-each-page
-  wikiname
-  (λ (a b c)
-    (define basename (basename->name-for-query c))
-    (cond
-      [(output-lines?)
-       (displayln basename)]
-      [(output-progress?)
-       (when (eq? (modulo a 20) 0)
-         (thread (λ () (update-width))))
-       (define prefix (format "[~a/~a] " a b))
-       (define rest (- width (string-length prefix)))
-       (define real-width (min (string-length basename) rest))
-       (define spare-width (- rest real-width))
-       (define name-display (substring basename 0 real-width))
-       (define whitespace (make-string spare-width #\ ))
-       (printf "~a~a~a\r" prefix name-display whitespace)]))))
+ ;; progress reporting based on selected mode
+ (define (report-progress a b c)
+   (define basename (basename->name-for-query c))
+   (cond
+     [(output-lines?)
+      (displayln basename)]
+     [(output-progress?)
+      (when (eq? (modulo a 20) 0)
+        (thread (λ () (update-width))))
+      (define prefix (format "[~a] [~a/~a] " wikiname a b))
+      (define rest (- width (string-length prefix)))
+      (define real-width (min (string-length basename) rest))
+      (define spare-width (- rest real-width))
+      (define name-display (substring basename 0 real-width))
+      (define whitespace (make-string spare-width #\ ))
+      (printf "~a~a~a\r" prefix name-display whitespace)]))
+ ;; download all stages
+ (for ([stage all-stages]
+       [i (in-naturals 1)])
+   (printf "> Stage ~a/~a~n" i (length all-stages))
+   (stage wikiname report-progress)
+   (displayln "")))
 
 (run start)
diff --git a/archiver/archiver-database.rkt b/archiver/archiver-database.rkt
index 2defb0e6..aaea4d66 100644
--- a/archiver/archiver-database.rkt
+++ b/archiver/archiver-database.rkt
@@ -1,7 +1,7 @@
 #lang racket/base
-(require racket/list
+(require racket/file
+         racket/list
          racket/path
-         racket/runtime-path
          racket/string
          json
          json-pointer
@@ -9,9 +9,16 @@
          "../lib/syntax.rkt")
 
 (provide
- slc)
+ get-slc
+ query-exec*
+ query-rows*
+ query-list*
+ query-value*
+ query-maybe-value*
+ query-maybe-row*)
 
-(define-runtime-path database-file "../storage/archiver.db")
+(define storage-path (anytime-path ".." "storage"))
+(define database-file (build-path storage-path "archiver.db"))
 
 (define migrations
   (wrap-sql
@@ -25,23 +32,50 @@
     (query-exec slc "alter table wiki add column license_text TEXT")
     (query-exec slc "alter table wiki add column license_url TEXT"))))
 
-(define slc (sqlite3-connect #:database database-file #:mode 'create))
-(query-exec slc "PRAGMA journal_mode=WAL")
-(define database-version
-  (with-handlers ([exn:fail:sql?
-                   (λ (exn)
-                     ; need to set up the database
-                     (query-exec slc "create table database_version (version integer, primary key (version))")
-                     (query-exec slc "insert into database_version values (0)")
-                     0)])
-    (query-value slc "select version from database_version")))
+(define slc (box #f))
+(define (get-slc)
+  (define slc* (unbox slc))
+  (cond
+    [slc* slc*]
+    [else
+     (make-directory* storage-path)
+     (define slc* (sqlite3-connect #:database database-file #:mode 'create))
+     (query-exec slc* "PRAGMA journal_mode=WAL")
+     (define database-version
+       (with-handlers ([exn:fail:sql?
+                        (λ (exn)
+                          ; need to set up the database
+                          (query-exec slc* "create table database_version (version integer, primary key (version))")
+                          (query-exec slc* "insert into database_version values (0)")
+                          0)])
+         (query-value slc* "select version from database_version")))
 
-(let do-migrate-step ()
-  (when (database-version . < . (length migrations))
-    (call-with-transaction
-     slc
-     (list-ref migrations database-version))
-    (set! database-version (add1 database-version))
-    (query-exec slc "update database_version set version = $1" database-version)
-    (do-migrate-step)))
+     (let do-migrate-step ()
+       (when (database-version . < . (length migrations))
+         (call-with-transaction
+          slc*
+          (list-ref migrations database-version))
+         (set! database-version (add1 database-version))
+         (query-exec slc* "update database_version set version = $1" database-version)
+         (do-migrate-step)))
 
+     (set-box! slc slc*)
+     slc*]))
+
+(define (query-exec* . args)
+  (apply query-exec (get-slc) args))
+
+(define (query-rows* . args)
+  (apply query-rows (get-slc) args))
+
+(define (query-list* . args)
+  (apply query-list (get-slc) args))
+
+(define (query-value* . args)
+  (apply query-value (get-slc) args))
+
+(define (query-maybe-value* . args)
+  (apply query-maybe-value (get-slc) args))
+
+(define (query-maybe-row* . args)
+  (apply query-maybe-row (get-slc) args))
diff --git a/archiver/archiver-gui.rkt b/archiver/archiver-gui.rkt
index 1badf650..3e476a90 100644
--- a/archiver/archiver-gui.rkt
+++ b/archiver/archiver-gui.rkt
@@ -1,89 +1,128 @@
 #lang racket/base
 (require racket/class
+         racket/draw
+         racket/format
          racket/list
          racket/port
          racket/set
+         racket/splicing
          racket/string
          db
          net/http-easy
+         memo
+         (only-in racket/gui timer%)
          racket/gui/easy
          racket/gui/easy/operator
+         (only-in pict bitmap)
+         images/icons/style
+         images/icons/control
+         images/icons/stickman
+         images/icons/symbol
          "archiver-database.rkt"
          "archiver.rkt"
          "../lib/url-utils.rkt"
          "../lib/xexpr-utils.rkt")
 
-(define active-threads (mutable-seteq))
+(default-icon-material rubber-icon-material)
+
+(require (for-syntax racket/base racket/match racket/set racket/string))
+
+(define-syntax (@> stx)
+  (define form (cdr (syntax->datum stx)))
+  (match form
+    [(list form) ; (@> (fn @obs))
+     ;; identify the observables and replace with non-@ symbols
+     (define collection (mutable-set))
+     (define updated
+       (let loop ([sexp form])
+         (cond [(symbol? sexp)
+                (let ([as-s (symbol->string sexp)])
+                  (if (string-prefix? as-s "@")
+                      (let ([without-@ (string->symbol (substring as-s 1))])
+                        (set-add! collection (cons sexp without-@))
+                        without-@)
+                      sexp))]
+               [(pair? sexp) (cons (loop (car sexp)) (loop (cdr sexp)))]
+               [#t sexp])))
+     (define collection-l (set->list collection))
+     ;; return obs-combine -> updated-form
+     (datum->syntax stx `(obs-combine (λ (,@(map cdr collection-l)) ,updated) ,@(map car collection-l)))]
+    [(list (? string? str) args ...) ; (@> "Blah: ~a/~a" @arg1 arg2)
+     ;; identify the observables and replace with non-@ symbols
+     (define collection-l
+       (for/list ([arg args])
+         (if (symbol? arg)
+             (let ([as-s (symbol->string arg)])
+               (if (string-prefix? as-s "@")
+                   (let ([without-@ (string->symbol (substring as-s 1))])
+                     (cons arg without-@))
+                   (cons #f arg)))
+             (cons #f arg))))
+     (define collection-lo (filter car collection-l))
+     ;; return obs-combine -> format
+     (datum->syntax stx `(obs-combine (λ (,@(map cdr collection-lo)) (format ,str ,@(map cdr collection-l))) ,@(map car collection-lo)))]))
 
 (define/obs @auto-retry #f)
-(define/obs @wikiname "")
-(define/obs @state 'waiting)
-(define/obs @num-pages 1)
-(define/obs @done-pages 0)
-(define/obs @just-done "")
-(define/obs @queue '())
-(define @title
-  (obs-combine
-   (λ (state queue num-pages done-pages)
-     (define suffix (if (pair? queue)
-                        (format " +~a" (length queue))
-                        ""))
-     (define progress (if (eq? num-pages 0)
-                          " 0%"
-                          (format " ~a%" (round (inexact->exact (* (/ done-pages num-pages) 100))))))
-     (case state
-       [(waiting stage-0) (format "Fandom Archiver~a" suffix)]
-       [(stage-1) (format "Fandom Archiver 0%~a" suffix)]
-       [(stage-2) (format "Fandom Archiver~a~a" progress suffix)]
-       [(err) "ERROR Fandom Archiver"]
-       [(done) "Fandom Archiver 100%"]))
-   @state @queue @num-pages (obs-throttle @done-pages #:duration 5000)))
 
-(define-syntax-rule (t body ...)
-  (set-add! active-threads (thread (λ () body ...))))
+(define-struct qi^ (wikiname st stage progress max-progress eta th) #:transparent) ;; queue item
 
-(define (do-start-or-queue)
-  (define wikiname (obs-peek @wikiname))
-  (:= @wikiname "")
-  (when (not (equal? (string-trim wikiname) ""))
-    (@queue . <~ . (λ (q) (append q (list wikiname))))
-    (shift-queue-maybe)))
+(define rows (query-rows* "select wikiname, progress from wiki where progress < 4"))
+(define/obs @queue null)
+(define (add-wikiname-to-queue wikiname st stage)
+  (@queue . <~ . (λ (queue)
+                   (define already-exists? (findf (λ (qi) (equal? (qi^-wikiname qi) wikiname)) queue))
+                   (if already-exists?
+                       queue
+                       (append queue (list (qi^ wikiname st stage 0 1 "..." #f)))))))
+(for ([row rows])
+  (add-wikiname-to-queue (vector-ref row 0)
+                         (if (= (vector-ref row 1) 4)
+                             'complete
+                             'queued)
+                         (vector-ref row 1)))
 
-(define (shift-queue-maybe)
-  (when (memq (obs-peek @state) '(waiting done))
-    (define q (obs-peek @queue))
-    (cond
-      [(pair? q)
-       (define wikiname (car q))
-       (:= @queue (cdr q))
-       (do-start-stage1 wikiname)]
-      [#t (:= @state 'done)])))
+(define status-icon-size 32)
+(define status-icon-min-width 36)
+(define button-icon-size 12)
 
-(define (do-start-stage1 wikiname)
-  (:= @just-done "")
-  (:= @done-pages 0)
-  (:= @num-pages 1)
-  (t (with-handlers ([exn:fail? (handle-graphical-exn wikiname)])
-       (:= @state 'stage-0)
-       (if-necessary-download-list-of-pages wikiname (λ (now-done num-pages just-done-name)
-                                                       (:= @num-pages num-pages)
-                                                       (:= @done-pages now-done)
-                                                       (:= @just-done just-done-name)
-                                                       (:= @state 'stage-1)))
-       (do-start-stage2 wikiname))))
+(define color-green (make-color 90 212 68))
 
-(define (do-start-stage2 wikiname)
-  (:= @just-done "")
-  (:= @num-pages 1)
-  (:= @done-pages 0)
-  (t (with-handlers ([exn:fail? (handle-graphical-exn wikiname)])
-       (save-each-page wikiname (λ (now-done num-pages just-done-path)
-                                  (:= @num-pages num-pages)
-                                  (:= @done-pages now-done)
-                                  (:= @just-done just-done-path)))
-       (:= @state 'waiting)
-       (shift-queue-maybe)))
-  (:= @state 'stage-2))
+(define/obs @input "")
+
+(splicing-let ([frame-count 30])
+  (define stickman-frames
+    (for/vector ([s (in-range 0 1 (/ 1 frame-count))])
+      (running-stickman-icon
+       s
+       #:height status-icon-size
+       #:material (default-icon-material))))
+
+  (define/obs @stick-frame-no 0)
+  (define stick-timer
+    (new timer%
+         [notify-callback (λ () (@stick-frame-no . <~ . add1))]
+         [interval (truncate (/ 1000 frame-count))]))
+  (define/obs @stick
+    (@stick-frame-no . ~> . (λ (n) (vector-ref stickman-frames
+                                               (modulo n (vector-length stickman-frames)))))))
+
+(define status-icons
+  (hasheq 'queued (stop-icon #:color syntax-icon-color #:height status-icon-size)
+          'paused (continue-forward-icon #:color syntax-icon-color #:height status-icon-size)
+          'running @stick
+          'error (x-icon #:height status-icon-size)
+          'complete (check-icon #:color color-green #:height status-icon-size)))
+
+(define action-icons
+  (hasheq 'pause (pause-icon #:color syntax-icon-color #:height button-icon-size)
+          'resume (play-icon #:color color-green #:height button-icon-size)))
+
+(define (bitmap-view @the-bitmap [min-width 1])
+  (pict-canvas #:min-size (@> (list (max min-width (send @the-bitmap get-width)) (send @the-bitmap get-height))) #;(if min-size (list min-size min-size) #f)
+               #:stretch '(#f #f)
+               #:style '(transparent)
+               @the-bitmap
+               bitmap))
 
 (define (exn->string e)
   (with-output-to-string
@@ -96,13 +135,15 @@
           (printf ": ~a" (car item)))
         (displayln "")))))
 
-(define ((handle-graphical-exn wikiname) e)
+(define ((handle-graphical-exn @qi) e)
   (displayln (exn->string e) (current-error-port))
   (cond
     [(obs-peek @auto-retry)
-     (do-retry-end wikiname)]
+     (void) ;; TODO
+     #;(do-retry-end wikiname)]
     [#t
-     (:= @state 'err)
+     (update-qi @qi [st 'error])
+     (do-try-unpause-next-entry)
      (thread
       (λ ()
         (define/obs @visible? #t)
@@ -116,89 +157,177 @@
                          (input #:style '(multiple hscroll)
                                 #:min-size '(#f 200)
                                 (exn->string e))
-                         (button "Retry Now" (λ () (:= @visible? #f) (do-retry-now wikiname)))
-                         (button "Retry Round-Robin" (λ () (:= @visible? #f) (do-retry-end wikiname)))
-                         (button "Skip Wiki" (λ () (:= @visible? #f) (do-continue)))
-                         (button "Use Auto-Retry" (λ ()
-                                                    (:= @auto-retry #t)
-                                                    (:= @visible? #f)
-                                                    (do-retry-end wikiname)))
-                         (text "Be careful not to auto-retry an infinite loop!")))
+                         ;; TODO
+                         #;(button "Retry Now" (λ () (:= @visible? #f) (do-retry-now wikiname)))
+                         #;(button "Retry Round-Robin" (λ () (:= @visible? #f) (do-retry-end wikiname)))
+                         #;(button "Skip Wiki" (λ () (:= @visible? #f) (do-continue)))
+                         #;(button "Use Auto-Retry" (λ ()
+                                                      (:= @auto-retry #t)
+                                                      (:= @visible? #f)
+                                                      (do-retry-end wikiname)))
+                         #;(text "Be careful not to auto-retry an infinite loop!")))
          main-window)))
      (sleep)
-     ; make sure the old broken threads are all gone
-     (for ([th active-threads]) (kill-thread th))
-     (set-clear! active-threads)]))
+     ; make sure the broken thread is gone
+     (define th (qi^-th (obs-peek @qi)))
+     (when th (kill-thread th))]))
 
-(define (do-retry-now wikiname)
-  (@queue . <~ . (λ (q) (append (list wikiname) q)))
-  (:= @state 'waiting)
-  (shift-queue-maybe))
+(define segments
+  (list
+   (list 5/100 (make-color 0 223 217))
+   (list 88/100 color-green)
+   (list 2/100 (make-color 0 223 217))
+   (list 5/100 color-green)))
+(define segment-spacing 2)
+(unless (= (apply + (map car segments)) 1)
+  (error 'segments "segments add up to ~a, not 1" (apply + (map car segments))))
 
-(define (do-retry-end wikiname)
-  (@queue . <~ . (λ (q) (append q (list wikiname))))
-  (:= @state 'waiting)
-  (shift-queue-maybe))
+;; return the new bitmap, which can be drawn on a dc<%>
+(define/memoize (ray-trace width height stage progress max-progress)
+  ;; (printf "rendering ~a ~a/~a at ~a~n" stage progress max-progress (current-inexact-milliseconds))
+  (define bm (make-object bitmap% width height #f #t))
+  (define dc (make-object bitmap-dc% bm))
+  (define width-available (- width (* (length segments) segment-spacing)))
+  (send dc set-smoothing 'unsmoothed)
+  (send dc set-pen "black" 0 'transparent)
+  (for/fold ([offset 0])
+            ([segment segments]
+             [i (in-naturals 0)]) ;; zero indexed stages?
+    ;; calculate start and end locations of grey bar
+    (define-values (segment-proportion segment-color) (apply values segment))
+    (define segment-start (if (= offset 0) 0 (+ offset segment-spacing)))
+    (define segment-width (* width-available segment-proportion))
+    ;; draw grey bar
+    (send dc set-brush (make-color 180 180 180 0.4) 'solid)
+    (send dc draw-rectangle segment-start 0 segment-width height)
+    ;; draw solid bar according to the current item's progress
+    (define proportion
+      (cond [(stage . < . i) 0]
+            [(stage . > . i) 1]
+            [(max-progress . <= . 0) 0]
+            [(progress . < . 0) 0]
+            [(progress . >= . max-progress) 1]
+            [else (progress . / . max-progress)]))
+    (send dc set-brush segment-color 'solid)
+    (send dc draw-rectangle segment-start 0 (* proportion segment-width) height)
+    (+ segment-start segment-width))
+  (bitmap-render-icon bm 6/8))
 
-(define (do-continue)
-  (:= @state 'waiting)
-  (shift-queue-maybe))
+;; get ray traced bitmap (possibly from cache) and draw on dc<%>
+(define (draw-bar orig-dc qi)
+  ;; (println ray-traced)
+  (define-values (width height) (send orig-dc get-size))
+  (send orig-dc draw-bitmap (ray-trace width height  (qi^-stage qi) (qi^-progress qi) (qi^-max-progress qi)) 0 0))
 
-(define (display-basename basename)
-  (define limit 40)
-  (cond [(string? basename)
-         (define query (basename->name-for-query basename))
-         (define segments (string-split query "/"))
-         (when (and ((string-length query) . > . limit) ((length segments) . >= . 2))
-           (set! query (string-append ".../" (last segments))))
-         (when ((string-length query) . > . limit)
-           (set! query (string-append (substring query 0 (- limit 3)) "...")))
-         query]
-        [#t "?"]))
+(define ((make-progress-updater @qi) a b c)
+  ;; (printf "~a: ~a/~a ~a~n" (qi^-wikiname (obs-peek @qi)) a b c)
+  (update-qi @qi [progress a] [max-progress b]))
+
+(define (do-add-to-queue)
+  (define wikiname (string-trim (obs-peek @input)))
+  (when ((string-length wikiname) . > . 0)
+    (add-wikiname-to-queue wikiname 'queued 0)) ;; TODO: automatically start?
+  (:= @input ""))
+
+(define-syntax-rule (update-qi @qi args ...)
+  (let ([wikiname (qi^-wikiname (obs-peek @qi))])
+    (@queue . <~ . (λ (queue)
+                     (for/list ([qi queue])
+                       (if (equal? (qi^-wikiname qi) wikiname)
+                           (struct-copy qi^ qi args ...)
+                           qi))))))
+
+(define (do-start-qi @qi)
+  (define th
+    (thread (λ ()
+              (with-handlers ([exn? (handle-graphical-exn @qi)])
+                (define last-stage
+                  (for/last ([stage all-stages]
+                             [i (in-naturals)])
+                    (update-qi @qi [stage i])
+                    (stage (qi^-wikiname (obs-peek @qi)) (make-progress-updater @qi))
+                    i))
+                (update-qi @qi [st 'complete] [stage (add1 last-stage)])
+                (do-try-unpause-next-entry)))))
+  (update-qi @qi [st 'running] [th th]))
+
+(define (do-stop-qi @qi)
+  (define th (qi^-th (obs-peek @qi)))
+  (when th (kill-thread th))
+  (update-qi @qi [th #f] [st 'paused]))
+
+(define (do-try-unpause-next-entry)
+  (define queue (obs-peek @queue))
+  (define next-qi (for/first ([qi queue]
+                              #:when (memq (qi^-st qi) '(paused queued error)))
+                    qi))
+  (when next-qi
+    (define @qi (@queue . ~> . (λ (queue) (findf (λ (qi) (equal? (qi^-wikiname qi) (qi^-wikiname next-qi))) queue))))
+    (do-start-qi @qi)))
 
 (define main-window
   (render
-   (window #:title @title
-           #:size '(360 200)
-           #:mixin (λ (%) (class %
-                            (super-new)
-                            (define/augment (on-close)
-                              (for ([th active-threads]) (kill-thread th))
-                              (disconnect slc))))
-           ;; input box at the top
-           (hpanel (text "https://")
-                   (input @wikiname
-                          (λ (event data) (cond
-                                            [(eq? event 'input) (:= @wikiname data)]
-                                            [(eq? event 'return) (do-start-or-queue)])))
-                   (text ".fandom.com"))
-           (button (@queue . ~> . (λ (q) (if (null? q) "Start" "Queue"))) (λ () (do-start-or-queue)))
-           (text (@queue . ~> . (λ (q) (if (null? q) "" (string-join #:before-first "Queue: " q ", ")))))
-           ;; show status based on overall application state
-           (case-view
-            @state
-            ;; waiting for wikiname entry
-            ((waiting) (vpanel
-                        (text "Fill in the wikiname and click start.")))
-            ((stage-0) (vpanel
-                        (text "Checking data...")))
-            ((stage-1) (vpanel
-                        (text "Gathering list of pages...")
-                        (text (@just-done . ~> . display-basename))
-                        (text (@done-pages . ~> . (λ (x) (if (eq? x 0)
-                                                             "0/?"
-                                                             (format "~a/~a" x (obs-peek @num-pages))))))))
-            ;; downloading contents
-            ((stage-2) (vpanel
-                        (text "Downloading page text...")
-                        (progress @done-pages #:range @num-pages)
-                        (text (@done-pages . ~> . (λ (x) (format "~a/~a" x (obs-peek @num-pages)))))
-                        (text (@just-done . ~> . display-basename))))
-            ((done) (vpanel
-                     (text "All wikis downloaded!")))
-            ((err) (vpanel
-                      (text "Error. Check the popup window.")))
-            (else (text (@state . ~> . (λ (state) (format "invalid state: ~a" state))))))
-           (checkbox #:label "Auto-retry on error? (Dangerous)"
-                     #:checked? @auto-retry
-                     (λ:= @auto-retry)))))
+   (window
+    #:title "Fandom Archiver"
+    #:size '(400 300)
+    #:mixin (λ (%) (class %
+                     (super-new)
+                     (define/augment (on-close)
+                       (send stick-timer stop)
+                       (for ([qi (obs-peek @queue)])
+                         (when (qi^-th qi)
+                           (kill-thread (qi^-th qi))))
+                       #;(disconnect*))))
+    (vpanel
+     #:spacing 10
+     #:margin '(5 5)
+     (hpanel
+      #:stretch '(#t #f)
+      #:spacing 10
+      (hpanel
+       (text "https://")
+       (input @input
+              (λ (event data) (cond
+                                [(eq? event 'input) (:= @input data)]
+                                [(eq? event 'return) (do-add-to-queue)])))
+       (text ".fandom.com"))
+      (button "Download Wiki" do-add-to-queue))
+     (list-view
+      #:style '(vertical)
+      @queue
+      #:key qi^-wikiname
+      (λ (k @qi)
+        (define @status-icons
+          (@> (case (qi^-st @qi)
+                [(running) @stick]
+                [else (hash-ref status-icons (qi^-st @qi))])))
+        (define @is-running?
+          (@> (memq (qi^-st @qi) '(running))))
+        ;; state icon at the left side
+        (hpanel #:stretch '(#t #f)
+                #:alignment '(left center)
+                #:spacing 8
+                (bitmap-view @status-icons status-icon-min-width)
+                (vpanel
+                 ;; name and buttons (top half)
+                 (hpanel #:alignment '(left bottom)
+                         (text (@> (qi^-wikiname @qi)))
+                         (spacer)
+                         (hpanel
+                          #:stretch '(#f #f)
+                          (if-view @is-running?
+                                   (button (hash-ref action-icons 'pause)
+                                           (λ () (do-stop-qi @qi)))
+                                   (button (hash-ref action-icons 'resume)
+                                           (λ () (do-start-qi @qi))))))
+                 ;; progress bar (bottom half)
+                 (hpanel
+                  (canvas
+                   @qi
+                   #:style '(transparent)
+                   #:margin '(3 3)
+                   draw-bar)
+                  (hpanel #:min-size '(68 #f)
+                          #:stretch '(#f #f)
+                          #:alignment '(right center)
+                          (text (@> (format "eta ~a" (qi^-eta @qi))))))))))))))
diff --git a/archiver/archiver.rkt b/archiver/archiver.rkt
index fbeec460..5eb56c81 100644
--- a/archiver/archiver.rkt
+++ b/archiver/archiver.rkt
@@ -2,38 +2,35 @@
 (require racket/file
          racket/function
          racket/list
-         racket/runtime-path
+         racket/path
+         racket/sequence
          racket/string
          net/url
          net/mime
          file/sha1
          net/http-easy
          db
-         "../lib/html-parsing/main.rkt"
          json
          "archiver-database.rkt"
+         "../lib/html-parsing/main.rkt"
          "../lib/mime-types.rkt"
+         "../lib/syntax.rkt"
          "../lib/tree-updater.rkt"
          "../lib/url-utils.rkt"
          "../lib/xexpr-utils.rkt"
          "../lib/archive-file-mappings.rkt")
 
-(define archive-slc slc)
-
 (provide
- if-necessary-download-list-of-pages
- download-list-of-pages
- save-each-page
  basename->name-for-query
  image-url->values
  hash->save-dir
- archive-slc)
+ all-stages)
 
 (module+ test
   (require rackunit))
 
-(define-runtime-path archive-root "../storage/archive")
-#;(define archive-root "archive")
+(define archive-root (anytime-path ".." "storage/archive"))
+(make-directory* archive-root)
 
 (define sources '#hasheq((style . 1) (page . 2)))
 
@@ -46,127 +43,34 @@
             wikiname
             (params->query '(("action" . "query")
                              ("meta" . "siteinfo")
-                             ("siprop" . "general|rightsinfo")
+                             ("siprop" . "general|rightsinfo|statistics")
                              ("format" . "json")
                              ("formatversion" . "2")))))
   (define data (response-json (get dest-url)))
-  (define exists? (query-maybe-value slc "select progress from wiki where wikiname = ?" wikiname))
-  (if exists?
-      (query-exec slc "update wiki set sitename = ?, basepage = ?, license_text = ?, license_url = ? where wikiname = ?"
+  (define exists? (query-maybe-value* "select progress from wiki where wikiname = ?" wikiname))
+  (if (and exists? (not (sql-null? exists?)))
+      (query-exec* "update wiki set sitename = ?, basepage = ?, license_text = ?, license_url = ? where wikiname = ?"
                   (jp "/query/general/sitename" data)
                   (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
                   (jp "/query/rightsinfo/text" data)
                   (jp "/query/rightsinfo/url" data)
                   wikiname)
-      (query-exec slc "insert into wiki (wikiname, progress, sitename, basepage, license_text, license_url) values (?, 1, ?, ?, ?, ?)"
+      (query-exec* "insert into wiki (wikiname, progress, sitename, basepage, license_text, license_url) values (?, 0, ?, ?, ?, ?)"
                   wikiname
                   (jp "/query/general/sitename" data)
                   (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
                   (jp "/query/rightsinfo/text" data)
-                  (jp "/query/rightsinfo/url" data))))
+                  (jp "/query/rightsinfo/url" data)))
+  (jp "/query/statistics/articles" data))
 
-;; call 1 if not yet done for that wiki
-(define (if-necessary-download-list-of-pages wikiname callback)
-  (define wiki-progress (query-maybe-value slc "select progress from wiki where wikiname = ?" wikiname))
-  ;; done yet?
-  (unless (and (real? wiki-progress) (wiki-progress . >= . 1))
-    ;; count total pages
-    (define dest-url
-      (format "https://~a.fandom.com/api.php?~a"
-              wikiname
-              (params->query `(("action" . "query") ("meta" . "siteinfo") ("siprop" . "statistics") ("format" . "json")))))
-    (define num-pages (jp "/query/statistics/articles" (response-json (get dest-url))))
-    (download-list-of-pages wikiname callback 0 num-pages #f)))
 
-;; 1. Download list of wiki pages and store in database
-(define (download-list-of-pages wikiname callback total-so-far grand-total path-with-namefrom)
-  (define url (if path-with-namefrom
-                  (format "https://~a.fandom.com~a" wikiname path-with-namefrom)
-                  (format "https://~a.fandom.com/wiki/Local_Sitemap" wikiname)))
-  (define r (get url))
-  (define page (html->xexp (bytes->string/utf-8 (response-body r))))
-  (define link-namefrom
-    ((query-selector (λ (t a c x) (and (eq? t 'a)
-                                       (pair? x)
-                                       (string-contains? (car x) "Next page")
-                                       (let ([href (get-attribute 'href a)] )
-                                         (and href (string-contains? href "/wiki/Local_Sitemap")))))
-                     page #:include-text? #t)))
-  (define row-values
-    (for/list ([link (in-producer
-                      (query-selector
-                       (λ (t a c) (eq? t 'a))
-                       ((query-selector (λ (t a c) (has-class? "mw-allpages-chunk" a)) page)))
-                      #f)])
-      (list wikiname (local-encoded-url->basename (get-attribute 'href (bits->attributes link))) 0)))
-  (define query-template (string-join (make-list (length row-values) "(?, ?, ?)") ", " #:before-first "insert or ignore into page (wikiname, basename, progress) values "))
-  (apply query-exec slc query-template (flatten row-values))
-  (define new-total (+ (length row-values) total-so-far))
-  (callback new-total grand-total (second (last row-values)))
-  (cond
-    [link-namefrom ; repeat on the next page
-     (download-list-of-pages wikiname callback new-total grand-total (get-attribute 'href (bits->attributes link-namefrom)))]
-    [#t ; all done downloading sitemap
-     (insert-wiki-entry wikiname)]))
-
-;; 2. Download each page via API and:
-;; * Save API response to file
-(define max-page-progress 1)
-(define (save-each-page wikiname callback)
-  ;; prepare destination folder
-  (define save-dir (build-path archive-root wikiname))
-  (make-directory* save-dir)
-  ;; gather list of basenames to download (that aren't yet complete)
-  (define basenames (query-list slc "select basename from page where wikiname = ? and progress < ?"
-                                wikiname max-page-progress))
-  ;; counter of complete/incomplete basenames
-  (define already-done-count
-    (query-value slc "select count(*) from page where wikiname = ? and progress = ?"
-                 wikiname max-page-progress))
-  (define not-done-count
-    (query-value slc "select count(*) from page where wikiname = ? and progress < ?"
-                 wikiname max-page-progress))
-  ;; set initial progress
-  (callback already-done-count (+ already-done-count not-done-count) "")
-  ;; loop through basenames and download
-  (for ([basename basenames]
-        [i (in-naturals 1)])
-    (define name-for-query (basename->name-for-query basename))
-    (define dest-url
-      (format "https://~a.fandom.com/api.php?~a"
-              wikiname
-              (params->query `(("action" . "parse")
-                               ("page" . ,name-for-query)
-                               ("prop" . "text|headhtml|langlinks")
-                               ("formatversion" . "2")
-                               ("format" . "json")))))
-    (define r (get dest-url))
-    (define body (response-body r))
-    (define filename (string-append basename ".json"))
-    (define save-path
-      (cond [((string-length basename) . > . 240)
-             (define key (sha1 (string->bytes/latin-1 basename)))
-             (query-exec slc "insert into special_page (wikiname, key, basename) values (?, ?, ?)"
-                         wikiname key basename)
-             (build-path save-dir (string-append key ".json"))]
-            [#t
-             (build-path save-dir (string-append basename ".json"))]))
-    (display-to-file body save-path #:exists 'replace)
-    (query-exec slc "update page set progress = 1 where wikiname = ? and basename = ?"
-                wikiname basename)
-    (callback (+ already-done-count i) (+ already-done-count not-done-count) basename))
-  ;; saved all pages, register that fact in the database
-  (query-exec slc "update wiki set progress = 2 where wikiname = ?" wikiname))
-
-;; 3. Download CSS and:
-;; * Save CSS to file
-;; * Record style images to database
 (define (check-style-for-images wikiname path)
   (define content (file->string path))
   (define urls (regexp-match* #rx"url\\(\"?'?([^)]*)'?\"?\\)" content #:match-select cadr))
   (for/list ([url urls]
              #:when (not (or (equal? url "")
                              (equal? url "'")
+                             (string-suffix? url "\"")
                              (string-contains? url "/resources-ucp/")
                              (string-contains? url "/fonts/")
                              (string-contains? url "/drm_fonts/")
@@ -184,7 +88,7 @@
       [(string-prefix? url "/") (format "https://~a.fandom.com~a" wikiname url)]
       [else (raise-user-error "While calling check-style-for-images, this URL had an unknown format and couldn't be saved:" url path)])))
 
-(define (download-styles-for-wiki wikiname)
+(define (download-styles-for-wiki wikiname callback)
   (define save-dir (build-path archive-root wikiname "styles"))
   (make-directory* save-dir)
   (define theme (λ (theme-name)
@@ -198,18 +102,137 @@
      (theme "dark")
      (cons (format "https://~a.fandom.com/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop" wikiname)
            (build-path save-dir "site.css"))))
-  (for ([style styles])
+  (for ([style styles]
+        [i (in-naturals)])
+    (callback i (length styles) "styles...")
     (define r (get (car style)))
     (define body (response-body r))
     (display-to-file body (cdr style) #:exists 'replace)
     ;; XXX: how the HELL do I deal with @import?? would need some kind of recursion here. how will the page server know where to look up the style file to be able to serve them again? do I add another link-stylesheet tag to the main page? what about the remaining stuck @import url?
     )
+  (callback (length styles) (length styles) "styles...")
   styles)
 
-(define (do-step-3 wikiname)
-  (define wiki-progress (query-maybe-value slc "select progress from wiki where wikiname = ?" wikiname))
+(define (hash->save-dir wikiname hash)
+  (build-path archive-root wikiname "images" (substring hash 0 1) (substring hash 0 2)))
+
+(define (image-url->values i)
+  ;; TODO: handle case where there is multiple broken cb parameter on minecraft wiki
+  ;; TODO: ensure it still "works" with broken &amp; on minecraft wiki
+  (define no-cb (regexp-replace #rx"\\cb=[0-9]+&?" i "")) ; remove cb url parameter which does nothing
+  (define key (regexp-replace #rx"[&?]$" no-cb "")) ; remove extra separator if necessary
+  (define hash (sha1 (string->bytes/utf-8 key)))
+  (cons key hash))
+
+
+;; 1. Download list of wiki pages and store in database, if not done yet for that wiki
+(define (if-necessary-download-list-of-pages wikiname callback)
+  (define wiki-progress (query-maybe-value* "select progress from wiki where wikiname = ?" wikiname))
+  ;; done yet?
+  (unless (and (real? wiki-progress) (wiki-progress . >= . 1))
+    ;; Count total pages
+    (define num-pages (insert-wiki-entry wikiname))
+    ;; Download the entire index of pages
+    (define basenames
+      (let loop ([path-with-namefrom "/wiki/Local_Sitemap"]
+                 [basenames-previous-pages null])
+        ;; Download the current index page
+        (define url (format "https://~a.fandom.com~a" wikiname path-with-namefrom))
+        (define r (get url))
+        ;; Metadata from this page (the link to the next page)
+        (define page (html->xexp (bytes->string/utf-8 (response-body r))))
+        (define link-namefrom
+          ((query-selector (λ (t a c x) (and (eq? t 'a)
+                                             (pair? x)
+                                             (string-contains? (car x) "Next page")
+                                             (let ([href (get-attribute 'href a)] )
+                                               (and href (string-contains? href "/wiki/Local_Sitemap")))))
+                           page #:include-text? #t)))
+        ;; Content from this page
+        (define basenames-this-page
+          (for/list ([link (in-producer
+                            (query-selector
+                             (λ (t a c) (eq? t 'a))
+                             ((query-selector (λ (t a c) (has-class? "mw-allpages-chunk" a)) page)))
+                            #f)])
+            (local-encoded-url->basename (get-attribute 'href (bits->attributes link)))))
+        ;; Call the progress callback
+        (define all-basenames (append basenames-previous-pages basenames-this-page))
+        (callback (length all-basenames) num-pages (last all-basenames))
+        ;; Recurse to download from the next page
+        (if link-namefrom
+            (loop (get-attribute 'href (bits->attributes link-namefrom)) all-basenames)
+            all-basenames)))
+    ;; Save those pages into the database
+    ;; SQLite can have a maximum of 32766 parameters in a single query
+    (for ([slice (in-slice 32760 basenames)])
+      (define query-template (string-join (make-list (length slice) "(?1, ?, 0)") ", " #:before-first "insert or ignore into page (wikiname, basename, progress) values "))
+      (call-with-transaction
+       (get-slc)
+       (λ ()
+         (apply query-exec* query-template wikiname slice)
+         ;; Record that we have the complete list of pages
+         (query-exec* "update wiki set progress = 1 where wikiname = ?" wikiname))))))
+
+
+;; 2. Download each page via API and:
+;; * Save API response to file
+(define max-page-progress 1)
+(define (save-each-page wikiname callback)
+  ;; prepare destination folder
+  (define save-dir (build-path archive-root wikiname))
+  (make-directory* save-dir)
+  ;; gather list of basenames to download (that aren't yet complete)
+  (define basenames (query-list* "select basename from page where wikiname = ? and progress < ?"
+                                wikiname max-page-progress))
+  ;; counter of complete/incomplete basenames
+  (define already-done-count
+    (query-value* "select count(*) from page where wikiname = ? and progress = ?"
+                 wikiname max-page-progress))
+  (define not-done-count
+    (query-value* "select count(*) from page where wikiname = ? and progress < ?"
+                  wikiname max-page-progress))
+  (define total-count (+ already-done-count not-done-count))
+  ;; set initial progress
+  (callback already-done-count total-count "")
+  ;; loop through basenames and download
+  (for ([basename basenames]
+        [i (in-naturals (add1 already-done-count))])
+    (define name-for-query (basename->name-for-query basename))
+    (define dest-url
+      (format "https://~a.fandom.com/api.php?~a"
+              wikiname
+              (params->query `(("action" . "parse")
+                               ("page" . ,name-for-query)
+                               ("prop" . "text|headhtml|langlinks")
+                               ("formatversion" . "2")
+                               ("format" . "json")))))
+    (define r (get dest-url))
+    (define body (response-body r))
+    (define filename (string-append basename ".json"))
+    (define save-path
+      (cond [((string-length basename) . > . 240)
+             (define key (sha1 (string->bytes/latin-1 basename)))
+             (query-exec* "insert into special_page (wikiname, key, basename) values (?, ?, ?)"
+                         wikiname key basename)
+             (build-path save-dir (string-append key ".json"))]
+            [#t
+             (build-path save-dir (string-append basename ".json"))]))
+    (display-to-file body save-path #:exists 'replace)
+    (query-exec* "update page set progress = 1 where wikiname = ? and basename = ?"
+                wikiname basename)
+    (callback i total-count basename))
+  ;; saved all pages, register that fact in the database
+  (query-exec* "update wiki set progress = 2 where wikiname = ?" wikiname))
+
+
+;; 3. Download CSS and:
+;; * Save CSS to file
+;; * Record style images to database
+(define (if-necessary-download-and-check-styles wikiname callback)
+  (define wiki-progress (query-maybe-value* "select progress from wiki where wikiname = ?" wikiname))
   (unless (and (number? wiki-progress) (wiki-progress . >= . 3))
-    (define styles (download-styles-for-wiki wikiname))
+    (define styles (download-styles-for-wiki wikiname callback))
     (define unique-image-urls
       (remove-duplicates
        (map image-url->values
@@ -217,48 +240,40 @@
              (for/list ([style styles])
                (check-style-for-images wikiname (cdr style)))))
        #:key cdr))
-    (println unique-image-urls)
     (for ([pair unique-image-urls])
-      (query-exec slc "insert or ignore into image (wikiname, url, hash, ext, source, progress) values (?, ?, ?, NULL, 1, 0)" wikiname (car pair) (cdr pair)))
-    (query-exec slc "update wiki set progress = 3 where wikiname = ?" wikiname)))
+      (query-exec* "insert or ignore into image (wikiname, url, hash, ext, source, progress) values (?, ?, ?, NULL, 1, 0)" wikiname (car pair) (cdr pair)))
+    (query-exec* "update wiki set progress = 3 where wikiname = ?" wikiname)))
+
 
 ;; 4: From downloaded pages, record URLs of image sources and inline style images to database
-(define (hash->save-dir wikiname hash)
-  (build-path archive-root wikiname "images" (substring hash 0 1) (substring hash 0 2)))
-
-(define (image-url->values i)
-  ;; TODO: handle case where there is multiple cb parameter on minecraft wiki
-  ;; TODO: ensure it still "works" with broken &amp; on minecraft wiki
-  (define no-cb (regexp-replace #rx"\\cb=[0-9]+&?" i "")) ; remove cb url parameter which does nothing
-  (define key (regexp-replace #rx"[&?]$" no-cb "")) ; remove extra separator if necessary
-  (define hash (sha1 (string->bytes/utf-8 key)))
-  (cons key hash))
-
 (define (check-json-for-images wikiname path)
   (define data (with-input-from-file path (λ () (read-json))))
   (define page (html->xexp (preprocess-html-wiki (jp "/parse/text" data))))
   (define tree (update-tree-wiki page wikiname))
-  (remove-duplicates
-   (for/list ([element (in-producer
-                        (query-selector
-                         (λ (t a c)
-                           (and (eq? t 'img)
-                                (get-attribute 'src a)))
-                         tree)
-                        #f)])
-     (image-url->values (get-attribute 'src (bits->attributes element))))))
+  null
+  #;(remove-duplicates
+     (for/list ([element (in-producer
+                          (query-selector
+                           (λ (t a c)
+                             (and (eq? t 'img)
+                                  (get-attribute 'src a)))
+                           tree)
+                          #f)])
+       (image-url->values (get-attribute 'src (bits->attributes element))))))
+
 
 ;; 5. Download image sources and style images according to database
-(define (save-each-image wikiname source callback)
+(define (save-each-image wikiname callback)
+  (define source (hash-ref sources 'style)) ;; TODO: download entire wiki images instead?
   ;; gather list of basenames to download (that aren't yet complete)
-  (define rows (query-rows slc "select url, hash from image where wikiname = ? and source <= ? and progress < 1"
+  (define rows (query-rows* "select url, hash from image where wikiname = ? and source <= ? and progress < 1"
                                 wikiname source))
   ;; counter of complete/incomplete basenames
   (define already-done-count
-    (query-value slc "select count(*) from image where wikiname = ? and source <= ? and progress = 1"
+    (query-value* "select count(*) from image where wikiname = ? and source <= ? and progress = 1"
                  wikiname source))
   (define not-done-count
-    (query-value slc "select count(*) from image where wikiname = ? and source <= ? and progress < 1"
+    (query-value* "select count(*) from image where wikiname = ? and source <= ? and progress < 1"
                  wikiname source))
   ;; set initial progress
   (callback already-done-count (+ already-done-count not-done-count) "")
@@ -269,26 +284,35 @@
     (define url (vector-ref row 0))
     (define hash (vector-ref row 1))
     ;; check
-    (printf "~a -> ~a~n" url hash)
+    #; (printf "~a -> ~a~n" url hash)
     (define r (get url))
     (define declared-type (response-headers-ref r 'content-type))
     (define final-type (if (equal? declared-type #"application/octet-stream")
                            (let ([sniff-entity (message-entity (mime-analyze (response-body r)))])
                              (string->bytes/latin-1 (format "~a/~a" (entity-type sniff-entity) (entity-subtype sniff-entity))))
                            declared-type))
-    (define ext (bytes->string/latin-1 (mime-type->ext final-type)))
+    (define ext
+      (with-handlers ([exn:fail:contract? (λ _ (error 'save-each-image "no ext found for mime type `~a` in file ~a" final-type url))])
+        (bytes->string/latin-1 (mime-type->ext final-type))))
     ;; save
     (define save-dir (hash->save-dir wikiname hash))
     (make-directory* save-dir)
     (define save-path (build-path save-dir (string-append hash "." ext)))
     (define body (response-body r))
     (display-to-file body save-path #:exists 'replace)
-    (query-exec slc "update image set progress = 1, ext = ? where wikiname = ? and hash = ?"
+    (query-exec* "update image set progress = 1, ext = ? where wikiname = ? and hash = ?"
                 ext wikiname hash)
-    (callback (+ already-done-count i) (+ already-done-count not-done-count) (string-append hash "." ext)))
-  ;; TODO: saved all images, register that fact in the database
-  )
+    (callback (+ already-done-count i) (+ already-done-count not-done-count) (string-append (substring hash 0 6) "..." ext)))
+  ;; saved all images, register that fact in the database
+  (query-exec* "update wiki set progress = 4 where wikiname = ?" wikiname))
 
+(define all-stages
+  (list
+   if-necessary-download-list-of-pages
+   save-each-page
+   if-necessary-download-and-check-styles
+   ;; check-json-for-images
+   save-each-image))
 
 (module+ test
   (check-equal? (html->xexp "<img src=\"https://example.com/images?src=Blah.jpg&amp;width=150\">")
@@ -299,11 +323,13 @@
   #;(do-step-3 "gallowmere")
   #;(save-each-image "gallowmere" (hash-ref sources 'style) (λ (a b c) (printf "~a/~a ~a~n" a b c)))
 
-  #;(for ([wikiname (query-list slc "select wikiname from wiki")])
+  #;(for ([wikiname (query-list* "select wikiname from wiki")])
       (println wikiname)
       (insert-wiki-entry wikiname))
 
-  #;(for ([wikiname (query-list slc "select wikiname from wiki")])
+  #;(for ([wikiname (query-list* "select wikiname from wiki")])
       (println wikiname)
       (do-step-3 wikiname)
       (save-each-image wikiname (hash-ref sources 'style) (λ (a b c) (printf "~a/~a ~a~n" a b c)))))
+
+; (for ([stage all-stages]) (stage "create" (λ (a b c) (printf "~a/~a ~a~n" a b c))))

From dfc9605cb61269138ccf196a54fb801160b32265 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 9 Mar 2023 00:04:07 +1300
Subject: [PATCH 102/166] Also use anytime-path in log.rkt

---
 lib/syntax.rkt |  5 ++++-
 src/log.rkt    | 17 +++++++++++++----
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/lib/syntax.rkt b/lib/syntax.rkt
index a587e03a..650e2f5e 100644
--- a/lib/syntax.rkt
+++ b/lib/syntax.rkt
@@ -136,7 +136,10 @@
     (error 'anytime-path "syntax source has no directory: ~v" stx))
   (datum->syntax
    stx
-   `(let* ([syntax-to-root (build-path (path-only ,source) ,to-root)]
+   `(let* ([source ,source]
+           [dir-of-source (path-only source)]
+           [_ (unless (path? dir-of-source) (error 'anytime-path "syntax source has no directory: ~v" ,source))]
+           [syntax-to-root (build-path dir-of-source ,to-root)]
            [root (if (directory-exists? syntax-to-root)
                      ;; running on the same filesystem it was compiled on, i.e. it's running the source code out of a directory, and the complication is the intermediate compilation
                      syntax-to-root
diff --git a/src/log.rkt b/src/log.rkt
index 5647986e..047c8aa0 100644
--- a/src/log.rkt
+++ b/src/log.rkt
@@ -1,7 +1,7 @@
 #lang typed/racket/base
 (require racket/file
+         racket/path
          racket/port
-         racket/runtime-path
          racket/string
          typed/srfi/19
          "config.rkt")
@@ -14,12 +14,21 @@
 (define last-flush 0)
 (define flush-every-millis 60000)
 
-(define-runtime-path log-file "../storage/logs/access-0.log")
+;; anytime-path macro expansion only works in an untyped submodule for reasons I cannot comprehend
+(module define-log-dir racket/base
+  (require racket/path
+           "../lib/syntax.rkt")
+  (provide log-dir)
+  (define log-dir (anytime-path ".." "storage/logs")))
+(require/typed (submod "." define-log-dir)
+               [log-dir Path])
+
+(define log-file (build-path log-dir "access-0.log"))
 (define log-port
   (if (config-true? 'access_log::enabled)
       (begin
-        (make-directory* (simplify-path (build-path log-file 'up)))
-         (open-output-file log-file #:exists 'append))
+        (make-directory* log-dir)
+        (open-output-file log-file #:exists 'append))
       (open-output-nowhere)))
 
 (: get-date-iso8601 (-> String))

From abb4473020f238061368e8f7f7757c43d5800699 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 9 Mar 2023 23:06:35 +1300
Subject: [PATCH 103/166] Fix siteinfo access when using feature_offline::only

---
 src/data.rkt | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/data.rkt b/src/data.rkt
index cb4e194b..b22e8a0c 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -37,6 +37,9 @@
 (define siteinfo-default (siteinfo^ "Unknown Wiki" "Main_Page" license-default))
 (define head-data-default (head-data^ "skin-fandomdesktop" (get-static-url "breezewiki-favicon.svg")))
 
+(when (config-true? 'feature_offline::only)
+  (void (get-slc)))
+
 (define/memoize (siteinfo-fetch wikiname) #:hash hash
   (cond
     [(config-true? 'feature_offline::only)

From 226bda5637bcf40ae708c06b5ce3bc9207373f19 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 14 Mar 2023 00:42:16 +1300
Subject: [PATCH 104/166] Allow preformatted blocks to scroll themselves

---
 static/main.css | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/static/main.css b/static/main.css
index ff18c4b1..3d3ed5ac 100644
--- a/static/main.css
+++ b/static/main.css
@@ -8,6 +8,9 @@ pre, code {
     font-family: monospace;
     font-size: 0.85em;
 }
+pre {
+    overflow-x: auto;
+}
 ul, ol {
     list-style-type: initial;
     padding-left: 2em;

From 5c3a0c27154174134857fb87806c9b311d68f39c Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 14 Mar 2023 00:42:40 +1300
Subject: [PATCH 105/166] archiver-gui: Add reset button to completed downloads

---
 archiver/archiver-gui.rkt | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/archiver/archiver-gui.rkt b/archiver/archiver-gui.rkt
index 3e476a90..6f09cb8d 100644
--- a/archiver/archiver-gui.rkt
+++ b/archiver/archiver-gui.rkt
@@ -14,9 +14,10 @@
          racket/gui/easy
          racket/gui/easy/operator
          (only-in pict bitmap)
-         images/icons/style
+         images/icons/arrow
          images/icons/control
          images/icons/stickman
+         images/icons/style
          images/icons/symbol
          "archiver-database.rkt"
          "archiver.rkt"
@@ -115,7 +116,8 @@
 
 (define action-icons
   (hasheq 'pause (pause-icon #:color syntax-icon-color #:height button-icon-size)
-          'resume (play-icon #:color color-green #:height button-icon-size)))
+          'resume (play-icon #:color color-green #:height button-icon-size)
+          'reset (left-over-arrow-icon #:color halt-icon-color #:height button-icon-size)))
 
 (define (bitmap-view @the-bitmap [min-width 1])
   (pict-canvas #:min-size (@> (list (max min-width (send @the-bitmap get-width)) (send @the-bitmap get-height))) #;(if min-size (list min-size min-size) #f)
@@ -256,6 +258,12 @@
   (when th (kill-thread th))
   (update-qi @qi [th #f] [st 'paused]))
 
+(define (do-reset-qi @qi)
+  (define th (qi^-th (obs-peek @qi)))
+  (when th (kill-thread th))
+  (update-qi @qi [th #f] [st 'queued] [stage 0] [progress 0] [max-progress 0])
+  (query-exec* "update wiki set progress = 0 where wikiname = ?" (qi^-wikiname (obs-peek @qi))))
+
 (define (do-try-unpause-next-entry)
   (define queue (obs-peek @queue))
   (define next-qi (for/first ([qi queue]
@@ -303,6 +311,8 @@
                 [else (hash-ref status-icons (qi^-st @qi))])))
         (define @is-running?
           (@> (memq (qi^-st @qi) '(running))))
+        (define @is-complete?
+          (@> (eq? (qi^-st @qi) 'complete)))
         ;; state icon at the left side
         (hpanel #:stretch '(#t #f)
                 #:alignment '(left center)
@@ -315,6 +325,10 @@
                          (spacer)
                          (hpanel
                           #:stretch '(#f #f)
+                          (if-view @is-complete?
+                                   (button (hash-ref action-icons 'reset)
+                                           (λ () (do-reset-qi @qi)))
+                                   (spacer))
                           (if-view @is-running?
                                    (button (hash-ref action-icons 'pause)
                                            (λ () (do-stop-qi @qi)))

From 91a743900794f7437f9ef7807906953392faa8bc Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 16 Mar 2023 01:12:06 +1300
Subject: [PATCH 106/166] Fix yugioh wiki card pages (only half-fixed in
 offline environments)

---
 archiver/archiver.rkt       |  2 +-
 archiver/info.rkt           |  3 +++
 archiver/req.rktd           |  1 +
 lib/mime.types              |  1 +
 lib/tree-updater.rkt        | 21 +++++++++++++++++++++
 src/application-globals.rkt |  2 +-
 6 files changed, 28 insertions(+), 2 deletions(-)
 create mode 100644 archiver/info.rkt
 create mode 100644 archiver/req.rktd

diff --git a/archiver/archiver.rkt b/archiver/archiver.rkt
index 5eb56c81..edd0d2bf 100644
--- a/archiver/archiver.rkt
+++ b/archiver/archiver.rkt
@@ -100,7 +100,7 @@
      (theme "default")
      (theme "light")
      (theme "dark")
-     (cons (format "https://~a.fandom.com/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop" wikiname)
+     (cons (format "https://~a.fandom.com/load.php?lang=en&modules=site.styles%7Cskin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles&only=styles&skin=fandomdesktop" wikiname)
            (build-path save-dir "site.css"))))
   (for ([style styles]
         [i (in-naturals)])
diff --git a/archiver/info.rkt b/archiver/info.rkt
new file mode 100644
index 00000000..17bb7475
--- /dev/null
+++ b/archiver/info.rkt
@@ -0,0 +1,3 @@
+#lang info
+
+(define build-deps '("rackunit-lib" "web-server-lib" "http-easy-lib" "html-parsing" "html-writing" "json-pointer" "ini-lib" "memo" "net-cookies-lib" "gui-easy-lib" "sql" "charterm" "cli"))
diff --git a/archiver/req.rktd b/archiver/req.rktd
new file mode 100644
index 00000000..e2d2fc27
--- /dev/null
+++ b/archiver/req.rktd
@@ -0,0 +1 @@
+((local (".")))
diff --git a/lib/mime.types b/lib/mime.types
index d31a2acc..c06a1e9d 100644
--- a/lib/mime.types
+++ b/lib/mime.types
@@ -17,6 +17,7 @@ image/png                             png
 image/tiff                            tiff
 image/vnd.wap.wbmp                    wbmp
 image/x-icon                          ico
+image/vnd.microsoft.icon              ico
 image/x-jng                           jng
 image/x-ms-bmp                        bmp
 image/svg+xml                         svg
diff --git a/lib/tree-updater.rkt b/lib/tree-updater.rkt
index 98a989bb..074c5a19 100644
--- a/lib/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -97,6 +97,9 @@
      (string-replace-curried "pi-collapse-closed" "")
      (string-replace-curried "pi-collapse" "")))
 
+  (define (cardimage-class-updater c)
+    (string-append c " bw-updated-cardtable-cardimage"))
+
   (define attributes-updater
     (compose1
      ; uncollapsing
@@ -184,6 +187,24 @@
          ((class "table-scroller"))
          ((,element-type (@ (data-scrolling) ,@attributes)
                          ,@children)))]
+      ; HACK for /yugioh/wiki/Pot_of_Greed: move card images above tables
+      [(and (eq? element-type 'table)
+            (has-class? "cardtable" attributes)
+            (not (has-class? "bw-updated-cardtable-cardimage" attributes)))
+       (define (is-cardimage? t a c) (and (eq? t 'td)
+                                          (has-class? "cardtable-cardimage" a)))
+       (define cardimage ((query-selector is-cardimage? element)))
+       (if (not cardimage)
+           (list element-type attributes children)
+           (let ([new-cardtable (update-tree
+                                 (λ (e t a c)
+                                   (if (is-cardimage? t a c)
+                                       return-no-element
+                                       (list t a c)))
+                                 `(,element-type
+                                   (@ ,(attribute-maybe-update 'class cardimage-class-updater attributes))
+                                   ,@children))])
+             (list 'div null (list cardimage new-cardtable))))]
       ; exclude empty figcaptions
       [(and (eq? element-type 'figcaption)
             (or (eq? (length (filter element-is-element? children)) 0)
diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 4a797ad2..02038ab3 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -166,7 +166,7 @@
        (define styles
          (list
           (format "~a/wikia.php?controller=ThemeApi&method=themeVariables&variant=~a" origin (user-cookies^-theme user-cookies))
-          (format "~a/load.php?lang=en&modules=skin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles%7Csite.styles&only=styles&skin=fandomdesktop" origin)))
+          (format "~a/load.php?lang=en&modules=site.styles%7Cskin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles&only=styles&skin=fandomdesktop" origin)))
        (if (config-true? 'strict_proxy)
            (map u-proxy-url styles)
            styles)]

From c95717c9dca010cdece10c986379f980ce8d43c9 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 20 Mar 2023 23:32:31 +1300
Subject: [PATCH 107/166] Fix archiver-database migrations

---
 archiver/archiver-database.rkt | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/archiver/archiver-database.rkt b/archiver/archiver-database.rkt
index aaea4d66..b81ad6ce 100644
--- a/archiver/archiver-database.rkt
+++ b/archiver/archiver-database.rkt
@@ -20,18 +20,6 @@
 (define storage-path (anytime-path ".." "storage"))
 (define database-file (build-path storage-path "archiver.db"))
 
-(define migrations
-  (wrap-sql
-   ((query-exec slc "create table page (wikiname TEXT NOT NULL, basename TEXT NOT NULL, progress INTEGER NOT NULL, PRIMARY KEY (wikiname, basename))")
-    (query-exec slc "create table wiki (wikiname TEXT NOT NULL, progress INTEGER, PRIMARY KEY (wikiname))"))
-   ((query-exec slc "create table special_page (wikiname TEXT NOT NULL, key TEXT NOT NULL, basename TEXT NOT NULL, PRIMARY KEY (wikiname, key))"))
-   ((query-exec slc "update wiki set progress = 2 where wikiname in (select wikiname from wiki inner join page using (wikiname) group by wikiname having min(page.progress) = 1)"))
-   ((query-exec slc "create table image (wikiname TEXT NOT NULL, hash TEXT NTO NULL, url TEXT NOT NULL, ext TEXT, source INTEGER NOT NULL, progress INTEGER NOT NULL, PRIMARY KEY (wikiname, hash))"))
-   ((query-exec slc "alter table wiki add column sitename TEXT")
-    (query-exec slc "alter table wiki add column basepage TEXT")
-    (query-exec slc "alter table wiki add column license_text TEXT")
-    (query-exec slc "alter table wiki add column license_url TEXT"))))
-
 (define slc (box #f))
 (define (get-slc)
   (define slc* (unbox slc))
@@ -50,6 +38,18 @@
                           0)])
          (query-value slc* "select version from database_version")))
 
+     (define migrations
+       (wrap-sql
+        ((query-exec slc* "create table page (wikiname TEXT NOT NULL, basename TEXT NOT NULL, progress INTEGER NOT NULL, PRIMARY KEY (wikiname, basename))")
+         (query-exec slc* "create table wiki (wikiname TEXT NOT NULL, progress INTEGER, PRIMARY KEY (wikiname))"))
+        ((query-exec slc* "create table special_page (wikiname TEXT NOT NULL, key TEXT NOT NULL, basename TEXT NOT NULL, PRIMARY KEY (wikiname, key))"))
+        ((query-exec slc* "update wiki set progress = 2 where wikiname in (select wikiname from wiki inner join page using (wikiname) group by wikiname having min(page.progress) = 1)"))
+        ((query-exec slc* "create table image (wikiname TEXT NOT NULL, hash TEXT NTO NULL, url TEXT NOT NULL, ext TEXT, source INTEGER NOT NULL, progress INTEGER NOT NULL, PRIMARY KEY (wikiname, hash))"))
+        ((query-exec slc* "alter table wiki add column sitename TEXT")
+         (query-exec slc* "alter table wiki add column basepage TEXT")
+         (query-exec slc* "alter table wiki add column license_text TEXT")
+         (query-exec slc* "alter table wiki add column license_url TEXT"))))
+
      (let do-migrate-step ()
        (when (database-version . < . (length migrations))
          (call-with-transaction

From b39a4f20003e3c325c9a6ac562c2410f8721c602 Mon Sep 17 00:00:00 2001
From: Elijah <me@elijahs.space>
Date: Fri, 17 Mar 2023 17:29:38 -0700
Subject: [PATCH 108/166] add rs/osrs wikis

could include weirdgloop in there
---
 src/extwiki-data.rkt | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index a4b8d775..c24f987e 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -47,6 +47,22 @@
            '(("Migration discussion" . "https://old.reddit.com/r/Astroneer/comments/z905id/the_official_astroneer_wiki_has_moved_to_wikigg/") ("Migration info" . "https://astroneer.fandom.com/wiki/Talk:Astroneer_Wiki/Migration_to_Wiki.gg"))
            (λ (props) '()))
 
+          'RuneScape
+          (extwiki-group^
+           "RuneScape"
+           '(("Leaving Wikia" . "https://runescape.wiki/w/Forum:Leaving_Wikia")
+             ("In the media" . "https://kotaku.com/video-game-wikis-abandon-their-platform-after-year-of-p-1829401866")
+             ("Browser Extension" . "https://runescape.wiki/w/RuneScape:Finding_the_wikis_with_ease#Extensions"))
+           (λ (props) '()))
+
+          'OSRS
+          (extwiki-group^
+           "OSRS"
+           '(("Leaving Wikia" . "https://runescape.wiki/w/Forum:Leaving_Wikia")
+             ("In the media" . "https://kotaku.com/video-game-wikis-abandon-their-platform-after-year-of-p-1829401866")
+             ("Browser Extension" . "https://oldschool.runescape.wiki/w/RuneScape:Finding_the_wikis_with_ease#Extensions"))
+           (λ (props) '()))
+
           'empty
           (extwiki-group^
            "Misc"
@@ -332,6 +348,24 @@
     (λ (props)
       `((p "The official ARK: Survival Evolved Wiki launched in 2016. In April 2022 it moved to wiki.gg's hosting to improve creative control and the overall browsing experience."))))
 
+   (extwiki^
+    '("runescape") 'default
+    'RuneScape
+    "RuneScape Wiki"
+    "https://runescape.wiki/"
+    "https://runescape.wiki/images/Wiki.png"
+    (λ (props)
+      `((p "The RuneScape Wiki was founded on April 8, 2005. In October 2018, the wiki left Fandom (then Wikia), citing their apathy towards the wiki and excessive advertisements."))))
+
+   (extwiki^
+    '("oldschoolrunescape") 'default
+    'OSRS
+    "Old School RuneScape Wiki"
+    "https://oldschool.runescape.wiki/"
+    "https://oldschool.runescape.wiki/images/Wiki.png"
+    (λ (props)
+      `((p "The Old School RuneScape Wiki was founded on February 14, 2013. In October 2018, the RuneScape Wiki left Fandom (then Wikia), citing their apathy towards the wiki and excessive advertisements, with the Old School RuneScape Wiki following suit."))))
+
    (extwiki^
     '("astroneer") 'default
     'Astroneer

From 04735851bee2652b3e3c96bcac1fa965c2486527 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 21 Mar 2023 00:01:51 +1300
Subject: [PATCH 109/166] Add Terraria and Calamity Mod redirects

---
 src/extwiki-data.rkt | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index c24f987e..82978b16 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -33,6 +33,12 @@
            '(("Announcement: New Official Terraria Wiki!" . "https://forums.terraria.org/index.php?threads/new-official-terraria-wiki-launches-today.111239/") ("In the media" . "https://www.pcgamesn.com/terraria/wiki"))
            (λ (props) '()))
 
+          'Calamity_Mod
+          (extwiki-group^
+           "Calamity Mod"
+           '(("Announcement: Moving to wiki.gg" . "https://www.reddit.com/r/CalamityMod/comments/ts0586/important_calamity_wiki_announcement/"))
+           (λ (props) '()))
+
           'ARK
           (extwiki-group^
            "ARK"
@@ -339,6 +345,23 @@
     "https://cdn.seiwanetwork.org/thumb/9/94/Square_Enix_Wiki_Logo.png/200px-Square_Enix_Wiki_Logo.png"
     (λ (props) '((p "The Square Enix Wiki was founded on February 8, 2012, and is an up-and-coming wiki project created by SEIWA. It focuses on covering all things Square Enix, from its video game series to its physical publications to its most notable employees and work as a company."))))
 
+   (extwiki^
+    '("terraria") 'default
+    'Terraria
+    "Official Terraria Wiki"
+    "https://terraria.wiki.gg/wiki/Terraria_Wiki"
+    "https://terraria.wiki.gg/images/5/5a/App_icon_1.3_Update.png"
+    (λ (props)
+      `()))
+
+   (extwiki^
+    '("calamitymod" "calamity-mod") 'empty
+    'Calamity_Mod
+    "Official Calamity Mod Wiki"
+    "https://calamitymod.wiki.gg/wiki/Calamity_Mod_Wiki"
+    #f
+    #f)
+
    (extwiki^
     '("ark" "ark-survival-evolved-archive") 'default
     'ARK

From d1c348a85354f1427c863c0837e1a1d87d994c65 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 21 Mar 2023 00:02:16 +1300
Subject: [PATCH 110/166] Make top banner less flashy, add to all instances

---
 src/application-globals.rkt | 37 ++++++++++++++-----------------------
 1 file changed, 14 insertions(+), 23 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 02038ab3..b6777efb 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -198,30 +198,21 @@
                                       (λ (v) (u-proxy-url v))
                                       (head-data^-icon-url head-data))))))
      (body (@ (class ,(head-data^-body-class head-data)))
-           ,(if (config-true? 'instance_is_official)
-                (let ([balloon '(img (@ (src "/static/three-balloons.png") (class "bw-balloon") (title "Image Source: pngimg.com/image/4955 | License: CC BY-NC 4.0 | Modifications: Resized") (width "52") (height "56")))]
-                      [extension-eligible?
-                       (cond/var
-                        [(not req) #f]
-                        (var ua-pair (assq 'user-agent (request-headers req)))
-                        [(not ua-pair) #f]
-                        (var ua (string-downcase (cdr ua-pair)))
-                        ;; everyone pretends to be chrome, so we do it in reverse
-                        ;; this excludes common browsers that don't support the extension
-                        [#t (and (not (string-contains? ua "edge/"))
-                                 (not (string-contains? ua "edg/"))
-                                 (not (string-contains? ua "mobile")))])])
+           ,(let ([extension-eligible?
+                   (cond/var
+                    [(not req) #f]
+                    (var ua-pair (assq 'user-agent (request-headers req)))
+                    [(not ua-pair) #f]
+                    (var ua (string-downcase (cdr ua-pair)))
+                    ;; everyone pretends to be chrome, so we do it in reverse
+                    ;; this excludes common browsers that don't support the extension
+                    [#t (and (not (string-contains? ua "edge/"))
+                             (not (string-contains? ua "mobile")))])])
+              (if extension-eligible?
                   `(div (@ (class "bw-top-banner"))
-                        ,balloon
-                        (div
-                         "BreezeWiki is back! Most major wikis are available.\n"
-                         ,(if extension-eligible?
-                              '(div (@ (class "bw-top-banner-rainbow"))
-                                    "Try " (a (@ (href "https://getindie.wiki/") (target "_blank")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n")
-                              "")
-                         "As always, " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "please go here") " to report problems, suggest features, or talk about the project.")
-                        ,balloon))
-                "")
+                        (div (@ (class "bw-top-banner-rainbow"))
+                             "Try " (a (@ (href "https://getindie.wiki/") (target "_blank")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n"))
+                  ""))
            (div (@ (class "main-container"))
                 (div (@ (class "fandom-community-header__background tileHorizontally header")))
                 (div (@ (class "page"))

From 8274e6cf1fe2ed8df7190d1e48b3665fe1f51fb2 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 24 Mar 2023 22:54:46 +1300
Subject: [PATCH 111/166] Add RuneScape Classic redirect; merge RS category

---
 src/extwiki-data.rkt | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 82978b16..48525417 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -61,14 +61,6 @@
              ("Browser Extension" . "https://runescape.wiki/w/RuneScape:Finding_the_wikis_with_ease#Extensions"))
            (λ (props) '()))
 
-          'OSRS
-          (extwiki-group^
-           "OSRS"
-           '(("Leaving Wikia" . "https://runescape.wiki/w/Forum:Leaving_Wikia")
-             ("In the media" . "https://kotaku.com/video-game-wikis-abandon-their-platform-after-year-of-p-1829401866")
-             ("Browser Extension" . "https://oldschool.runescape.wiki/w/RuneScape:Finding_the_wikis_with_ease#Extensions"))
-           (λ (props) '()))
-
           'empty
           (extwiki-group^
            "Misc"
@@ -382,13 +374,22 @@
 
    (extwiki^
     '("oldschoolrunescape") 'default
-    'OSRS
+    'RuneScape
     "Old School RuneScape Wiki"
     "https://oldschool.runescape.wiki/"
     "https://oldschool.runescape.wiki/images/Wiki.png"
     (λ (props)
       `((p "The Old School RuneScape Wiki was founded on February 14, 2013. In October 2018, the RuneScape Wiki left Fandom (then Wikia), citing their apathy towards the wiki and excessive advertisements, with the Old School RuneScape Wiki following suit."))))
 
+   (extwiki^
+    '("runescapeclassic") 'default
+    'RuneScape
+    "RuneScape Classic Wiki"
+    "https://classic.runescape.wiki/"
+    "https://classic.runescape.wiki/images/Wiki.png"
+    (λ (props)
+      `((p "The Old School RuneScape Wiki was founded on April 19, 2009. In October 2018, the RuneScape Wiki left Fandom (then Wikia), citing their apathy towards the wiki and excessive advertisements, with the RuneScape Classic Wiki following suit."))))
+
    (extwiki^
     '("astroneer") 'default
     'Astroneer

From 3f1946a3b8b061b7f8a03e1681471212ff79ac71 Mon Sep 17 00:00:00 2001
From: Artemis Everfree <artemis@artemis.sh>
Date: Wed, 22 Mar 2023 21:44:40 -0700
Subject: [PATCH 112/166] use faster string split

---
 lib/xexpr-utils.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/xexpr-utils.rkt b/lib/xexpr-utils.rkt
index 018d8c34..cb405107 100644
--- a/lib/xexpr-utils.rkt
+++ b/lib/xexpr-utils.rkt
@@ -190,7 +190,9 @@
                 '(body "Hey" (& nbsp) (a (@ (href "/"))))))
 
 (define (has-class? name attributes)
-  (and (member name (string-split (or (get-attribute 'class attributes) "") " ")) #t))
+  ;; splitting without specifying separator or splitting on #px"\\s+" makes
+  ;; string-split use a faster whitespace-specialized implementation.
+  (and (member name (string-split (or (get-attribute 'class attributes) "") #px"\\s+")) #t))
 (module+ test
   (check-true (has-class? "red" '((class "yellow red blue"))))
   (check-false (has-class? "red" '((class "yellow blue"))))

From f5529ed12a3b6de478e30fdfbfe74ed787f65234 Mon Sep 17 00:00:00 2001
From: Artemis Everfree <artemis@artemis.sh>
Date: Wed, 22 Mar 2023 21:45:09 -0700
Subject: [PATCH 113/166] precompile regexp patterns

---
 lib/tree-updater.rkt | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lib/tree-updater.rkt b/lib/tree-updater.rkt
index 074c5a19..6c369b58 100644
--- a/lib/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -66,6 +66,11 @@
            (iframe (@ (src "https://example.com/iframe-src")))))))
 
 (define (updater wikiname #:strict-proxy? [strict-proxy? #f])
+  ;; precompute wikiurl regex for efficency
+  (define wikiurl-regex (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)$" px-wikiname)))
+  ;; precompute link replacement string for efficiency
+  (define wiki-substitution (format "/~a\\1" wikiname))
+
   (define classlist-updater
     (compose1
      ; uncollapse all navbox items (bottom of page mass navigation)
@@ -110,8 +115,8 @@
      (curry attribute-maybe-update 'href
             (λ (href)
               ((compose1
-                (λ (href) (regexp-replace #rx"^(/wiki/.*)" href (format "/~a\\1" wikiname)))
-                (λ (href) (regexp-replace (pregexp (format "^https://(~a)\\.fandom\\.com(/wiki/.*)" px-wikiname)) href "/\\1\\2")))
+                (λ (href) (regexp-replace #rx"^(/wiki/.*)$" href wiki-substitution))
+                (λ (href) (regexp-replace wikiurl-regex href "/\\1\\2")))
                href)))
      ; add noreferrer to a.image
      (curry u

From ba6c5be9905529019c011b0d2de45eb451fb45ba Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 2 Apr 2023 00:04:35 +1300
Subject: [PATCH 114/166] Optimise pre-processing regular expression

---
 lib/tree-updater.rkt | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/lib/tree-updater.rkt b/lib/tree-updater.rkt
index 6c369b58..0dbf695e 100644
--- a/lib/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -12,17 +12,12 @@
  update-tree-wiki)
 
 (define (preprocess-html-wiki html)
-  (define ((rr* find replace) contents)
-    (regexp-replace* find contents replace))
-  ((compose1
-    ; fix navbox list nesting
-    ; navbox on right of page has incorrect html "<td ...><li>" and the xexpr parser puts the <li> much further up the tree
-    ; add a <ul> to make the parser happy
-    ; usage: /fallout/wiki/Fallout:_New_Vegas_achievements_and_trophies
-    (rr* #rx"(<td[^>]*>\n?)(<li>)" "\\1<ul>\\2")
-    ; change <figcaption><p> to <figcaption><span> to make the parser happy
-    (rr* #rx"(<figcaption[^>]*>)[ \t]*<p class=\"caption\">([^<]*)</p>" "\\1<span class=\"caption\">\\2</span>"))
-   html))
+  (regexp-replace* #rx"(<(?:td|figcaption)[^>]*?>\n?)(?:<li>|[ \t]*?<p class=\"caption\">(.*?)</p>)"
+                   html (λ (whole first-tag [contents #f])
+                          (if (eq? (string-ref whole 1) #\f) ;; figcaption
+                              (string-append first-tag "<span class=\"caption\">" contents "</span>")
+                              (string-append first-tag "<ul><li>")))))
+
 (module+ test
   (check-equal? (preprocess-html-wiki "<td class=\"va-navbox-column\" style=\"width: 33%\">\n<li>Hey</li>")
                 "<td class=\"va-navbox-column\" style=\"width: 33%\">\n<ul><li>Hey</li>")

From d3187cc310a4f622c88dcb9df7f2859bd101d87a Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 2 Apr 2023 00:02:07 +1300
Subject: [PATCH 115/166] Tweak extwiki-generic migration notice

---
 src/extwiki-generic.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/extwiki-generic.rkt b/src/extwiki-generic.rkt
index fe30b14b..113b139a 100644
--- a/src/extwiki-generic.rkt
+++ b/src/extwiki-generic.rkt
@@ -110,8 +110,8 @@
                     (div (@ (class "niwa__left"))
                          (a (@ (class "niwa__go") (href ,go)) "Read " ,title " on " ,display-name " →")
                          ,@body
-                         (p "This wiki's core community has wholly migrated away from Fandom. You should "
-                            (a (@ (href ,go)) "go to " ,display-name " now!")))
+                         (p "This external wiki is a helpful alternative to Fandom. You should "
+                            (a (@ (href ,go)) "check it out now!")))
                     ,(if logo
                          `(div (@ (class "niwa__right"))
                                (img (@ (class "niwa__logo") (src ,logo))))

From b5fb99c8abb49a796ae9de28a8753f1f5d51ea1e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 10 Apr 2023 17:05:58 +1200
Subject: [PATCH 116/166] Fix category pages with slashes

---
 src/page-category.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/page-category.rkt b/src/page-category.rkt
index 29b541cc..213d4236 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -66,7 +66,7 @@
 (define (page-category req)
   (response-handler
    (define wikiname (path/param-path (first (url-path (request-uri req)))))
-   (define prefixed-category (path/param-path (caddr (url-path (request-uri req)))))
+   (define prefixed-category (string-join (map path/param-path (cddr (url-path (request-uri req)))) "/"))
    (define origin (format "https://~a.fandom.com" wikiname))
    (define source-url (format "~a/wiki/~a" origin prefixed-category))
 

From 040d9b94dec02c260b871caeceed80ae4d3fd7c4 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 16 Apr 2023 00:05:54 +1200
Subject: [PATCH 117/166] New option: promotions::indie_wiki_buddy

---
 src/application-globals.rkt | 12 +++++++++++-
 src/config.rkt              | 16 +++++++++++++---
 src/page-home.rkt           |  6 ++++--
 3 files changed, 28 insertions(+), 6 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index b6777efb..10b45309 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -62,10 +62,19 @@
                      (p
                       (a (@ (href "https://lists.sr.ht/~cadence/breezewiki-discuss"))
                          "Chat / Bug reports / Feature requests"))
+                     ,(if (config-member? 'promotions::indie_wiki_buddy "footer")
+                          `(p
+                            (a (@ (href "https://getindie.wiki/"))
+                               "Get Indie Wiki Buddy browser extension - be redirected to BreezeWiki every time!"))
+                          "")
                      ,(if (config-true? 'instance_is_official)
                           `(p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
                               (a (@ (href "https://cadence.moe/contact"))
-                                 "Cadence."))
+                                 "Cadence")
+                              ". Proudly hosted by "
+                              (a (@ (href "http://alphamethyl.barr0w.net"))
+                                 "Barrow Network Solutions" (sup "XD"))
+                              ".")
                           `(p
                             ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application_name)))))
                 ,(if source-url
@@ -201,6 +210,7 @@
            ,(let ([extension-eligible?
                    (cond/var
                     [(not req) #f]
+                    [(not (config-member? 'promotions::indie_wiki_buddy "banner")) #f]
                     (var ua-pair (assq 'user-agent (request-headers req)))
                     [(not ua-pair) #f]
                     (var ua (string-downcase (cdr ua-pair)))
diff --git a/src/config.rkt b/src/config.rkt
index 09407c41..2158e776 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -8,6 +8,7 @@
 (provide
  config-parameter
  config-true?
+ config-member?
  config-get)
 
 (module+ test
@@ -23,6 +24,11 @@
 (define (config-true? key)
   (not (member ((config-parameter key)) '("" "false"))))
 
+(: config-member? (Symbol String [#:sep String] -> Boolean))
+(define (config-member? key item #:sep [sep #px"\\s+"])
+  (and (config-true? key)
+       (not (not (member item (string-split (config-get key) sep))))))
+
 (: config-get (Symbol -> String))
 (define (config-get key)
   ((config-parameter key)))
@@ -42,7 +48,9 @@
     (feature_offline::format . "json.gz")
     (feature_offline::only . "false")
 
-    (access_log::enabled . "false")))
+    (access_log::enabled . "false")
+
+    (promotions::indie_wiki_buddy . "banner home")))
 
 (define loaded-alist
   (with-handlers
@@ -109,8 +117,10 @@
 (module+ test
   ; this is just a sanity check
   (parameterize ([(config-parameter 'application_name) "JeffWiki"]
-                 [(config-parameter 'strict_proxy) ""])
+                 [(config-parameter 'strict_proxy) ""]
+                 [(config-parameter 'promotions::indie_wiki_buddy) "a b c"])
     (check-equal? (config-get 'application_name) "JeffWiki")
     (check-false (config-true? 'strict_proxy))
-    (check-equal? (string? (config-get 'feature_offline::format)) #t)))
+    (check-equal? (string? (config-get 'feature_offline::format)) #t)
+    (check-true (config-member? 'promotions::indie_wiki_buddy "b"))))
 
diff --git a/src/page-home.rkt b/src/page-home.rkt
index 95793d37..24f7393b 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -31,8 +31,10 @@
                     (url-host (string->url (config-get 'canonical_origin)))
                     "breezewiki.com")))
     (p "If you'd like to be automatically sent to BreezeWiki every time in the future, "
-       (a (@ (href "https://getindie.wiki")) "get our affiliated browser extension (NEW!)")
-       " or "
+       ,@(if (config-member? 'promotions::indie_wiki_buddy "home")
+             `((a (@ (href "https://getindie.wiki")) "get our affiliated browser extension (NEW!)")
+               " or ")
+             null)
        (a (@ (href "https://docs.breezewiki.com/Automatic_Redirection.html")) "check out the tutorial in the manual."))
     (p "BreezeWiki is available on several different websites called " (a (@ (href "https://en.wikipedia.org/wiki/Mirror_site")) "mirrors") ". Each is independently run. If one mirror is offline, the others still work. "
        (a (@ (href "https://docs.breezewiki.com/Links.html#%28part._.Mirrors%29")) "See the list."))

From a1bba220547ae43ac148652a1fbe3163bf354059 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 17 Apr 2023 00:46:15 +1200
Subject: [PATCH 118/166] Really fix semicolons in URL

---
 src/dispatcher-tree.rkt | 57 ++++++++++++++++++++++++++---------------
 1 file changed, 37 insertions(+), 20 deletions(-)

diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 288634a1..315638a1 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -35,23 +35,40 @@
 
 (define (make-dispatcher-tree ds)
   (define subdomain-dispatcher (hash-ref ds 'subdomain-dispatcher))
-  (sequencer:make
-   subdomain-dispatcher
-   (pathprocedure:make "/" (hash-ref ds 'page-home))
-   (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
-   (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
-   (pathprocedure:make "/set-user-settings" (hash-ref ds 'page-set-user-settings))
-   (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
-   (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
-   (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
-   (if (config-true? 'feature_offline::enabled)
-       (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki-offline)))
-       (λ (_conn _req) (next-dispatcher)))
-   (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
-   (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
-   (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
-   (if (config-true? 'feature_offline::enabled)
-       (filter:make (pregexp (format "^/archive/~a/(styles|images)/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-static-archive)))
-       (λ (_conn _req) (next-dispatcher)))
-   (hash-ref ds 'static-dispatcher)
-   (lift:make (hash-ref ds 'page-not-found))))
+  (define tree
+    (sequencer:make
+     subdomain-dispatcher
+     (pathprocedure:make "/" (hash-ref ds 'page-home))
+     (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
+     (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
+     (pathprocedure:make "/set-user-settings" (hash-ref ds 'page-set-user-settings))
+     (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
+     (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
+     (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
+     (if (config-true? 'feature_offline::enabled)
+         (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki-offline)))
+         (λ (_conn _req) (next-dispatcher)))
+     (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
+     (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
+     (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
+     (if (config-true? 'feature_offline::enabled)
+         (filter:make (pregexp (format "^/archive/~a/(styles|images)/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-static-archive)))
+         (λ (_conn _req) (next-dispatcher)))
+     (hash-ref ds 'static-dispatcher)
+     (lift:make (hash-ref ds 'page-not-found))))
+  (make-semicolon-fixer-dispatcher tree))
+
+(define ((make-semicolon-fixer-dispatcher orig-dispatcher) conn orig-req)
+  (define orig-uri (request-uri orig-req))
+  (define pps (url-path orig-uri)) ; list of path/param structs
+  (define new-path
+    (for/list ([pp pps])
+      (if (null? (path/param-param pp))
+          pp
+          ;; path/param does have params, which need to be fixed into a semicolon.
+          (path/param
+           (string-append (path/param-path pp) ";" (string-join (path/param-param pp) ";"))
+           null))))
+  (define new-uri (struct-copy url orig-uri [path new-path]))
+  (define new-req (struct-copy request orig-req [uri new-uri]))
+  (orig-dispatcher conn new-req))

From 2e292b4f8074974c8d58558c248771fc1e4e1203 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 18 May 2023 00:30:37 +1200
Subject: [PATCH 119/166] Add Terraria Mods redirect

---
 src/extwiki-data.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 48525417..88788456 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -403,7 +403,6 @@
    ;; fandom wikinames * empty * empty * Name * Home Page
    (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
    (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)
-   (extwiki^ '("calamitymod") 'empty 'empty "Calamity Mod Wiki" "https://calamitymod.wiki.gg/wiki/Calamity_Mod_Wiki" #f #f)
    (extwiki^ '("chivalry" "chivalry2") 'empty 'empty "Official Chivalry Wiki" "https://chivalry.wiki.gg/wiki/Chivalry_Wiki" #f #f)
    (extwiki^ '("clockup") 'empty 'empty "CLOCKUP WIKI" "https://en.clockupwiki.org/wiki/CLOCKUP_WIKI:Plan" #f #f)
    (extwiki^ '("half-life") 'empty 'empty "Combine OverWiki" "https://combineoverwiki.net/wiki/Main_Page" #f #f)
@@ -431,6 +430,7 @@
    (extwiki^ '("steamworld") 'empty 'empty "Official SteamWorld Wiki" "https://steamworld.wiki.gg/wiki/SteamWorld_Wiki" #f #f)
    (extwiki^ '("teamfortress") 'empty 'empty "Official Team Fortress Wiki" "https://wiki.teamfortress.com/wiki/Main_Page" #f #f)
    (extwiki^ '("temtem") 'empty 'empty "Official Temtem Wiki" "https://temtem.wiki.gg/wiki/Temtem_Wiki" #f #f)
+   (extwiki^ '("terrariamods") 'empty 'empty "Official Terraria Mods Wiki" "https://terrariamods.wiki.gg/wiki/Terraria_Mods_Wiki" #f #f)
    (extwiki^ '("thoriummod") 'empty 'empty "Official Thorium Mod Wiki" "https://thoriummod.wiki.gg/wiki/Thorium_Mod_Wiki" #f #f)
    (extwiki^ '("totherescue") 'empty 'empty "To The Rescue!" "https://totherescue.wiki.gg/wiki/To_The_Rescue%21_Wiki" #f #f)
    (extwiki^ '("touhou") 'empty 'empty "Touhou Wiki" "https://en.touhouwiki.net/wiki/Touhou_Wiki" #f #f)

From ca13aea547ab4c7eeef66495ce9a2b45823a26e8 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Wed, 24 May 2023 21:42:29 +0700
Subject: [PATCH 120/166] Remove Gamespot reviews/ads

https://lists.sr.ht/~cadence/breezewiki-discuss/%3C0ad4dbad07a1be394eefe43e33fff860b2d6176e%40disroot.org%3E
---
 lib/tree-updater.rkt | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lib/tree-updater.rkt b/lib/tree-updater.rkt
index 0dbf695e..e7d48b43 100644
--- a/lib/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -58,7 +58,9 @@
                                (data-src "https://static.wikia.nocookie.net/nice-image-thumbnail.png")
                                (class "thumbimage")))))
                    (figcaption "Test figure!"))
-           (iframe (@ (src "https://example.com/iframe-src")))))))
+           (iframe (@ (src "https://example.com/iframe-src")))
+           (div (@ (class "reviews"))
+                   (header "GameSpot Expert Reviews"))))))
 
 (define (updater wikiname #:strict-proxy? [strict-proxy? #f])
   ;; precompute wikiurl regex for efficency
@@ -238,6 +240,9 @@
               [(list (list 'img _)) #t]
               [_ #f]))
        return-no-element]
+      ; remove gamespot reviews/ads
+      [(has-class? "reviews" attributes)
+       return-no-element]
       [#t
        (list element-type
              ;; attributes
@@ -297,6 +302,8 @@
                 "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fnice-image.png")
   ; check that noscript images are removed
   (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f)
+  ; check that gamespot reviews/ads are removed
+  (check-equal? ((query-selector (λ (t a c) (has-class? "reviews" a)) transformed)) #f)
   ; benchmark
   (when (file-exists? "../storage/Frog.html")
     (with-input-from-file "../storage/Frog.html"

From 6fef9281c3afcb4efe9c18198e02585226e45cce Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 27 May 2023 23:37:45 +1200
Subject: [PATCH 121/166] Move the semicolon fixing code again

---
 lib/archive-file-mappings.rkt |  2 +-
 lib/url-utils.rkt             | 23 ++++++++++++++++++++++-
 src/dispatcher-tree.rkt       | 13 +------------
 3 files changed, 24 insertions(+), 14 deletions(-)

diff --git a/lib/archive-file-mappings.rkt b/lib/archive-file-mappings.rkt
index 4aa8a690..ba013ab3 100644
--- a/lib/archive-file-mappings.rkt
+++ b/lib/archive-file-mappings.rkt
@@ -11,7 +11,7 @@
  url-segments->guess-title)
 
 (define (local-encoded-url->segments str) ; '("wiki" "Page_title")
-  (map path/param-path (url-path (string->url str))))
+  (map path/param-path (fix-semicolons-url-path (url-path (string->url str)))))
 
 (define (url-segments->basename segments) ; "Page_title" filename encoded, no extension or dir prefix
   (define extra-encoded (map (λ (s) (bytes->string/latin-1 (percent-encode s filename-set #f))) (cdr segments)))
diff --git a/lib/url-utils.rkt b/lib/url-utils.rkt
index 4722d49a..3fb43102 100644
--- a/lib/url-utils.rkt
+++ b/lib/url-utils.rkt
@@ -1,5 +1,6 @@
 #lang typed/racket/base
 (require racket/string
+         typed/net/url-structs
          "pure-utils.rkt")
 (require/typed web-server/http/request-structs
                [#:opaque Header header?])
@@ -20,7 +21,10 @@
  ; pass in a header, headers, or something useless. they'll all combine into a list
  build-headers
  ; try to follow wikimedia's format for which characters should be encoded/replaced in page titles for the url
- page-title->path)
+ page-title->path
+ ; path/param eats semicolons into params, which need to be fixed back into semicolons
+ fix-semicolons-url-path
+ fix-semicolons-url)
 
 (module+ test
   (require "typed-rackunit.rkt"))
@@ -106,3 +110,20 @@
 (: page-title->path (String -> Bytes))
 (define (page-title->path title)
   (percent-encode (regexp-replace* " " title "_") path-set #f))
+
+(: fix-semicolons-url-path ((Listof Path/Param) -> (Listof Path/Param)))
+(define (fix-semicolons-url-path pps)
+  (for/list ([pp pps])
+    (define path (path/param-path pp))
+    (if (or (null? (path/param-param pp))
+            (symbol? path))
+        pp
+        ;; path/param does have params, which need to be fixed into a semicolon.
+        (path/param
+         (string-append path ";" (string-join (path/param-param pp) ";"))
+         null))))
+
+(: fix-semicolons-url (URL -> URL))
+(define (fix-semicolons-url orig-url)
+  (struct-copy url orig-url [path (fix-semicolons-url-path (url-path orig-url))]))
+
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 315638a1..48e8ebba 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -59,16 +59,5 @@
   (make-semicolon-fixer-dispatcher tree))
 
 (define ((make-semicolon-fixer-dispatcher orig-dispatcher) conn orig-req)
-  (define orig-uri (request-uri orig-req))
-  (define pps (url-path orig-uri)) ; list of path/param structs
-  (define new-path
-    (for/list ([pp pps])
-      (if (null? (path/param-param pp))
-          pp
-          ;; path/param does have params, which need to be fixed into a semicolon.
-          (path/param
-           (string-append (path/param-path pp) ";" (string-join (path/param-param pp) ";"))
-           null))))
-  (define new-uri (struct-copy url orig-uri [path new-path]))
-  (define new-req (struct-copy request orig-req [uri new-uri]))
+  (define new-req (struct-copy request orig-req [uri (fix-semicolons-url (request-uri orig-req))]))
   (orig-dispatcher conn new-req))

From a9754463b6d9d95c63516e501f39dc83aa5ef2fa Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 27 May 2023 23:41:20 +1200
Subject: [PATCH 122/166] Fix (& x) sequences truncating the page

---
 lib/tree-updater.rkt | 10 ++++++++--
 lib/xexpr-utils.rkt  |  9 +++++----
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/lib/tree-updater.rkt b/lib/tree-updater.rkt
index e7d48b43..098af3d1 100644
--- a/lib/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -60,7 +60,9 @@
                    (figcaption "Test figure!"))
            (iframe (@ (src "https://example.com/iframe-src")))
            (div (@ (class "reviews"))
-                   (header "GameSpot Expert Reviews"))))))
+                (header "GameSpot Expert Reviews"))
+           (div (@ (data-test-ampersand) (class "mw-collapsible-content"))
+                (& ndash))))))
 
 (define (updater wikiname #:strict-proxy? [strict-proxy? #f])
   ;; precompute wikiurl regex for efficency
@@ -159,7 +161,7 @@
        (u
         (λ (v) (has-class? "mw-collapsible-content" attributes))
         (λ (v) (for/list ([element v])
-                 (u (λ (element) (pair? element))
+                 (u (λ (element) (element-is-element? element))
                     (λ (element)
                       `(,(car element)
                         (@ ,@(attribute-maybe-update 'style (λ (a) (regexp-replace #rx"display: *none" a "display:inline")) (bits->attributes element)))
@@ -304,6 +306,10 @@
   (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f)
   ; check that gamespot reviews/ads are removed
   (check-equal? ((query-selector (λ (t a c) (has-class? "reviews" a)) transformed)) #f)
+  ; check that (& x) sequences are not broken
+  (check-equal? ((query-selector (λ (t a c) (dict-has-key? a 'data-test-ampersand)) transformed))
+                '(div (@ (data-test-ampersand) (class "mw-collapsible-content"))
+                      (& ndash)))
   ; benchmark
   (when (file-exists? "../storage/Frog.html")
     (with-input-from-file "../storage/Frog.html"
diff --git a/lib/xexpr-utils.rkt b/lib/xexpr-utils.rkt
index cb405107..e1ac9571 100644
--- a/lib/xexpr-utils.rkt
+++ b/lib/xexpr-utils.rkt
@@ -86,15 +86,16 @@
 
 ; "element" is a real element with a type and everything (non-string, non-attributes)
 (define (element-is-element? element)
-  (and (element-is-bits? element) (not (element-is-xattributes? element))))
+  (and (element-is-bits? element) (not (eq? (car element) '&))(not (element-is-xattributes? element))))
 (module+ test
   (check-true (element-is-element? '(span "hi")))
   (check-false (element-is-element? '(@ (alt "Cute cat."))))
-  (check-false (element-is-element? "hi")))
+  (check-false (element-is-element? "hi"))
+  (check-false (element-is-element? '(& ndash))))
 
-; "element content" is a real element or a string
+; "element content" is a real element or a string or a (& x) sequence
 (define (element-is-content? element)
-  (or (string? element) (element-is-element? element)))
+  (or (string? element) (element-is-element? element) (and (pair? element) (eq? (car element) '&))))
 (module+ test
   (check-true (element-is-content? '(span "hi")))
   (check-false (element-is-content? '(@ (alt "Cute cat."))))

From 4b039cca5e0ed30d1ec8c76e5ec7ff47acaef507 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 27 May 2023 23:48:08 +1200
Subject: [PATCH 123/166] Explain how page-search works in the code

---
 src/page-search.rkt | 35 ++++++++++++++++++++++++++---------
 1 file changed, 26 insertions(+), 9 deletions(-)

diff --git a/src/page-search.rkt b/src/page-search.rkt
index ce527c0e..e4960d8e 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -28,28 +28,35 @@
   (define search-json-data
     '#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
 
+;; this takes the info we gathered from fandom and makes the big fat x-expression page
 (define (generate-results-page req dest-url wikiname query data #:siteinfo [siteinfo #f])
   (define search-results (jp "/query/search" data))
+  ;; this is *another* helper that builds the wiki page UI and lets me put the search results (or whatever else) in the middle
   (generate-wiki-page
+   ;; so I provide my helper function with the necessary context...
    #:req req
    #:source-url dest-url
    #:wikiname wikiname
    #:title query
    #:siteinfo siteinfo
+   ;; and here's the actual results to display in the wiki page layout
    `(div (@ (class "mw-parser-output"))
+         ;; header before the search results showing how many we found
          (p ,(format "~a results found for " (length search-results))
             (strong ,query))
+         ;; *u*nordered *l*ist of matching search results
          (ul ,@(map
-                (λ (result)
+                (λ (result) ;; for each result, run this code...
                   (let* ([title (jp "/title" result)]
                          [page-path (page-title->path title)]
                          [timestamp (jp "/timestamp" result)]
                          [wordcount (jp "/wordcount" result)]
                          [size (jp "/size" result)])
+                    ;; and make this x-expression...
                     `(li (@ (class "my-result"))
-                         (a (@ (class "my-result__link") (href ,(format "/~a/wiki/~a" wikiname page-path)))
-                            ,title)
-                         (div (@ (class "my-result__info"))
+                         (a (@ (class "my-result__link") (href ,(format "/~a/wiki/~a" wikiname page-path))) ; using unquote to insert the result page URL
+                            ,title) ; using unquote to insert the result page title
+                         (div (@ (class "my-result__info")) ; constructing the line under the search result
                               "last edited "
                               (time (@ (datetime ,timestamp)) ,(list-ref (string-split timestamp "T") 0))
                               ,(format ", ~a words, ~a kb"
@@ -57,13 +64,18 @@
                                        (exact->inexact (/ (round (/ size 100)) 10)))))))
                 search-results)))))
 
+;; will be called when the web browser asks to load the page
 (define (page-search req)
+  ;; this just means, catch any errors and display them in the browser. it's a function somewhere else
   (response-handler
+   ;; the URL will look like "/minecraft/wiki/Special:Search?q=Spawner"
+   ;; grab the first part to use as the wikiname, in this case, "minecraft"
    (define wikiname (path/param-path (first (url-path (request-uri req)))))
+   ;; grab the part after ?q= which is the search terms
    (define query (dict-ref (url-query (request-uri req)) 'q #f))
+   ;; constructing the URL where I want to get fandom data from...
    (define origin (format "https://~a.fandom.com" wikiname))
-   (when (config-true? 'feature_offline::only)
-     (raise-user-error "Full search is currently not available on breezewiki.com - for now, please use the pop-up search suggestions or wait for me to fix it! Thanks <3"))
+   ;; the dest-URL will look something like https://minecraft.fandom.com/api.php?action=query&list=search&srsearch=Spawner&formatversion=2&format=json
    (define dest-url
      (format "~a/api.php?~a"
              origin
@@ -73,21 +85,26 @@
                               ("formatversion" . "2")
                               ("format" . "json")))))
 
+   ;; simultaneously get the search results from the fandom API, as well as information about the wiki as a whole (its license, icon, name)
    (define-values (dest-res siteinfo)
      (thread-values
       (λ ()
         (log-outgoing dest-url)
-        (easy:get dest-url #:timeouts timeouts))
+        (easy:get dest-url #:timeouts timeouts)) ;; HTTP request to dest-url for search results
       (λ ()
-        (siteinfo-fetch wikiname))))
+        (siteinfo-fetch wikiname)))) ;; helper function in another file to get information about the wiki
 
+   ;; search results are a JSON string. parse JSON into racket data structures
    (define data (easy:response-json dest-res))
-
+   ;; calling my generate-results-page function with the information so far in order to get a big fat x-expression
+   ;; big fat x-expression goes into the body variable
    (define body (generate-results-page req dest-url wikiname query data #:siteinfo siteinfo))
+   ;; error checking
    (when (config-true? 'debug)
      ; used for its side effects
      ; convert to string with error checking, error will be raised if xexp is invalid
      (xexp->html body))
+   ;; convert body to HTML and send to browser
    (response/output
     #:code 200
     #:headers (build-headers always-headers)

From f6933e9e504898764fc18623a51d7a766498d5ab Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 16 Jun 2023 23:05:30 +1200
Subject: [PATCH 124/166] expand all Warframe ability collapsibles

---
 lib/tree-updater.rkt | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lib/tree-updater.rkt b/lib/tree-updater.rkt
index 098af3d1..9e30f326 100644
--- a/lib/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -110,6 +110,11 @@
      #;(curry attribute-maybe-update 'class
               (λ (class) (string-join (classlist-updater (string-split class " ")) " ")))
      (curry attribute-maybe-update 'class class-updater)
+     ; yet more uncollapsing - sample: warframe/wiki/Amp_(Ability)
+     (curry u
+            (λ (v) (and (dict-has-key? v 'id)
+                        (string-prefix? (car (dict-ref v 'id)) "mw-customcollapsible")))
+            (λ (v) (dict-set v 'style "display:block")))
      ; change links to stay on the same wiki
      (curry attribute-maybe-update 'href
             (λ (href)
@@ -245,6 +250,9 @@
       ; remove gamespot reviews/ads
       [(has-class? "reviews" attributes)
        return-no-element]
+      ; remove customcollapsible customtoggle buttons - sample: warframe/wiki/Amp_(Ability)
+      [(and (dict-has-key? attributes 'class) (regexp-match? #rx"^mw-customtoggle-[^ ]* button-c$" (car (dict-ref attributes 'class))))
+       return-no-element]
       [#t
        (list element-type
              ;; attributes

From 4336e4ab4323446e2e1e29e55f684bca3742f674 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Jun 2023 00:09:59 +1200
Subject: [PATCH 125/166] fix javascript audio buttons on hearthstone wiki

---
 lib/tree-updater.rkt | 4 ++++
 static/main.css      | 5 +++++
 2 files changed, 9 insertions(+)

diff --git a/lib/tree-updater.rkt b/lib/tree-updater.rkt
index 9e30f326..109c8755 100644
--- a/lib/tree-updater.rkt
+++ b/lib/tree-updater.rkt
@@ -110,6 +110,10 @@
      #;(curry attribute-maybe-update 'class
               (λ (class) (string-join (classlist-updater (string-split class " ")) " ")))
      (curry attribute-maybe-update 'class class-updater)
+     ; audio buttons - sample: hearthstone/wiki/Diablo_(Duels_hero)#Sounds
+     (curry u
+            (λ (v) (has-class? "ext-audiobutton" v))
+            (λ (v) (dict-set (dict-remove v 'hidden) 'controls '(""))))
      ; yet more uncollapsing - sample: warframe/wiki/Amp_(Ability)
      (curry u
             (λ (v) (and (dict-has-key? v 'id)
diff --git a/static/main.css b/static/main.css
index 3d3ed5ac..94144707 100644
--- a/static/main.css
+++ b/static/main.css
@@ -210,6 +210,11 @@ figcaption, .lightbox-caption, .thumbcaption {
     display: block;
 }
 
+/* javascript audio play buttons, see hearthstone/wiki/Diablo_(Duels_hero) */
+a.ext-audiobutton {
+    display: none;
+}
+
 /* animated slots */
 #mw-content-text .animated > :not(.animated-active), #mw-content-text .animated > .animated-subframe > :not(.animated-active) {
     display: inline-block;

From 61d28203420120aa0df009212bae6614b66c2ad8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 17 Jun 2023 00:16:11 +1200
Subject: [PATCH 126/166] fix some more play buttons on minecraft wiki

---
 static/main.css | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/static/main.css b/static/main.css
index 94144707..1641886b 100644
--- a/static/main.css
+++ b/static/main.css
@@ -210,10 +210,13 @@ figcaption, .lightbox-caption, .thumbcaption {
     display: block;
 }
 
-/* javascript audio play buttons, see hearthstone/wiki/Diablo_(Duels_hero) */
-a.ext-audiobutton {
+/* javascript audio play buttons */
+a.ext-audiobutton { /* see hearthstone/wiki/Diablo_(Duels_hero) */
     display: none;
 }
+.sound > [style="display:none"] { /* see minecraft/wiki/villager#Sounds */
+  display: inline !important;
+}
 
 /* animated slots */
 #mw-content-text .animated > :not(.animated-active), #mw-content-text .animated > .animated-subframe > :not(.animated-active) {

From 33591ce0a3019fdf3a4c8634a993854b5d80db5e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 26 Sep 2023 00:51:55 +1300
Subject: [PATCH 127/166] Add Minecraft to independent wikis

---
 .gitignore           |  2 ++
 src/extwiki-data.rkt | 19 +++++++++++++++++++
 2 files changed, 21 insertions(+)

diff --git a/.gitignore b/.gitignore
index 17b94c53..1faa8f27 100644
--- a/.gitignore
+++ b/.gitignore
@@ -16,3 +16,5 @@ compiled
 
 # Personal
 /config.ini
+misc
+storage
diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 88788456..ead16966 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -61,6 +61,16 @@
              ("Browser Extension" . "https://runescape.wiki/w/RuneScape:Finding_the_wikis_with_ease#Extensions"))
            (λ (props) '()))
 
+          'Minecraft
+          (extwiki-group^
+           "Minecraft"
+           '(("Post-Move FAQ" . "https://minecraft.wiki/w/Minecraft_Wiki:Moving_from_Fandom")
+             ("Pre-Move Discussion" . "https://minecraft.fandom.com/wiki/Minecraft_Wiki:Moving_from_Fandom")
+             ("In the media: PCGamer" . "https://www.pcgamer.com/official-minecraft-wiki-editors-so-furious-at-fandoms-degraded-functionality-and-popups-theyre-overwhelmingly-voting-to-leave-the-site/")
+             ("In the media: PCGamesN" . "https://www.pcgamesn.com/minecraft/wiki-fandom"))
+           (λ (props)
+             '(p "The wiki was founded by Citricsquid on July 16th, 2009 as a way to document information from Minecraft. Since November 15th, 2010, it has been hosted by Curse Media. On December 12th, 2018, it moved to Fandom as it purchased Curse Media. Since September 24, 2023, it forked from Fandom and has been hosted by Weird Gloop.")))
+
           'empty
           (extwiki-group^
            "Misc"
@@ -400,6 +410,15 @@
       `((p "“Fandom bought Gamepedia and forced a migration, with their restricted, ad-heavy appearance, and other annoying features that we could not remove, the wiki grew slow and annoying to use, especially for logged out users.")
         (p "“We decided to move away from Fandom to Wiki.gg, which returns the wiki to how it used to be on gamepedia, without the ads spamming and forced videos.”"))))
 
+   (extwiki^
+    '("minecraft") 'default
+    'Minecraft
+    "The Minecraft Wiki"
+    "https://minecraft.wiki/w/Minecraft_Wiki"
+    "https://minecraft.wiki/images/Wiki.png"
+    (λ (props)
+      `()))
+
    ;; fandom wikinames * empty * empty * Name * Home Page
    (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
    (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)

From b8ccd6cc3e691b6b58a2156c2b210ab5bb433423 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 3 Oct 2023 18:54:07 +1300
Subject: [PATCH 128/166] Improve theme layout on non-flex browsers

---
 src/application-globals.rkt | 4 ++--
 static/main.css             | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 10b45309..de60820a 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -240,7 +240,7 @@
                                            (div (@ (class "bw-ss__container") (id "bw-pr-search-suggestions"))))
                                      (div (@ (class "bw-theme__select"))
                                           (span (@ (class "bw-theme__main-label")) "Page theme")
-                                          (div (@ (class "bw-theme__items"))
+                                          (span (@ (class "bw-theme__items"))
                                                ,@(for/list ([theme '(default light dark)])
                                                    (define class
                                                      (if (equal? theme (user-cookies^-theme user-cookies))
@@ -251,7 +251,7 @@
                                                                   req
                                                                   (struct-copy user-cookies^ user-cookies
                                                                                [theme theme]))) (class ,class))
-                                                       (div (@ (class "bw-theme__icon-container"))
+                                                       (span (@ (class "bw-theme__icon-container"))
                                                             ,(hash-ref theme-icons theme))
                                                        ,(format "~a" theme)))))))
                            (div (@ (id "content") #;(class "page-content"))
diff --git a/static/main.css b/static/main.css
index 1641886b..cb32df5a 100644
--- a/static/main.css
+++ b/static/main.css
@@ -332,6 +332,7 @@ a.ext-audiobutton { /* see hearthstone/wiki/Diablo_(Duels_hero) */
     display: flex;
 }
 .bw-theme__item {
+    display: inline-block;
     display: flex;
     align-items: baseline;
     padding: 2px;

From 9773e62c46b3faebb8e621718f3e9870fbd24d10 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Mon, 29 May 2023 23:02:28 +0700
Subject: [PATCH 129/166] Add better support for tabs

Some pages break without actual tab support, such as
https://breezewiki.com/ben10/wiki/Ultimatrix_(Original)#Modes

This change aims to work with old browsers (such as Firefox for Android 68)
and browsers with Javascript disabled (by showing all tab contents and hiding
the tab bar, i.e. how tabs work before this change).
---
 src/application-globals.rkt |  3 +-
 static/main.css             |  6 ++--
 static/tabs.js              | 63 +++++++++++++++++++++++++++++++++++++
 3 files changed, 68 insertions(+), 4 deletions(-)
 create mode 100644 static/tabs.js

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index de60820a..a4137854 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -203,10 +203,11 @@
            `(script (@ (type "module") (src ,(get-static-url "search-suggestions.js"))))
            "")
       (script (@ (type "module") (src ,(get-static-url "countdown.js"))))
+      (script (@ (defer) (src ,(get-static-url "tabs.js"))))
       (link (@ (rel "icon") (href ,(u (λ (v) (config-true? 'strict_proxy))
                                       (λ (v) (u-proxy-url v))
                                       (head-data^-icon-url head-data))))))
-     (body (@ (class ,(head-data^-body-class head-data)))
+     (body (@ (class ,(head-data^-body-class head-data) " bw-tabs-nojs"))
            ,(let ([extension-eligible?
                    (cond/var
                     [(not req) #f]
diff --git a/static/main.css b/static/main.css
index cb32df5a..6b07d2b8 100644
--- a/static/main.css
+++ b/static/main.css
@@ -202,11 +202,11 @@ figcaption, .lightbox-caption, .thumbcaption {
     padding: 0;
 }
 
-/* show tabs always */
-.wds-tabs__wrapper {
+/* show tabs if tabs.js isn't loaded */
+.bw-tabs-nojs .wds-tabs__wrapper {
     display: none;
 }
-.wds-tab__content {
+.bw-tabs-nojs .wds-tab__content {
     display: block;
 }
 
diff --git a/static/tabs.js b/static/tabs.js
new file mode 100644
index 00000000..589261d9
--- /dev/null
+++ b/static/tabs.js
@@ -0,0 +1,63 @@
+"use strict";
+
+function handleTabber(tabber) {
+    let [tabs, contents] = getTabs(tabber);
+
+    for (let i in tabs) {
+        let tab = tabs[i];
+        let content = contents[i];
+        tab.addEventListener("click", function(e) {
+            let [currentTab, currentContent] = getCurrentTab(tabber);
+            if (currentTab) {
+                currentTab.classList.remove("wds-is-current");
+            }
+            if (currentContent) {
+                currentContent.classList.remove("wds-is-current");
+            }
+
+            tab.classList.add("wds-is-current");
+            content.classList.add("wds-is-current");
+            e.preventDefault();
+        });
+    }
+}
+
+for (let tabber of document.body.querySelectorAll(".wds-tabber")) {
+    handleTabber(tabber);
+}
+document.body.classList.remove("bw-tabs-nojs");
+
+
+
+function getTabs(tabber) {
+    let tabs = [];
+    let contents = [];
+
+    for (let i of tabber.querySelector(".wds-tabs__wrapper").querySelectorAll(".wds-tabs__tab")) {
+        tabs.push(i);
+    }
+    for (let i of tabber.children) {
+        if (!i.matches(".wds-tab__content")) {
+            continue;
+        }
+        contents.push(i);
+    }
+
+    return [tabs, contents];
+}
+
+function getCurrentTab(tabber) {
+    let tab = null;
+    let content = null;
+
+    tab = tabber.querySelector(".wds-tabs__wrapper").querySelector(".wds-tabs__tab.wds-is-current");
+    for (let i of tabber.children) {
+        if (!i.matches(".wds-tab__content.wds-is-current")) {
+            continue;
+        }
+        content = i;
+        break;
+    }
+
+    return [tab, content];
+}

From ead6896818be96048138d0d3ecd12438f8d475b8 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Tue, 30 May 2023 13:41:49 +0700
Subject: [PATCH 130/166] Add the ability to specify/open the last open tab in
 the URL

---
 static/tabs.js | 38 +++++++++++++++++++++++---------------
 1 file changed, 23 insertions(+), 15 deletions(-)

diff --git a/static/tabs.js b/static/tabs.js
index 589261d9..916cb4d1 100644
--- a/static/tabs.js
+++ b/static/tabs.js
@@ -1,30 +1,23 @@
 "use strict";
 
-function handleTabber(tabber) {
+let tabToFind = location.hash.length > 1 ? location.hash.substring(1) : null;
+for (let tabber of document.body.querySelectorAll(".wds-tabber")) {
     let [tabs, contents] = getTabs(tabber);
 
     for (let i in tabs) {
         let tab = tabs[i];
         let content = contents[i];
-        tab.addEventListener("click", function(e) {
-            let [currentTab, currentContent] = getCurrentTab(tabber);
-            if (currentTab) {
-                currentTab.classList.remove("wds-is-current");
-            }
-            if (currentContent) {
-                currentContent.classList.remove("wds-is-current");
-            }
 
-            tab.classList.add("wds-is-current");
-            content.classList.add("wds-is-current");
+        tab.addEventListener("click", function(e) {
+            setCurrentTab(tabber, tab, content);
             e.preventDefault();
         });
+        if (tab.dataset.hash === tabToFind) {
+            setCurrentTab(tabber, tab, content);
+            tabToFind = null;
+        }
     }
 }
-
-for (let tabber of document.body.querySelectorAll(".wds-tabber")) {
-    handleTabber(tabber);
-}
 document.body.classList.remove("bw-tabs-nojs");
 
 
@@ -61,3 +54,18 @@ function getCurrentTab(tabber) {
 
     return [tab, content];
 }
+
+function setCurrentTab(tabber, tab, content) {
+    let [currentTab, currentContent] = getCurrentTab(tabber);
+    if (currentTab) {
+        currentTab.classList.remove("wds-is-current");
+    }
+    if (currentContent) {
+        currentContent.classList.remove("wds-is-current");
+    }
+
+    tab.classList.add("wds-is-current");
+    content.classList.add("wds-is-current");
+    location.hash = "#" + tab.dataset.hash;
+    history.pushState(null, "", "#" + tab.dataset.hash);
+}

From f5399524b135eedf346ad758a88f37cba57be700 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Tue, 30 May 2023 14:01:14 +0700
Subject: [PATCH 131/166] Prevent linking to tabs with no IDs

---
 static/tabs.js | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/static/tabs.js b/static/tabs.js
index 916cb4d1..6f582e85 100644
--- a/static/tabs.js
+++ b/static/tabs.js
@@ -14,7 +14,6 @@ for (let tabber of document.body.querySelectorAll(".wds-tabber")) {
         });
         if (tab.dataset.hash === tabToFind) {
             setCurrentTab(tabber, tab, content);
-            tabToFind = null;
         }
     }
 }
@@ -66,6 +65,8 @@ function setCurrentTab(tabber, tab, content) {
 
     tab.classList.add("wds-is-current");
     content.classList.add("wds-is-current");
-    location.hash = "#" + tab.dataset.hash;
-    history.pushState(null, "", "#" + tab.dataset.hash);
+    if (tab.dataset.hash) {
+        location.hash = "#" + tab.dataset.hash;
+        history.pushState(null, "", "#" + tab.dataset.hash);
+    }
 }

From dcb8a8a590df66023cc355266cc1fc0c4f278438 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Mon, 6 Nov 2023 20:31:20 +1100
Subject: [PATCH 132/166] Prevent making duplicate history entries

---
 static/tabs.js | 1 -
 1 file changed, 1 deletion(-)

diff --git a/static/tabs.js b/static/tabs.js
index 6f582e85..4c4cddab 100644
--- a/static/tabs.js
+++ b/static/tabs.js
@@ -67,6 +67,5 @@ function setCurrentTab(tabber, tab, content) {
     content.classList.add("wds-is-current");
     if (tab.dataset.hash) {
         location.hash = "#" + tab.dataset.hash;
-        history.pushState(null, "", "#" + tab.dataset.hash);
     }
 }

From 2b3a8fe1084abab995f6d0937f673dcb4eac78b6 Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Mon, 13 Nov 2023 14:35:07 +1100
Subject: [PATCH 133/166] Fix scrolling to sections if a tab's hash coincides
 with one

ben10/wiki/Alien_X_(Classic)#Appearances
---
 static/tabs.js | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/static/tabs.js b/static/tabs.js
index 4c4cddab..a077efec 100644
--- a/static/tabs.js
+++ b/static/tabs.js
@@ -66,6 +66,9 @@ function setCurrentTab(tabber, tab, content) {
     tab.classList.add("wds-is-current");
     content.classList.add("wds-is-current");
     if (tab.dataset.hash) {
-        location.hash = "#" + tab.dataset.hash;
+        let fragment = "#" + tab.dataset.hash;
+        if (location.hash !== fragment) {
+            history.pushState(null, "", fragment);
+        }
     }
 }

From 43c3f70736d7aa394eda004672beedb166dd6baf Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 10 Nov 2023 17:09:18 +1300
Subject: [PATCH 134/166] Add experimental FTS indexer

---
 archiver/fts.rkt | 89 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 89 insertions(+)
 create mode 100644 archiver/fts.rkt

diff --git a/archiver/fts.rkt b/archiver/fts.rkt
new file mode 100644
index 00000000..20b21cc8
--- /dev/null
+++ b/archiver/fts.rkt
@@ -0,0 +1,89 @@
+#lang racket/base
+(require racket/function
+         racket/future
+         racket/match
+         racket/path
+         racket/promise
+         racket/port
+         racket/string
+         file/gunzip
+         db
+         db/unsafe/sqlite3
+         json
+         json-pointer
+         "../lib/html-parsing/main.rkt"
+         "../lib/xexpr-utils.rkt"
+         "../lib/tree-updater.rkt")
+
+(define (class-has? attributes substrs)
+  (define cl (or (get-attribute 'class attributes) ""))
+  (ormap (λ (substr) (string-contains? cl substr)) substrs))
+
+(define (updater element element-type attributes children)
+  (cond
+    [(class-has? attributes '("collapsed" "selflink" "label" "toc" "editsection" "reviews"))
+     (list 'div '() '())]
+    [#t
+     (list element-type attributes children)]))
+
+(define slc (sqlite3-connect #:database "../storage/fts-separate.db"))
+(sqlite3-load-extension slc "fts5")
+
+(define (writer page)
+  (for ([bit page])
+    (cond
+      [(memq bit '(div p li td)) (displayln "")]
+      [(symbol? bit) (void)]
+      [(and (pair? bit) (eq? (car bit) '*COMMENT*)) (void)]
+      [(and (pair? bit) (eq? (car bit) '@)) (void)]
+      [(pair? bit) (writer bit)]
+      [(string? bit) (display bit)])))
+
+(define wikiname "sto")
+(define tablename (format "page_~a" wikiname))
+
+(define ((extract f)) ; f - filename
+  (with-handlers
+    ([exn:fail? (λ (err) (println f) (raise err))])
+    (define j
+      (case (path-get-extension f)
+        [(#".json")
+         (with-input-from-file f (λ () (read-json)))]
+        [(#".gz")
+         (define-values (in out) (make-pipe))
+         (with-input-from-file f (λ () (gunzip-through-ports (current-input-port) out)))
+         (read-json in)]
+        [else #f]))
+    (define title (json-pointer-value "/parse/title" j))
+    (define page-html (preprocess-html-wiki (json-pointer-value "/parse/text" j)))
+    (define page (update-tree updater (html->xexp page-html)))
+    (define text (with-output-to-string (λ () (writer page))))
+    (define shrink-text (regexp-replace* #px"([ \t]*\r?\n+)+" text "\n"))
+    (values title shrink-text)))
+
+(println "extracting text...")
+(define results
+  (time
+   (for/list ([f (directory-list (format "../storage/archive/~a" wikiname) #:build? #t)]
+              #:when (member (path-get-extension f) '(#".json" #".gz")))
+     (extract f))))
+
+(println "inserting...")
+(query-exec slc "begin transaction")
+#;(query-exec slc (format "create virtual table \"~a\" using fts5 (title, body, tokenize='porter unicode61')" wikiname))
+(time
+ (for ([fut results]
+       [i (in-naturals 1)])
+   (display "-")
+   (when (and (> i 0) (= (modulo i 100) 0))
+     (println i))
+   (define-values (title shrink-text) (fut))
+   (query-exec slc (format "insert into \"~a\" (title, body) values (?, ?)" tablename) title shrink-text)))
+
+(println "running optimize...")
+(query-exec slc (format "insert into \"~a\" (\"~a\") values ('optimize')" tablename tablename))
+
+(println "committing...")
+(query-exec slc "commit")
+
+(disconnect slc)

From 57e0d20657e441e06470ad658b1dd071b389d7ed Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 29 Nov 2023 16:57:50 +1300
Subject: [PATCH 135/166] Add more indexers and Solr configuration

---
 archiver/fts.rkt                              |  179 +-
 .../solr-config-dir/lang/contractions_ca.txt  |    8 +
 .../solr-config-dir/lang/contractions_fr.txt  |   15 +
 .../solr-config-dir/lang/contractions_ga.txt  |    5 +
 .../solr-config-dir/lang/contractions_it.txt  |   23 +
 .../solr-config-dir/lang/hyphenations_ga.txt  |    5 +
 archiver/solr-config-dir/lang/stemdict_nl.txt |    6 +
 archiver/solr-config-dir/lang/stoptags_ja.txt |  420 +++++
 .../solr-config-dir/lang/stopwords_ar.txt     |  125 ++
 .../solr-config-dir/lang/stopwords_bg.txt     |  193 ++
 .../solr-config-dir/lang/stopwords_ca.txt     |  220 +++
 .../solr-config-dir/lang/stopwords_cz.txt     |  172 ++
 .../solr-config-dir/lang/stopwords_da.txt     |  110 ++
 .../solr-config-dir/lang/stopwords_de.txt     |  294 +++
 .../solr-config-dir/lang/stopwords_el.txt     |   78 +
 .../solr-config-dir/lang/stopwords_en.txt     |   54 +
 .../solr-config-dir/lang/stopwords_es.txt     |  356 ++++
 .../solr-config-dir/lang/stopwords_et.txt     | 1603 +++++++++++++++++
 .../solr-config-dir/lang/stopwords_eu.txt     |   99 +
 .../solr-config-dir/lang/stopwords_fa.txt     |  313 ++++
 .../solr-config-dir/lang/stopwords_fi.txt     |   97 +
 .../solr-config-dir/lang/stopwords_fr.txt     |  186 ++
 .../solr-config-dir/lang/stopwords_ga.txt     |  110 ++
 .../solr-config-dir/lang/stopwords_gl.txt     |  161 ++
 .../solr-config-dir/lang/stopwords_hi.txt     |  235 +++
 .../solr-config-dir/lang/stopwords_hu.txt     |  211 +++
 .../solr-config-dir/lang/stopwords_hy.txt     |   46 +
 .../solr-config-dir/lang/stopwords_id.txt     |  359 ++++
 .../solr-config-dir/lang/stopwords_it.txt     |  303 ++++
 .../solr-config-dir/lang/stopwords_ja.txt     |  127 ++
 .../solr-config-dir/lang/stopwords_lv.txt     |  172 ++
 .../solr-config-dir/lang/stopwords_nl.txt     |  119 ++
 .../solr-config-dir/lang/stopwords_no.txt     |  194 ++
 .../solr-config-dir/lang/stopwords_pt.txt     |  253 +++
 .../solr-config-dir/lang/stopwords_ro.txt     |  233 +++
 .../solr-config-dir/lang/stopwords_ru.txt     |  243 +++
 .../solr-config-dir/lang/stopwords_sv.txt     |  133 ++
 .../solr-config-dir/lang/stopwords_th.txt     |  119 ++
 .../solr-config-dir/lang/stopwords_tr.txt     |  212 +++
 archiver/solr-config-dir/lang/userdict_ja.txt |   29 +
 archiver/solr-config-dir/schema.xml           |  153 ++
 archiver/solr-config-dir/solrconfig.xml       | 1076 +++++++++++
 42 files changed, 9016 insertions(+), 33 deletions(-)
 create mode 100644 archiver/solr-config-dir/lang/contractions_ca.txt
 create mode 100644 archiver/solr-config-dir/lang/contractions_fr.txt
 create mode 100644 archiver/solr-config-dir/lang/contractions_ga.txt
 create mode 100644 archiver/solr-config-dir/lang/contractions_it.txt
 create mode 100644 archiver/solr-config-dir/lang/hyphenations_ga.txt
 create mode 100644 archiver/solr-config-dir/lang/stemdict_nl.txt
 create mode 100644 archiver/solr-config-dir/lang/stoptags_ja.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_ar.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_bg.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_ca.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_cz.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_da.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_de.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_el.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_en.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_es.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_et.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_eu.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_fa.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_fi.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_fr.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_ga.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_gl.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_hi.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_hu.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_hy.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_id.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_it.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_ja.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_lv.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_nl.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_no.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_pt.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_ro.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_ru.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_sv.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_th.txt
 create mode 100644 archiver/solr-config-dir/lang/stopwords_tr.txt
 create mode 100644 archiver/solr-config-dir/lang/userdict_ja.txt
 create mode 100644 archiver/solr-config-dir/schema.xml
 create mode 100644 archiver/solr-config-dir/solrconfig.xml

diff --git a/archiver/fts.rkt b/archiver/fts.rkt
index 20b21cc8..6e2266e6 100644
--- a/archiver/fts.rkt
+++ b/archiver/fts.rkt
@@ -1,4 +1,4 @@
-#lang racket/base
+#lang racket
 (require racket/function
          racket/future
          racket/match
@@ -9,12 +9,35 @@
          file/gunzip
          db
          db/unsafe/sqlite3
+         net/http-easy
          json
          json-pointer
          "../lib/html-parsing/main.rkt"
          "../lib/xexpr-utils.rkt"
          "../lib/tree-updater.rkt")
 
+(define-syntax (seq stx)
+  (syntax-case stx ()
+    [(_ body ...)
+     #`(for ([op (list (lambda () body) ...)]
+             [i (in-naturals)])
+         (define res (op))
+         (when (>= (response-status-code res) 400)
+           (error 'seq "op #~a: status code was ~a: ~v" i (response-status-code res) (response-json res)))
+         (define taskuid (json-pointer-value "/taskUid" (response-json res)))
+         (for/or ([ticks (in-naturals)]
+                  [res2 (in-producer (lambda () (get (format "http://localhost:7700/tasks/~a" taskuid))))])
+           (define status (json-pointer-value "/status" (response-json res2)))
+           (case status
+             [("enqueued" "processing")
+              (sleep 1)
+              #f]
+             [("succeeded")
+              (printf "op #~a: ~a (~a ticks)~n" i status ticks)
+              #t]
+             [else
+              (error 'seq "op #~a: task status was ~a: ~v" i status res2)])))]))
+
 (define (class-has? attributes substrs)
   (define cl (or (get-attribute 'class attributes) ""))
   (ormap (λ (substr) (string-contains? cl substr)) substrs))
@@ -29,17 +52,27 @@
 (define slc (sqlite3-connect #:database "../storage/fts-separate.db"))
 (sqlite3-load-extension slc "fts5")
 
-(define (writer page)
-  (for ([bit page])
-    (cond
-      [(memq bit '(div p li td)) (displayln "")]
-      [(symbol? bit) (void)]
-      [(and (pair? bit) (eq? (car bit) '*COMMENT*)) (void)]
-      [(and (pair? bit) (eq? (car bit) '@)) (void)]
-      [(pair? bit) (writer bit)]
-      [(string? bit) (display bit)])))
+(define (writer tables-mode? page)
+  (define (writer-inner page)
+    (for ([bit page])
+      (cond
+        [(and tables-mode? (pair? bit) (memq (car bit) '(h1 h2 h3 p blockquote q))) (void)]
+        [(and (not tables-mode?) (pair? bit) (memq (car bit) '(ul ol dl table))) (void)]
+        [(memq bit '(div p li td dd dt br)) (displayln "")]
+        [(symbol? bit) (void)]
+        [(and (pair? bit) (eq? (car bit) '*COMMENT*)) (void)]
+        [(and (pair? bit) (eq? (car bit) '@)) (void)]
+        [(pair? bit) (writer-inner bit)]
+        [(string? bit) (display bit)])))
+  (writer-inner page))
 
-(define wikiname "sto")
+(define (write-and-post-process tables-mode? page)
+  (define text (with-output-to-string (λ () (writer tables-mode? page))))
+  ;; (define text-no-numbers (regexp-replace* #px"(?:-|[+$£€¥] *)?[0-9,.]{2,}%?\\s*" text ""))
+  (define shrink-text (regexp-replace* #px"([ \t]*\r?\n+)+" text "\n"))
+  shrink-text)
+
+(define wikiname "bloons")
 (define tablename (format "page_~a" wikiname))
 
 (define ((extract f)) ; f - filename
@@ -55,35 +88,115 @@
          (read-json in)]
         [else #f]))
     (define title (json-pointer-value "/parse/title" j))
+    (define pageid (json-pointer-value "/parse/pageid" j))
     (define page-html (preprocess-html-wiki (json-pointer-value "/parse/text" j)))
     (define page (update-tree updater (html->xexp page-html)))
-    (define text (with-output-to-string (λ () (writer page))))
-    (define shrink-text (regexp-replace* #px"([ \t]*\r?\n+)+" text "\n"))
-    (values title shrink-text)))
+    (define body (write-and-post-process #f page))
+    (define table (write-and-post-process #t page))
+    (values title body table pageid)))
 
-(println "extracting text...")
 (define results
-  (time
-   (for/list ([f (directory-list (format "../storage/archive/~a" wikiname) #:build? #t)]
-              #:when (member (path-get-extension f) '(#".json" #".gz")))
-     (extract f))))
+  (for/list ([f (directory-list (format "../storage/archive/~a" wikiname) #:build? #t)]
+             #:when (member (path-get-extension f) '(#".json" #".gz")))
+    (extract f)))
+
+;; ***************************************************************************************************
+;; TESTING WRITER
+;; ***************************************************************************************************
+#;(for/first ([fut results]
+            [i (in-naturals 1)]
+            #:when (i . >= . 4859))
+  (define-values (title body table pageid) (fut))
+  (println title)
+  (println body)
+  (println table))
 
 (println "inserting...")
-(query-exec slc "begin transaction")
-#;(query-exec slc (format "create virtual table \"~a\" using fts5 (title, body, tokenize='porter unicode61')" wikiname))
-(time
- (for ([fut results]
-       [i (in-naturals 1)])
-   (display "-")
-   (when (and (> i 0) (= (modulo i 100) 0))
-     (println i))
-   (define-values (title shrink-text) (fut))
-   (query-exec slc (format "insert into \"~a\" (title, body) values (?, ?)" tablename) title shrink-text)))
 
-(println "running optimize...")
-(query-exec slc (format "insert into \"~a\" (\"~a\") values ('optimize')" tablename tablename))
+;; ***************************************************************************************************
+;; SQLite FTS5
+;; ***************************************************************************************************
+#;(begin
+    (query-exec slc "begin transaction")
+    #;(query-exec slc (format "create virtual table \"~a\" using fts5 (title, body, tokenize='porter unicode61')" wikiname))
+    (time
+     (for ([fut results]
+           [i (in-naturals 1)])
+       (display "-")
+       (when (and (> i 0) (= (modulo i 100) 0))
+         (println i))
+       (define-values (title shrink-text) (fut))
+       (query-exec slc (format "insert into \"~a\" (title, body) values (?, ?)" tablename) title shrink-text)))
 
-(println "committing...")
-(query-exec slc "commit")
+    (println "running optimize...")
+    (query-exec slc (format "insert into \"~a\" (\"~a\") values ('optimize')" tablename tablename))
+
+    (println "committing...")
+    (query-exec slc "commit"))
+
+;; ***************************************************************************************************
+;; Solr
+;; ***************************************************************************************************
+(begin
+  (define data
+    (cond
+      #;[(file-exists? "cache.rkt")
+       (println "reading in...")
+       (with-input-from-file "cache.rkt" (λ () (read)))]
+      [else
+       (define data
+         (for/list ([fut results]
+                    [i (in-naturals 1)])
+           (display "-")
+           (when (and (> i 0) (= (modulo i 100) 0))
+             (println i))
+           (define-values (title body table pageid) (fut))
+           (define len (string-length body))
+           `#hasheq((id . ,(number->string pageid))
+                    (title . ,title)
+                    (body . ,body)
+                    (table . ,table)
+                    (len . ,len))))
+
+       (println "writing out...")
+       (with-output-to-file "cache.rkt" (λ () (write data)) #:exists 'truncate/replace)
+       data]))
+
+  (println "posting...")
+  (define res
+    (post (format "http://localhost:8983/solr/~a/update?commit=true" wikiname)
+          #:json data)))
+
+;; ***************************************************************************************************
+;; Meilisearch
+;; ***************************************************************************************************
+#;(begin
+  (seq
+   (put (format "http://localhost:7700/indexes/~a/settings/searchable-attributes" wikiname)
+        #:json '("title" "body"))
+   (put (format "http://localhost:7700/indexes/~a/settings/ranking-rules" wikiname)
+        #:json '("words" "typo" #;"proximity" "attribute" "sort" "exactness" #;"len:desc"))
+   (call-with-input-file "stop-words.json"
+     (λ (in)
+       (put (format "http://localhost:7700/indexes/~a/settings/stop-words" wikiname)
+            #:headers '#hasheq((Content-Type . "application/json"))
+            #:data in))))
+  (define data
+    (for/list ([fut results]
+               [i (in-naturals 1)])
+      (display "-")
+      (when (and (> i 0) (= (modulo i 100) 0))
+        (println i))
+      (define-values (title body pageid) (fut))
+      (define len (string-length body))
+      `#hasheq((id . ,pageid)
+               (title . ,title)
+               (body . ,body)
+               (len . ,len))))
+  (define res
+    (post (format "http://localhost:7700/indexes/~a/documents" wikiname)
+          #:json data))
+  (seq res)
+  (println (response-json res)))
 
 (disconnect slc)
diff --git a/archiver/solr-config-dir/lang/contractions_ca.txt b/archiver/solr-config-dir/lang/contractions_ca.txt
new file mode 100644
index 00000000..307a85f9
--- /dev/null
+++ b/archiver/solr-config-dir/lang/contractions_ca.txt
@@ -0,0 +1,8 @@
+# Set of Catalan contractions for ElisionFilter
+# TODO: load this as a resource from the analyzer and sync it in build.xml
+d
+l
+m
+n
+s
+t
diff --git a/archiver/solr-config-dir/lang/contractions_fr.txt b/archiver/solr-config-dir/lang/contractions_fr.txt
new file mode 100644
index 00000000..f1bba51b
--- /dev/null
+++ b/archiver/solr-config-dir/lang/contractions_fr.txt
@@ -0,0 +1,15 @@
+# Set of French contractions for ElisionFilter
+# TODO: load this as a resource from the analyzer and sync it in build.xml
+l
+m
+t
+qu
+n
+s
+j
+d
+c
+jusqu
+quoiqu
+lorsqu
+puisqu
diff --git a/archiver/solr-config-dir/lang/contractions_ga.txt b/archiver/solr-config-dir/lang/contractions_ga.txt
new file mode 100644
index 00000000..9ebe7fa3
--- /dev/null
+++ b/archiver/solr-config-dir/lang/contractions_ga.txt
@@ -0,0 +1,5 @@
+# Set of Irish contractions for ElisionFilter
+# TODO: load this as a resource from the analyzer and sync it in build.xml
+d
+m
+b
diff --git a/archiver/solr-config-dir/lang/contractions_it.txt b/archiver/solr-config-dir/lang/contractions_it.txt
new file mode 100644
index 00000000..cac04095
--- /dev/null
+++ b/archiver/solr-config-dir/lang/contractions_it.txt
@@ -0,0 +1,23 @@
+# Set of Italian contractions for ElisionFilter
+# TODO: load this as a resource from the analyzer and sync it in build.xml
+c
+l 
+all 
+dall 
+dell 
+nell 
+sull 
+coll 
+pell 
+gl 
+agl 
+dagl 
+degl 
+negl 
+sugl 
+un 
+m 
+t 
+s 
+v 
+d
diff --git a/archiver/solr-config-dir/lang/hyphenations_ga.txt b/archiver/solr-config-dir/lang/hyphenations_ga.txt
new file mode 100644
index 00000000..4d2642cc
--- /dev/null
+++ b/archiver/solr-config-dir/lang/hyphenations_ga.txt
@@ -0,0 +1,5 @@
+# Set of Irish hyphenations for StopFilter
+# TODO: load this as a resource from the analyzer and sync it in build.xml
+h
+n
+t
diff --git a/archiver/solr-config-dir/lang/stemdict_nl.txt b/archiver/solr-config-dir/lang/stemdict_nl.txt
new file mode 100644
index 00000000..44107297
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stemdict_nl.txt
@@ -0,0 +1,6 @@
+# Set of overrides for the dutch stemmer
+# TODO: load this as a resource from the analyzer and sync it in build.xml
+fiets	fiets
+bromfiets	bromfiets
+ei	eier
+kind	kinder
diff --git a/archiver/solr-config-dir/lang/stoptags_ja.txt b/archiver/solr-config-dir/lang/stoptags_ja.txt
new file mode 100644
index 00000000..71b75084
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stoptags_ja.txt
@@ -0,0 +1,420 @@
+#
+# This file defines a Japanese stoptag set for JapanesePartOfSpeechStopFilter.
+#
+# Any token with a part-of-speech tag that exactly matches those defined in this
+# file are removed from the token stream.
+#
+# Set your own stoptags by uncommenting the lines below.  Note that comments are
+# not allowed on the same line as a stoptag.  See LUCENE-3745 for frequency lists,
+# etc. that can be useful for building you own stoptag set.
+#
+# The entire possible tagset is provided below for convenience.
+#
+#####
+#  noun: unclassified nouns
+#名詞
+#
+#  noun-common: Common nouns or nouns where the sub-classification is undefined
+#名詞-一般
+#
+#  noun-proper: Proper nouns where the sub-classification is undefined 
+#名詞-固有名詞
+#
+#  noun-proper-misc: miscellaneous proper nouns
+#名詞-固有名詞-一般
+#
+#  noun-proper-person: Personal names where the sub-classification is undefined
+#名詞-固有名詞-人名
+#
+#  noun-proper-person-misc: names that cannot be divided into surname and 
+#  given name; foreign names; names where the surname or given name is unknown.
+#  e.g. お市の方
+#名詞-固有名詞-人名-一般
+#
+#  noun-proper-person-surname: Mainly Japanese surnames.
+#  e.g. 山田
+#名詞-固有名詞-人名-姓
+#
+#  noun-proper-person-given_name: Mainly Japanese given names.
+#  e.g. 太郎
+#名詞-固有名詞-人名-名
+#
+#  noun-proper-organization: Names representing organizations.
+#  e.g. 通産省, NHK
+#名詞-固有名詞-組織
+#
+#  noun-proper-place: Place names where the sub-classification is undefined
+#名詞-固有名詞-地域
+#
+#  noun-proper-place-misc: Place names excluding countries.
+#  e.g. アジア, バルセロナ, 京都
+#名詞-固有名詞-地域-一般
+#
+#  noun-proper-place-country: Country names. 
+#  e.g. 日本, オーストラリア
+#名詞-固有名詞-地域-国
+#
+#  noun-pronoun: Pronouns where the sub-classification is undefined
+#名詞-代名詞
+#
+#  noun-pronoun-misc: miscellaneous pronouns: 
+#  e.g. それ, ここ, あいつ, あなた, あちこち, いくつ, どこか, なに, みなさん, みんな, わたくし, われわれ
+#名詞-代名詞-一般
+#
+#  noun-pronoun-contraction: Spoken language contraction made by combining a 
+#  pronoun and the particle 'wa'.
+#  e.g. ありゃ, こりゃ, こりゃあ, そりゃ, そりゃあ 
+#名詞-代名詞-縮約
+#
+#  noun-adverbial: Temporal nouns such as names of days or months that behave 
+#  like adverbs. Nouns that represent amount or ratios and can be used adverbially,
+#  e.g. 金曜, 一月, 午後, 少量
+#名詞-副詞可能
+#
+#  noun-verbal: Nouns that take arguments with case and can appear followed by 
+#  'suru' and related verbs (する, できる, なさる, くださる)
+#  e.g. インプット, 愛着, 悪化, 悪戦苦闘, 一安心, 下取り
+#名詞-サ変接続
+#
+#  noun-adjective-base: The base form of adjectives, words that appear before な ("na")
+#  e.g. 健康, 安易, 駄目, だめ
+#名詞-形容動詞語幹
+#
+#  noun-numeric: Arabic numbers, Chinese numerals, and counters like 何 (回), 数.
+#  e.g. 0, 1, 2, 何, 数, 幾
+#名詞-数
+#
+#  noun-affix: noun affixes where the sub-classification is undefined
+#名詞-非自立
+#
+#  noun-affix-misc: Of adnominalizers, the case-marker の ("no"), and words that 
+#  attach to the base form of inflectional words, words that cannot be classified 
+#  into any of the other categories below. This category includes indefinite nouns.
+#  e.g. あかつき, 暁, かい, 甲斐, 気, きらい, 嫌い, くせ, 癖, こと, 事, ごと, 毎, しだい, 次第, 
+#       順, せい, 所為, ついで, 序で, つもり, 積もり, 点, どころ, の, はず, 筈, はずみ, 弾み, 
+#       拍子, ふう, ふり, 振り, ほう, 方, 旨, もの, 物, 者, ゆえ, 故, ゆえん, 所以, わけ, 訳,
+#       わり, 割り, 割, ん-口語/, もん-口語/
+#名詞-非自立-一般
+#
+#  noun-affix-adverbial: noun affixes that that can behave as adverbs.
+#  e.g. あいだ, 間, あげく, 挙げ句, あと, 後, 余り, 以外, 以降, 以後, 以上, 以前, 一方, うえ, 
+#       上, うち, 内, おり, 折り, かぎり, 限り, きり, っきり, 結果, ころ, 頃, さい, 際, 最中, さなか, 
+#       最中, じたい, 自体, たび, 度, ため, 為, つど, 都度, とおり, 通り, とき, 時, ところ, 所, 
+#       とたん, 途端, なか, 中, のち, 後, ばあい, 場合, 日, ぶん, 分, ほか, 他, まえ, 前, まま, 
+#       儘, 侭, みぎり, 矢先
+#名詞-非自立-副詞可能
+#
+#  noun-affix-aux: noun affixes treated as 助動詞 ("auxiliary verb") in school grammars 
+#  with the stem よう(だ) ("you(da)").
+#  e.g.  よう, やう, 様 (よう)
+#名詞-非自立-助動詞語幹
+#  
+#  noun-affix-adjective-base: noun affixes that can connect to the indeclinable
+#  connection form な (aux "da").
+#  e.g. みたい, ふう
+#名詞-非自立-形容動詞語幹
+#
+#  noun-special: special nouns where the sub-classification is undefined.
+#名詞-特殊
+#
+#  noun-special-aux: The そうだ ("souda") stem form that is used for reporting news, is 
+#  treated as 助動詞 ("auxiliary verb") in school grammars, and attach to the base 
+#  form of inflectional words.
+#  e.g. そう
+#名詞-特殊-助動詞語幹
+#
+#  noun-suffix: noun suffixes where the sub-classification is undefined.
+#名詞-接尾
+#
+#  noun-suffix-misc: Of the nouns or stem forms of other parts of speech that connect 
+#  to ガル or タイ and can combine into compound nouns, words that cannot be classified into
+#  any of the other categories below. In general, this category is more inclusive than 
+#  接尾語 ("suffix") and is usually the last element in a compound noun.
+#  e.g. おき, かた, 方, 甲斐 (がい), がかり, ぎみ, 気味, ぐるみ, (～した) さ, 次第, 済 (ず) み,
+#       よう, (でき)っこ, 感, 観, 性, 学, 類, 面, 用
+#名詞-接尾-一般
+#
+#  noun-suffix-person: Suffixes that form nouns and attach to person names more often
+#  than other nouns.
+#  e.g. 君, 様, 著
+#名詞-接尾-人名
+#
+#  noun-suffix-place: Suffixes that form nouns and attach to place names more often 
+#  than other nouns.
+#  e.g. 町, 市, 県
+#名詞-接尾-地域
+#
+#  noun-suffix-verbal: Of the suffixes that attach to nouns and form nouns, those that 
+#  can appear before スル ("suru").
+#  e.g. 化, 視, 分け, 入り, 落ち, 買い
+#名詞-接尾-サ変接続
+#
+#  noun-suffix-aux: The stem form of そうだ (様態) that is used to indicate conditions, 
+#  is treated as 助動詞 ("auxiliary verb") in school grammars, and attach to the 
+#  conjunctive form of inflectional words.
+#  e.g. そう
+#名詞-接尾-助動詞語幹
+#
+#  noun-suffix-adjective-base: Suffixes that attach to other nouns or the conjunctive 
+#  form of inflectional words and appear before the copula だ ("da").
+#  e.g. 的, げ, がち
+#名詞-接尾-形容動詞語幹
+#
+#  noun-suffix-adverbial: Suffixes that attach to other nouns and can behave as adverbs.
+#  e.g. 後 (ご), 以後, 以降, 以前, 前後, 中, 末, 上, 時 (じ)
+#名詞-接尾-副詞可能
+#
+#  noun-suffix-classifier: Suffixes that attach to numbers and form nouns. This category 
+#  is more inclusive than 助数詞 ("classifier") and includes common nouns that attach 
+#  to numbers.
+#  e.g. 個, つ, 本, 冊, パーセント, cm, kg, カ月, か国, 区画, 時間, 時半
+#名詞-接尾-助数詞
+#
+#  noun-suffix-special: Special suffixes that mainly attach to inflecting words.
+#  e.g. (楽し) さ, (考え) 方
+#名詞-接尾-特殊
+#
+#  noun-suffix-conjunctive: Nouns that behave like conjunctions and join two words 
+#  together.
+#  e.g. (日本) 対 (アメリカ), 対 (アメリカ), (3) 対 (5), (女優) 兼 (主婦)
+#名詞-接続詞的
+#
+#  noun-verbal_aux: Nouns that attach to the conjunctive particle て ("te") and are 
+#  semantically verb-like.
+#  e.g. ごらん, ご覧, 御覧, 頂戴
+#名詞-動詞非自立的
+#
+#  noun-quotation: text that cannot be segmented into words, proverbs, Chinese poetry, 
+#  dialects, English, etc. Currently, the only entry for 名詞 引用文字列 ("noun quotation") 
+#  is いわく ("iwaku").
+#名詞-引用文字列
+#
+#  noun-nai_adjective: Words that appear before the auxiliary verb ない ("nai") and
+#  behave like an adjective.
+#  e.g. 申し訳, 仕方, とんでも, 違い
+#名詞-ナイ形容詞語幹
+#
+#####
+#  prefix: unclassified prefixes
+#接頭詞
+#
+#  prefix-nominal: Prefixes that attach to nouns (including adjective stem forms) 
+#  excluding numerical expressions.
+#  e.g. お (水), 某 (氏), 同 (社), 故 (～氏), 高 (品質), お (見事), ご (立派)
+#接頭詞-名詞接続
+#
+#  prefix-verbal: Prefixes that attach to the imperative form of a verb or a verb
+#  in conjunctive form followed by なる/なさる/くださる.
+#  e.g. お (読みなさい), お (座り)
+#接頭詞-動詞接続
+#
+#  prefix-adjectival: Prefixes that attach to adjectives.
+#  e.g. お (寒いですねえ), バカ (でかい)
+#接頭詞-形容詞接続
+#
+#  prefix-numerical: Prefixes that attach to numerical expressions.
+#  e.g. 約, およそ, 毎時
+#接頭詞-数接続
+#
+#####
+#  verb: unclassified verbs
+#動詞
+#
+#  verb-main:
+#動詞-自立
+#
+#  verb-auxiliary:
+#動詞-非自立
+#
+#  verb-suffix:
+#動詞-接尾
+#
+#####
+#  adjective: unclassified adjectives
+#形容詞
+#
+#  adjective-main:
+#形容詞-自立
+#
+#  adjective-auxiliary:
+#形容詞-非自立
+#
+#  adjective-suffix:
+#形容詞-接尾
+#
+#####
+#  adverb: unclassified adverbs
+#副詞
+#
+#  adverb-misc: Words that can be segmented into one unit and where adnominal 
+#  modification is not possible.
+#  e.g. あいかわらず, 多分
+#副詞-一般
+#
+#  adverb-particle_conjunction: Adverbs that can be followed by の, は, に, 
+#  な, する, だ, etc.
+#  e.g. こんなに, そんなに, あんなに, なにか, なんでも
+#副詞-助詞類接続
+#
+#####
+#  adnominal: Words that only have noun-modifying forms.
+#  e.g. この, その, あの, どの, いわゆる, なんらかの, 何らかの, いろんな, こういう, そういう, ああいう, 
+#       どういう, こんな, そんな, あんな, どんな, 大きな, 小さな, おかしな, ほんの, たいした, 
+#       「(, も) さる (ことながら)」, 微々たる, 堂々たる, 単なる, いかなる, 我が」「同じ, 亡き
+#連体詞
+#
+#####
+#  conjunction: Conjunctions that can occur independently.
+#  e.g. が, けれども, そして, じゃあ, それどころか
+接続詞
+#
+#####
+#  particle: unclassified particles.
+助詞
+#
+#  particle-case: case particles where the subclassification is undefined.
+助詞-格助詞
+#
+#  particle-case-misc: Case particles.
+#  e.g. から, が, で, と, に, へ, より, を, の, にて
+助詞-格助詞-一般
+#
+#  particle-case-quote: the "to" that appears after nouns, a person’s speech, 
+#  quotation marks, expressions of decisions from a meeting, reasons, judgements,
+#  conjectures, etc.
+#  e.g. ( だ) と (述べた.), ( である) と (して執行猶予...)
+助詞-格助詞-引用
+#
+#  particle-case-compound: Compounds of particles and verbs that mainly behave 
+#  like case particles.
+#  e.g. という, といった, とかいう, として, とともに, と共に, でもって, にあたって, に当たって, に当って,
+#       にあたり, に当たり, に当り, に当たる, にあたる, において, に於いて,に於て, における, に於ける, 
+#       にかけ, にかけて, にかんし, に関し, にかんして, に関して, にかんする, に関する, に際し, 
+#       に際して, にしたがい, に従い, に従う, にしたがって, に従って, にたいし, に対し, にたいして, 
+#       に対して, にたいする, に対する, について, につき, につけ, につけて, につれ, につれて, にとって,
+#       にとり, にまつわる, によって, に依って, に因って, により, に依り, に因り, による, に依る, に因る, 
+#       にわたって, にわたる, をもって, を以って, を通じ, を通じて, を通して, をめぐって, をめぐり, をめぐる,
+#       って-口語/, ちゅう-関西弁「という」/, (何) ていう (人)-口語/, っていう-口語/, といふ, とかいふ
+助詞-格助詞-連語
+#
+#  particle-conjunctive:
+#  e.g. から, からには, が, けれど, けれども, けど, し, つつ, て, で, と, ところが, どころか, とも, ども, 
+#       ながら, なり, ので, のに, ば, ものの, や ( した), やいなや, (ころん) じゃ(いけない)-口語/, 
+#       (行っ) ちゃ(いけない)-口語/, (言っ) たって (しかたがない)-口語/, (それがなく)ったって (平気)-口語/
+助詞-接続助詞
+#
+#  particle-dependency:
+#  e.g. こそ, さえ, しか, すら, は, も, ぞ
+助詞-係助詞
+#
+#  particle-adverbial:
+#  e.g. がてら, かも, くらい, 位, ぐらい, しも, (学校) じゃ(これが流行っている)-口語/, 
+#       (それ)じゃあ (よくない)-口語/, ずつ, (私) なぞ, など, (私) なり (に), (先生) なんか (大嫌い)-口語/,
+#       (私) なんぞ, (先生) なんて (大嫌い)-口語/, のみ, だけ, (私) だって-口語/, だに, 
+#       (彼)ったら-口語/, (お茶) でも (いかが), 等 (とう), (今後) とも, ばかり, ばっか-口語/, ばっかり-口語/,
+#       ほど, 程, まで, 迄, (誰) も (が)([助詞-格助詞] および [助詞-係助詞] の前に位置する「も」)
+助詞-副助詞
+#
+#  particle-interjective: particles with interjective grammatical roles.
+#  e.g. (松島) や
+助詞-間投助詞
+#
+#  particle-coordinate:
+#  e.g. と, たり, だの, だり, とか, なり, や, やら
+助詞-並立助詞
+#
+#  particle-final:
+#  e.g. かい, かしら, さ, ぜ, (だ)っけ-口語/, (とまってる) で-方言/, な, ナ, なあ-口語/, ぞ, ね, ネ, 
+#       ねぇ-口語/, ねえ-口語/, ねん-方言/, の, のう-口語/, や, よ, ヨ, よぉ-口語/, わ, わい-口語/
+助詞-終助詞
+#
+#  particle-adverbial/conjunctive/final: The particle "ka" when unknown whether it is 
+#  adverbial, conjunctive, or sentence final. For example:
+#       (a) 「A か B か」. Ex:「(国内で運用する) か,(海外で運用する) か (.)」
+#       (b) Inside an adverb phrase. Ex:「(幸いという) か (, 死者はいなかった.)」
+#           「(祈りが届いたせい) か (, 試験に合格した.)」
+#       (c) 「かのように」. Ex:「(何もなかった) か (のように振る舞った.)」
+#  e.g. か
+助詞-副助詞／並立助詞／終助詞
+#
+#  particle-adnominalizer: The "no" that attaches to nouns and modifies 
+#  non-inflectional words.
+助詞-連体化
+#
+#  particle-adnominalizer: The "ni" and "to" that appear following nouns and adverbs 
+#  that are giongo, giseigo, or gitaigo.
+#  e.g. に, と
+助詞-副詞化
+#
+#  particle-special: A particle that does not fit into one of the above classifications. 
+#  This includes particles that are used in Tanka, Haiku, and other poetry.
+#  e.g. かな, けむ, ( しただろう) に, (あんた) にゃ(わからん), (俺) ん (家)
+助詞-特殊
+#
+#####
+#  auxiliary-verb:
+助動詞
+#
+#####
+#  interjection: Greetings and other exclamations.
+#  e.g. おはよう, おはようございます, こんにちは, こんばんは, ありがとう, どうもありがとう, ありがとうございます, 
+#       いただきます, ごちそうさま, さよなら, さようなら, はい, いいえ, ごめん, ごめんなさい
+#感動詞
+#
+#####
+#  symbol: unclassified Symbols.
+記号
+#
+#  symbol-misc: A general symbol not in one of the categories below.
+#  e.g. [○◎@$〒→+]
+記号-一般
+#
+#  symbol-comma: Commas
+#  e.g. [,、]
+記号-読点
+#
+#  symbol-period: Periods and full stops.
+#  e.g. [.．。]
+記号-句点
+#
+#  symbol-space: Full-width whitespace.
+記号-空白
+#
+#  symbol-open_bracket:
+#  e.g. [({‘“『【]
+記号-括弧開
+#
+#  symbol-close_bracket:
+#  e.g. [)}’”』」】]
+記号-括弧閉
+#
+#  symbol-alphabetic:
+#記号-アルファベット
+#
+#####
+#  other: unclassified other
+#その他
+#
+#  other-interjection: Words that are hard to classify as noun-suffixes or 
+#  sentence-final particles.
+#  e.g. (だ)ァ
+その他-間投
+#
+#####
+#  filler: Aizuchi that occurs during a conversation or sounds inserted as filler.
+#  e.g. あの, うんと, えと
+フィラー
+#
+#####
+#  non-verbal: non-verbal sound.
+非言語音
+#
+#####
+#  fragment:
+#語断片
+#
+#####
+#  unknown: unknown part of speech.
+#未知語
+#
+##### End of file
diff --git a/archiver/solr-config-dir/lang/stopwords_ar.txt b/archiver/solr-config-dir/lang/stopwords_ar.txt
new file mode 100644
index 00000000..046829db
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_ar.txt
@@ -0,0 +1,125 @@
+# This file was created by Jacques Savoy and is distributed under the BSD license.
+# See http://members.unine.ch/jacques.savoy/clef/index.html.
+# Also see http://www.opensource.org/licenses/bsd-license.html
+# Cleaned on October 11, 2009 (not normalized, so use before normalization)
+# This means that when modifying this list, you might need to add some 
+# redundant entries, for example containing forms with both أ and ا
+من
+ومن
+منها
+منه
+في
+وفي
+فيها
+فيه
+و
+ف
+ثم
+او
+أو
+ب
+بها
+به
+ا
+أ
+اى
+اي
+أي
+أى
+لا
+ولا
+الا
+ألا
+إلا
+لكن
+ما
+وما
+كما
+فما
+عن
+مع
+اذا
+إذا
+ان
+أن
+إن
+انها
+أنها
+إنها
+انه
+أنه
+إنه
+بان
+بأن
+فان
+فأن
+وان
+وأن
+وإن
+التى
+التي
+الذى
+الذي
+الذين
+الى
+الي
+إلى
+إلي
+على
+عليها
+عليه
+اما
+أما
+إما
+ايضا
+أيضا
+كل
+وكل
+لم
+ولم
+لن
+ولن
+هى
+هي
+هو
+وهى
+وهي
+وهو
+فهى
+فهي
+فهو
+انت
+أنت
+لك
+لها
+له
+هذه
+هذا
+تلك
+ذلك
+هناك
+كانت
+كان
+يكون
+تكون
+وكانت
+وكان
+غير
+بعض
+قد
+نحو
+بين
+بينما
+منذ
+ضمن
+حيث
+الان
+الآن
+خلال
+بعد
+قبل
+حتى
+عند
+عندما
+لدى
+جميع
diff --git a/archiver/solr-config-dir/lang/stopwords_bg.txt b/archiver/solr-config-dir/lang/stopwords_bg.txt
new file mode 100644
index 00000000..1ae4ba2a
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_bg.txt
@@ -0,0 +1,193 @@
+# This file was created by Jacques Savoy and is distributed under the BSD license.
+# See http://members.unine.ch/jacques.savoy/clef/index.html.
+# Also see http://www.opensource.org/licenses/bsd-license.html
+а
+аз
+ако
+ала
+бе
+без
+беше
+би
+бил
+била
+били
+било
+близо
+бъдат
+бъде
+бяха
+в
+вас
+ваш
+ваша
+вероятно
+вече
+взема
+ви
+вие
+винаги
+все
+всеки
+всички
+всичко
+всяка
+във
+въпреки
+върху
+г
+ги
+главно
+го
+д
+да
+дали
+до
+докато
+докога
+дори
+досега
+доста
+е
+едва
+един
+ето
+за
+зад
+заедно
+заради
+засега
+затова
+защо
+защото
+и
+из
+или
+им
+има
+имат
+иска
+й
+каза
+как
+каква
+какво
+както
+какъв
+като
+кога
+когато
+което
+които
+кой
+който
+колко
+която
+къде
+където
+към
+ли
+м
+ме
+между
+мен
+ми
+мнозина
+мога
+могат
+може
+моля
+момента
+му
+н
+на
+над
+назад
+най
+направи
+напред
+например
+нас
+не
+него
+нея
+ни
+ние
+никой
+нито
+но
+някои
+някой
+няма
+обаче
+около
+освен
+особено
+от
+отгоре
+отново
+още
+пак
+по
+повече
+повечето
+под
+поне
+поради
+после
+почти
+прави
+пред
+преди
+през
+при
+пък
+първо
+с
+са
+само
+се
+сега
+си
+скоро
+след
+сме
+според
+сред
+срещу
+сте
+съм
+със
+също
+т
+тази
+така
+такива
+такъв
+там
+твой
+те
+тези
+ти
+тн
+то
+това
+тогава
+този
+той
+толкова
+точно
+трябва
+тук
+тъй
+тя
+тях
+у
+харесва
+ч
+че
+често
+чрез
+ще
+щом
+я
diff --git a/archiver/solr-config-dir/lang/stopwords_ca.txt b/archiver/solr-config-dir/lang/stopwords_ca.txt
new file mode 100644
index 00000000..3da65dea
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_ca.txt
@@ -0,0 +1,220 @@
+# Catalan stopwords from http://github.com/vcl/cue.language (Apache 2 Licensed)
+a
+abans
+ací
+ah
+així
+això
+al
+als
+aleshores
+algun
+alguna
+algunes
+alguns
+alhora
+allà
+allí
+allò
+altra
+altre
+altres
+amb
+ambdós
+ambdues
+apa
+aquell
+aquella
+aquelles
+aquells
+aquest
+aquesta
+aquestes
+aquests
+aquí
+baix
+cada
+cadascú
+cadascuna
+cadascunes
+cadascuns
+com
+contra
+d'un
+d'una
+d'unes
+d'uns
+dalt
+de
+del
+dels
+des
+després
+dins
+dintre
+donat
+doncs
+durant
+e
+eh
+el
+els
+em
+en
+encara
+ens
+entre
+érem
+eren
+éreu
+es
+és
+esta
+està
+estàvem
+estaven
+estàveu
+esteu
+et
+etc
+ets
+fins
+fora
+gairebé
+ha
+han
+has
+havia
+he
+hem
+heu
+hi 
+ho
+i
+igual
+iguals
+ja
+l'hi
+la
+les
+li
+li'n
+llavors
+m'he
+ma
+mal
+malgrat
+mateix
+mateixa
+mateixes
+mateixos
+me
+mentre
+més
+meu
+meus
+meva
+meves
+molt
+molta
+moltes
+molts
+mon
+mons
+n'he
+n'hi
+ne
+ni
+no
+nogensmenys
+només
+nosaltres
+nostra
+nostre
+nostres
+o
+oh
+oi
+on
+pas
+pel
+pels
+per
+però
+perquè
+poc 
+poca
+pocs
+poques
+potser
+propi
+qual
+quals
+quan
+quant 
+que
+què
+quelcom
+qui
+quin
+quina
+quines
+quins
+s'ha
+s'han
+sa
+semblant
+semblants
+ses
+seu 
+seus
+seva
+seva
+seves
+si
+sobre
+sobretot
+sóc
+solament
+sols
+son 
+són
+sons 
+sota
+sou
+t'ha
+t'han
+t'he
+ta
+tal
+també
+tampoc
+tan
+tant
+tanta
+tantes
+teu
+teus
+teva
+teves
+ton
+tons
+tot
+tota
+totes
+tots
+un
+una
+unes
+uns
+us
+va
+vaig
+vam
+van
+vas
+veu
+vosaltres
+vostra
+vostre
+vostres
diff --git a/archiver/solr-config-dir/lang/stopwords_cz.txt b/archiver/solr-config-dir/lang/stopwords_cz.txt
new file mode 100644
index 00000000..53c6097d
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_cz.txt
@@ -0,0 +1,172 @@
+a
+s
+k
+o
+i
+u
+v
+z
+dnes
+cz
+tímto
+budeš
+budem
+byli
+jseš
+můj
+svým
+ta
+tomto
+tohle
+tuto
+tyto
+jej
+zda
+proč
+máte
+tato
+kam
+tohoto
+kdo
+kteří
+mi
+nám
+tom
+tomuto
+mít
+nic
+proto
+kterou
+byla
+toho
+protože
+asi
+ho
+naši
+napište
+re
+což
+tím
+takže
+svých
+její
+svými
+jste
+aj
+tu
+tedy
+teto
+bylo
+kde
+ke
+pravé
+ji
+nad
+nejsou
+či
+pod
+téma
+mezi
+přes
+ty
+pak
+vám
+ani
+když
+však
+neg
+jsem
+tento
+článku
+články
+aby
+jsme
+před
+pta
+jejich
+byl
+ještě
+až
+bez
+také
+pouze
+první
+vaše
+která
+nás
+nový
+tipy
+pokud
+může
+strana
+jeho
+své
+jiné
+zprávy
+nové
+není
+vás
+jen
+podle
+zde
+už
+být
+více
+bude
+již
+než
+který
+by
+které
+co
+nebo
+ten
+tak
+má
+při
+od
+po
+jsou
+jak
+další
+ale
+si
+se
+ve
+to
+jako
+za
+zpět
+ze
+do
+pro
+je
+na
+atd
+atp
+jakmile
+přičemž
+já
+on
+ona
+ono
+oni
+ony
+my
+vy
+jí
+ji
+mě
+mne
+jemu
+tomu
+těm
+těmu
+němu
+němuž
+jehož
+jíž
+jelikož
+jež
+jakož
+načež
diff --git a/archiver/solr-config-dir/lang/stopwords_da.txt b/archiver/solr-config-dir/lang/stopwords_da.txt
new file mode 100644
index 00000000..42e6145b
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_da.txt
@@ -0,0 +1,110 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/danish/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | A Danish stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+ | This is a ranked list (commonest to rarest) of stopwords derived from
+ | a large text sample.
+
+
+og           | and
+i            | in
+jeg          | I
+det          | that (dem. pronoun)/it (pers. pronoun)
+at           | that (in front of a sentence)/to (with infinitive)
+en           | a/an
+den          | it (pers. pronoun)/that (dem. pronoun)
+til          | to/at/for/until/against/by/of/into, more
+er           | present tense of "to be"
+som          | who, as
+på           | on/upon/in/on/at/to/after/of/with/for, on
+de           | they
+med          | with/by/in, along
+han          | he
+af           | of/by/from/off/for/in/with/on, off
+for          | at/for/to/from/by/of/ago, in front/before, because
+ikke         | not
+der          | who/which, there/those
+var          | past tense of "to be"
+mig          | me/myself
+sig          | oneself/himself/herself/itself/themselves
+men          | but
+et           | a/an/one, one (number), someone/somebody/one
+har          | present tense of "to have"
+om           | round/about/for/in/a, about/around/down, if
+vi           | we
+min          | my
+havde        | past tense of "to have"
+ham          | him
+hun          | she
+nu           | now
+over         | over/above/across/by/beyond/past/on/about, over/past
+da           | then, when/as/since
+fra          | from/off/since, off, since
+du           | you
+ud           | out
+sin          | his/her/its/one's
+dem          | them
+os           | us/ourselves
+op           | up
+man          | you/one
+hans         | his
+hvor         | where
+eller        | or
+hvad         | what
+skal         | must/shall etc.
+selv         | myself/youself/herself/ourselves etc., even
+her          | here
+alle         | all/everyone/everybody etc.
+vil          | will (verb)
+blev         | past tense of "to stay/to remain/to get/to become"
+kunne        | could
+ind          | in
+når          | when
+være         | present tense of "to be"
+dog          | however/yet/after all
+noget        | something
+ville        | would
+jo           | you know/you see (adv), yes
+deres        | their/theirs
+efter        | after/behind/according to/for/by/from, later/afterwards
+ned          | down
+skulle       | should
+denne        | this
+end          | than
+dette        | this
+mit          | my/mine
+også         | also
+under        | under/beneath/below/during, below/underneath
+have         | have
+dig          | you
+anden        | other
+hende        | her
+mine         | my
+alt          | everything
+meget        | much/very, plenty of
+sit          | his, her, its, one's
+sine         | his, her, its, one's
+vor          | our
+mod          | against
+disse        | these
+hvis         | if
+din          | your/yours
+nogle        | some
+hos          | by/at
+blive        | be/become
+mange        | many
+ad           | by/through
+bliver       | present tense of "to be/to become"
+hendes       | her/hers
+været        | be
+thi          | for (conj)
+jer          | you
+sådan        | such, like this/like that
diff --git a/archiver/solr-config-dir/lang/stopwords_de.txt b/archiver/solr-config-dir/lang/stopwords_de.txt
new file mode 100644
index 00000000..86525e7a
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_de.txt
@@ -0,0 +1,294 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/german/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | A German stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+ | The number of forms in this list is reduced significantly by passing it
+ | through the German stemmer.
+
+
+aber           |  but
+
+alle           |  all
+allem
+allen
+aller
+alles
+
+als            |  than, as
+also           |  so
+am             |  an + dem
+an             |  at
+
+ander          |  other
+andere
+anderem
+anderen
+anderer
+anderes
+anderm
+andern
+anderr
+anders
+
+auch           |  also
+auf            |  on
+aus            |  out of
+bei            |  by
+bin            |  am
+bis            |  until
+bist           |  art
+da             |  there
+damit          |  with it
+dann           |  then
+
+der            |  the
+den
+des
+dem
+die
+das
+
+daß            |  that
+
+derselbe       |  the same
+derselben
+denselben
+desselben
+demselben
+dieselbe
+dieselben
+dasselbe
+
+dazu           |  to that
+
+dein           |  thy
+deine
+deinem
+deinen
+deiner
+deines
+
+denn           |  because
+
+derer          |  of those
+dessen         |  of him
+
+dich           |  thee
+dir            |  to thee
+du             |  thou
+
+dies           |  this
+diese
+diesem
+diesen
+dieser
+dieses
+
+
+doch           |  (several meanings)
+dort           |  (over) there
+
+
+durch          |  through
+
+ein            |  a
+eine
+einem
+einen
+einer
+eines
+
+einig          |  some
+einige
+einigem
+einigen
+einiger
+einiges
+
+einmal         |  once
+
+er             |  he
+ihn            |  him
+ihm            |  to him
+
+es             |  it
+etwas          |  something
+
+euer           |  your
+eure
+eurem
+euren
+eurer
+eures
+
+für            |  for
+gegen          |  towards
+gewesen        |  p.p. of sein
+hab            |  have
+habe           |  have
+haben          |  have
+hat            |  has
+hatte          |  had
+hatten         |  had
+hier           |  here
+hin            |  there
+hinter         |  behind
+
+ich            |  I
+mich           |  me
+mir            |  to me
+
+
+ihr            |  you, to her
+ihre
+ihrem
+ihren
+ihrer
+ihres
+euch           |  to you
+
+im             |  in + dem
+in             |  in
+indem          |  while
+ins            |  in + das
+ist            |  is
+
+jede           |  each, every
+jedem
+jeden
+jeder
+jedes
+
+jene           |  that
+jenem
+jenen
+jener
+jenes
+
+jetzt          |  now
+kann           |  can
+
+kein           |  no
+keine
+keinem
+keinen
+keiner
+keines
+
+können         |  can
+könnte         |  could
+machen         |  do
+man            |  one
+
+manche         |  some, many a
+manchem
+manchen
+mancher
+manches
+
+mein           |  my
+meine
+meinem
+meinen
+meiner
+meines
+
+mit            |  with
+muss           |  must
+musste         |  had to
+nach           |  to(wards)
+nicht          |  not
+nichts         |  nothing
+noch           |  still, yet
+nun            |  now
+nur            |  only
+ob             |  whether
+oder           |  or
+ohne           |  without
+sehr           |  very
+
+sein           |  his
+seine
+seinem
+seinen
+seiner
+seines
+
+selbst         |  self
+sich           |  herself
+
+sie            |  they, she
+ihnen          |  to them
+
+sind           |  are
+so             |  so
+
+solche         |  such
+solchem
+solchen
+solcher
+solches
+
+soll           |  shall
+sollte         |  should
+sondern        |  but
+sonst          |  else
+über           |  over
+um             |  about, around
+und            |  and
+
+uns            |  us
+unse
+unsem
+unsen
+unser
+unses
+
+unter          |  under
+viel           |  much
+vom            |  von + dem
+von            |  from
+vor            |  before
+während        |  while
+war            |  was
+waren          |  were
+warst          |  wast
+was            |  what
+weg            |  away, off
+weil           |  because
+weiter         |  further
+
+welche         |  which
+welchem
+welchen
+welcher
+welches
+
+wenn           |  when
+werde          |  will
+werden         |  will
+wie            |  how
+wieder         |  again
+will           |  want
+wir            |  we
+wird           |  will
+wirst          |  willst
+wo             |  where
+wollen         |  want
+wollte         |  wanted
+würde          |  would
+würden         |  would
+zu             |  to
+zum            |  zu + dem
+zur            |  zu + der
+zwar           |  indeed
+zwischen       |  between
+
diff --git a/archiver/solr-config-dir/lang/stopwords_el.txt b/archiver/solr-config-dir/lang/stopwords_el.txt
new file mode 100644
index 00000000..232681f5
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_el.txt
@@ -0,0 +1,78 @@
+# Lucene Greek Stopwords list
+# Note: by default this file is used after GreekLowerCaseFilter,
+# so when modifying this file use 'σ' instead of 'ς' 
+ο
+η
+το
+οι
+τα
+του
+τησ
+των
+τον
+την
+και 
+κι
+κ
+ειμαι
+εισαι
+ειναι
+ειμαστε
+ειστε
+στο
+στον
+στη
+στην
+μα
+αλλα
+απο
+για
+προσ
+με
+σε
+ωσ
+παρα
+αντι
+κατα
+μετα
+θα
+να
+δε
+δεν
+μη
+μην
+επι
+ενω
+εαν
+αν
+τοτε
+που
+πωσ
+ποιοσ
+ποια
+ποιο
+ποιοι
+ποιεσ
+ποιων
+ποιουσ
+αυτοσ
+αυτη
+αυτο
+αυτοι
+αυτων
+αυτουσ
+αυτεσ
+αυτα
+εκεινοσ
+εκεινη
+εκεινο
+εκεινοι
+εκεινεσ
+εκεινα
+εκεινων
+εκεινουσ
+οπωσ
+ομωσ
+ισωσ
+οσο
+οτι
diff --git a/archiver/solr-config-dir/lang/stopwords_en.txt b/archiver/solr-config-dir/lang/stopwords_en.txt
new file mode 100644
index 00000000..2c164c0b
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_en.txt
@@ -0,0 +1,54 @@
+# Licensed to the Apache Software Foundation (ASF) under one or more
+# contributor license agreements.  See the NOTICE file distributed with
+# this work for additional information regarding copyright ownership.
+# The ASF licenses this file to You under the Apache License, Version 2.0
+# (the "License"); you may not use this file except in compliance with
+# the License.  You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+# a couple of test stopwords to test that the words are really being
+# configured from this file:
+stopworda
+stopwordb
+
+# Standard english stop words taken from Lucene's StopAnalyzer
+a
+an
+and
+are
+as
+at
+be
+but
+by
+for
+if
+in
+into
+is
+it
+no
+not
+of
+on
+or
+such
+that
+the
+their
+then
+there
+these
+they
+this
+to
+was
+will
+with
diff --git a/archiver/solr-config-dir/lang/stopwords_es.txt b/archiver/solr-config-dir/lang/stopwords_es.txt
new file mode 100644
index 00000000..487d78c8
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_es.txt
@@ -0,0 +1,356 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/spanish/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | A Spanish stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+
+ | The following is a ranked list (commonest to rarest) of stopwords
+ | deriving from a large sample of text.
+
+ | Extra words have been added at the end.
+
+de             |  from, of
+la             |  the, her
+que            |  who, that
+el             |  the
+en             |  in
+y              |  and
+a              |  to
+los            |  the, them
+del            |  de + el
+se             |  himself, from him etc
+las            |  the, them
+por            |  for, by, etc
+un             |  a
+para           |  for
+con            |  with
+no             |  no
+una            |  a
+su             |  his, her
+al             |  a + el
+  | es         from SER
+lo             |  him
+como           |  how
+más            |  more
+pero           |  pero
+sus            |  su plural
+le             |  to him, her
+ya             |  already
+o              |  or
+  | fue        from SER
+este           |  this
+  | ha         from HABER
+sí             |  himself etc
+porque         |  because
+esta           |  this
+  | son        from SER
+entre          |  between
+  | está     from ESTAR
+cuando         |  when
+muy            |  very
+sin            |  without
+sobre          |  on
+  | ser        from SER
+  | tiene      from TENER
+también        |  also
+me             |  me
+hasta          |  until
+hay            |  there is/are
+donde          |  where
+  | han        from HABER
+quien          |  whom, that
+  | están      from ESTAR
+  | estado     from ESTAR
+desde          |  from
+todo           |  all
+nos            |  us
+durante        |  during
+  | estados    from ESTAR
+todos          |  all
+uno            |  a
+les            |  to them
+ni             |  nor
+contra         |  against
+otros          |  other
+  | fueron     from SER
+ese            |  that
+eso            |  that
+  | había      from HABER
+ante           |  before
+ellos          |  they
+e              |  and (variant of y)
+esto           |  this
+mí             |  me
+antes          |  before
+algunos        |  some
+qué            |  what?
+unos           |  a
+yo             |  I
+otro           |  other
+otras          |  other
+otra           |  other
+él             |  he
+tanto          |  so much, many
+esa            |  that
+estos          |  these
+mucho          |  much, many
+quienes        |  who
+nada           |  nothing
+muchos         |  many
+cual           |  who
+  | sea        from SER
+poco           |  few
+ella           |  she
+estar          |  to be
+  | haber      from HABER
+estas          |  these
+  | estaba     from ESTAR
+  | estamos    from ESTAR
+algunas        |  some
+algo           |  something
+nosotros       |  we
+
+      | other forms
+
+mi             |  me
+mis            |  mi plural
+tú             |  thou
+te             |  thee
+ti             |  thee
+tu             |  thy
+tus            |  tu plural
+ellas          |  they
+nosotras       |  we
+vosotros       |  you
+vosotras       |  you
+os             |  you
+mío            |  mine
+mía            |
+míos           |
+mías           |
+tuyo           |  thine
+tuya           |
+tuyos          |
+tuyas          |
+suyo           |  his, hers, theirs
+suya           |
+suyos          |
+suyas          |
+nuestro        |  ours
+nuestra        |
+nuestros       |
+nuestras       |
+vuestro        |  yours
+vuestra        |
+vuestros       |
+vuestras       |
+esos           |  those
+esas           |  those
+
+               | forms of estar, to be (not including the infinitive):
+estoy
+estás
+está
+estamos
+estáis
+están
+esté
+estés
+estemos
+estéis
+estén
+estaré
+estarás
+estará
+estaremos
+estaréis
+estarán
+estaría
+estarías
+estaríamos
+estaríais
+estarían
+estaba
+estabas
+estábamos
+estabais
+estaban
+estuve
+estuviste
+estuvo
+estuvimos
+estuvisteis
+estuvieron
+estuviera
+estuvieras
+estuviéramos
+estuvierais
+estuvieran
+estuviese
+estuvieses
+estuviésemos
+estuvieseis
+estuviesen
+estando
+estado
+estada
+estados
+estadas
+estad
+
+               | forms of haber, to have (not including the infinitive):
+he
+has
+ha
+hemos
+habéis
+han
+haya
+hayas
+hayamos
+hayáis
+hayan
+habré
+habrás
+habrá
+habremos
+habréis
+habrán
+habría
+habrías
+habríamos
+habríais
+habrían
+había
+habías
+habíamos
+habíais
+habían
+hube
+hubiste
+hubo
+hubimos
+hubisteis
+hubieron
+hubiera
+hubieras
+hubiéramos
+hubierais
+hubieran
+hubiese
+hubieses
+hubiésemos
+hubieseis
+hubiesen
+habiendo
+habido
+habida
+habidos
+habidas
+
+               | forms of ser, to be (not including the infinitive):
+soy
+eres
+es
+somos
+sois
+son
+sea
+seas
+seamos
+seáis
+sean
+seré
+serás
+será
+seremos
+seréis
+serán
+sería
+serías
+seríamos
+seríais
+serían
+era
+eras
+éramos
+erais
+eran
+fui
+fuiste
+fue
+fuimos
+fuisteis
+fueron
+fuera
+fueras
+fuéramos
+fuerais
+fueran
+fuese
+fueses
+fuésemos
+fueseis
+fuesen
+siendo
+sido
+  |  sed also means 'thirst'
+
+               | forms of tener, to have (not including the infinitive):
+tengo
+tienes
+tiene
+tenemos
+tenéis
+tienen
+tenga
+tengas
+tengamos
+tengáis
+tengan
+tendré
+tendrás
+tendrá
+tendremos
+tendréis
+tendrán
+tendría
+tendrías
+tendríamos
+tendríais
+tendrían
+tenía
+tenías
+teníamos
+teníais
+tenían
+tuve
+tuviste
+tuvo
+tuvimos
+tuvisteis
+tuvieron
+tuviera
+tuvieras
+tuviéramos
+tuvierais
+tuvieran
+tuviese
+tuvieses
+tuviésemos
+tuvieseis
+tuviesen
+teniendo
+tenido
+tenida
+tenidos
+tenidas
+tened
+
diff --git a/archiver/solr-config-dir/lang/stopwords_et.txt b/archiver/solr-config-dir/lang/stopwords_et.txt
new file mode 100644
index 00000000..1b06a134
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_et.txt
@@ -0,0 +1,1603 @@
+# Estonian stopwords list
+all
+alla
+allapoole
+allpool
+alt
+altpoolt
+eel
+eespool
+enne
+hommikupoole
+hoolimata
+ilma
+kaudu
+keset
+kesk
+kohe
+koos
+kuhupoole
+kuni
+kuspool
+kustpoolt
+kõige
+käsikäes
+lappi
+ligi
+läbi
+mööda
+paitsi
+peale
+pealepoole
+pealpool
+pealt
+pealtpoolt
+piki
+pikku
+piku
+pikuti
+põiki
+pärast
+päri
+risti
+sealpool
+sealtpoolt
+seespool
+seltsis
+siiapoole
+siinpool
+siitpoolt
+sinnapoole
+sissepoole
+taga
+tagantpoolt
+tagapidi
+tagapool
+taha
+tahapoole
+teispool
+teispoole
+tänu
+tükkis
+vaatamata
+vastu
+väljapoole
+väljaspool
+väljastpoolt
+õhtupoole
+ühes
+ühestükis
+ühestükkis
+ülalpool
+ülaltpoolt
+üle
+ülespoole
+ülevalpool
+ülevaltpoolt
+ümber
+ümbert
+aegu
+aegus
+alguks
+algul
+algule
+algult
+alguni
+all
+alla
+alt
+alul
+alutsi
+arvel
+asemel
+asemele
+eel
+eeli
+ees
+eesotsas
+eest
+eestotsast
+esitsi
+ette
+etteotsa
+haaval
+heaks
+hoolimata
+hulgas
+hulgast
+hulka
+jalgu
+jalus
+jalust
+jaoks
+jooksul
+juurde
+juures
+juurest
+jälil
+jälile
+järel
+järele
+järelt
+järgi
+kaasas
+kallal
+kallale
+kallalt
+kamul
+kannul
+kannule
+kannult
+kaudu
+kaupa
+keskel
+keskele
+keskelt
+keskis
+keskpaiku
+kestel
+kestes
+kilda
+killas
+killast
+kimpu
+kimpus
+kiuste
+kohal
+kohale
+kohalt
+kohaselt
+kohe
+kohta
+koos
+korral
+kukil
+kukile
+kukilt
+kulul
+kõrva
+kõrval
+kõrvale
+kõrvalt
+kõrvas
+kõrvast
+käekõrval
+käekõrvale
+käekõrvalt
+käes
+käest
+kätte
+külge
+küljes
+küljest
+küüsi
+küüsis
+küüsist
+ligi
+ligidal
+ligidale
+ligidalt
+aegu
+aegus
+alguks
+algul
+algule
+algult
+alguni
+all
+alla
+alt
+alul
+alutsi
+arvel
+asemel
+asemele
+eel
+eeli
+ees
+eesotsas
+eest
+eestotsast
+esitsi
+ette
+etteotsa
+haaval
+heaks
+hoolimata
+hulgas
+hulgast
+hulka
+jalgu
+jalus
+jalust
+jaoks
+jooksul
+juurde
+juures
+juurest
+jälil
+jälile
+järel
+järele
+järelt
+järgi
+kaasas
+kallal
+kallale
+kallalt
+kamul
+kannul
+kannule
+kannult
+kaudu
+kaupa
+keskel
+keskele
+keskelt
+keskis
+keskpaiku
+kestel
+kestes
+kilda
+killas
+killast
+kimpu
+kimpus
+kiuste
+kohal
+kohale
+kohalt
+kohaselt
+kohe
+kohta
+koos
+korral
+kukil
+kukile
+kukilt
+kulul
+kõrva
+kõrval
+kõrvale
+kõrvalt
+kõrvas
+kõrvast
+käekõrval
+käekõrvale
+käekõrvalt
+käes
+käest
+kätte
+külge
+küljes
+küljest
+küüsi
+küüsis
+küüsist
+ligi
+ligidal
+ligidale
+ligidalt
+lool
+läbi
+lähedal
+lähedale
+lähedalt
+man
+mant
+manu
+meelest
+mööda
+nahas
+nahka
+nahkas
+najal
+najale
+najalt
+nõjal
+nõjale
+otsa
+otsas
+otsast
+paigale
+paigu
+paiku
+peal
+peale
+pealt
+perra
+perrä
+pidi
+pihta
+piki
+pikku
+pool
+poole
+poolest
+poolt
+puhul
+puksiiris
+pähe
+päralt
+päras
+pärast
+päri
+ringi
+ringis
+risust
+saadetusel
+saadik
+saatel
+saati
+seas
+seast
+sees
+seest
+sekka
+seljataga
+seltsi
+seltsis
+seltsist
+sisse
+slepis
+suhtes
+šlepis
+taga
+tagant
+tagantotsast
+tagaotsas
+tagaselja
+tagasi
+tagast
+tagutsi
+taha
+tahaotsa
+takka
+tarvis
+tasa
+tuuri
+tuuris
+tõttu
+tükkis
+uhal
+vaatamata
+vahel
+vahele
+vahelt
+vahepeal
+vahepeale
+vahepealt
+vahetsi
+varal
+varale
+varul
+vastas
+vastast
+vastu
+veerde
+veeres
+viisi
+võidu
+võrd
+võrdki
+võrra
+võrragi
+väel
+väele
+vältel
+väärt
+väärtki
+äärde
+ääre
+ääres
+äärest
+ühes
+üle
+ümber
+ümbert
+a
+abil
+aina
+ainult
+alalt
+alates
+alati
+alles
+b
+c
+d
+e
+eales
+ealeski
+edasi
+edaspidi
+eelkõige
+eemal
+ei
+eks
+end
+enda
+enese
+ennem
+esialgu
+f
+g
+h
+hoopis
+i
+iganes
+igatahes
+igati
+iial
+iialgi
+ikka
+ikkagi
+ilmaski
+iseenda
+iseenese
+iseenesest
+isegi
+j
+jah
+ju
+juba
+juhul
+just
+järelikult
+k
+ka
+kah
+kas
+kasvõi
+keda
+kestahes
+kogu
+koguni
+kohati
+kokku
+kuhu
+kuhugi
+kuidagi
+kuidas
+kunagi
+kus
+kusagil
+kusjuures
+kuskil
+kust
+kõigepealt
+küll
+l
+liiga
+lisaks
+m
+miks
+mil
+millal
+millalgi
+mispärast
+mistahes
+mistõttu
+mitte
+muide
+muidu
+muidugi
+muist
+mujal
+mujale
+mujalt
+mõlemad
+mõnda
+mõne
+mõnikord
+n
+nii
+niikaua
+niimoodi
+niipaljuke
+niisama
+niisiis
+niivõrd
+nõnda
+nüüd
+o
+omaette
+omakorda
+omavahel
+ometi
+p
+palju
+paljuke
+palju-palju
+peaaegu
+peagi
+peamiselt
+pigem
+pisut
+praegu
+päris
+r
+rohkem
+s
+samas
+samuti
+seal
+sealt
+sedakorda
+sedapuhku
+seega
+seejuures
+seejärel
+seekord
+seepärast
+seetõttu
+sellepärast
+seni
+sestap
+siia
+siiani
+siin
+siinkohal
+siis
+siiski
+siit
+sinna
+suht
+š
+z
+ž
+t
+teel
+teineteise
+tõesti
+täiesti
+u
+umbes
+v
+w
+veel
+veelgi
+vist
+võibolla
+võib-olla
+väga
+vähemalt
+välja
+väljas
+väljast
+õ
+ä
+ära
+ö
+ü
+ühtlasi
+üksi
+ükskõik
+ülal
+ülale
+ülalt
+üles
+ülesse
+üleval
+ülevalt
+ülimalt
+üsna
+x
+y
+aga
+ega
+ehk
+ehkki
+elik
+ellik
+enge
+ennegu
+ent
+et
+ja
+justkui
+kui
+kuid
+kuigi
+kuivõrd
+kuna
+kuni
+kut
+mistab
+muudkui
+nagu
+nigu
+ning
+olgugi
+otsekui
+otsenagu
+selmet
+sest
+sestab
+vaid
+või
+aa
+adaa
+adjöö
+ae
+ah
+ahaa
+ahah
+ah-ah-ah
+ah-haa
+ahoi
+ai
+aidaa
+aidu-raidu
+aih
+aijeh
+aituma
+aitäh
+aitüma
+ammuu
+amps
+ampsti
+aptsih
+ass
+at
+ata
+at-at-at
+atsih
+atsihh
+auh
+bai-bai
+bingo
+braavo
+brr
+ee
+eeh
+eh
+ehee
+eheh
+eh-eh-hee
+eh-eh-ee
+ehei
+ehh
+ehhee
+einoh
+ena
+ennäe
+ennäh
+fuh
+fui
+fuih
+haa
+hah
+hahaa
+hah-hah-hah
+halleluuja
+hallo
+halloo
+hass
+hee
+heh
+he-he-hee
+hei
+heldeke(ne)
+heureka
+hihii
+hip-hip-hurraa
+hmh
+hmjah
+hoh-hoh-hoo
+hohoo
+hoi
+hollallaa
+hoo
+hoplaa
+hopp
+hops
+hopsassaa
+hopsti
+hosianna
+huh
+huidii
+huist
+hurjah
+hurjeh
+hurjoh
+hurjuh
+hurraa
+huu
+hõhõh
+hõi
+hõissa
+hõissassa
+hõk
+hõkk
+häh
+hä-hä-hää
+hüvasti
+ih-ah-haa
+ih-ih-hii
+ii-ha-ha
+issake
+issakene
+isver
+jaa-ah
+ja-ah
+jaah
+janäe
+jeeh
+jeerum
+jeever
+jessas
+jestas
+juhhei
+jumalaga
+jumalime
+jumaluke
+jumalukene
+jutas
+kaaps
+kaapsti
+kaasike
+kae
+kalps
+kalpsti
+kannäe
+kanäe
+kappadi
+kaps
+kapsti
+karkõmm
+karkäuh
+karkääks
+karkääksti
+karmauh
+karmauhti
+karnaps
+karnapsti
+karniuhti
+karpartsaki
+karpauh
+karpauhti
+karplauh
+karplauhti
+karprauh
+karprauhti
+karsumdi
+karsumm
+kartsumdi
+kartsumm
+karviuh
+karviuhti
+kaske
+kassa
+kauh
+kauhti
+keh
+keksti
+kepsti
+khe
+khm
+kih
+kiiks
+kiiksti
+kiis
+kiiss
+kikerii
+kikerikii
+kili
+kilk
+kilk-kõlk
+kilks
+kilks-kolks
+kilks-kõlks
+kill
+killadi
+killadi|-kolladi
+killadi-kõlladi
+killa-kolla
+killa-kõlla
+kill-kõll
+kimps-komps
+kipp
+kips-kõps
+kiriküüt
+kirra-kõrra
+kirr-kõrr
+kirts
+klaps
+klapsti
+klirdi
+klirr
+klonks
+klops
+klopsti
+kluk
+klu-kluu
+klõks
+klõksti
+klõmdi
+klõmm
+klõmpsti
+klõnks
+klõnksti
+klõps
+klõpsti
+kläu
+kohva-kohva
+kok
+koks
+koksti
+kolaki
+kolk
+kolks
+kolksti
+koll
+kolladi
+komp
+komps
+kompsti
+kop
+kopp
+koppadi
+kops
+kopsti
+kossu
+kotsu
+kraa
+kraak
+kraaks
+kraaps
+kraapsti
+krahh
+kraks
+kraksti
+kraps
+krapsti
+krauh
+krauhti
+kriiks
+kriiksti
+kriips
+kriips-kraaps
+kripa-krõpa
+krips-kraps
+kriuh
+kriuks
+kriuksti
+kromps
+kronk
+kronks
+krooks
+kruu
+krõks
+krõksti
+krõpa
+krõps
+krõpsti
+krõuh
+kräu
+kräuh
+kräuhti
+kräuks
+kss
+kukeleegu
+kukku
+kuku
+kulu
+kurluu
+kurnäu
+kuss
+kussu
+kõks
+kõksti
+kõldi
+kõlks
+kõlksti
+kõll
+kõmaki
+kõmdi
+kõmm
+kõmps
+kõpp
+kõps
+kõpsadi
+kõpsat
+kõpsti
+kõrr
+kõrra-kõrra
+kõss
+kõtt
+kõõksti
+kärr
+kärts
+kärtsti
+käuks
+käuksti
+kääga
+kääks
+kääksti
+köh
+köki-möki
+köksti
+laks
+laksti
+lampsti
+larts
+lartsti
+lats
+latsti
+leelo
+legoo
+lehva
+liiri-lõõri
+lika-lõka
+likat-lõkat
+limpsti
+lips
+lipsti
+lirts
+lirtsaki
+lirtsti
+lonksti
+lops
+lopsti
+lorts
+lortsti
+luks
+lups
+lupsti
+lurts
+lurtsti
+lõks
+lõksti
+lõmps
+lõmpsti
+lõnks
+lõnksti
+lärts
+lärtsti
+läts
+lätsti
+lörts
+lörtsti
+lötsti
+lööps
+lööpsti
+marss
+mats
+matsti
+mauh
+mauhti
+mh
+mhh
+mhmh
+miau
+mjaa
+mkm
+m-mh
+mnjaa
+mnjah
+moens
+mulks
+mulksti
+mull-mull
+mull-mull-mull
+muu
+muuh
+mõh
+mõmm
+mäh
+mäts
+mäu
+mää
+möh
+möh-öh-ää
+möö
+müh-müh
+mühüh
+müks
+müksti
+müraki
+mürr
+mürts
+mürtsaki
+mürtsti
+mütaku
+müta-mäta
+müta-müta
+müt-müt
+müt-müt-müt
+müts
+mütsti
+mütt
+naa
+naah
+nah
+naks
+naksti
+nanuu
+naps
+napsti
+nilpsti
+nipsti
+nirr
+niuh
+niuh-näuh
+niuhti
+noh
+noksti
+nolpsti
+nonoh
+nonoo
+nonäh
+noo
+nooh
+nooks
+norr
+nurr
+nuuts
+nõh
+nõhh
+nõka-nõka
+nõks
+nõksat-nõksat
+nõks-nõks
+nõksti
+nõõ
+nõõh
+näeh
+näh
+nälpsti
+nämm-nämm
+näpsti
+näts
+nätsti
+näu
+näuh
+näuhti
+näuks
+näuksti
+nääh
+nääks
+nühkat-nühkat
+oeh
+oh
+ohh
+ohhh
+oh-hoi
+oh-hoo
+ohoh
+oh-oh-oo
+oh-oh-hoo
+ohoi
+ohoo
+oi
+oih
+oijee
+oijeh
+oo
+ooh
+oo-oh
+oo-ohh
+oot
+ossa
+ot
+paa
+pah
+pahh
+pakaa
+pamm
+pantsti
+pardon
+pardonks
+parlartsti
+parts
+partsti
+partsumdi
+partsumm
+pastoi
+pats
+patst
+patsti
+pau
+pauh
+pauhti
+pele
+pfui
+phuh
+phuuh
+phäh
+phähh
+piiks
+piip
+piiri-pääri
+pimm
+pimm-pamm
+pimm-pomm
+pimm-põmm
+piraki
+piuks
+piu-pau
+plaks
+plaksti
+plarts
+plartsti
+plats
+platsti
+plauh
+plauhh
+plauhti
+pliks
+pliks-plaks
+plinn
+pliraki
+plirts
+plirtsti
+pliu
+pliuh
+ploks
+plotsti
+plumps
+plumpsti
+plõks
+plõksti
+plõmdi
+plõmm
+plõnn
+plärr
+plärts
+plärtsat
+plärtsti
+pläu
+pläuh
+plää
+plörtsat
+pomm
+popp
+pops
+popsti
+ports
+pot
+pots
+potsti
+pott
+praks
+praksti
+prants
+prantsaki
+prantsti
+prassai
+prauh
+prauhh
+prauhti
+priks
+priuh
+priuhh
+priuh-prauh
+proosit
+proost
+prr
+prrr
+prõks
+prõksti
+prõmdi
+prõmm
+prõntsti
+prääk
+prääks
+pst
+psst
+ptrr
+ptruu
+ptüi
+puh
+puhh
+puksti
+pumm
+pumps
+pup-pup-pup
+purts
+puuh
+põks
+põksti
+põmdi
+põmm
+põmmadi
+põnks
+põnn
+põnnadi
+põnt
+põnts
+põntsti
+põraki
+põrr
+põrra-põrra
+päh
+pähh
+päntsti
+pää
+pöörd
+püh
+raks
+raksti
+raps
+rapsti
+ratataa
+rauh
+riips
+riipsti
+riks
+riks-raks
+rips-raps
+rivitult
+robaki
+rops
+ropsaki
+ropsti
+ruik
+räntsti
+räts
+röh
+röhh
+sah
+sahh
+sahkat
+saps
+sapsti
+sauh
+sauhti
+servus
+sihkadi-sahkadi
+sihka-sahka
+sihkat-sahkat
+silks
+silk-solk
+sips
+sipsti
+sirr
+sirr-sorr
+sirts
+sirtsti
+siu
+siuh
+siuh-sauh
+siuh-säuh
+siuhti
+siuks
+siuts
+skool
+so
+soh
+solks
+solksti
+solpsti
+soo
+sooh
+so-oh
+soo-oh
+sopp
+sops
+sopsti
+sorr
+sorts
+sortsti
+so-soo
+soss
+soss-soss
+ss
+sss
+sst
+stopp
+suhkat-sahkat
+sulk
+sulks
+sulksti
+sull
+sulla-sulla
+sulpa-sulpa
+sulps
+sulpsti
+sumaki
+sumdi
+summ
+summat-summat
+sups
+supsaku
+supsti
+surts
+surtsti
+suss
+susti
+suts
+sutsti
+säh
+sähke
+särts
+särtsti
+säu
+säuh
+säuhti
+taevake
+taevakene
+takk
+tere
+terekest
+tibi-tibi
+tikk-takk
+tiks
+tilk
+tilks
+till
+tilla-talla
+till-tall
+tilulii
+tinn
+tip
+tip-tap
+tirr
+tirtsti
+tiu
+tjaa
+tjah
+tohhoh
+tohhoo
+tohoh
+tohoo
+tok
+tokk
+toks
+toksti
+tonks
+tonksti
+tota
+totsti
+tot-tot
+tprr
+tpruu
+trah
+trahh
+trallallaa
+trill
+trillallaa
+trr
+trrr
+tsah
+tsahh
+tsilk
+tsilk-tsolk
+tsirr
+tsiuh
+tskae
+tsolk
+tss
+tst
+tsst
+tsuhh
+tsuk
+tsumm
+tsurr
+tsäuh
+tšao
+tšš
+tššš
+tuk
+tuks
+turts
+turtsti
+tutki
+tutkit
+tutu-lutu
+tutulutu
+tuut
+tuutu-luutu
+tõks
+tötsti
+tümps
+uh
+uhh
+uh-huu
+uhtsa
+uhtsaa
+uhuh
+uhuu
+ui
+uih
+uih-aih
+uijah
+uijeh
+uist
+uit
+uka
+upsti
+uraa
+urjah
+urjeh
+urjoh
+urjuh
+urr
+urraa
+ust
+utu
+uu
+uuh
+vaak
+vaat
+vae
+vaeh
+vai
+vat
+vau
+vhüüt
+vidiit
+viiks
+vilks
+vilksti
+vinki-vinki
+virdi
+virr
+viu
+viudi
+viuh
+viuhti
+voeh
+voh
+vohh
+volks
+volksti
+vooh
+vops
+vopsti
+vot
+vuh
+vuhti
+vuih
+vulks
+vulksti
+vull
+vulpsti
+vups
+vupsaki
+vupsaku
+vupsti
+vurdi
+vurr
+vurra-vurra
+vurts
+vurtsti
+vutt
+võe
+võeh
+või
+võih
+võrr
+võts
+võtt
+vääks
+õe
+õits
+õk
+õkk
+õrr
+õss
+õuh
+äh
+ähh
+ähhähhää
+äh-hää
+äh-äh-hää
+äiu
+äiu-ää
+äss
+ää
+ääh
+äähh
+öh
+öhh
+ök
+üh
+eelmine
+eikeegi
+eimiski
+emb-kumb
+enam
+enim
+iga
+igasugune
+igaüks
+ise
+isesugune
+järgmine
+keegi
+kes
+kumb
+kumbki
+kõik
+meiesugune
+meietaoline
+midagi
+mihuke
+mihukene
+milletaoline
+milline
+mina
+minake
+mingi
+mingisugune
+minusugune
+minutaoline
+mis
+miski
+miskisugune
+missugune
+misuke
+mitmes
+mitmesugune
+mitu
+mitu-mitu
+mitu-setu
+muu
+mõlema
+mõnesugune
+mõni
+mõningane
+mõningas
+mäherdune
+määrane
+naasugune
+need
+nemad
+nendesugune
+nendetaoline
+nihuke
+nihukene
+niimitu
+niisamasugune
+niisugune
+nisuke
+nisukene
+oma
+omaenese
+omasugune
+omataoline
+pool
+praegune
+sama
+samasugune
+samataoline
+see
+seesama
+seesamane
+seesamune
+seesinane
+seesugune
+selline
+sihuke
+sihukene
+sina
+sinusugune
+sinutaoline
+siuke
+siukene
+säherdune
+säärane
+taoline
+teiesugune
+teine
+teistsugune
+tema
+temake
+temakene
+temasugune
+temataoline
+too
+toosama
+toosamane
+üks
+üksteise
+hakkama
+minema
+olema
+pidama
+saama
+tegema
+tulema
+võima
diff --git a/archiver/solr-config-dir/lang/stopwords_eu.txt b/archiver/solr-config-dir/lang/stopwords_eu.txt
new file mode 100644
index 00000000..25f1db93
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_eu.txt
@@ -0,0 +1,99 @@
+# example set of basque stopwords
+al
+anitz
+arabera
+asko
+baina
+bat
+batean
+batek
+bati
+batzuei
+batzuek
+batzuetan
+batzuk
+bera
+beraiek
+berau
+berauek
+bere
+berori
+beroriek
+beste
+bezala
+da
+dago
+dira
+ditu
+du
+dute
+edo
+egin
+ere
+eta
+eurak
+ez
+gainera
+gu
+gutxi
+guzti
+haiei
+haiek
+haietan
+hainbeste
+hala
+han
+handik
+hango
+hara
+hari
+hark
+hartan
+hau
+hauei
+hauek
+hauetan
+hemen
+hemendik
+hemengo
+hi
+hona
+honek
+honela
+honetan
+honi
+hor
+hori
+horiei
+horiek
+horietan
+horko
+horra
+horrek
+horrela
+horretan
+horri
+hortik
+hura
+izan
+ni
+noiz
+nola
+non
+nondik
+nongo
+nor
+nora
+ze
+zein
+zen
+zenbait
+zenbat
+zer
+zergatik
+ziren
+zituen
+zu
+zuek
+zuen
+zuten
diff --git a/archiver/solr-config-dir/lang/stopwords_fa.txt b/archiver/solr-config-dir/lang/stopwords_fa.txt
new file mode 100644
index 00000000..723641c6
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_fa.txt
@@ -0,0 +1,313 @@
+# This file was created by Jacques Savoy and is distributed under the BSD license.
+# See http://members.unine.ch/jacques.savoy/clef/index.html.
+# Also see http://www.opensource.org/licenses/bsd-license.html
+# Note: by default this file is used after normalization, so when adding entries
+# to this file, use the arabic 'ي' instead of 'ی'
+انان
+نداشته
+سراسر
+خياه
+ايشان
+وي
+تاكنون
+بيشتري
+دوم
+پس
+ناشي
+وگو
+يا
+داشتند
+سپس
+هنگام
+هرگز
+پنج
+نشان
+امسال
+ديگر
+گروهي
+شدند
+چطور
+ده
+و
+دو
+نخستين
+ولي
+چرا
+چه
+وسط
+ه
+كدام
+قابل
+يك
+رفت
+هفت
+همچنين
+در
+هزار
+بله
+بلي
+شايد
+اما
+شناسي
+گرفته
+دهد
+داشته
+دانست
+داشتن
+خواهيم
+ميليارد
+وقتيكه
+امد
+خواهد
+جز
+اورده
+شده
+بلكه
+خدمات
+شدن
+برخي
+نبود
+بسياري
+جلوگيري
+حق
+كردند
+نوعي
+بعري
+نكرده
+نظير
+نبايد
+بوده
+بودن
+داد
+اورد
+هست
+جايي
+شود
+دنبال
+داده
+بايد
+سابق
+هيچ
+همان
+انجا
+كمتر
+كجاست
+گردد
+كسي
+تر
+مردم
+تان
+دادن
+بودند
+سري
+جدا
+ندارند
+مگر
+يكديگر
+دارد
+دهند
+بنابراين
+هنگامي
+سمت
+جا
+انچه
+خود
+دادند
+زياد
+دارند
+اثر
+بدون
+بهترين
+بيشتر
+البته
+به
+براساس
+بيرون
+كرد
+بعضي
+گرفت
+توي
+اي
+ميليون
+او
+جريان
+تول
+بر
+مانند
+برابر
+باشيم
+مدتي
+گويند
+اكنون
+تا
+تنها
+جديد
+چند
+بي
+نشده
+كردن
+كردم
+گويد
+كرده
+كنيم
+نمي
+نزد
+روي
+قصد
+فقط
+بالاي
+ديگران
+اين
+ديروز
+توسط
+سوم
+ايم
+دانند
+سوي
+استفاده
+شما
+كنار
+داريم
+ساخته
+طور
+امده
+رفته
+نخست
+بيست
+نزديك
+طي
+كنيد
+از
+انها
+تمامي
+داشت
+يكي
+طريق
+اش
+چيست
+روب
+نمايد
+گفت
+چندين
+چيزي
+تواند
+ام
+ايا
+با
+ان
+ايد
+ترين
+اينكه
+ديگري
+راه
+هايي
+بروز
+همچنان
+پاعين
+كس
+حدود
+مختلف
+مقابل
+چيز
+گيرد
+ندارد
+ضد
+همچون
+سازي
+شان
+مورد
+باره
+مرسي
+خويش
+برخوردار
+چون
+خارج
+شش
+هنوز
+تحت
+ضمن
+هستيم
+گفته
+فكر
+بسيار
+پيش
+براي
+روزهاي
+انكه
+نخواهد
+بالا
+كل
+وقتي
+كي
+چنين
+كه
+گيري
+نيست
+است
+كجا
+كند
+نيز
+يابد
+بندي
+حتي
+توانند
+عقب
+خواست
+كنند
+بين
+تمام
+همه
+ما
+باشند
+مثل
+شد
+اري
+باشد
+اره
+طبق
+بعد
+اگر
+صورت
+غير
+جاي
+بيش
+ريزي
+اند
+زيرا
+چگونه
+بار
+لطفا
+مي
+درباره
+من
+ديده
+همين
+گذاري
+برداري
+علت
+گذاشته
+هم
+فوق
+نه
+ها
+شوند
+اباد
+همواره
+هر
+اول
+خواهند
+چهار
+نام
+امروز
+مان
+هاي
+قبل
+كنم
+سعي
+تازه
+را
+هستند
+زير
+جلوي
+عنوان
+بود
diff --git a/archiver/solr-config-dir/lang/stopwords_fi.txt b/archiver/solr-config-dir/lang/stopwords_fi.txt
new file mode 100644
index 00000000..4372c9a0
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_fi.txt
@@ -0,0 +1,97 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/finnish/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+ 
+| forms of BE
+
+olla
+olen
+olet
+on
+olemme
+olette
+ovat
+ole        | negative form
+
+oli
+olisi
+olisit
+olisin
+olisimme
+olisitte
+olisivat
+olit
+olin
+olimme
+olitte
+olivat
+ollut
+olleet
+
+en         | negation
+et
+ei
+emme
+ette
+eivät
+
+|Nom   Gen    Acc    Part   Iness   Elat    Illat  Adess   Ablat   Allat   Ess    Trans
+minä   minun  minut  minua  minussa minusta minuun minulla minulta minulle               | I
+sinä   sinun  sinut  sinua  sinussa sinusta sinuun sinulla sinulta sinulle               | you
+hän    hänen  hänet  häntä  hänessä hänestä häneen hänellä häneltä hänelle               | he she
+me     meidän meidät meitä  meissä  meistä  meihin meillä  meiltä  meille                | we
+te     teidän teidät teitä  teissä  teistä  teihin teillä  teiltä  teille                | you
+he     heidän heidät heitä  heissä  heistä  heihin heillä  heiltä  heille                | they
+
+tämä   tämän         tätä   tässä   tästä   tähän  tallä   tältä   tälle   tänä   täksi  | this
+tuo    tuon          tuotä  tuossa  tuosta  tuohon tuolla  tuolta  tuolle  tuona  tuoksi | that
+se     sen           sitä   siinä   siitä   siihen sillä   siltä   sille   sinä   siksi  | it
+nämä   näiden        näitä  näissä  näistä  näihin näillä  näiltä  näille  näinä  näiksi | these
+nuo    noiden        noita  noissa  noista  noihin noilla  noilta  noille  noina  noiksi | those
+ne     niiden        niitä  niissä  niistä  niihin niillä  niiltä  niille  niinä  niiksi | they
+
+kuka   kenen kenet   ketä   kenessä kenestä keneen kenellä keneltä kenelle kenenä keneksi| who
+ketkä  keiden ketkä  keitä  keissä  keistä  keihin keillä  keiltä  keille  keinä  keiksi | (pl)
+mikä   minkä minkä   mitä   missä   mistä   mihin  millä   miltä   mille   minä   miksi  | which what
+mitkä                                                                                    | (pl)
+
+joka   jonka         jota   jossa   josta   johon  jolla   jolta   jolle   jona   joksi  | who which
+jotka  joiden        joita  joissa  joista  joihin joilla  joilta  joille  joina  joiksi | (pl)
+
+| conjunctions
+
+että   | that
+ja     | and
+jos    | if
+koska  | because
+kuin   | than
+mutta  | but
+niin   | so
+sekä   | and
+sillä  | for
+tai    | or
+vaan   | but
+vai    | or
+vaikka | although
+
+
+| prepositions
+
+kanssa  | with
+mukaan  | according to
+noin    | about
+poikki  | across
+yli     | over, across
+
+| other
+
+kun    | when
+niin   | so
+nyt    | now
+itse   | self
+
diff --git a/archiver/solr-config-dir/lang/stopwords_fr.txt b/archiver/solr-config-dir/lang/stopwords_fr.txt
new file mode 100644
index 00000000..749abae6
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_fr.txt
@@ -0,0 +1,186 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/french/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | A French stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+au             |  a + le
+aux            |  a + les
+avec           |  with
+ce             |  this
+ces            |  these
+dans           |  with
+de             |  of
+des            |  de + les
+du             |  de + le
+elle           |  she
+en             |  `of them' etc
+et             |  and
+eux            |  them
+il             |  he
+je             |  I
+la             |  the
+le             |  the
+leur           |  their
+lui            |  him
+ma             |  my (fem)
+mais           |  but
+me             |  me
+même           |  same; as in moi-même (myself) etc
+mes            |  me (pl)
+moi            |  me
+mon            |  my (masc)
+ne             |  not
+nos            |  our (pl)
+notre          |  our
+nous           |  we
+on             |  one
+ou             |  where
+par            |  by
+pas            |  not
+pour           |  for
+qu             |  que before vowel
+que            |  that
+qui            |  who
+sa             |  his, her (fem)
+se             |  oneself
+ses            |  his (pl)
+son            |  his, her (masc)
+sur            |  on
+ta             |  thy (fem)
+te             |  thee
+tes            |  thy (pl)
+toi            |  thee
+ton            |  thy (masc)
+tu             |  thou
+un             |  a
+une            |  a
+vos            |  your (pl)
+votre          |  your
+vous           |  you
+
+               |  single letter forms
+
+c              |  c'
+d              |  d'
+j              |  j'
+l              |  l'
+à              |  to, at
+m              |  m'
+n              |  n'
+s              |  s'
+t              |  t'
+y              |  there
+
+               | forms of être (not including the infinitive):
+été
+étée
+étées
+étés
+étant
+suis
+es
+est
+sommes
+êtes
+sont
+serai
+seras
+sera
+serons
+serez
+seront
+serais
+serait
+serions
+seriez
+seraient
+étais
+était
+étions
+étiez
+étaient
+fus
+fut
+fûmes
+fûtes
+furent
+sois
+soit
+soyons
+soyez
+soient
+fusse
+fusses
+fût
+fussions
+fussiez
+fussent
+
+               | forms of avoir (not including the infinitive):
+ayant
+eu
+eue
+eues
+eus
+ai
+as
+avons
+avez
+ont
+aurai
+auras
+aura
+aurons
+aurez
+auront
+aurais
+aurait
+aurions
+auriez
+auraient
+avais
+avait
+avions
+aviez
+avaient
+eut
+eûmes
+eûtes
+eurent
+aie
+aies
+ait
+ayons
+ayez
+aient
+eusse
+eusses
+eût
+eussions
+eussiez
+eussent
+
+               | Later additions (from Jean-Christophe Deschamps)
+ceci           |  this
+cela           |  that
+celà           |  that
+cet            |  this
+cette          |  this
+ici            |  here
+ils            |  they
+les            |  the (pl)
+leurs          |  their (pl)
+quel           |  which
+quels          |  which
+quelle         |  which
+quelles        |  which
+sans           |  without
+soi            |  oneself
+
diff --git a/archiver/solr-config-dir/lang/stopwords_ga.txt b/archiver/solr-config-dir/lang/stopwords_ga.txt
new file mode 100644
index 00000000..9ff88d74
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_ga.txt
@@ -0,0 +1,110 @@
+
+a
+ach
+ag
+agus
+an
+aon
+ar
+arna
+as
+b'
+ba
+beirt
+bhúr
+caoga
+ceathair
+ceathrar
+chomh
+chtó
+chuig
+chun
+cois
+céad
+cúig
+cúigear
+d'
+daichead
+dar
+de
+deich
+deichniúr
+den
+dhá
+do
+don
+dtí
+dá
+dár
+dó
+faoi
+faoin
+faoina
+faoinár
+fara
+fiche
+gach
+gan
+go
+gur
+haon
+hocht
+i
+iad
+idir
+in
+ina
+ins
+inár
+is
+le
+leis
+lena
+lenár
+m'
+mar
+mo
+mé
+na
+nach
+naoi
+naonúr
+ná
+ní
+níor
+nó
+nócha
+ocht
+ochtar
+os
+roimh
+sa
+seacht
+seachtar
+seachtó
+seasca
+seisear
+siad
+sibh
+sinn
+sna
+sé
+sí
+tar
+thar
+thú
+triúr
+trí
+trína
+trínár
+tríocha
+tú
+um
+ár
+é
+éis
+í
+ó
+ón
+óna
+ónár
diff --git a/archiver/solr-config-dir/lang/stopwords_gl.txt b/archiver/solr-config-dir/lang/stopwords_gl.txt
new file mode 100644
index 00000000..d8760b12
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_gl.txt
@@ -0,0 +1,161 @@
+# galican stopwords
+a
+aínda
+alí
+aquel
+aquela
+aquelas
+aqueles
+aquilo
+aquí
+ao
+aos
+as
+así
+á
+ben
+cando
+che
+co
+coa
+comigo
+con
+connosco
+contigo
+convosco
+coas
+cos
+cun
+cuns
+cunha
+cunhas
+da
+dalgunha
+dalgunhas
+dalgún
+dalgúns
+das
+de
+del
+dela
+delas
+deles
+desde
+deste
+do
+dos
+dun
+duns
+dunha
+dunhas
+e
+el
+ela
+elas
+eles
+en
+era
+eran
+esa
+esas
+ese
+eses
+esta
+estar
+estaba
+está
+están
+este
+estes
+estiven
+estou
+eu
+é
+facer
+foi
+foron
+fun
+había
+hai
+iso
+isto
+la
+las
+lle
+lles
+lo
+los
+mais
+me
+meu
+meus
+min
+miña
+miñas
+moi
+na
+nas
+neste
+nin
+no
+non
+nos
+nosa
+nosas
+noso
+nosos
+nós
+nun
+nunha
+nuns
+nunhas
+o
+os
+ou
+ó
+ós
+para
+pero
+pode
+pois
+pola
+polas
+polo
+polos
+por
+que
+se
+senón
+ser
+seu
+seus
+sexa
+sido
+sobre
+súa
+súas
+tamén
+tan
+te
+ten
+teñen
+teño
+ter
+teu
+teus
+ti
+tido
+tiña
+tiven
+túa
+túas
+un
+unha
+unhas
+uns
+vos
+vosa
+vosas
+voso
+vosos
+vós
diff --git a/archiver/solr-config-dir/lang/stopwords_hi.txt b/archiver/solr-config-dir/lang/stopwords_hi.txt
new file mode 100644
index 00000000..86286bb0
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_hi.txt
@@ -0,0 +1,235 @@
+# Also see http://www.opensource.org/licenses/bsd-license.html
+# See http://members.unine.ch/jacques.savoy/clef/index.html.
+# This file was created by Jacques Savoy and is distributed under the BSD license.
+# Note: by default this file also contains forms normalized by HindiNormalizer 
+# for spelling variation (see section below), such that it can be used whether or 
+# not you enable that feature. When adding additional entries to this list,
+# please add the normalized form as well. 
+अंदर
+अत
+अपना
+अपनी
+अपने
+अभी
+आदि
+आप
+इत्यादि
+इन 
+इनका
+इन्हीं
+इन्हें
+इन्हों
+इस
+इसका
+इसकी
+इसके
+इसमें
+इसी
+इसे
+उन
+उनका
+उनकी
+उनके
+उनको
+उन्हीं
+उन्हें
+उन्हों
+उस
+उसके
+उसी
+उसे
+एक
+एवं
+एस
+ऐसे
+और
+कई
+कर
+करता
+करते
+करना
+करने
+करें
+कहते
+कहा
+का
+काफ़ी
+कि
+कितना
+किन्हें
+किन्हों
+किया
+किर
+किस
+किसी
+किसे
+की
+कुछ
+कुल
+के
+को
+कोई
+कौन
+कौनसा
+गया
+घर
+जब
+जहाँ
+जा
+जितना
+जिन
+जिन्हें
+जिन्हों
+जिस
+जिसे
+जीधर
+जैसा
+जैसे
+जो
+तक
+तब
+तरह
+तिन
+तिन्हें
+तिन्हों
+तिस
+तिसे
+तो
+था
+थी
+थे
+दबारा
+दिया
+दुसरा
+दूसरे
+दो
+द्वारा
+न
+नहीं
+ना
+निहायत
+नीचे
+ने
+पर
+पर  
+पहले
+पूरा
+पे
+फिर
+बनी
+बही
+बहुत
+बाद
+बाला
+बिलकुल
+भी
+भीतर
+मगर
+मानो
+मे
+में
+यदि
+यह
+यहाँ
+यही
+या
+यिह 
+ये
+रखें
+रहा
+रहे
+ऱ्वासा
+लिए
+लिये
+लेकिन
+व
+वर्ग
+वह
+वह 
+वहाँ
+वहीं
+वाले
+वुह 
+वे
+वग़ैरह
+संग
+सकता
+सकते
+सबसे
+सभी
+साथ
+साबुत
+साभ
+सारा
+से
+सो
+ही
+हुआ
+हुई
+हुए
+है
+हैं
+हो
+होता
+होती
+होते
+होना
+होने
+# additional normalized forms of the above
+अपनि
+जेसे
+होति
+सभि
+तिंहों
+इंहों
+दवारा
+इसि
+किंहें
+थि
+उंहों
+ओर
+जिंहें
+वहिं
+अभि
+बनि
+हि
+उंहिं
+उंहें
+हें
+वगेरह
+एसे
+रवासा
+कोन
+निचे
+काफि
+उसि
+पुरा
+भितर
+हे
+बहि
+वहां
+कोइ
+यहां
+जिंहों
+तिंहें
+किसि
+कइ
+यहि
+इंहिं
+जिधर
+इंहें
+अदि
+इतयादि
+हुइ
+कोनसा
+इसकि
+दुसरे
+जहां
+अप
+किंहों
+उनकि
+भि
+वरग
+हुअ
+जेसा
+नहिं
diff --git a/archiver/solr-config-dir/lang/stopwords_hu.txt b/archiver/solr-config-dir/lang/stopwords_hu.txt
new file mode 100644
index 00000000..37526da8
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_hu.txt
@@ -0,0 +1,211 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/hungarian/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+ 
+| Hungarian stop word list
+| prepared by Anna Tordai
+
+a
+ahogy
+ahol
+aki
+akik
+akkor
+alatt
+által
+általában
+amely
+amelyek
+amelyekben
+amelyeket
+amelyet
+amelynek
+ami
+amit
+amolyan
+amíg
+amikor
+át
+abban
+ahhoz
+annak
+arra
+arról
+az
+azok
+azon
+azt
+azzal
+azért
+aztán
+azután
+azonban
+bár
+be
+belül
+benne
+cikk
+cikkek
+cikkeket
+csak
+de
+e
+eddig
+egész
+egy
+egyes
+egyetlen
+egyéb
+egyik
+egyre
+ekkor
+el
+elég
+ellen
+elő
+először
+előtt
+első
+én
+éppen
+ebben
+ehhez
+emilyen
+ennek
+erre
+ez
+ezt
+ezek
+ezen
+ezzel
+ezért
+és
+fel
+felé
+hanem
+hiszen
+hogy
+hogyan
+igen
+így
+illetve
+ill.
+ill
+ilyen
+ilyenkor
+ison
+ismét
+itt
+jó
+jól
+jobban
+kell
+kellett
+keresztül
+keressünk
+ki
+kívül
+között
+közül
+legalább
+lehet
+lehetett
+legyen
+lenne
+lenni
+lesz
+lett
+maga
+magát
+majd
+majd
+már
+más
+másik
+meg
+még
+mellett
+mert
+mely
+melyek
+mi
+mit
+míg
+miért
+milyen
+mikor
+minden
+mindent
+mindenki
+mindig
+mint
+mintha
+mivel
+most
+nagy
+nagyobb
+nagyon
+ne
+néha
+nekem
+neki
+nem
+néhány
+nélkül
+nincs
+olyan
+ott
+össze
+ő
+ők
+őket
+pedig
+persze
+rá
+s
+saját
+sem
+semmi
+sok
+sokat
+sokkal
+számára
+szemben
+szerint
+szinte
+talán
+tehát
+teljes
+tovább
+továbbá
+több
+úgy
+ugyanis
+új
+újabb
+újra
+után
+utána
+utolsó
+vagy
+vagyis
+valaki
+valami
+valamint
+való
+vagyok
+van
+vannak
+volt
+voltam
+voltak
+voltunk
+vissza
+vele
+viszont
+volna
diff --git a/archiver/solr-config-dir/lang/stopwords_hy.txt b/archiver/solr-config-dir/lang/stopwords_hy.txt
new file mode 100644
index 00000000..60c1c50f
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_hy.txt
@@ -0,0 +1,46 @@
+# example set of Armenian stopwords.
+այդ
+այլ
+այն
+այս
+դու
+դուք
+եմ
+են
+ենք
+ես
+եք
+է
+էի
+էին
+էինք
+էիր
+էիք
+էր
+ըստ
+թ
+ի
+ին
+իսկ
+իր
+կամ
+համար
+հետ
+հետո
+մենք
+մեջ
+մի
+ն
+նա
+նաև
+նրա
+նրանք
+որ
+որը
+որոնք
+որպես
+ու
+ում
+պիտի
+վրա
+և
diff --git a/archiver/solr-config-dir/lang/stopwords_id.txt b/archiver/solr-config-dir/lang/stopwords_id.txt
new file mode 100644
index 00000000..4617f83a
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_id.txt
@@ -0,0 +1,359 @@
+# from appendix D of: A Study of Stemming Effects on Information
+# Retrieval in Bahasa Indonesia
+ada
+adanya
+adalah
+adapun
+agak
+agaknya
+agar
+akan
+akankah
+akhirnya
+aku
+akulah
+amat
+amatlah
+anda
+andalah
+antar
+diantaranya
+antara
+antaranya
+diantara
+apa
+apaan
+mengapa
+apabila
+apakah
+apalagi
+apatah
+atau
+ataukah
+ataupun
+bagai
+bagaikan
+sebagai
+sebagainya
+bagaimana
+bagaimanapun
+sebagaimana
+bagaimanakah
+bagi
+bahkan
+bahwa
+bahwasanya
+sebaliknya
+banyak
+sebanyak
+beberapa
+seberapa
+begini
+beginian
+beginikah
+beginilah
+sebegini
+begitu
+begitukah
+begitulah
+begitupun
+sebegitu
+belum
+belumlah
+sebelum
+sebelumnya
+sebenarnya
+berapa
+berapakah
+berapalah
+berapapun
+betulkah
+sebetulnya
+biasa
+biasanya
+bila
+bilakah
+bisa
+bisakah
+sebisanya
+boleh
+bolehkah
+bolehlah
+buat
+bukan
+bukankah
+bukanlah
+bukannya
+cuma
+percuma
+dahulu
+dalam
+dan
+dapat
+dari
+daripada
+dekat
+demi
+demikian
+demikianlah
+sedemikian
+dengan
+depan
+di
+dia
+dialah
+dini
+diri
+dirinya
+terdiri
+dong
+dulu
+enggak
+enggaknya
+entah
+entahlah
+terhadap
+terhadapnya
+hal
+hampir
+hanya
+hanyalah
+harus
+haruslah
+harusnya
+seharusnya
+hendak
+hendaklah
+hendaknya
+hingga
+sehingga
+ia
+ialah
+ibarat
+ingin
+inginkah
+inginkan
+ini
+inikah
+inilah
+itu
+itukah
+itulah
+jangan
+jangankan
+janganlah
+jika
+jikalau
+juga
+justru
+kala
+kalau
+kalaulah
+kalaupun
+kalian
+kami
+kamilah
+kamu
+kamulah
+kan
+kapan
+kapankah
+kapanpun
+dikarenakan
+karena
+karenanya
+ke
+kecil
+kemudian
+kenapa
+kepada
+kepadanya
+ketika
+seketika
+khususnya
+kini
+kinilah
+kiranya
+sekiranya
+kita
+kitalah
+kok
+lagi
+lagian
+selagi
+lah
+lain
+lainnya
+melainkan
+selaku
+lalu
+melalui
+terlalu
+lama
+lamanya
+selama
+selama
+selamanya
+lebih
+terlebih
+bermacam
+macam
+semacam
+maka
+makanya
+makin
+malah
+malahan
+mampu
+mampukah
+mana
+manakala
+manalagi
+masih
+masihkah
+semasih
+masing
+mau
+maupun
+semaunya
+memang
+mereka
+merekalah
+meski
+meskipun
+semula
+mungkin
+mungkinkah
+nah
+namun
+nanti
+nantinya
+nyaris
+oleh
+olehnya
+seorang
+seseorang
+pada
+padanya
+padahal
+paling
+sepanjang
+pantas
+sepantasnya
+sepantasnyalah
+para
+pasti
+pastilah
+per
+pernah
+pula
+pun
+merupakan
+rupanya
+serupa
+saat
+saatnya
+sesaat
+saja
+sajalah
+saling
+bersama
+sama
+sesama
+sambil
+sampai
+sana
+sangat
+sangatlah
+saya
+sayalah
+se
+sebab
+sebabnya
+sebuah
+tersebut
+tersebutlah
+sedang
+sedangkan
+sedikit
+sedikitnya
+segala
+segalanya
+segera
+sesegera
+sejak
+sejenak
+sekali
+sekalian
+sekalipun
+sesekali
+sekaligus
+sekarang
+sekarang
+sekitar
+sekitarnya
+sela
+selain
+selalu
+seluruh
+seluruhnya
+semakin
+sementara
+sempat
+semua
+semuanya
+sendiri
+sendirinya
+seolah
+seperti
+sepertinya
+sering
+seringnya
+serta
+siapa
+siapakah
+siapapun
+disini
+disinilah
+sini
+sinilah
+sesuatu
+sesuatunya
+suatu
+sesudah
+sesudahnya
+sudah
+sudahkah
+sudahlah
+supaya
+tadi
+tadinya
+tak
+tanpa
+setelah
+telah
+tentang
+tentu
+tentulah
+tentunya
+tertentu
+seterusnya
+tapi
+tetapi
+setiap
+tiap
+setidaknya
+tidak
+tidakkah
+tidaklah
+toh
+waduh
+wah
+wahai
+sewaktu
+walau
+walaupun
+wong
+yaitu
+yakni
+yang
diff --git a/archiver/solr-config-dir/lang/stopwords_it.txt b/archiver/solr-config-dir/lang/stopwords_it.txt
new file mode 100644
index 00000000..1219cc77
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_it.txt
@@ -0,0 +1,303 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/italian/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | An Italian stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+ad             |  a (to) before vowel
+al             |  a + il
+allo           |  a + lo
+ai             |  a + i
+agli           |  a + gli
+all            |  a + l'
+agl            |  a + gl'
+alla           |  a + la
+alle           |  a + le
+con            |  with
+col            |  con + il
+coi            |  con + i (forms collo, cogli etc are now very rare)
+da             |  from
+dal            |  da + il
+dallo          |  da + lo
+dai            |  da + i
+dagli          |  da + gli
+dall           |  da + l'
+dagl           |  da + gll'
+dalla          |  da + la
+dalle          |  da + le
+di             |  of
+del            |  di + il
+dello          |  di + lo
+dei            |  di + i
+degli          |  di + gli
+dell           |  di + l'
+degl           |  di + gl'
+della          |  di + la
+delle          |  di + le
+in             |  in
+nel            |  in + el
+nello          |  in + lo
+nei            |  in + i
+negli          |  in + gli
+nell           |  in + l'
+negl           |  in + gl'
+nella          |  in + la
+nelle          |  in + le
+su             |  on
+sul            |  su + il
+sullo          |  su + lo
+sui            |  su + i
+sugli          |  su + gli
+sull           |  su + l'
+sugl           |  su + gl'
+sulla          |  su + la
+sulle          |  su + le
+per            |  through, by
+tra            |  among
+contro         |  against
+io             |  I
+tu             |  thou
+lui            |  he
+lei            |  she
+noi            |  we
+voi            |  you
+loro           |  they
+mio            |  my
+mia            |
+miei           |
+mie            |
+tuo            |
+tua            |
+tuoi           |  thy
+tue            |
+suo            |
+sua            |
+suoi           |  his, her
+sue            |
+nostro         |  our
+nostra         |
+nostri         |
+nostre         |
+vostro         |  your
+vostra         |
+vostri         |
+vostre         |
+mi             |  me
+ti             |  thee
+ci             |  us, there
+vi             |  you, there
+lo             |  him, the
+la             |  her, the
+li             |  them
+le             |  them, the
+gli            |  to him, the
+ne             |  from there etc
+il             |  the
+un             |  a
+uno            |  a
+una            |  a
+ma             |  but
+ed             |  and
+se             |  if
+perché         |  why, because
+anche          |  also
+come           |  how
+dov            |  where (as dov')
+dove           |  where
+che            |  who, that
+chi            |  who
+cui            |  whom
+non            |  not
+più            |  more
+quale          |  who, that
+quanto         |  how much
+quanti         |
+quanta         |
+quante         |
+quello         |  that
+quelli         |
+quella         |
+quelle         |
+questo         |  this
+questi         |
+questa         |
+queste         |
+si             |  yes
+tutto          |  all
+tutti          |  all
+
+               |  single letter forms:
+
+a              |  at
+c              |  as c' for ce or ci
+e              |  and
+i              |  the
+l              |  as l'
+o              |  or
+
+               | forms of avere, to have (not including the infinitive):
+
+ho
+hai
+ha
+abbiamo
+avete
+hanno
+abbia
+abbiate
+abbiano
+avrò
+avrai
+avrà
+avremo
+avrete
+avranno
+avrei
+avresti
+avrebbe
+avremmo
+avreste
+avrebbero
+avevo
+avevi
+aveva
+avevamo
+avevate
+avevano
+ebbi
+avesti
+ebbe
+avemmo
+aveste
+ebbero
+avessi
+avesse
+avessimo
+avessero
+avendo
+avuto
+avuta
+avuti
+avute
+
+               | forms of essere, to be (not including the infinitive):
+sono
+sei
+è
+siamo
+siete
+sia
+siate
+siano
+sarò
+sarai
+sarà
+saremo
+sarete
+saranno
+sarei
+saresti
+sarebbe
+saremmo
+sareste
+sarebbero
+ero
+eri
+era
+eravamo
+eravate
+erano
+fui
+fosti
+fu
+fummo
+foste
+furono
+fossi
+fosse
+fossimo
+fossero
+essendo
+
+               | forms of fare, to do (not including the infinitive, fa, fat-):
+faccio
+fai
+facciamo
+fanno
+faccia
+facciate
+facciano
+farò
+farai
+farà
+faremo
+farete
+faranno
+farei
+faresti
+farebbe
+faremmo
+fareste
+farebbero
+facevo
+facevi
+faceva
+facevamo
+facevate
+facevano
+feci
+facesti
+fece
+facemmo
+faceste
+fecero
+facessi
+facesse
+facessimo
+facessero
+facendo
+
+               | forms of stare, to be (not including the infinitive):
+sto
+stai
+sta
+stiamo
+stanno
+stia
+stiate
+stiano
+starò
+starai
+starà
+staremo
+starete
+staranno
+starei
+staresti
+starebbe
+staremmo
+stareste
+starebbero
+stavo
+stavi
+stava
+stavamo
+stavate
+stavano
+stetti
+stesti
+stette
+stemmo
+steste
+stettero
+stessi
+stesse
+stessimo
+stessero
+stando
diff --git a/archiver/solr-config-dir/lang/stopwords_ja.txt b/archiver/solr-config-dir/lang/stopwords_ja.txt
new file mode 100644
index 00000000..d4321be6
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_ja.txt
@@ -0,0 +1,127 @@
+#
+# This file defines a stopword set for Japanese.
+#
+# This set is made up of hand-picked frequent terms from segmented Japanese Wikipedia.
+# Punctuation characters and frequent kanji have mostly been left out.  See LUCENE-3745
+# for frequency lists, etc. that can be useful for making your own set (if desired)
+#
+# Note that there is an overlap between these stopwords and the terms stopped when used
+# in combination with the JapanesePartOfSpeechStopFilter.  When editing this file, note
+# that comments are not allowed on the same line as stopwords.
+#
+# Also note that stopping is done in a case-insensitive manner.  Change your StopFilter
+# configuration if you need case-sensitive stopping.  Lastly, note that stopping is done
+# using the same character width as the entries in this file.  Since this StopFilter is
+# normally done after a CJKWidthFilter in your chain, you would usually want your romaji
+# entries to be in half-width and your kana entries to be in full-width.
+#
+の
+に
+は
+を
+た
+が
+で
+て
+と
+し
+れ
+さ
+ある
+いる
+も
+する
+から
+な
+こと
+として
+い
+や
+れる
+など
+なっ
+ない
+この
+ため
+その
+あっ
+よう
+また
+もの
+という
+あり
+まで
+られ
+なる
+へ
+か
+だ
+これ
+によって
+により
+おり
+より
+による
+ず
+なり
+られる
+において
+ば
+なかっ
+なく
+しかし
+について
+せ
+だっ
+その後
+できる
+それ
+う
+ので
+なお
+のみ
+でき
+き
+つ
+における
+および
+いう
+さらに
+でも
+ら
+たり
+その他
+に関する
+たち
+ます
+ん
+なら
+に対して
+特に
+せる
+及び
+これら
+とき
+では
+にて
+ほか
+ながら
+うち
+そして
+とともに
+ただし
+かつて
+それぞれ
+または
+お
+ほど
+ものの
+に対する
+ほとんど
+と共に
+といった
+です
+とも
+ところ
+ここ
+##### End of file
diff --git a/archiver/solr-config-dir/lang/stopwords_lv.txt b/archiver/solr-config-dir/lang/stopwords_lv.txt
new file mode 100644
index 00000000..e21a23c0
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_lv.txt
@@ -0,0 +1,172 @@
+# Set of Latvian stopwords from A Stemming Algorithm for Latvian, Karlis Kreslins
+# the original list of over 800 forms was refined: 
+#   pronouns, adverbs, interjections were removed
+# 
+# prepositions
+aiz
+ap
+ar
+apakš
+ārpus
+augšpus
+bez
+caur
+dēļ
+gar
+iekš
+iz
+kopš
+labad
+lejpus
+līdz
+no
+otrpus
+pa
+par
+pār
+pēc
+pie
+pirms
+pret
+priekš
+starp
+šaipus
+uz
+viņpus
+virs
+virspus
+zem
+apakšpus
+# Conjunctions
+un
+bet
+jo
+ja
+ka
+lai
+tomēr
+tikko
+turpretī
+arī
+kaut
+gan
+tādēļ
+tā
+ne
+tikvien
+vien
+kā
+ir
+te
+vai
+kamēr
+# Particles
+ar
+diezin
+droši
+diemžēl
+nebūt
+ik
+it
+taču
+nu
+pat
+tiklab
+iekšpus
+nedz
+tik
+nevis
+turpretim
+jeb
+iekam
+iekām
+iekāms
+kolīdz
+līdzko
+tiklīdz
+jebšu
+tālab
+tāpēc
+nekā
+itin
+jā
+jau
+jel
+nē
+nezin
+tad
+tikai
+vis
+tak
+iekams
+vien
+# modal verbs
+būt  
+biju 
+biji
+bija
+bijām
+bijāt
+esmu
+esi
+esam
+esat 
+būšu     
+būsi
+būs
+būsim
+būsiet
+tikt
+tiku
+tiki
+tika
+tikām
+tikāt
+tieku
+tiec
+tiek
+tiekam
+tiekat
+tikšu
+tiks
+tiksim
+tiksiet
+tapt
+tapi
+tapāt
+topat
+tapšu
+tapsi
+taps
+tapsim
+tapsiet
+kļūt
+kļuvu
+kļuvi
+kļuva
+kļuvām
+kļuvāt
+kļūstu
+kļūsti
+kļūst
+kļūstam
+kļūstat
+kļūšu
+kļūsi
+kļūs
+kļūsim
+kļūsiet
+# verbs
+varēt
+varēju
+varējām
+varēšu
+varēsim
+var
+varēji
+varējāt
+varēsi
+varēsiet
+varat
+varēja
+varēs
diff --git a/archiver/solr-config-dir/lang/stopwords_nl.txt b/archiver/solr-config-dir/lang/stopwords_nl.txt
new file mode 100644
index 00000000..47a2aeac
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_nl.txt
@@ -0,0 +1,119 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/dutch/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | A Dutch stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+ | This is a ranked list (commonest to rarest) of stopwords derived from
+ | a large sample of Dutch text.
+
+ | Dutch stop words frequently exhibit homonym clashes. These are indicated
+ | clearly below.
+
+de             |  the
+en             |  and
+van            |  of, from
+ik             |  I, the ego
+te             |  (1) chez, at etc, (2) to, (3) too
+dat            |  that, which
+die            |  that, those, who, which
+in             |  in, inside
+een            |  a, an, one
+hij            |  he
+het            |  the, it
+niet           |  not, nothing, naught
+zijn           |  (1) to be, being, (2) his, one's, its
+is             |  is
+was            |  (1) was, past tense of all persons sing. of 'zijn' (to be) (2) wax, (3) the washing, (4) rise of river
+op             |  on, upon, at, in, up, used up
+aan            |  on, upon, to (as dative)
+met            |  with, by
+als            |  like, such as, when
+voor           |  (1) before, in front of, (2) furrow
+had            |  had, past tense all persons sing. of 'hebben' (have)
+er             |  there
+maar           |  but, only
+om             |  round, about, for etc
+hem            |  him
+dan            |  then
+zou            |  should/would, past tense all persons sing. of 'zullen'
+of             |  or, whether, if
+wat            |  what, something, anything
+mijn           |  possessive and noun 'mine'
+men            |  people, 'one'
+dit            |  this
+zo             |  so, thus, in this way
+door           |  through by
+over           |  over, across
+ze             |  she, her, they, them
+zich           |  oneself
+bij            |  (1) a bee, (2) by, near, at
+ook            |  also, too
+tot            |  till, until
+je             |  you
+mij            |  me
+uit            |  out of, from
+der            |  Old Dutch form of 'van der' still found in surnames
+daar           |  (1) there, (2) because
+haar           |  (1) her, their, them, (2) hair
+naar           |  (1) unpleasant, unwell etc, (2) towards, (3) as
+heb            |  present first person sing. of 'to have'
+hoe            |  how, why
+heeft          |  present third person sing. of 'to have'
+hebben         |  'to have' and various parts thereof
+deze           |  this
+u              |  you
+want           |  (1) for, (2) mitten, (3) rigging
+nog            |  yet, still
+zal            |  'shall', first and third person sing. of verb 'zullen' (will)
+me             |  me
+zij            |  she, they
+nu             |  now
+ge             |  'thou', still used in Belgium and south Netherlands
+geen           |  none
+omdat          |  because
+iets           |  something, somewhat
+worden         |  to become, grow, get
+toch           |  yet, still
+al             |  all, every, each
+waren          |  (1) 'were' (2) to wander, (3) wares, (3)
+veel           |  much, many
+meer           |  (1) more, (2) lake
+doen           |  to do, to make
+toen           |  then, when
+moet           |  noun 'spot/mote' and present form of 'to must'
+ben            |  (1) am, (2) 'are' in interrogative second person singular of 'to be'
+zonder         |  without
+kan            |  noun 'can' and present form of 'to be able'
+hun            |  their, them
+dus            |  so, consequently
+alles          |  all, everything, anything
+onder          |  under, beneath
+ja             |  yes, of course
+eens           |  once, one day
+hier           |  here
+wie            |  who
+werd           |  imperfect third person sing. of 'become'
+altijd         |  always
+doch           |  yet, but etc
+wordt          |  present third person sing. of 'become'
+wezen          |  (1) to be, (2) 'been' as in 'been fishing', (3) orphans
+kunnen         |  to be able
+ons            |  us/our
+zelf           |  self
+tegen          |  against, towards, at
+na             |  after, near
+reeds          |  already
+wil            |  (1) present tense of 'want', (2) 'will', noun, (3) fender
+kon            |  could; past tense of 'to be able'
+niets          |  nothing
+uw             |  your
+iemand         |  somebody
+geweest        |  been; past participle of 'be'
+andere         |  other
diff --git a/archiver/solr-config-dir/lang/stopwords_no.txt b/archiver/solr-config-dir/lang/stopwords_no.txt
new file mode 100644
index 00000000..a7a2c28b
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_no.txt
@@ -0,0 +1,194 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/norwegian/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | A Norwegian stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+ | This stop word list is for the dominant bokmål dialect. Words unique
+ | to nynorsk are marked *.
+
+ | Revised by Jan Bruusgaard <Jan.Bruusgaard@ssb.no>, Jan 2005
+
+og             | and
+i              | in
+jeg            | I
+det            | it/this/that
+at             | to (w. inf.)
+en             | a/an
+et             | a/an
+den            | it/this/that
+til            | to
+er             | is/am/are
+som            | who/that
+på             | on
+de             | they / you(formal)
+med            | with
+han            | he
+av             | of
+ikke           | not
+ikkje          | not *
+der            | there
+så             | so
+var            | was/were
+meg            | me
+seg            | you
+men            | but
+ett            | one
+har            | have
+om             | about
+vi             | we
+min            | my
+mitt           | my
+ha             | have
+hadde          | had
+hun            | she
+nå             | now
+over           | over
+da             | when/as
+ved            | by/know
+fra            | from
+du             | you
+ut             | out
+sin            | your
+dem            | them
+oss            | us
+opp            | up
+man            | you/one
+kan            | can
+hans           | his
+hvor           | where
+eller          | or
+hva            | what
+skal           | shall/must
+selv           | self (reflective)
+sjøl           | self (reflective)
+her            | here
+alle           | all
+vil            | will
+bli            | become
+ble            | became
+blei           | became *
+blitt          | have become
+kunne          | could
+inn            | in
+når            | when
+være           | be
+kom            | come
+noen           | some
+noe            | some
+ville          | would
+dere           | you
+som            | who/which/that
+deres          | their/theirs
+kun            | only/just
+ja             | yes
+etter          | after
+ned            | down
+skulle         | should
+denne          | this
+for            | for/because
+deg            | you
+si             | hers/his
+sine           | hers/his
+sitt           | hers/his
+mot            | against
+å              | to
+meget          | much
+hvorfor        | why
+dette          | this
+disse          | these/those
+uten           | without
+hvordan        | how
+ingen          | none
+din            | your
+ditt           | your
+blir           | become
+samme          | same
+hvilken        | which
+hvilke         | which (plural)
+sånn           | such a
+inni           | inside/within
+mellom         | between
+vår            | our
+hver           | each
+hvem           | who
+vors           | us/ours
+hvis           | whose
+både           | both
+bare           | only/just
+enn            | than
+fordi          | as/because
+før            | before
+mange          | many
+også           | also
+slik           | just
+vært           | been
+være           | to be
+båe            | both *
+begge          | both
+siden          | since
+dykk           | your *
+dykkar         | yours *
+dei            | they *
+deira          | them *
+deires         | theirs *
+deim           | them *
+di             | your (fem.) *
+då             | as/when *
+eg             | I *
+ein            | a/an *
+eit            | a/an *
+eitt           | a/an *
+elles          | or *
+honom          | he *
+hjå            | at *
+ho             | she *
+hoe            | she *
+henne          | her
+hennar         | her/hers
+hennes         | hers
+hoss           | how *
+hossen         | how *
+ikkje          | not *
+ingi           | noone *
+inkje          | noone *
+korleis        | how *
+korso          | how *
+kva            | what/which *
+kvar           | where *
+kvarhelst      | where *
+kven           | who/whom *
+kvi            | why *
+kvifor         | why *
+me             | we *
+medan          | while *
+mi             | my *
+mine           | my *
+mykje          | much *
+no             | now *
+nokon          | some (masc./neut.) *
+noka           | some (fem.) *
+nokor          | some *
+noko           | some *
+nokre          | some *
+si             | his/hers *
+sia            | since *
+sidan          | since *
+so             | so *
+somt           | some *
+somme          | some *
+um             | about*
+upp            | up *
+vere           | be *
+vore           | was *
+verte          | become *
+vort           | become *
+varte          | became *
+vart           | became *
+
diff --git a/archiver/solr-config-dir/lang/stopwords_pt.txt b/archiver/solr-config-dir/lang/stopwords_pt.txt
new file mode 100644
index 00000000..acfeb01a
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_pt.txt
@@ -0,0 +1,253 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/portuguese/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | A Portuguese stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+
+ | The following is a ranked list (commonest to rarest) of stopwords
+ | deriving from a large sample of text.
+
+ | Extra words have been added at the end.
+
+de             |  of, from
+a              |  the; to, at; her
+o              |  the; him
+que            |  who, that
+e              |  and
+do             |  de + o
+da             |  de + a
+em             |  in
+um             |  a
+para           |  for
+  | é          from SER
+com            |  with
+não            |  not, no
+uma            |  a
+os             |  the; them
+no             |  em + o
+se             |  himself etc
+na             |  em + a
+por            |  for
+mais           |  more
+as             |  the; them
+dos            |  de + os
+como           |  as, like
+mas            |  but
+  | foi        from SER
+ao             |  a + o
+ele            |  he
+das            |  de + as
+  | tem        from TER
+à              |  a + a
+seu            |  his
+sua            |  her
+ou             |  or
+  | ser        from SER
+quando         |  when
+muito          |  much
+  | há         from HAV
+nos            |  em + os; us
+já             |  already, now
+  | está       from EST
+eu             |  I
+também         |  also
+só             |  only, just
+pelo           |  per + o
+pela           |  per + a
+até            |  up to
+isso           |  that
+ela            |  he
+entre          |  between
+  | era        from SER
+depois         |  after
+sem            |  without
+mesmo          |  same
+aos            |  a + os
+  | ter        from TER
+seus           |  his
+quem           |  whom
+nas            |  em + as
+me             |  me
+esse           |  that
+eles           |  they
+  | estão      from EST
+você           |  you
+  | tinha      from TER
+  | foram      from SER
+essa           |  that
+num            |  em + um
+nem            |  nor
+suas           |  her
+meu            |  my
+às             |  a + as
+minha          |  my
+  | têm        from TER
+numa           |  em + uma
+pelos          |  per + os
+elas           |  they
+  | havia      from HAV
+  | seja       from SER
+qual           |  which
+  | será       from SER
+nós            |  we
+  | tenho      from TER
+lhe            |  to him, her
+deles          |  of them
+essas          |  those
+esses          |  those
+pelas          |  per + as
+este           |  this
+  | fosse      from SER
+dele           |  of him
+
+ | other words. There are many contractions such as naquele = em+aquele,
+ | mo = me+o, but they are rare.
+ | Indefinite article plural forms are also rare.
+
+tu             |  thou
+te             |  thee
+vocês          |  you (plural)
+vos            |  you
+lhes           |  to them
+meus           |  my
+minhas
+teu            |  thy
+tua
+teus
+tuas
+nosso          | our
+nossa
+nossos
+nossas
+
+dela           |  of her
+delas          |  of them
+
+esta           |  this
+estes          |  these
+estas          |  these
+aquele         |  that
+aquela         |  that
+aqueles        |  those
+aquelas        |  those
+isto           |  this
+aquilo         |  that
+
+               | forms of estar, to be (not including the infinitive):
+estou
+está
+estamos
+estão
+estive
+esteve
+estivemos
+estiveram
+estava
+estávamos
+estavam
+estivera
+estivéramos
+esteja
+estejamos
+estejam
+estivesse
+estivéssemos
+estivessem
+estiver
+estivermos
+estiverem
+
+               | forms of haver, to have (not including the infinitive):
+hei
+há
+havemos
+hão
+houve
+houvemos
+houveram
+houvera
+houvéramos
+haja
+hajamos
+hajam
+houvesse
+houvéssemos
+houvessem
+houver
+houvermos
+houverem
+houverei
+houverá
+houveremos
+houverão
+houveria
+houveríamos
+houveriam
+
+               | forms of ser, to be (not including the infinitive):
+sou
+somos
+são
+era
+éramos
+eram
+fui
+foi
+fomos
+foram
+fora
+fôramos
+seja
+sejamos
+sejam
+fosse
+fôssemos
+fossem
+for
+formos
+forem
+serei
+será
+seremos
+serão
+seria
+seríamos
+seriam
+
+               | forms of ter, to have (not including the infinitive):
+tenho
+tem
+temos
+tém
+tinha
+tínhamos
+tinham
+tive
+teve
+tivemos
+tiveram
+tivera
+tivéramos
+tenha
+tenhamos
+tenham
+tivesse
+tivéssemos
+tivessem
+tiver
+tivermos
+tiverem
+terei
+terá
+teremos
+terão
+teria
+teríamos
+teriam
diff --git a/archiver/solr-config-dir/lang/stopwords_ro.txt b/archiver/solr-config-dir/lang/stopwords_ro.txt
new file mode 100644
index 00000000..4fdee90a
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_ro.txt
@@ -0,0 +1,233 @@
+# This file was created by Jacques Savoy and is distributed under the BSD license.
+# See http://members.unine.ch/jacques.savoy/clef/index.html.
+# Also see http://www.opensource.org/licenses/bsd-license.html
+acea
+aceasta
+această
+aceea
+acei
+aceia
+acel
+acela
+acele
+acelea
+acest
+acesta
+aceste
+acestea
+aceşti
+aceştia
+acolo
+acum
+ai
+aia
+aibă
+aici
+al
+ăla
+ale
+alea
+ălea
+altceva
+altcineva
+am
+ar
+are
+aş
+aşadar
+asemenea
+asta
+ăsta
+astăzi
+astea
+ăstea
+ăştia
+asupra
+aţi
+au
+avea
+avem
+aveţi
+azi
+bine
+bucur
+bună
+ca
+că
+căci
+când
+care
+cărei
+căror
+cărui
+cât
+câte
+câţi
+către
+câtva
+ce
+cel
+ceva
+chiar
+cînd
+cine
+cineva
+cît
+cîte
+cîţi
+cîtva
+contra
+cu
+cum
+cumva
+curând
+curînd
+da
+dă
+dacă
+dar
+datorită
+de
+deci
+deja
+deoarece
+departe
+deşi
+din
+dinaintea
+dintr
+dintre
+drept
+după
+ea
+ei
+el
+ele
+eram
+este
+eşti
+eu
+face
+fără
+fi
+fie
+fiecare
+fii
+fim
+fiţi
+iar
+ieri
+îi
+îl
+îmi
+împotriva
+în 
+înainte
+înaintea
+încât
+încît
+încotro
+între
+întrucât
+întrucît
+îţi
+la
+lângă
+le
+li
+lîngă
+lor
+lui
+mă
+mâine
+mea
+mei
+mele
+mereu
+meu
+mi
+mine
+mult
+multă
+mulţi
+ne
+nicăieri
+nici
+nimeni
+nişte
+noastră
+noastre
+noi
+noştri
+nostru
+nu
+ori
+oricând
+oricare
+oricât
+orice
+oricînd
+oricine
+oricît
+oricum
+oriunde
+până
+pe
+pentru
+peste
+pînă
+poate
+pot
+prea
+prima
+primul
+prin
+printr
+sa
+să
+săi
+sale
+sau
+său
+se
+şi
+sînt
+sîntem
+sînteţi
+spre
+sub
+sunt
+suntem
+sunteţi
+ta
+tăi
+tale
+tău
+te
+ţi
+ţie
+tine
+toată
+toate
+tot
+toţi
+totuşi
+tu
+un
+una
+unde
+undeva
+unei
+unele
+uneori
+unor
+vă
+vi
+voastră
+voastre
+voi
+voştri
+vostru
+vouă
+vreo
+vreun
diff --git a/archiver/solr-config-dir/lang/stopwords_ru.txt b/archiver/solr-config-dir/lang/stopwords_ru.txt
new file mode 100644
index 00000000..55271400
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_ru.txt
@@ -0,0 +1,243 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/russian/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | a russian stop word list. comments begin with vertical bar. each stop
+ | word is at the start of a line.
+
+ | this is a ranked list (commonest to rarest) of stopwords derived from
+ | a large text sample.
+
+ | letter `ё' is translated to `е'.
+
+и              | and
+в              | in/into
+во             | alternative form
+не             | not
+что            | what/that
+он             | he
+на             | on/onto
+я              | i
+с              | from
+со             | alternative form
+как            | how
+а              | milder form of `no' (but)
+то             | conjunction and form of `that'
+все            | all
+она            | she
+так            | so, thus
+его            | him
+но             | but
+да             | yes/and
+ты             | thou
+к              | towards, by
+у              | around, chez
+же             | intensifier particle
+вы             | you
+за             | beyond, behind
+бы             | conditional/subj. particle
+по             | up to, along
+только         | only
+ее             | her
+мне            | to me
+было           | it was
+вот            | here is/are, particle
+от             | away from
+меня           | me
+еще            | still, yet, more
+нет            | no, there isnt/arent
+о              | about
+из             | out of
+ему            | to him
+теперь         | now
+когда          | when
+даже           | even
+ну             | so, well
+вдруг          | suddenly
+ли             | interrogative particle
+если           | if
+уже            | already, but homonym of `narrower'
+или            | or
+ни             | neither
+быть           | to be
+был            | he was
+него           | prepositional form of его
+до             | up to
+вас            | you accusative
+нибудь         | indef. suffix preceded by hyphen
+опять          | again
+уж             | already, but homonym of `adder'
+вам            | to you
+сказал         | he said
+ведь           | particle `after all'
+там            | there
+потом          | then
+себя           | oneself
+ничего         | nothing
+ей             | to her
+может          | usually with `быть' as `maybe'
+они            | they
+тут            | here
+где            | where
+есть           | there is/are
+надо           | got to, must
+ней            | prepositional form of  ей
+для            | for
+мы             | we
+тебя           | thee
+их             | them, their
+чем            | than
+была           | she was
+сам            | self
+чтоб           | in order to
+без            | without
+будто          | as if
+человек        | man, person, one
+чего           | genitive form of `what'
+раз            | once
+тоже           | also
+себе           | to oneself
+под            | beneath
+жизнь          | life
+будет          | will be
+ж              | short form of intensifer particle `же'
+тогда          | then
+кто            | who
+этот           | this
+говорил        | was saying
+того           | genitive form of `that'
+потому         | for that reason
+этого          | genitive form of `this'
+какой          | which
+совсем         | altogether
+ним            | prepositional form of `его', `они'
+здесь          | here
+этом           | prepositional form of `этот'
+один           | one
+почти          | almost
+мой            | my
+тем            | instrumental/dative plural of `тот', `то'
+чтобы          | full form of `in order that'
+нее            | her (acc.)
+кажется        | it seems
+сейчас         | now
+были           | they were
+куда           | where to
+зачем          | why
+сказать        | to say
+всех           | all (acc., gen. preposn. plural)
+никогда        | never
+сегодня        | today
+можно          | possible, one can
+при            | by
+наконец        | finally
+два            | two
+об             | alternative form of `о', about
+другой         | another
+хоть           | even
+после          | after
+над            | above
+больше         | more
+тот            | that one (masc.)
+через          | across, in
+эти            | these
+нас            | us
+про            | about
+всего          | in all, only, of all
+них            | prepositional form of `они' (they)
+какая          | which, feminine
+много          | lots
+разве          | interrogative particle
+сказала        | she said
+три            | three
+эту            | this, acc. fem. sing.
+моя            | my, feminine
+впрочем        | moreover, besides
+хорошо         | good
+свою           | ones own, acc. fem. sing.
+этой           | oblique form of `эта', fem. `this'
+перед          | in front of
+иногда         | sometimes
+лучше          | better
+чуть           | a little
+том            | preposn. form of `that one'
+нельзя         | one must not
+такой          | such a one
+им             | to them
+более          | more
+всегда         | always
+конечно        | of course
+всю            | acc. fem. sing of `all'
+между          | between
+
+
+  | b: some paradigms
+  |
+  | personal pronouns
+  |
+  | я  меня  мне  мной  [мною]
+  | ты  тебя  тебе  тобой  [тобою]
+  | он  его  ему  им  [него, нему, ним]
+  | она  ее  эи  ею  [нее, нэи, нею]
+  | оно  его  ему  им  [него, нему, ним]
+  |
+  | мы  нас  нам  нами
+  | вы  вас  вам  вами
+  | они  их  им  ими  [них, ним, ними]
+  |
+  |   себя  себе  собой   [собою]
+  |
+  | demonstrative pronouns: этот (this), тот (that)
+  |
+  | этот  эта  это  эти
+  | этого  эты  это  эти
+  | этого  этой  этого  этих
+  | этому  этой  этому  этим
+  | этим  этой  этим  [этою]  этими
+  | этом  этой  этом  этих
+  |
+  | тот  та  то  те
+  | того  ту  то  те
+  | того  той  того  тех
+  | тому  той  тому  тем
+  | тем  той  тем  [тою]  теми
+  | том  той  том  тех
+  |
+  | determinative pronouns
+  |
+  | (a) весь (all)
+  |
+  | весь  вся  все  все
+  | всего  всю  все  все
+  | всего  всей  всего  всех
+  | всему  всей  всему  всем
+  | всем  всей  всем  [всею]  всеми
+  | всем  всей  всем  всех
+  |
+  | (b) сам (himself etc)
+  |
+  | сам  сама  само  сами
+  | самого саму  само  самих
+  | самого самой самого  самих
+  | самому самой самому  самим
+  | самим  самой  самим  [самою]  самими
+  | самом самой самом  самих
+  |
+  | stems of verbs `to be', `to have', `to do' and modal
+  |
+  | быть  бы  буд  быв  есть  суть
+  | име
+  | дел
+  | мог   мож  мочь
+  | уме
+  | хоч  хот
+  | долж
+  | можн
+  | нужн
+  | нельзя
+
diff --git a/archiver/solr-config-dir/lang/stopwords_sv.txt b/archiver/solr-config-dir/lang/stopwords_sv.txt
new file mode 100644
index 00000000..096f87f6
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_sv.txt
@@ -0,0 +1,133 @@
+ | From svn.tartarus.org/snowball/trunk/website/algorithms/swedish/stop.txt
+ | This file is distributed under the BSD License.
+ | See http://snowball.tartarus.org/license.php
+ | Also see http://www.opensource.org/licenses/bsd-license.html
+ |  - Encoding was converted to UTF-8.
+ |  - This notice was added.
+ |
+ | NOTE: To use this file with StopFilterFactory, you must specify format="snowball"
+
+ | A Swedish stop word list. Comments begin with vertical bar. Each stop
+ | word is at the start of a line.
+
+ | This is a ranked list (commonest to rarest) of stopwords derived from
+ | a large text sample.
+
+ | Swedish stop words occasionally exhibit homonym clashes. For example
+ |  så = so, but also seed. These are indicated clearly below.
+
+och            | and
+det            | it, this/that
+att            | to (with infinitive)
+i              | in, at
+en             | a
+jag            | I
+hon            | she
+som            | who, that
+han            | he
+på             | on
+den            | it, this/that
+med            | with
+var            | where, each
+sig            | him(self) etc
+för            | for
+så             | so (also: seed)
+till           | to
+är             | is
+men            | but
+ett            | a
+om             | if; around, about
+hade           | had
+de             | they, these/those
+av             | of
+icke           | not, no
+mig            | me
+du             | you
+henne          | her
+då             | then, when
+sin            | his
+nu             | now
+har            | have
+inte           | inte någon = no one
+hans           | his
+honom          | him
+skulle         | 'sake'
+hennes         | her
+där            | there
+min            | my
+man            | one (pronoun)
+ej             | nor
+vid            | at, by, on (also: vast)
+kunde          | could
+något          | some etc
+från           | from, off
+ut             | out
+när            | when
+efter          | after, behind
+upp            | up
+vi             | we
+dem            | them
+vara           | be
+vad            | what
+över           | over
+än             | than
+dig            | you
+kan            | can
+sina           | his
+här            | here
+ha             | have
+mot            | towards
+alla           | all
+under          | under (also: wonder)
+någon          | some etc
+eller          | or (else)
+allt           | all
+mycket         | much
+sedan          | since
+ju             | why
+denna          | this/that
+själv          | myself, yourself etc
+detta          | this/that
+åt             | to
+utan           | without
+varit          | was
+hur            | how
+ingen          | no
+mitt           | my
+ni             | you
+bli            | to be, become
+blev           | from bli
+oss            | us
+din            | thy
+dessa          | these/those
+några          | some etc
+deras          | their
+blir           | from bli
+mina           | my
+samma          | (the) same
+vilken         | who, that
+er             | you, your
+sådan          | such a
+vår            | our
+blivit         | from bli
+dess           | its
+inom           | within
+mellan         | between
+sådant         | such a
+varför         | why
+varje          | each
+vilka          | who, that
+ditt           | thy
+vem            | who
+vilket         | who, that
+sitta          | his
+sådana         | such a
+vart           | each
+dina           | thy
+vars           | whose
+vårt           | our
+våra           | our
+ert            | your
+era            | your
+vilkas         | whose
+
diff --git a/archiver/solr-config-dir/lang/stopwords_th.txt b/archiver/solr-config-dir/lang/stopwords_th.txt
new file mode 100644
index 00000000..07f0fabe
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_th.txt
@@ -0,0 +1,119 @@
+# Thai stopwords from:
+# "Opinion Detection in Thai Political News Columns
+# Based on Subjectivity Analysis"
+# Khampol Sukhum, Supot Nitsuwat, and Choochart Haruechaiyasak
+ไว้
+ไม่
+ไป
+ได้
+ให้
+ใน
+โดย
+แห่ง
+แล้ว
+และ
+แรก
+แบบ
+แต่
+เอง
+เห็น
+เลย
+เริ่ม
+เรา
+เมื่อ
+เพื่อ
+เพราะ
+เป็นการ
+เป็น
+เปิดเผย
+เปิด
+เนื่องจาก
+เดียวกัน
+เดียว
+เช่น
+เฉพาะ
+เคย
+เข้า
+เขา
+อีก
+อาจ
+อะไร
+ออก
+อย่าง
+อยู่
+อยาก
+หาก
+หลาย
+หลังจาก
+หลัง
+หรือ
+หนึ่ง
+ส่วน
+ส่ง
+สุด
+สําหรับ
+ว่า
+วัน
+ลง
+ร่วม
+ราย
+รับ
+ระหว่าง
+รวม
+ยัง
+มี
+มาก
+มา
+พร้อม
+พบ
+ผ่าน
+ผล
+บาง
+น่า
+นี้
+นํา
+นั้น
+นัก
+นอกจาก
+ทุก
+ที่สุด
+ที่
+ทําให้
+ทํา
+ทาง
+ทั้งนี้
+ทั้ง
+ถ้า
+ถูก
+ถึง
+ต้อง
+ต่างๆ
+ต่าง
+ต่อ
+ตาม
+ตั้งแต่
+ตั้ง
+ด้าน
+ด้วย
+ดัง
+ซึ่ง
+ช่วง
+จึง
+จาก
+จัด
+จะ
+คือ
+ความ
+ครั้ง
+คง
+ขึ้น
+ของ
+ขอ
+ขณะ
+ก่อน
+ก็
+การ
+กับ
+กัน
+กว่า
+กล่าว
diff --git a/archiver/solr-config-dir/lang/stopwords_tr.txt b/archiver/solr-config-dir/lang/stopwords_tr.txt
new file mode 100644
index 00000000..84d9408d
--- /dev/null
+++ b/archiver/solr-config-dir/lang/stopwords_tr.txt
@@ -0,0 +1,212 @@
+# Turkish stopwords from LUCENE-559
+# merged with the list from "Information Retrieval on Turkish Texts"
+#   (http://www.users.muohio.edu/canf/papers/JASIST2008offPrint.pdf)
+acaba
+altmış
+altı
+ama
+ancak
+arada
+aslında
+ayrıca
+bana
+bazı
+belki
+ben
+benden
+beni
+benim
+beri
+beş
+bile
+bin
+bir
+birçok
+biri
+birkaç
+birkez
+birşey
+birşeyi
+biz
+bize
+bizden
+bizi
+bizim
+böyle
+böylece
+bu
+buna
+bunda
+bundan
+bunlar
+bunları
+bunların
+bunu
+bunun
+burada
+çok
+çünkü
+da
+daha
+dahi
+de
+defa
+değil
+diğer
+diye
+doksan
+dokuz
+dolayı
+dolayısıyla
+dört
+edecek
+eden
+ederek
+edilecek
+ediliyor
+edilmesi
+ediyor
+eğer
+elli
+en
+etmesi
+etti
+ettiği
+ettiğini
+gibi
+göre
+halen
+hangi
+hatta
+hem
+henüz
+hep
+hepsi
+her
+herhangi
+herkesin
+hiç
+hiçbir
+için
+iki
+ile
+ilgili
+ise
+işte
+itibaren
+itibariyle
+kadar
+karşın
+katrilyon
+kendi
+kendilerine
+kendini
+kendisi
+kendisine
+kendisini
+kez
+ki
+kim
+kimden
+kime
+kimi
+kimse
+kırk
+milyar
+milyon
+mu
+mü
+mı
+nasıl
+ne
+neden
+nedenle
+nerde
+nerede
+nereye
+niye
+niçin
+o
+olan
+olarak
+oldu
+olduğu
+olduğunu
+olduklarını
+olmadı
+olmadığı
+olmak
+olması
+olmayan
+olmaz
+olsa
+olsun
+olup
+olur
+olursa
+oluyor
+on
+ona
+ondan
+onlar
+onlardan
+onları
+onların
+onu
+onun
+otuz
+oysa
+öyle
+pek
+rağmen
+sadece
+sanki
+sekiz
+seksen
+sen
+senden
+seni
+senin
+siz
+sizden
+sizi
+sizin
+şey
+şeyden
+şeyi
+şeyler
+şöyle
+şu
+şuna
+şunda
+şundan
+şunları
+şunu
+tarafından
+trilyon
+tüm
+üç
+üzere
+var
+vardı
+ve
+veya
+ya
+yani
+yapacak
+yapılan
+yapılması
+yapıyor
+yapmak
+yaptı
+yaptığı
+yaptığını
+yaptıkları
+yedi
+yerine
+yetmiş
+yine
+yirmi
+yoksa
+yüz
+zaten
diff --git a/archiver/solr-config-dir/lang/userdict_ja.txt b/archiver/solr-config-dir/lang/userdict_ja.txt
new file mode 100644
index 00000000..6f0368e4
--- /dev/null
+++ b/archiver/solr-config-dir/lang/userdict_ja.txt
@@ -0,0 +1,29 @@
+#
+# This is a sample user dictionary for Kuromoji (JapaneseTokenizer)
+#
+# Add entries to this file in order to override the statistical model in terms
+# of segmentation, readings and part-of-speech tags.  Notice that entries do
+# not have weights since they are always used when found.  This is by-design
+# in order to maximize ease-of-use.
+#
+# Entries are defined using the following CSV format:
+#  <text>,<token 1> ... <token n>,<reading 1> ... <reading n>,<part-of-speech tag>
+#
+# Notice that a single half-width space separates tokens and readings, and
+# that the number tokens and readings must match exactly.
+#
+# Also notice that multiple entries with the same <text> is undefined.
+#
+# Whitespace only lines are ignored.  Comments are not allowed on entry lines.
+#
+
+# Custom segmentation for kanji compounds
+日本経済新聞,日本 経済 新聞,ニホン ケイザイ シンブン,カスタム名詞
+関西国際空港,関西 国際 空港,カンサイ コクサイ クウコウ,カスタム名詞
+
+# Custom segmentation for compound katakana
+トートバッグ,トート バッグ,トート バッグ,かずカナ名詞
+ショルダーバッグ,ショルダー バッグ,ショルダー バッグ,かずカナ名詞
+
+# Custom reading for former sumo wrestler
+朝青龍,朝青龍,アサショウリュウ,カスタム人名
diff --git a/archiver/solr-config-dir/schema.xml b/archiver/solr-config-dir/schema.xml
new file mode 100644
index 00000000..692dfe1a
--- /dev/null
+++ b/archiver/solr-config-dir/schema.xml
@@ -0,0 +1,153 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<schema name="example" version="1.6">
+
+  <!-- The StrField type is not analyzed, but indexed/stored verbatim. -->
+  <fieldType name="string" class="solr.StrField" sortMissingLast="true" docValues="true" />
+  <fieldType name="strings" class="solr.StrField" sortMissingLast="true" multiValued="true" docValues="true" />
+
+  <!-- boolean type: "true" or "false" -->
+  <fieldType name="boolean" class="solr.BoolField" sortMissingLast="true"/>
+  <fieldType name="booleans" class="solr.BoolField" sortMissingLast="true" multiValued="true"/>
+
+  <!--
+      Numeric field types that index values using KD-trees.
+      Point fields don't support FieldCache, so they must have docValues="true" if needed for sorting, faceting, functions, etc.
+  -->
+  <fieldType name="pint" class="solr.IntPointField" docValues="true"/>
+  <fieldType name="pfloat" class="solr.FloatPointField" docValues="true"/>
+  <fieldType name="plong" class="solr.LongPointField" docValues="true"/>
+  <fieldType name="pdouble" class="solr.DoublePointField" docValues="true"/>
+
+  <fieldType name="pints" class="solr.IntPointField" docValues="true" multiValued="true"/>
+  <fieldType name="pfloats" class="solr.FloatPointField" docValues="true" multiValued="true"/>
+  <fieldType name="plongs" class="solr.LongPointField" docValues="true" multiValued="true"/>
+  <fieldType name="pdoubles" class="solr.DoublePointField" docValues="true" multiValued="true"/>
+  <fieldType name="random" class="solr.RandomSortField" indexed="true"/>
+
+  <!-- since fields of this type are by default not stored or indexed,
+       any data added to them will be ignored outright.  -->
+  <fieldType name="ignored" stored="false" indexed="false" multiValued="true" class="solr.StrField" />
+
+  <!-- The format for this date field is of the form 1995-12-31T23:59:59Z, and
+       is a more restricted form of the canonical representation of dateTime
+       http://www.w3.org/TR/xmlschema-2/#dateTime
+       The trailing "Z" designates UTC time and is mandatory.
+       Optional fractional seconds are allowed: 1995-12-31T23:59:59.999Z
+       All other components are mandatory.
+
+Expressions can also be used to denote calculations that should be
+performed relative to "NOW" to determine the value, ie...
+
+NOW/HOUR
+... Round to the start of the current hour
+NOW-1DAY
+... Exactly 1 day prior to now
+NOW/DAY+6MONTHS+3DAYS
+... 6 months and 3 days in the future from the start of
+the current day
+
+  -->
+  <!-- KD-tree versions of date fields -->
+  <fieldType name="pdate" class="solr.DatePointField" docValues="true"/>
+  <fieldType name="pdates" class="solr.DatePointField" docValues="true" multiValued="true"/>
+
+  <!--Binary data type. The data should be sent/retrieved in as Base64 encoded Strings -->
+  <fieldType name="binary" class="solr.BinaryField"/>
+
+  <!--
+      RankFields can be used to store scoring factors to improve document ranking. They should be used
+      in combination with RankQParserPlugin.
+      (experimental)
+  -->
+  <fieldType name="rank" class="solr.RankField"/>
+
+  <!-- solr.TextField allows the specification of custom text analyzers
+       specified as a tokenizer and a list of token filters. Different
+       analyzers may be specified for indexing and querying.
+
+The optional positionIncrementGap puts space between multiple fields of
+this type on the same document, with the purpose of preventing false phrase
+matching across fields.
+
+For more info on customizing your analyzer chain, please see
+https://solr.apache.org/guide/solr/latest/indexing-guide/document-analysis.html#using-analyzers-tokenizers-and-filters
+  -->
+
+  <!-- One can also specify an existing Analyzer class that has a
+       default constructor via the class attribute on the analyzer element.
+       Example:
+       <fieldType name="text_greek" class="solr.TextField">
+       <analyzer class="org.apache.lucene.analysis.el.GreekAnalyzer"/>
+       </fieldType>
+  -->
+
+  <fieldType name="text_prefix" class="solr.TextField" positionIncrementGap="100">
+    <analyzer type="index">
+      <tokenizer class="solr.LowerCaseTokenizerFactory"/>
+      <filter class="solr.EdgeNGramFilterFactory" minGramSize="1" maxGramSize="20" />
+    </analyzer>
+    <analyzer type="query">
+      <tokenizer class="solr.LowerCaseTokenizerFactory"/>
+    </analyzer>
+  </fieldType>
+
+  <fieldType name="text_general" class="solr.TextField" positionIncrementGap="100" multiValued="true">
+    <analyzer type="index">
+      <tokenizer name="standard"/>
+      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt" />
+      <!-- in this example, we will only use synonyms at query time
+           <filter name="synonymGraph" synonyms="index_synonyms.txt" ignoreCase="true" expand="false"/>
+           <filter name="flattenGraph"/>
+      -->
+      <filter name="lowercase"/>
+    </analyzer>
+    <analyzer type="query">
+      <tokenizer name="standard"/>
+      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt" />
+      <filter name="lowercase"/>
+    </analyzer>
+  </fieldType>
+
+  <fieldType name="text_en_splitting" class="solr.TextField" positionIncrementGap="100" autoGeneratePhraseQueries="true">
+    <analyzer type="index">
+      <tokenizer name="whitespace"/>
+      <!-- Case insensitive stop word removal.
+      -->
+      <filter name="stop"
+              ignoreCase="true"
+              words="lang/stopwords_en.txt"
+              />
+      <filter name="wordDelimiterGraph" generateWordParts="1" generateNumberParts="1" catenateWords="1" catenateNumbers="1" catenateAll="0" splitOnCaseChange="1"/>
+      <filter name="lowercase"/>
+      <filter class="solr.PatternReplaceFilterFactory" pattern="(\d{2,})" replacement="" replace="all" />
+      <filter name="porterStem"/>
+      <filter name="flattenGraph" />
+    </analyzer>
+    <analyzer type="query">
+      <tokenizer name="whitespace"/>
+      <filter name="stop"
+              ignoreCase="true"
+              words="lang/stopwords_en.txt"
+              />
+      <filter name="wordDelimiterGraph" generateWordParts="1" generateNumberParts="1" catenateWords="0" catenateNumbers="0" catenateAll="0" splitOnCaseChange="1"/>
+      <filter name="lowercase"/>
+      <filter name="porterStem"/>
+    </analyzer>
+  </fieldType>
+
+  <!-- Fields -->
+  <field name="id" type="string" indexed="true" required="true" />
+  <field name="title" type="text_en_splitting" indexed="true" stored="true" required="true" />
+  <field name="body" type="text_en_splitting" indexed="true" stored="true" required="true" />
+  <field name="table" type="text_en_splitting" indexed="true" stored="false" required="true" />
+  <field name="len" type="pint" indexed="false" stored="true" required="true" />
+
+  <!-- Copy title to title_prefix for matching -->
+  <field name="title_prefix" type="text_prefix" indexed="true" stored="false" />
+  <copyField source="title" dest="title_prefix" />
+
+  <field name="_version_" type="plong" indexed="true" stored="true" multiValued="false"/>
+
+  <!-- Unique Key -->
+  <uniqueKey>id</uniqueKey>
+</schema>
diff --git a/archiver/solr-config-dir/solrconfig.xml b/archiver/solr-config-dir/solrconfig.xml
new file mode 100644
index 00000000..3331803d
--- /dev/null
+++ b/archiver/solr-config-dir/solrconfig.xml
@@ -0,0 +1,1076 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<!--
+ Licensed to the Apache Software Foundation (ASF) under one or more
+ contributor license agreements.  See the NOTICE file distributed with
+ this work for additional information regarding copyright ownership.
+ The ASF licenses this file to You under the Apache License, Version 2.0
+ (the "License"); you may not use this file except in compliance with
+ the License.  You may obtain a copy of the License at
+
+     http://www.apache.org/licenses/LICENSE-2.0
+
+ Unless required by applicable law or agreed to in writing, software
+ distributed under the License is distributed on an "AS IS" BASIS,
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ See the License for the specific language governing permissions and
+ limitations under the License.
+-->
+
+<!--
+     For more details about configurations options that may appear in
+     this file, see https://solr.apache.org/guide/solr/latest/configuration-guide/configuring-solrconfig-xml.html.
+-->
+<config>
+  <!-- In all configuration below, a prefix of "solr." for class names
+       is an alias that causes solr to search appropriate packages,
+       including org.apache.solr.(search|update|request|core|analysis)
+
+       You may also specify a fully qualified Java classname if you
+       have your own custom plugins.
+    -->
+
+  <!-- Controls what version of Lucene various components of Solr
+       adhere to.  Generally, you want to use the latest version to
+       get all bug fixes and improvements. It is highly recommended
+       that you fully re-index after changing this setting as it can
+       affect both how text is indexed and queried.
+  -->
+  <luceneMatchVersion>9.8</luceneMatchVersion>
+
+  <!-- <lib/> directives can be used to instruct Solr to load any Jars
+       identified and use them to resolve any "plugins" specified in
+       your solrconfig.xml or schema.xml (ie: Analyzers, Request
+       Handlers, etc...).
+
+       All directories and paths are resolved relative to the
+       instanceDir.
+
+       Please note that <lib/> directives are processed in the order
+       that they appear in your solrconfig.xml file, and are "stacked"
+       on top of each other when building a ClassLoader - so if you have
+       plugin jars with dependencies on other jars, the "lower level"
+       dependency jars should be loaded first.
+
+       If a "./lib" directory exists in your instanceDir, all files
+       found in it are included as if you had used the following
+       syntax...
+
+              <lib dir="./lib" />
+    -->
+
+  <!-- A 'dir' option by itself adds any files found in the directory
+       to the classpath, this is useful for including all jars in a
+       directory.
+
+       When a 'regex' is specified in addition to a 'dir', only the
+       files in that directory which completely match the regex
+       (anchored on both ends) will be included.
+
+       If a 'dir' option (with or without a regex) is used and nothing
+       is found that matches, a warning will be logged.
+
+       The example below can be used to load a Solr Module along
+       with their external dependencies.
+    -->
+    <!-- <lib dir="${solr.install.dir:../../../..}/modules/ltr/lib" regex=".*\.jar" /> -->
+
+  <!-- an exact 'path' can be used instead of a 'dir' to specify a
+       specific jar file.  This will cause a serious error to be logged
+       if it can't be loaded.
+    -->
+  <!--
+     <lib path="../a-jar-that-does-not-exist.jar" />
+  -->
+
+  <!-- Data Directory
+
+       Used to specify an alternate directory to hold all index data
+       other than the default ./data under the Solr home.  If
+       replication is in use, this should match the replication
+       configuration.
+    -->
+  <dataDir>${solr.data.dir:}</dataDir>
+
+
+  <!-- The DirectoryFactory to use for indexes.
+
+       solr.StandardDirectoryFactory is filesystem
+       based and tries to pick the best implementation for the current
+       JVM and platform.  solr.NRTCachingDirectoryFactory, the default,
+       wraps solr.StandardDirectoryFactory and caches small files in memory
+       for better NRT performance.
+
+       One can force a particular implementation via solr.MMapDirectoryFactory
+       or solr.NIOFSDirectoryFactory.
+
+       solr.RAMDirectoryFactory is memory based and not persistent.
+    -->
+  <directoryFactory name="DirectoryFactory"
+                    class="${solr.directoryFactory:solr.NRTCachingDirectoryFactory}"/>
+
+  <!-- The CodecFactory for defining the format of the inverted index.
+       The default implementation is SchemaCodecFactory, which is the official Lucene
+       index format, but hooks into the schema to provide per-field customization of
+       the postings lists and per-document values in the fieldType element
+       (postingsFormat/docValuesFormat). Note that most of the alternative implementations
+       are experimental, so if you choose to customize the index format, it's a good
+       idea to convert back to the official format e.g. via IndexWriter.addIndexes(IndexReader)
+       before upgrading to a newer version to avoid unnecessary reindexing.
+       A "compressionMode" string element can be added to <codecFactory> to choose
+       between the existing compression modes in the default codec: "BEST_SPEED" (default)
+       or "BEST_COMPRESSION".
+  -->
+  <codecFactory class="solr.SchemaCodecFactory"/>
+
+  <!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+       Index Config - These settings control low-level behavior of indexing
+       Most example settings here show the default value, but are commented
+       out, to more easily see where customizations have been made.
+
+       Note: This replaces <indexDefaults> and <mainIndex> from older versions
+       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
+  <indexConfig>
+    <!-- maxFieldLength was removed in 4.0. To get similar behavior, include a
+         LimitTokenCountFilterFactory in your fieldType definition. E.g.
+     <filter class="solr.LimitTokenCountFilterFactory" maxTokenCount="10000"/>
+    -->
+    <!-- Maximum time to wait for a write lock (ms) for an IndexWriter. Default: 1000 -->
+    <!-- <writeLockTimeout>1000</writeLockTimeout>  -->
+
+    <!-- Expert: Enabling compound file will use less files for the index,
+         using fewer file descriptors on the expense of performance decrease.
+         Default in Lucene is "true". Default in Solr is "false" (since 3.6) -->
+    <!-- <useCompoundFile>false</useCompoundFile> -->
+
+    <!-- ramBufferSizeMB sets the amount of RAM that may be used by Lucene
+         indexing for buffering added documents and deletions before they are
+         flushed to the Directory.
+         maxBufferedDocs sets a limit on the number of documents buffered
+         before flushing.
+         If both ramBufferSizeMB and maxBufferedDocs is set, then
+         Lucene will flush based on whichever limit is hit first.  -->
+    <!-- <ramBufferSizeMB>100</ramBufferSizeMB> -->
+    <!-- <maxBufferedDocs>1000</maxBufferedDocs> -->
+
+    <!-- Expert: ramPerThreadHardLimitMB sets the maximum amount of RAM that can be consumed
+         per thread before they are flushed. When limit is exceeded, this triggers a forced
+         flush even if ramBufferSizeMB has not been exceeded.
+         This is a safety limit to prevent Lucene's DocumentsWriterPerThread from address space
+         exhaustion due to its internal 32 bit signed integer based memory addressing.
+         The specified value should be greater than 0 and less than 2048MB. When not specified,
+         Solr uses Lucene's default value 1945. -->
+    <!-- <ramPerThreadHardLimitMB>1945</ramPerThreadHardLimitMB> -->
+
+    <!-- Expert: Merge Policy
+         The Merge Policy in Lucene controls how merging of segments is done.
+         The default since Solr/Lucene 3.3 is TieredMergePolicy.
+         The default since Lucene 2.3 was the LogByteSizeMergePolicy,
+         Even older versions of Lucene used LogDocMergePolicy.
+      -->
+    <!--
+        <mergePolicyFactory class="org.apache.solr.index.TieredMergePolicyFactory">
+          <int name="maxMergeAtOnce">10</int>
+          <int name="segmentsPerTier">10</int>
+          <double name="noCFSRatio">0.1</double>
+        </mergePolicyFactory>
+      -->
+
+    <!-- Expert: Merge Scheduler
+         The Merge Scheduler in Lucene controls how merges are
+         performed.  The ConcurrentMergeScheduler (Lucene 2.3 default)
+         can perform merges in the background using separate threads.
+         The SerialMergeScheduler (Lucene 2.2 default) does not.
+     -->
+    <!--
+       <mergeScheduler class="org.apache.lucene.index.ConcurrentMergeScheduler"/>
+       -->
+
+    <!-- LockFactory
+
+         This option specifies which Lucene LockFactory implementation
+         to use.
+
+         single = SingleInstanceLockFactory - suggested for a
+                  read-only index or when there is no possibility of
+                  another process trying to modify the index.
+         native = NativeFSLockFactory - uses OS native file locking.
+                  Do not use when multiple solr webapps in the same
+                  JVM are attempting to share a single index.
+         simple = SimpleFSLockFactory  - uses a plain file for locking
+
+         Defaults: 'native' is default for Solr3.6 and later, otherwise
+                   'simple' is the default
+
+         More details on the nuances of each LockFactory...
+         https://cwiki.apache.org/confluence/display/lucene/AvailableLockFactories
+    -->
+    <lockType>${solr.lock.type:native}</lockType>
+
+    <!-- Commit Deletion Policy
+         Custom deletion policies can be specified here. The class must
+         implement org.apache.lucene.index.IndexDeletionPolicy.
+
+         The default Solr IndexDeletionPolicy implementation supports
+         deleting index commit points on number of commits, age of
+         commit point and optimized status.
+
+         The latest commit point should always be preserved regardless
+         of the criteria.
+    -->
+    <!--
+    <deletionPolicy class="solr.SolrDeletionPolicy">
+    -->
+    <!-- The number of commit points to be kept -->
+    <!-- <str name="maxCommitsToKeep">1</str> -->
+    <!-- The number of optimized commit points to be kept -->
+    <!-- <str name="maxOptimizedCommitsToKeep">0</str> -->
+    <!--
+        Delete all commit points once they have reached the given age.
+        Supports DateMathParser syntax e.g.
+      -->
+    <!--
+       <str name="maxCommitAge">30MINUTES</str>
+       <str name="maxCommitAge">1DAY</str>
+    -->
+    <!--
+    </deletionPolicy>
+    -->
+
+    <!-- Lucene Infostream
+
+         To aid in advanced debugging, Lucene provides an "InfoStream"
+         of detailed information when indexing.
+
+         Setting The value to true will instruct the underlying Lucene
+         IndexWriter to write its debugging info the specified file
+      -->
+    <!-- <infoStream file="INFOSTREAM.txt">false</infoStream> -->
+  </indexConfig>
+
+  <!-- The default high-performance update handler -->
+  <updateHandler class="solr.DirectUpdateHandler2">
+
+    <!-- Enables a transaction log, used for real-time get, durability, and
+         and solr cloud replica recovery.  The log can grow as big as
+         uncommitted changes to the index, so use of a hard autoCommit
+         is recommended (see below).
+         "dir" - the target directory for transaction logs, defaults to the
+                solr data directory.
+         "numVersionBuckets" - sets the number of buckets used to keep
+                track of max version values when checking for re-ordered
+                updates; increase this value to reduce the cost of
+                synchronizing access to version buckets during high-volume
+                indexing, this requires 8 bytes (long) * numVersionBuckets
+                of heap space per Solr core.
+    -->
+    <updateLog>
+      <str name="dir">${solr.ulog.dir:}</str>
+      <int name="numVersionBuckets">${solr.ulog.numVersionBuckets:65536}</int>
+    </updateLog>
+
+    <!-- AutoCommit
+
+         Perform a hard commit automatically under certain conditions.
+         Instead of enabling autoCommit, consider using "commitWithin"
+         when adding documents.
+
+         https://solr.apache.org/guide/solr/latest/indexing-guide/indexing-with-update-handlers.html
+
+         maxDocs - Maximum number of documents to add since the last
+                   commit before automatically triggering a new commit.
+
+         maxTime - Maximum amount of time in ms that is allowed to pass
+                   since a document was added before automatically
+                   triggering a new commit.
+         openSearcher - if false, the commit causes recent index changes
+           to be flushed to stable storage, but does not cause a new
+           searcher to be opened to make those changes visible.
+
+         If the updateLog is enabled, then it's highly recommended to
+         have some sort of hard autoCommit to limit the log size.
+      -->
+    <autoCommit>
+      <maxTime>${solr.autoCommit.maxTime:15000}</maxTime>
+      <openSearcher>false</openSearcher>
+    </autoCommit>
+
+    <!-- softAutoCommit is like autoCommit except it causes a
+         'soft' commit which only ensures that changes are visible
+         but does not ensure that data is synced to disk.  This is
+         faster and more near-realtime friendly than a hard commit.
+      -->
+
+    <autoSoftCommit>
+      <maxTime>${solr.autoSoftCommit.maxTime:3000}</maxTime>
+    </autoSoftCommit>
+
+    <!-- Update Related Event Listeners
+
+         Various IndexWriter related events can trigger Listeners to
+         take actions.
+
+         postCommit - fired after every commit or optimize command
+         postOptimize - fired after every optimize command
+      -->
+
+  </updateHandler>
+
+  <!-- IndexReaderFactory
+
+       Use the following format to specify a custom IndexReaderFactory,
+       which allows for alternate IndexReader implementations.
+
+       ** Experimental Feature **
+
+       Please note - Using a custom IndexReaderFactory may prevent
+       certain other features from working. The API to
+       IndexReaderFactory may change without warning or may even be
+       removed from future releases if the problems cannot be
+       resolved.
+
+
+       ** Features that may not work with custom IndexReaderFactory **
+
+       The ReplicationHandler assumes a disk-resident index. Using a
+       custom IndexReader implementation may cause incompatibility
+       with ReplicationHandler and may cause replication to not work
+       correctly. See SOLR-1366 for details.
+
+    -->
+  <!--
+  <indexReaderFactory name="IndexReaderFactory" class="package.class">
+    <str name="someArg">Some Value</str>
+  </indexReaderFactory >
+  -->
+
+  <!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+       Query section - these settings control query time things like caches
+       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
+  <query>
+
+    <!-- Maximum number of clauses allowed when parsing a boolean query string.
+
+         This limit only impacts boolean queries specified by a user as part of a query string,
+         and provides per-collection controls on how complex user specified boolean queries can
+         be.  Query strings that specify more clauses than this will result in an error.
+
+         If this per-collection limit is greater than the global `maxBooleanClauses` limit
+         specified in `solr.xml`, it will have no effect, as that setting also limits the size
+         of user specified boolean queries.
+      -->
+    <maxBooleanClauses>${solr.max.booleanClauses:1024}</maxBooleanClauses>
+
+    <!-- Solr Internal Query Caches
+         Starting with Solr 9.0 the default cache implementation used is CaffeineCache.
+    -->
+
+    <!-- Filter Cache
+
+         Cache used by SolrIndexSearcher for filters (DocSets),
+         unordered sets of *all* documents that match a query.  When a
+         new searcher is opened, its caches may be prepopulated or
+         "autowarmed" using data from caches in the old searcher.
+         autowarmCount is the number of items to prepopulate. For
+         CaffeineCache, the autowarmed items will be the most recently
+         accessed items.
+
+         Parameters:
+           class - the SolrCache implementation (CaffeineCache by default)
+           size - the maximum number of entries in the cache
+           initialSize - the initial capacity (number of entries) of
+               the cache.  (see java.util.HashMap)
+           autowarmCount - the number of entries to prepopulate from
+               an old cache.
+           maxRamMB - the maximum amount of RAM (in MB) that this cache is allowed
+                      to occupy. Note that when this option is specified, the size
+                      and initialSize parameters are ignored.
+      -->
+    <filterCache size="512"
+                 initialSize="512"
+                 autowarmCount="0"/>
+
+    <!-- Query Result Cache
+
+         Caches results of searches - ordered lists of document ids
+         (DocList) based on a query, a sort, and the range of documents requested.
+         Additional supported parameter by CaffeineCache:
+            maxRamMB - the maximum amount of RAM (in MB) that this cache is allowed
+                       to occupy
+      -->
+    <queryResultCache size="512"
+                      initialSize="512"
+                      autowarmCount="0"/>
+
+    <!-- Document Cache
+
+         Caches Lucene Document objects (the stored fields for each
+         document).  Since Lucene internal document ids are transient,
+         this cache will not be autowarmed.
+      -->
+    <documentCache size="512"
+                   initialSize="512"
+                   autowarmCount="0"/>
+
+    <!-- custom cache currently used by block join -->
+    <cache name="perSegFilter"
+           class="solr.CaffeineCache"
+           size="10"
+           initialSize="0"
+           autowarmCount="10"
+           regenerator="solr.NoOpRegenerator" />
+
+    <!-- Field Value Cache
+
+         Cache used to hold field values that are quickly accessible
+         by document id.  The fieldValueCache is created by default
+         even if not configured here.
+      -->
+    <!--
+       <fieldValueCache size="512"
+                        autowarmCount="128"
+                        />
+      -->
+
+    <!-- Custom Cache
+
+         Example of a generic cache.  These caches may be accessed by
+         name through SolrIndexSearcher.getCache(),cacheLookup(), and
+         cacheInsert().  The purpose is to enable easy caching of
+         user/application level data.  The regenerator argument should
+         be specified as an implementation of solr.CacheRegenerator
+         if autowarming is desired.
+      -->
+    <!--
+       <cache name="myUserCache"
+              class="solr.CaffeineCache"
+              size="4096"
+              initialSize="1024"
+              autowarmCount="1024"
+              regenerator="com.mycompany.MyRegenerator"
+              />
+      -->
+
+
+    <!-- Lazy Field Loading
+
+         If true, stored fields that are not requested will be loaded
+         lazily.  This can result in a significant speed improvement
+         if the usual case is to not load all stored fields,
+         especially if the skipped fields are large compressed text
+         fields.
+    -->
+    <enableLazyFieldLoading>true</enableLazyFieldLoading>
+
+    <!-- Use Filter For Sorted Query
+
+         A possible optimization that attempts to use a filter to
+         satisfy a search.  If the requested sort does not include
+         score, then the filterCache will be checked for a filter
+         matching the query. If found, the filter will be used as the
+         source of document ids, and then the sort will be applied to
+         that.
+
+         For most situations, this will not be useful unless you
+         frequently get the same search repeatedly with different sort
+         options, and none of them ever use "score"
+      -->
+    <!--
+       <useFilterForSortedQuery>true</useFilterForSortedQuery>
+      -->
+
+    <!-- Result Window Size
+
+         An optimization for use with the queryResultCache.  When a search
+         is requested, a superset of the requested number of document ids
+         are collected.  For example, if a search for a particular query
+         requests matching documents 10 through 19, and queryWindowSize is 50,
+         then documents 0 through 49 will be collected and cached.  Any further
+         requests in that range can be satisfied via the cache.
+      -->
+    <queryResultWindowSize>20</queryResultWindowSize>
+
+    <!-- Maximum number of documents to cache for any entry in the
+         queryResultCache.
+      -->
+    <queryResultMaxDocsCached>200</queryResultMaxDocsCached>
+
+  <!-- Use Filter For Sorted Query
+
+   A possible optimization that attempts to use a filter to
+   satisfy a search.  If the requested sort does not include
+   score, then the filterCache will be checked for a filter
+   matching the query. If found, the filter will be used as the
+   source of document ids, and then the sort will be applied to
+   that.
+
+   For most situations, this will not be useful unless you
+   frequently get the same search repeatedly with different sort
+   options, and none of them ever use "score"
+-->
+    <!--
+       <useFilterForSortedQuery>true</useFilterForSortedQuery>
+      -->
+
+    <!-- Query Related Event Listeners
+
+         Various IndexSearcher related events can trigger Listeners to
+         take actions.
+
+         newSearcher - fired whenever a new searcher is being prepared
+         and there is a current searcher handling requests (aka
+         registered).  It can be used to prime certain caches to
+         prevent long request times for certain requests.
+
+         firstSearcher - fired whenever a new searcher is being
+         prepared but there is no current registered searcher to handle
+         requests or to gain autowarming data from.
+
+
+      -->
+    <!-- QuerySenderListener takes an array of NamedList and executes a
+         local query request for each NamedList in sequence.
+      -->
+    <listener event="newSearcher" class="solr.QuerySenderListener">
+      <arr name="queries">
+        <!--
+           <lst><str name="q">solr</str><str name="sort">price asc</str></lst>
+           <lst><str name="q">rocks</str><str name="sort">weight asc</str></lst>
+          -->
+      </arr>
+    </listener>
+    <listener event="firstSearcher" class="solr.QuerySenderListener">
+      <arr name="queries">
+        <!--
+        <lst>
+          <str name="q">static firstSearcher warming in solrconfig.xml</str>
+        </lst>
+        -->
+      </arr>
+    </listener>
+
+    <!-- Use Cold Searcher
+
+         If a search request comes in and there is no current
+         registered searcher, then immediately register the still
+         warming searcher and use it.  If "false" then all requests
+         will block until the first searcher is done warming.
+      -->
+    <useColdSearcher>false</useColdSearcher>
+
+  </query>
+
+  <!-- Request Dispatcher
+
+       This section contains instructions for how the SolrDispatchFilter
+       should behave when processing requests for this SolrCore.
+
+    -->
+  <requestDispatcher>
+    <!-- Request Parsing
+
+         These settings indicate how Solr Requests may be parsed, and
+         what restrictions may be placed on the ContentStreams from
+         those requests
+
+         multipartUploadLimitInKB - specifies the max size (in KiB) of
+         Multipart File Uploads that Solr will allow in a Request.
+
+         formdataUploadLimitInKB - specifies the max size (in KiB) of
+         form data (application/x-www-form-urlencoded) sent via
+         POST. You can use POST to pass request parameters not
+         fitting into the URL.
+
+         addHttpRequestToContext - if set to true, it will instruct
+         the requestParsers to include the original HttpServletRequest
+         object in the context map of the SolrQueryRequest under the
+         key "httpRequest". It will not be used by any of the existing
+         Solr components, but may be useful when developing custom
+         plugins.
+
+    <requestParsers multipartUploadLimitInKB="-1"
+                    formdataUploadLimitInKB="-1"
+                    addHttpRequestToContext="false"/>
+      -->
+
+    <!-- HTTP Caching
+
+         Set HTTP caching related parameters (for proxy caches and clients).
+
+         The options below instruct Solr not to output any HTTP Caching
+         related headers
+      -->
+    <httpCaching never304="true" />
+    <!-- If you include a <cacheControl> directive, it will be used to
+         generate a Cache-Control header (as well as an Expires header
+         if the value contains "max-age=")
+
+         By default, no Cache-Control header is generated.
+
+         You can use the <cacheControl> option even if you have set
+         never304="true"
+      -->
+    <!--
+       <httpCaching never304="true" >
+         <cacheControl>max-age=30, public</cacheControl>
+       </httpCaching>
+      -->
+    <!-- To enable Solr to respond with automatically generated HTTP
+         Caching headers, and to response to Cache Validation requests
+         correctly, set the value of never304="false"
+
+         This will cause Solr to generate Last-Modified and ETag
+         headers based on the properties of the Index.
+
+         The following options can also be specified to affect the
+         values of these headers...
+
+         lastModFrom - the default value is "openTime" which means the
+         Last-Modified value (and validation against If-Modified-Since
+         requests) will all be relative to when the current Searcher
+         was opened.  You can change it to lastModFrom="dirLastMod" if
+         you want the value to exactly correspond to when the physical
+         index was last modified.
+
+         etagSeed="..." is an option you can change to force the ETag
+         header (and validation against If-None-Match requests) to be
+         different even if the index has not changed (ie: when making
+         significant changes to your config file)
+
+         (lastModifiedFrom and etagSeed are both ignored if you use
+         the never304="true" option)
+      -->
+    <!--
+       <httpCaching lastModifiedFrom="openTime"
+                    etagSeed="Solr">
+         <cacheControl>max-age=30, public</cacheControl>
+       </httpCaching>
+      -->
+  </requestDispatcher>
+
+  <!-- Request Handlers
+
+       https://solr.apache.org/guide/solr/latest/configuration-guide/requesthandlers-searchcomponents.html
+
+       Incoming queries will be dispatched to a specific handler by name based on the path specified in the request.
+
+       All handlers (Search Handlers, Update Request Handlers, and other specialized types) can have default parameters (defaults, appends and invariants).
+
+       Search Handlers can also (append, prepend or even replace) default or defined Search Components.
+
+       Update Request Handlers can leverage Update Request Processors to pre-process documents after they are loaded
+       and before they are indexed/stored.
+
+       Not all Request Handlers are defined in the solrconfig.xml, many are implicit.
+    -->
+
+  <!-- Primary search handler, expected by most clients, examples and UI frameworks -->
+  <requestHandler name="/select" class="solr.SearchHandler">
+    <lst name="defaults">
+      <str name="echoParams">explicit</str>
+      <int name="rows">10</int>
+    </lst>
+  </requestHandler>
+
+  <!-- A request handler that returns indented JSON by default -->
+  <requestHandler name="/query" class="solr.SearchHandler">
+    <lst name="defaults">
+      <str name="echoParams">explicit</str>
+      <str name="wt">json</str>
+      <str name="indent">true</str>
+    </lst>
+  </requestHandler>
+
+  <!-- Shared parameters for multiple Request Handlers -->
+  <!--<initParams path="/update/**,/query,/select,/spell">
+    <lst name="defaults">
+      <str name="df">_text_</str>
+    </lst>
+  </initParams>-->
+
+  <!-- Spell Check
+
+       The spell check component can return a list of alternative spelling
+       suggestions.
+
+       https://solr.apache.org/guide/solr/latest/query-guide/spell-checking.html
+    -->
+  <searchComponent name="spellcheck" class="solr.SpellCheckComponent">
+
+    <str name="queryAnalyzerFieldType">text_general</str>
+
+    <!-- Multiple "Spell Checkers" can be declared and used by this
+         component
+      -->
+
+    <!-- a spellchecker built from a field of the main index -->
+    <lst name="spellchecker">
+      <str name="name">default</str>
+      <str name="field">body</str>
+      <str name="classname">solr.DirectSolrSpellChecker</str>
+      <!-- the spellcheck distance measure used, the default is the internal levenshtein -->
+      <str name="distanceMeasure">internal</str>
+      <!-- minimum accuracy needed to be considered a valid spellcheck suggestion -->
+      <float name="accuracy">0.5</float>
+      <!-- the maximum #edits we consider when enumerating terms: can be 1 or 2 -->
+      <int name="maxEdits">2</int>
+      <!-- the minimum shared prefix when enumerating terms -->
+      <int name="minPrefix">1</int>
+      <!-- maximum number of inspections per result. -->
+      <int name="maxInspections">5</int>
+      <!-- minimum length of a query term to be considered for correction -->
+      <int name="minQueryLength">4</int>
+      <!-- maximum threshold of documents a query term can appear to be considered for correction -->
+      <float name="maxQueryFrequency">0.01</float>
+      <!-- uncomment this to require suggestions to occur in 1% of the documents
+        <float name="thresholdTokenFrequency">.01</float>
+      -->
+    </lst>
+
+    <!-- a spellchecker that can break or combine words.  See "/spell" handler below for usage -->
+    <!--
+    <lst name="spellchecker">
+      <str name="name">wordbreak</str>
+      <str name="classname">solr.WordBreakSolrSpellChecker</str>
+      <str name="field">name</str>
+      <str name="combineWords">true</str>
+      <str name="breakWords">true</str>
+      <int name="maxChanges">10</int>
+    </lst>
+    -->
+  </searchComponent>
+
+  <!-- A request handler for demonstrating the spellcheck component.
+
+       NOTE: This is purely as an example.  The whole purpose of the
+       SpellCheckComponent is to hook it into the request handler that
+       handles your normal user queries so that a separate request is
+       not needed to get suggestions.
+
+       IN OTHER WORDS, THERE IS REALLY GOOD CHANCE THE SETUP BELOW IS
+       NOT WHAT YOU WANT FOR YOUR PRODUCTION SYSTEM!
+
+       See https://solr.apache.org/guide/solr/latest/query-guide/spell-checking.html for details
+       on the request parameters.
+    -->
+  <requestHandler name="/spell" class="solr.SearchHandler" startup="lazy">
+    <lst name="defaults">
+      <!-- Solr will use suggestions from both the 'default' spellchecker
+           and from the 'wordbreak' spellchecker and combine them.
+           collations (re-written queries) can include a combination of
+           corrections from both spellcheckers -->
+      <str name="spellcheck.dictionary">default</str>
+      <str name="spellcheck">on</str>
+      <str name="spellcheck.extendedResults">true</str>
+      <str name="spellcheck.count">10</str>
+      <str name="spellcheck.alternativeTermCount">5</str>
+      <str name="spellcheck.maxResultsForSuggest">5</str>
+      <str name="spellcheck.collate">true</str>
+      <str name="spellcheck.collateExtendedResults">true</str>
+      <str name="spellcheck.maxCollationTries">10</str>
+      <str name="spellcheck.maxCollations">5</str>
+    </lst>
+    <arr name="last-components">
+      <str>spellcheck</str>
+    </arr>
+  </requestHandler>
+
+  <!-- Highlighting Component
+
+       https://solr.apache.org/guide/solr/latest/query-guide/highlighting.html
+    -->
+  <searchComponent class="solr.HighlightComponent" name="highlight">
+    <!-- note: the hl.method=unified highlighter is not configured here; it's completely configured
+    via parameters.  The below configuration supports hl.method=original and fastVector. -->
+    <highlighting>
+      <!-- Configure the standard fragmenter -->
+      <!-- This could most likely be commented out in the "default" case -->
+      <fragmenter name="gap"
+                  default="true"
+                  class="solr.highlight.GapFragmenter">
+        <lst name="defaults">
+          <int name="hl.fragsize">100</int>
+        </lst>
+      </fragmenter>
+
+      <!-- A regular-expression-based fragmenter
+           (for sentence extraction)
+        -->
+      <fragmenter name="regex"
+                  class="solr.highlight.RegexFragmenter">
+        <lst name="defaults">
+          <!-- slightly smaller fragsizes work better because of slop -->
+          <int name="hl.fragsize">70</int>
+          <!-- allow 50% slop on fragment sizes -->
+          <float name="hl.regex.slop">0.5</float>
+          <!-- a basic sentence pattern -->
+          <str name="hl.regex.pattern">[-\w ,/\n\&quot;&apos;]{20,200}</str>
+        </lst>
+      </fragmenter>
+
+      <!-- Configure the standard formatter -->
+      <formatter name="html"
+                 default="true"
+                 class="solr.highlight.HtmlFormatter">
+        <lst name="defaults">
+          <str name="hl.simple.pre"><![CDATA[<em>]]></str>
+          <str name="hl.simple.post"><![CDATA[</em>]]></str>
+        </lst>
+      </formatter>
+
+      <!-- Configure the standard encoder -->
+      <encoder name="html"
+               class="solr.highlight.HtmlEncoder" />
+
+      <!-- Configure the standard fragListBuilder -->
+      <fragListBuilder name="simple"
+                       class="solr.highlight.SimpleFragListBuilder"/>
+
+      <!-- Configure the single fragListBuilder -->
+      <fragListBuilder name="single"
+                       class="solr.highlight.SingleFragListBuilder"/>
+
+      <!-- Configure the weighted fragListBuilder -->
+      <fragListBuilder name="weighted"
+                       default="true"
+                       class="solr.highlight.WeightedFragListBuilder"/>
+
+      <!-- default tag FragmentsBuilder -->
+      <fragmentsBuilder name="default"
+                        default="true"
+                        class="solr.highlight.ScoreOrderFragmentsBuilder">
+        <!--
+        <lst name="defaults">
+          <str name="hl.multiValuedSeparatorChar">/</str>
+        </lst>
+        -->
+      </fragmentsBuilder>
+
+      <!-- multi-colored tag FragmentsBuilder -->
+      <fragmentsBuilder name="colored"
+                        class="solr.highlight.ScoreOrderFragmentsBuilder">
+        <lst name="defaults">
+          <str name="hl.tag.pre"><![CDATA[
+               <b style="background:yellow">,<b style="background:lawgreen">,
+               <b style="background:aquamarine">,<b style="background:magenta">,
+               <b style="background:palegreen">,<b style="background:coral">,
+               <b style="background:wheat">,<b style="background:khaki">,
+               <b style="background:lime">,<b style="background:deepskyblue">]]></str>
+          <str name="hl.tag.post"><![CDATA[</b>]]></str>
+        </lst>
+      </fragmentsBuilder>
+
+      <boundaryScanner name="default"
+                       default="true"
+                       class="solr.highlight.SimpleBoundaryScanner">
+        <lst name="defaults">
+          <str name="hl.bs.maxScan">10</str>
+          <str name="hl.bs.chars">.,!? &#9;&#10;&#13;</str>
+        </lst>
+      </boundaryScanner>
+
+      <boundaryScanner name="breakIterator"
+                       class="solr.highlight.BreakIteratorBoundaryScanner">
+        <lst name="defaults">
+          <!-- type should be one of CHARACTER, WORD(default), LINE and SENTENCE -->
+          <str name="hl.bs.type">WORD</str>
+          <!-- language and country are used when constructing Locale object.  -->
+          <!-- And the Locale object will be used when getting instance of BreakIterator -->
+          <str name="hl.bs.language">en</str>
+          <str name="hl.bs.country">US</str>
+        </lst>
+      </boundaryScanner>
+    </highlighting>
+  </searchComponent>
+
+  <!-- Update Request Processors
+       https://solr.apache.org/guide/solr/latest/configuration-guide/update-request-processors.html
+
+       Chains or individual Update Request Processor Factories can be declared and referenced
+       to preprocess documents sent to Update Request Handlers.
+    -->
+
+  <!-- Add unknown fields to the schema
+
+       Field type guessing update request processors that will
+       attempt to parse string-typed field values as Booleans, Longs,
+       Doubles, or Dates, and then add schema fields with the guessed
+       field types Text content will be indexed as "text_general" as
+       well as a copy to a plain string version in *_str.
+       See the updateRequestProcessorChain defined later for the order they are executed in.
+
+       These require that the schema is both managed and mutable, by
+       declaring schemaFactory as ManagedIndexSchemaFactory, with
+       mutable specified as true.
+
+       See https://solr.apache.org/guide/solr/latest/indexing-guide/schemaless-mode.html for further explanation.
+
+  -->
+
+  <updateProcessor class="solr.UUIDUpdateProcessorFactory" name="uuid"/>
+  <updateProcessor class="solr.RemoveBlankFieldUpdateProcessorFactory" name="remove-blank"/>
+  <updateProcessor class="solr.FieldNameMutatingUpdateProcessorFactory" name="field-name-mutating">
+    <str name="pattern">[^\w-\.]</str>
+    <str name="replacement">_</str>
+  </updateProcessor>
+  <updateProcessor class="solr.ParseBooleanFieldUpdateProcessorFactory" name="parse-boolean"/>
+  <updateProcessor class="solr.ParseLongFieldUpdateProcessorFactory" name="parse-long"/>
+  <updateProcessor class="solr.ParseDoubleFieldUpdateProcessorFactory" name="parse-double"/>
+  <updateProcessor class="solr.ParseDateFieldUpdateProcessorFactory" name="parse-date">
+    <arr name="format">
+      <str>yyyy-MM-dd['T'[HH:mm[:ss[.SSS]][z</str>
+      <str>yyyy-MM-dd['T'[HH:mm[:ss[,SSS]][z</str>
+      <str>yyyy-MM-dd HH:mm[:ss[.SSS]][z</str>
+      <str>yyyy-MM-dd HH:mm[:ss[,SSS]][z</str>
+      <str>[EEE, ]dd MMM yyyy HH:mm[:ss] z</str>
+      <str>EEEE, dd-MMM-yy HH:mm:ss z</str>
+      <str>EEE MMM ppd HH:mm:ss [z ]yyyy</str>
+    </arr>
+  </updateProcessor>
+  <updateProcessor class="solr.AddSchemaFieldsUpdateProcessorFactory" name="add-schema-fields">
+    <lst name="typeMapping">
+      <str name="valueClass">java.lang.String</str>
+      <str name="fieldType">text_general</str>
+      <lst name="copyField">
+        <str name="dest">*_str</str>
+        <int name="maxChars">256</int>
+      </lst>
+      <!-- Use as default mapping instead of defaultFieldType -->
+      <bool name="default">true</bool>
+    </lst>
+    <lst name="typeMapping">
+      <str name="valueClass">java.lang.Boolean</str>
+      <str name="fieldType">booleans</str>
+    </lst>
+    <lst name="typeMapping">
+      <str name="valueClass">java.util.Date</str>
+      <str name="fieldType">pdates</str>
+    </lst>
+    <lst name="typeMapping">
+      <str name="valueClass">java.lang.Long</str>
+      <str name="valueClass">java.lang.Integer</str>
+      <str name="fieldType">plongs</str>
+    </lst>
+    <lst name="typeMapping">
+      <str name="valueClass">java.lang.Number</str>
+      <str name="fieldType">pdoubles</str>
+    </lst>
+  </updateProcessor>
+
+  <!-- The update.autoCreateFields property can be turned to false to disable schemaless mode -->
+  <updateRequestProcessorChain name="add-unknown-fields-to-the-schema" default="false"
+           processor="uuid,remove-blank,field-name-mutating,parse-boolean,parse-long,parse-double,parse-date,add-schema-fields">
+    <processor class="solr.LogUpdateProcessorFactory"/>
+    <processor class="solr.DistributedUpdateProcessorFactory"/>
+    <processor class="solr.RunUpdateProcessorFactory"/>
+  </updateRequestProcessorChain>
+
+  <!-- Deduplication
+
+       An example dedup update request processor chain that creates the "id" field
+       on the fly based on the hash code of some other fields.  This
+       example has overwriteDupes set to false since we are using the
+       id field as the signatureField and Solr will maintain
+       uniqueness based on that anyway.
+
+    -->
+  <!--
+     <updateRequestProcessorChain name="dedupe">
+       <processor class="solr.processor.SignatureUpdateProcessorFactory">
+         <bool name="enabled">true</bool>
+         <str name="signatureField">id</str>
+         <str name="fields">name,features,cat</str>
+         <str name="signatureClass">solr.processor.Lookup3Signature</str>
+       </processor>
+       <processor class="solr.LogUpdateProcessorFactory" />
+       <processor class="solr.RunUpdateProcessorFactory" />
+     </updateRequestProcessorChain>
+    -->
+
+  <!-- Response Writers
+
+       https://solr.apache.org/guide/solr/latest/query-guide/response-writers.html
+
+       Request responses will be written using the writer specified by
+       the 'wt' request parameter matching the name of a registered
+       writer.
+
+       The "default" writer is the default and will be used if 'wt' is
+       not specified in the request.
+    -->
+  <!-- The following response writers are implicitly configured unless
+       overridden...
+    -->
+  <!--
+     <queryResponseWriter name="xml"
+                          default="true"
+                          class="solr.XMLResponseWriter" />
+     <queryResponseWriter name="json" class="solr.JSONResponseWriter"/>
+     <queryResponseWriter name="python" class="solr.PythonResponseWriter"/>
+     <queryResponseWriter name="ruby" class="solr.RubyResponseWriter"/>
+     <queryResponseWriter name="php" class="solr.PHPResponseWriter"/>
+     <queryResponseWriter name="phps" class="solr.PHPSerializedResponseWriter"/>
+     <queryResponseWriter name="csv" class="solr.CSVResponseWriter"/>
+     <queryResponseWriter name="schema.xml" class="solr.SchemaXmlResponseWriter"/>
+    -->
+
+  <!-- Overriding the content-type of the response writer.
+       For example, Default content-type of JSON is application/json. This can be overridden to
+       text/plain so that response is easy to read in *any* browser.
+   -->
+  <!--
+     <queryResponseWriter name="json" class="solr.JSONResponseWriter">
+        <str name="content-type">text/plain; charset=UTF-8</str>
+      </queryResponseWriter>
+   -->
+
+  <!-- Query Parsers
+
+       https://solr.apache.org/guide/solr/latest/query-guide/query-syntax-and-parsers.html
+
+       Multiple QParserPlugins can be registered by name, and then
+       used in either the "defType" param for the QueryComponent (used
+       by SearchHandler) or in LocalParams
+    -->
+  <!-- example of registering a query parser -->
+  <!--
+     <queryParser name="myparser" class="com.mycompany.MyQParserPlugin"/>
+    -->
+
+  <!-- Function Parsers
+
+       https://solr.apache.org/guide/solr/latest/query-guide/function-queries.html
+
+       Multiple ValueSourceParsers can be registered by name, and then
+       used as function names when using the "func" QParser.
+    -->
+  <!-- example of registering a custom function parser  -->
+  <!--
+     <valueSourceParser name="myfunc"
+                        class="com.mycompany.MyValueSourceParser" />
+    -->
+
+
+  <!-- Document Transformers
+       https://solr.apache.org/guide/solr/latest/query-guide/document-transformers.html
+    -->
+  <!--
+     Could be something like:
+     <transformer name="db" class="com.mycompany.LoadFromDatabaseTransformer" >
+       <int name="connection">jdbc://....</int>
+     </transformer>
+
+     To add a constant value to all docs, use:
+     <transformer name="mytrans2" class="org.apache.solr.response.transform.ValueAugmenterFactory" >
+       <int name="value">5</int>
+     </transformer>
+
+     If you want the user to still be able to change it with _value:something_ use this:
+     <transformer name="mytrans3" class="org.apache.solr.response.transform.ValueAugmenterFactory" >
+       <double name="defaultValue">5</double>
+     </transformer>
+
+      If you are using the QueryElevationComponent, you may wish to mark documents that get boosted.  The
+      EditorialMarkerFactory will do exactly that:
+     <transformer name="qecBooster" class="org.apache.solr.response.transform.EditorialMarkerFactory" />
+    -->
+</config>

From 4f4fe9146612e7a12350611de7b525a66b7673ea Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 28 Nov 2023 18:41:07 +1300
Subject: [PATCH 136/166] Update URL of CLOCKUP WIKI

---
 src/extwiki-data.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index ead16966..38e8a297 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -423,7 +423,7 @@
    (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
    (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)
    (extwiki^ '("chivalry" "chivalry2") 'empty 'empty "Official Chivalry Wiki" "https://chivalry.wiki.gg/wiki/Chivalry_Wiki" #f #f)
-   (extwiki^ '("clockup") 'empty 'empty "CLOCKUP WIKI" "https://en.clockupwiki.org/wiki/CLOCKUP_WIKI:Plan" #f #f)
+   (extwiki^ '("clockup") 'empty 'empty "CLOCKUP WIKI" "https://en.clockup.wiki/wiki/Main_Page" #f #f)
    (extwiki^ '("half-life") 'empty 'empty "Combine OverWiki" "https://combineoverwiki.net/wiki/Main_Page" #f #f)
    (extwiki^ '("coromon") 'empty 'empty "Coromon Wiki" "https://coromon.wiki.gg/wiki/Coromon_Wiki" #f #f)
    (extwiki^ '("cosmoteer") 'empty 'empty "Cosmoteer Wiki" "https://cosmoteer.wiki.gg/wiki/Cosmoteer_Wiki" #f #f)

From 4bf756bc9c3a855e7a48754dcd92066cd86c990c Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 5 Dec 2023 09:58:07 +1300
Subject: [PATCH 137/166] Solr schema title can store numbers

---
 archiver/solr-config-dir/schema.xml | 39 +++++++++++++----------------
 1 file changed, 17 insertions(+), 22 deletions(-)

diff --git a/archiver/solr-config-dir/schema.xml b/archiver/solr-config-dir/schema.xml
index 692dfe1a..a7bfa9ee 100644
--- a/archiver/solr-config-dir/schema.xml
+++ b/archiver/solr-config-dir/schema.xml
@@ -83,40 +83,38 @@ https://solr.apache.org/guide/solr/latest/indexing-guide/document-analysis.html#
 
   <fieldType name="text_prefix" class="solr.TextField" positionIncrementGap="100">
     <analyzer type="index">
-      <tokenizer class="solr.LowerCaseTokenizerFactory"/>
+      <tokenizer name="standard"/>
+      <filter name="lowercase"/>
       <filter class="solr.EdgeNGramFilterFactory" minGramSize="1" maxGramSize="20" />
     </analyzer>
     <analyzer type="query">
-      <tokenizer class="solr.LowerCaseTokenizerFactory"/>
+      <tokenizer name="standard"/>
+      <filter name="lowercase"/>
     </analyzer>
   </fieldType>
 
-  <fieldType name="text_general" class="solr.TextField" positionIncrementGap="100" multiValued="true">
+  <fieldType name="text_en_splitting_numbers" class="solr.TextField" positionIncrementGap="100" multiValued="true">
     <analyzer type="index">
-      <tokenizer name="standard"/>
-      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt" />
-      <!-- in this example, we will only use synonyms at query time
-           <filter name="synonymGraph" synonyms="index_synonyms.txt" ignoreCase="true" expand="false"/>
-           <filter name="flattenGraph"/>
-      -->
+      <tokenizer name="whitespace"/>
+      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt"/>
+      <filter name="wordDelimiterGraph" generateWordParts="1" generateNumberParts="1" catenateWords="1" catenateNumbers="1" catenateAll="0" splitOnCaseChange="1"/>
       <filter name="lowercase"/>
+      <filter name="porterStem"/>
+      <filter name="flattenGraph" />
     </analyzer>
     <analyzer type="query">
-      <tokenizer name="standard"/>
-      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt" />
+      <tokenizer name="whitespace"/>
+      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt"/>
+      <filter name="wordDelimiterGraph" generateWordParts="1" generateNumberParts="1" catenateWords="0" catenateNumbers="0" catenateAll="0" splitOnCaseChange="1"/>
       <filter name="lowercase"/>
+      <filter name="porterStem"/>
     </analyzer>
   </fieldType>
 
   <fieldType name="text_en_splitting" class="solr.TextField" positionIncrementGap="100" autoGeneratePhraseQueries="true">
     <analyzer type="index">
       <tokenizer name="whitespace"/>
-      <!-- Case insensitive stop word removal.
-      -->
-      <filter name="stop"
-              ignoreCase="true"
-              words="lang/stopwords_en.txt"
-              />
+      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt"/>
       <filter name="wordDelimiterGraph" generateWordParts="1" generateNumberParts="1" catenateWords="1" catenateNumbers="1" catenateAll="0" splitOnCaseChange="1"/>
       <filter name="lowercase"/>
       <filter class="solr.PatternReplaceFilterFactory" pattern="(\d{2,})" replacement="" replace="all" />
@@ -125,10 +123,7 @@ https://solr.apache.org/guide/solr/latest/indexing-guide/document-analysis.html#
     </analyzer>
     <analyzer type="query">
       <tokenizer name="whitespace"/>
-      <filter name="stop"
-              ignoreCase="true"
-              words="lang/stopwords_en.txt"
-              />
+      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt"/>
       <filter name="wordDelimiterGraph" generateWordParts="1" generateNumberParts="1" catenateWords="0" catenateNumbers="0" catenateAll="0" splitOnCaseChange="1"/>
       <filter name="lowercase"/>
       <filter name="porterStem"/>
@@ -137,7 +132,7 @@ https://solr.apache.org/guide/solr/latest/indexing-guide/document-analysis.html#
 
   <!-- Fields -->
   <field name="id" type="string" indexed="true" required="true" />
-  <field name="title" type="text_en_splitting" indexed="true" stored="true" required="true" />
+  <field name="title" type="text_en_splitting_numbers" indexed="true" stored="true" required="true" />
   <field name="body" type="text_en_splitting" indexed="true" stored="true" required="true" />
   <field name="table" type="text_en_splitting" indexed="true" stored="false" required="true" />
   <field name="len" type="pint" indexed="false" stored="true" required="true" />

From 76eaaa0a4793678428d9d24d49e7efb932cb2901 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 5 Dec 2023 10:12:59 +1300
Subject: [PATCH 138/166] Solr schema add back text_general

---
 archiver/solr-config-dir/schema.xml | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/archiver/solr-config-dir/schema.xml b/archiver/solr-config-dir/schema.xml
index a7bfa9ee..d82a24c6 100644
--- a/archiver/solr-config-dir/schema.xml
+++ b/archiver/solr-config-dir/schema.xml
@@ -93,6 +93,19 @@ https://solr.apache.org/guide/solr/latest/indexing-guide/document-analysis.html#
     </analyzer>
   </fieldType>
 
+  <fieldType name="text_general" class="solr.TextField" positionIncrementGap="100" multiValued="true">
+    <analyzer type="index">
+      <tokenizer name="standard"/>
+      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt" />
+      <filter name="lowercase"/>
+    </analyzer>
+    <analyzer type="query">
+      <tokenizer name="standard"/>
+      <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt" />
+      <filter name="lowercase"/>
+    </analyzer>
+  </fieldType>
+
   <fieldType name="text_en_splitting_numbers" class="solr.TextField" positionIncrementGap="100" multiValued="true">
     <analyzer type="index">
       <tokenizer name="whitespace"/>

From 61c304cf41880cc50cf0d69e754389ac0b17d972 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 6 Dec 2023 13:08:20 +1300
Subject: [PATCH 139/166] Implement Solr search provider

---
 src/config.rkt                 |  1 +
 src/page-search.rkt            | 79 ++++++++++-------------------
 src/search-provider-fandom.rkt | 63 ++++++++++++++++++++++++
 src/search-provider-solr.rkt   | 90 ++++++++++++++++++++++++++++++++++
 static/main.css                | 13 +++++
 5 files changed, 192 insertions(+), 54 deletions(-)
 create mode 100644 src/search-provider-fandom.rkt
 create mode 100644 src/search-provider-solr.rkt

diff --git a/src/config.rkt b/src/config.rkt
index 2158e776..fec546b9 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -47,6 +47,7 @@
     (feature_offline::enabled . "false")
     (feature_offline::format . "json.gz")
     (feature_offline::only . "false")
+    (feature_offline::search . "fandom")
 
     (access_log::enabled . "false")
 
diff --git a/src/page-search.rkt b/src/page-search.rkt
index e4960d8e..4fb76f5f 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -13,6 +13,8 @@
          "application-globals.rkt"
          "config.rkt"
          "data.rkt"
+         "search-provider-fandom.rkt"
+         "search-provider-solr.rkt"
          "../lib/syntax.rkt"
          "../lib/thread-utils.rkt"
          "../lib/url-utils.rkt"
@@ -22,47 +24,22 @@
 (provide
  page-search)
 
-(module+ test
-  (require rackunit
-           "test-utils.rkt")
-  (define search-json-data
-    '#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
+(define search-providers
+  (hash "fandom" generate-results-content-fandom
+        "solr" generate-results-content-solr))
 
 ;; this takes the info we gathered from fandom and makes the big fat x-expression page
-(define (generate-results-page req dest-url wikiname query data #:siteinfo [siteinfo #f])
-  (define search-results (jp "/query/search" data))
+(define (generate-results-page req source-url wikiname query results-content #:siteinfo [siteinfo #f])
   ;; this is *another* helper that builds the wiki page UI and lets me put the search results (or whatever else) in the middle
   (generate-wiki-page
    ;; so I provide my helper function with the necessary context...
    #:req req
-   #:source-url dest-url
+   #:source-url source-url
    #:wikiname wikiname
    #:title query
    #:siteinfo siteinfo
    ;; and here's the actual results to display in the wiki page layout
-   `(div (@ (class "mw-parser-output"))
-         ;; header before the search results showing how many we found
-         (p ,(format "~a results found for " (length search-results))
-            (strong ,query))
-         ;; *u*nordered *l*ist of matching search results
-         (ul ,@(map
-                (λ (result) ;; for each result, run this code...
-                  (let* ([title (jp "/title" result)]
-                         [page-path (page-title->path title)]
-                         [timestamp (jp "/timestamp" result)]
-                         [wordcount (jp "/wordcount" result)]
-                         [size (jp "/size" result)])
-                    ;; and make this x-expression...
-                    `(li (@ (class "my-result"))
-                         (a (@ (class "my-result__link") (href ,(format "/~a/wiki/~a" wikiname page-path))) ; using unquote to insert the result page URL
-                            ,title) ; using unquote to insert the result page title
-                         (div (@ (class "my-result__info")) ; constructing the line under the search result
-                              "last edited "
-                              (time (@ (datetime ,timestamp)) ,(list-ref (string-split timestamp "T") 0))
-                              ,(format ", ~a words, ~a kb"
-                                       wordcount
-                                       (exact->inexact (/ (round (/ size 100)) 10)))))))
-                search-results)))))
+   results-content))
 
 ;; will be called when the web browser asks to load the page
 (define (page-search req)
@@ -71,34 +48,31 @@
    ;; the URL will look like "/minecraft/wiki/Special:Search?q=Spawner"
    ;; grab the first part to use as the wikiname, in this case, "minecraft"
    (define wikiname (path/param-path (first (url-path (request-uri req)))))
+   ;; grab a dict of url search params
+   (define params (url-query (request-uri req)))
    ;; grab the part after ?q= which is the search terms
-   (define query (dict-ref (url-query (request-uri req)) 'q #f))
-   ;; constructing the URL where I want to get fandom data from...
-   (define origin (format "https://~a.fandom.com" wikiname))
-   ;; the dest-URL will look something like https://minecraft.fandom.com/api.php?action=query&list=search&srsearch=Spawner&formatversion=2&format=json
-   (define dest-url
-     (format "~a/api.php?~a"
-             origin
-             (params->query `(("action" . "query")
-                              ("list" . "search")
-                              ("srsearch" . ,query)
-                              ("formatversion" . "2")
-                              ("format" . "json")))))
+   (define query (dict-ref params 'q #f))
+   ;; figure out which search provider we're going to use
+   (define search-provider (hash-ref search-providers (config-get 'feature_offline::search)))
 
-   ;; simultaneously get the search results from the fandom API, as well as information about the wiki as a whole (its license, icon, name)
-   (define-values (dest-res siteinfo)
+   ;; external special:search url to link at the bottom of the page as the upstream source
+   (define external-search-url
+     (format "https://~a.fandom.com/wiki/Special:Search?~a"
+             wikiname
+             (params->query `(("query" . ,query)
+                              ("search" . "internal")))))
+
+   ;; simultaneously get the search results, as well as information about the wiki as a whole (its license, icon, name)
+   (define-values (results-content siteinfo)
      (thread-values
       (λ ()
-        (log-outgoing dest-url)
-        (easy:get dest-url #:timeouts timeouts)) ;; HTTP request to dest-url for search results
+        (search-provider wikiname query params)) ;; call the search provider (see file "search-provider-fandom.rkt")
       (λ ()
         (siteinfo-fetch wikiname)))) ;; helper function in another file to get information about the wiki
 
-   ;; search results are a JSON string. parse JSON into racket data structures
-   (define data (easy:response-json dest-res))
    ;; calling my generate-results-page function with the information so far in order to get a big fat x-expression
    ;; big fat x-expression goes into the body variable
-   (define body (generate-results-page req dest-url wikiname query data #:siteinfo siteinfo))
+   (define body (generate-results-page req external-search-url wikiname query results-content #:siteinfo siteinfo))
    ;; error checking
    (when (config-true? 'debug)
      ; used for its side effects
@@ -110,7 +84,4 @@
     #:headers (build-headers always-headers)
     (λ (out)
       (write-html body out)))))
-(module+ test
-  (parameterize ([(config-parameter 'feature_offline::only) "false"])
-    (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
-                                      (generate-results-page test-req "" "test" "Gacha" search-json-data))))))
+
diff --git a/src/search-provider-fandom.rkt b/src/search-provider-fandom.rkt
new file mode 100644
index 00000000..945b111e
--- /dev/null
+++ b/src/search-provider-fandom.rkt
@@ -0,0 +1,63 @@
+#lang racket/base
+(require racket/string
+         (prefix-in easy: net/http-easy)
+         "application-globals.rkt"
+         "config.rkt"
+         "../lib/url-utils.rkt"
+         "whole-utils.rkt"
+         "../lib/xexpr-utils.rkt")
+
+(provide
+ generate-results-content-fandom)
+
+(module+ test
+  (require rackunit
+           "test-utils.rkt")
+  (define search-json-data
+    '#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
+
+(define (generate-results-content-fandom wikiname query params)
+  ;; constructing the URL where I want to get fandom data from...
+  (define origin (format "https://~a.fandom.com" wikiname))
+  ;; the dest-URL will look something like https://minecraft.fandom.com/api.php?action=query&list=search&srsearch=Spawner&formatversion=2&format=json
+  (define dest-url
+    (format "~a/api.php?~a"
+            origin
+            (params->query `(("action" . "query")
+                             ("list" . "search")
+                             ("srsearch" . ,query)
+                             ("formatversion" . "2")
+                             ("format" . "json")))))
+  ;; HTTP request to dest-url for search results
+  (log-outgoing dest-url)
+  (define res (easy:get dest-url #:timeouts timeouts))
+  (define json (easy:response-json res))
+  (define search-results (jp "/query/search" json))
+
+  ;; generate content for display in the wiki page layout
+  `(div (@ (class "mw-parser-output"))
+        ;; header before the search results showing how many we found
+        (p ,(format "~a results found for " (length search-results))
+           (strong ,query))
+        ;; *u*nordered *l*ist of matching search results
+        (ul ,@(for/list ([result search-results])
+                (let* ([title (jp "/title" result)]
+                       [page-path (page-title->path title)]
+                       [timestamp (jp "/timestamp" result)]
+                       [wordcount (jp "/wordcount" result)]
+                       [size (jp "/size" result)])
+                  ;; and make this x-expression...
+                  `(li (@ (class "my-result"))
+                       (a (@ (class "my-result__link") (href ,(format "/~a/wiki/~a" wikiname page-path))) ; using unquote to insert the result page URL
+                          ,title) ; using unquote to insert the result page title
+                       (div (@ (class "my-result__info")) ; constructing the line under the search result
+                            "last edited "
+                            (time (@ (datetime ,timestamp)) ,(list-ref (string-split timestamp "T") 0))
+                            ,(format ", ~a words, ~a kb"
+                                     wordcount
+                                     (exact->inexact (/ (round (/ size 100)) 10))))))))))
+
+(module+ test
+  (parameterize ([(config-parameter 'feature_offline::only) "false"])
+    (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
+                                      (generate-results-content-fandom test-req "" "test" "Gacha" search-json-data))))))
diff --git a/src/search-provider-solr.rkt b/src/search-provider-solr.rkt
new file mode 100644
index 00000000..fbd77deb
--- /dev/null
+++ b/src/search-provider-solr.rkt
@@ -0,0 +1,90 @@
+#lang racket/base
+(require racket/dict
+         racket/string
+         (prefix-in easy: net/http-easy)
+         "application-globals.rkt"
+         "../lib/html-parsing/main.rkt"
+         "../lib/url-utils.rkt"
+         "whole-utils.rkt"
+         "../lib/xexpr-utils.rkt")
+
+(provide
+ generate-results-content-solr)
+
+(struct result^ (hl-title hl-body kb words page-path) #:transparent)
+
+(define (generate-results-content-solr wikiname query params)
+  ;; grab things from params that would modify the search
+  (define op (if (equal? (dict-ref params 'op #f) "or") '("or" . "OR") '("and" . "AND")))
+  (define sort (if (equal? (dict-ref params 'sort #f) "len") '("len" . "len desc") '("relevance" . "score desc")))
+
+  ;; the dest-URL will look something like http://localhost:8983/solr/bloons/select?defType=edismax&fl=id%2Clen&hl.defaultSummary=true&hl.encoder=html&hl.fl=title%2Cbody&hl.method=unified&hl.tag.post=%3C%2Fmark%3E&hl.tag.pre=%3Cmark%3E&hl=true&indent=true&q.op=AND&q=blo&qf=title_prefix%20title%5E2.0%20body%20table%5E0.3&useParams=
+  (define dest-url
+    (format "http://localhost:8983/solr/~a/select?~a"
+            wikiname
+            (params->query `(("defType" . "edismax")
+                             ("q" . ,query)
+                             ("q.op" . ,(cdr op))
+                             ("qf" . "title_prefix title^2.0 body table^0.3")
+                             ("hl" . "true")
+                             ("hl.method" . "unified")
+                             ("hl.defaultSummary" . "true")
+                             ("hl.fl" . "title,body")
+                             ("fl" . "id,len,title")
+                             ("hl.encoder" . "html")
+                             ("hl.tag.pre" . "<mark>")
+                             ("hl.tag.post" . "</mark>")
+                             ("sort" . ,(cdr sort))))))
+  ;; HTTP request to dest-url for search results
+  (log-outgoing dest-url)
+  (define res (easy:get dest-url #:timeouts timeouts))
+  (define json (easy:response-json res))
+
+  ;; build result objects
+  (define highlighting (jp "/highlighting" json))
+  (define results
+    (for/list ([doc (jp "/response/docs" json)])
+      (define id (jp "/id" doc))
+      (define len (jp "/len" doc))
+      (define title (jp "/title" doc))
+      (define page-path (page-title->path title))
+      (define kb (exact->inexact (/ (round (/ len 100)) 10))) ; divide by 1000 and round to nearest 0.1
+      (define words (* (round (/ len 60)) 10)) ; divide by 6 and round to nearest 10
+      (define hl (hash-ref highlighting (string->symbol id)))
+      (define hl-title (cdr (html->xexp (jp "/title/0" hl))))
+      (define hl-body (cdr (html->xexp (string-trim (jp "/body/0" hl)))))
+      (result^ hl-title hl-body kb words page-path)))
+
+  (define qtime (exact->inexact (/ (round (/ (jp "/responseHeader/QTime" json) 10)) 100)))
+
+  (define (value-selected? value current-value)
+    (append
+     `((value ,value))
+     (if (equal? value current-value)
+         `((selected))
+         `())))
+
+  ;; generate content for display in the wiki page layout
+  `(div (@ (class "mw-parser-output"))
+        (form (@ (class "my-result__filter"))
+              (input (@ (type "hidden") (name "q") (value ,query)))
+              (select (@ (name "op"))
+                      (option (@ ,@(value-selected? "and" (car op))) "All words must match")
+                      (option (@ ,@(value-selected? "or" (car op))) "Some words must match"))
+              (select (@ (name "sort"))
+                      (option (@ ,@(value-selected? "relevance" (car sort))) "Relevant articles")
+                      (option (@ ,@(value-selected? "len" (car sort))) "Wordiest articles"))
+              (button "Filter results"))
+        ;; header before the search results showing how many we found
+        (p ,(format "~a results (~a seconds) found for " (jp "/response/numFound" json) qtime)
+           (strong ,query))
+        ;; *u*nordered *l*ist of matching search results
+        (ul ,@(for/list ([result results])
+                `(li (@ (class "my-result"))
+                     (a (@ (class "my-result__link") (href ,(format "/~a/wiki/~a" wikiname (result^-page-path result)))) ; url
+                        ,@(result^-hl-title result)) ; title
+                     (p (@ (class "my-result__description")) ,@(result^-hl-body result)) ; result preview
+                     (div (@ (class "my-result__info")) ; line under the search result
+                          ,(format "~a words, ~a kb of readable stuff"
+                                   (result^-words result)
+                                   (result^-kb result))))))))
diff --git a/static/main.css b/static/main.css
index cb32df5a..e3c0070b 100644
--- a/static/main.css
+++ b/static/main.css
@@ -249,11 +249,24 @@ a.ext-audiobutton { /* see hearthstone/wiki/Diablo_(Duels_hero) */
 .my-result__link {
     font-size: 1.2em;
 }
+.my-result__description {
+    font-size: 0.8em;
+    white-space: pre-line;
+    margin-left: 1.2em;
+}
+.my-result mark {
+    background: rgba(255, 255, 0, 0.4);
+}
 .my-result__info {
     font-size: 0.8em;
     color: var(--theme-page-text-color--hover);
     margin-left: 1.2em;
 }
+.my-result__filter {
+    display: grid;
+    grid-template-columns: auto auto auto 1fr;
+    grid-gap: 8px;
+}
 
 /* (breezewiki) search suggestions */
 .bw-search-form {

From e5e38762547a500a7bc547cc1721eb17dc88f3bb Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 6 Dec 2023 16:02:43 +1300
Subject: [PATCH 140/166] Solr managed schema sucks

---
 src/search-provider-solr.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/search-provider-solr.rkt b/src/search-provider-solr.rkt
index fbd77deb..ed9fb7b0 100644
--- a/src/search-provider-solr.rkt
+++ b/src/search-provider-solr.rkt
@@ -46,7 +46,8 @@
     (for/list ([doc (jp "/response/docs" json)])
       (define id (jp "/id" doc))
       (define len (jp "/len" doc))
-      (define title (jp "/title" doc))
+      (define title (let ([t (jp "/title" doc)])
+                      (if (list? t) (car t) t)))
       (define page-path (page-title->path title))
       (define kb (exact->inexact (/ (round (/ len 100)) 10))) ; divide by 1000 and round to nearest 0.1
       (define words (* (round (/ len 60)) 10)) ; divide by 6 and round to nearest 10

From aea627b27f794c3a219d335f363130f16cdb0791 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 6 Dec 2023 16:35:07 +1300
Subject: [PATCH 141/166] Solr fix multivalued in schema

---
 archiver/solr-config-dir/schema.xml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/archiver/solr-config-dir/schema.xml b/archiver/solr-config-dir/schema.xml
index d82a24c6..c1eae9a8 100644
--- a/archiver/solr-config-dir/schema.xml
+++ b/archiver/solr-config-dir/schema.xml
@@ -106,7 +106,7 @@ https://solr.apache.org/guide/solr/latest/indexing-guide/document-analysis.html#
     </analyzer>
   </fieldType>
 
-  <fieldType name="text_en_splitting_numbers" class="solr.TextField" positionIncrementGap="100" multiValued="true">
+  <fieldType name="text_en_number_splitting" class="solr.TextField" positionIncrementGap="100">
     <analyzer type="index">
       <tokenizer name="whitespace"/>
       <filter name="stop" ignoreCase="true" words="lang/stopwords_en.txt"/>
@@ -145,7 +145,7 @@ https://solr.apache.org/guide/solr/latest/indexing-guide/document-analysis.html#
 
   <!-- Fields -->
   <field name="id" type="string" indexed="true" required="true" />
-  <field name="title" type="text_en_splitting_numbers" indexed="true" stored="true" required="true" />
+  <field name="title" type="text_en_number_splitting" indexed="true" stored="true" required="true" />
   <field name="body" type="text_en_splitting" indexed="true" stored="true" required="true" />
   <field name="table" type="text_en_splitting" indexed="true" stored="false" required="true" />
   <field name="len" type="pint" indexed="false" stored="true" required="true" />

From 27c9680f5b5cd78fbec8e9f88200f39b5faf9a17 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 12 Dec 2023 10:35:49 +1300
Subject: [PATCH 142/166] Solr indexer code cleanup

---
 archiver/fts.rkt | 402 +++++++++++++++++++++++------------------------
 1 file changed, 200 insertions(+), 202 deletions(-)

diff --git a/archiver/fts.rkt b/archiver/fts.rkt
index 6e2266e6..c2f597bc 100644
--- a/archiver/fts.rkt
+++ b/archiver/fts.rkt
@@ -1,202 +1,200 @@
-#lang racket
-(require racket/function
-         racket/future
-         racket/match
-         racket/path
-         racket/promise
-         racket/port
-         racket/string
-         file/gunzip
-         db
-         db/unsafe/sqlite3
-         net/http-easy
-         json
-         json-pointer
-         "../lib/html-parsing/main.rkt"
-         "../lib/xexpr-utils.rkt"
-         "../lib/tree-updater.rkt")
-
-(define-syntax (seq stx)
-  (syntax-case stx ()
-    [(_ body ...)
-     #`(for ([op (list (lambda () body) ...)]
-             [i (in-naturals)])
-         (define res (op))
-         (when (>= (response-status-code res) 400)
-           (error 'seq "op #~a: status code was ~a: ~v" i (response-status-code res) (response-json res)))
-         (define taskuid (json-pointer-value "/taskUid" (response-json res)))
-         (for/or ([ticks (in-naturals)]
-                  [res2 (in-producer (lambda () (get (format "http://localhost:7700/tasks/~a" taskuid))))])
-           (define status (json-pointer-value "/status" (response-json res2)))
-           (case status
-             [("enqueued" "processing")
-              (sleep 1)
-              #f]
-             [("succeeded")
-              (printf "op #~a: ~a (~a ticks)~n" i status ticks)
-              #t]
-             [else
-              (error 'seq "op #~a: task status was ~a: ~v" i status res2)])))]))
-
-(define (class-has? attributes substrs)
-  (define cl (or (get-attribute 'class attributes) ""))
-  (ormap (λ (substr) (string-contains? cl substr)) substrs))
-
-(define (updater element element-type attributes children)
-  (cond
-    [(class-has? attributes '("collapsed" "selflink" "label" "toc" "editsection" "reviews"))
-     (list 'div '() '())]
-    [#t
-     (list element-type attributes children)]))
-
-(define slc (sqlite3-connect #:database "../storage/fts-separate.db"))
-(sqlite3-load-extension slc "fts5")
-
-(define (writer tables-mode? page)
-  (define (writer-inner page)
-    (for ([bit page])
-      (cond
-        [(and tables-mode? (pair? bit) (memq (car bit) '(h1 h2 h3 p blockquote q))) (void)]
-        [(and (not tables-mode?) (pair? bit) (memq (car bit) '(ul ol dl table))) (void)]
-        [(memq bit '(div p li td dd dt br)) (displayln "")]
-        [(symbol? bit) (void)]
-        [(and (pair? bit) (eq? (car bit) '*COMMENT*)) (void)]
-        [(and (pair? bit) (eq? (car bit) '@)) (void)]
-        [(pair? bit) (writer-inner bit)]
-        [(string? bit) (display bit)])))
-  (writer-inner page))
-
-(define (write-and-post-process tables-mode? page)
-  (define text (with-output-to-string (λ () (writer tables-mode? page))))
-  ;; (define text-no-numbers (regexp-replace* #px"(?:-|[+$£€¥] *)?[0-9,.]{2,}%?\\s*" text ""))
-  (define shrink-text (regexp-replace* #px"([ \t]*\r?\n+)+" text "\n"))
-  shrink-text)
-
-(define wikiname "bloons")
-(define tablename (format "page_~a" wikiname))
-
-(define ((extract f)) ; f - filename
-  (with-handlers
-    ([exn:fail? (λ (err) (println f) (raise err))])
-    (define j
-      (case (path-get-extension f)
-        [(#".json")
-         (with-input-from-file f (λ () (read-json)))]
-        [(#".gz")
-         (define-values (in out) (make-pipe))
-         (with-input-from-file f (λ () (gunzip-through-ports (current-input-port) out)))
-         (read-json in)]
-        [else #f]))
-    (define title (json-pointer-value "/parse/title" j))
-    (define pageid (json-pointer-value "/parse/pageid" j))
-    (define page-html (preprocess-html-wiki (json-pointer-value "/parse/text" j)))
-    (define page (update-tree updater (html->xexp page-html)))
-    (define body (write-and-post-process #f page))
-    (define table (write-and-post-process #t page))
-    (values title body table pageid)))
-
-(define results
-  (for/list ([f (directory-list (format "../storage/archive/~a" wikiname) #:build? #t)]
-             #:when (member (path-get-extension f) '(#".json" #".gz")))
-    (extract f)))
-
-;; ***************************************************************************************************
-;; TESTING WRITER
-;; ***************************************************************************************************
-#;(for/first ([fut results]
-            [i (in-naturals 1)]
-            #:when (i . >= . 4859))
-  (define-values (title body table pageid) (fut))
-  (println title)
-  (println body)
-  (println table))
-
-(println "inserting...")
-
-;; ***************************************************************************************************
-;; SQLite FTS5
-;; ***************************************************************************************************
-#;(begin
-    (query-exec slc "begin transaction")
-    #;(query-exec slc (format "create virtual table \"~a\" using fts5 (title, body, tokenize='porter unicode61')" wikiname))
-    (time
-     (for ([fut results]
-           [i (in-naturals 1)])
-       (display "-")
-       (when (and (> i 0) (= (modulo i 100) 0))
-         (println i))
-       (define-values (title shrink-text) (fut))
-       (query-exec slc (format "insert into \"~a\" (title, body) values (?, ?)" tablename) title shrink-text)))
-
-    (println "running optimize...")
-    (query-exec slc (format "insert into \"~a\" (\"~a\") values ('optimize')" tablename tablename))
-
-    (println "committing...")
-    (query-exec slc "commit"))
-
-;; ***************************************************************************************************
-;; Solr
-;; ***************************************************************************************************
-(begin
-  (define data
-    (cond
-      #;[(file-exists? "cache.rkt")
-       (println "reading in...")
-       (with-input-from-file "cache.rkt" (λ () (read)))]
-      [else
-       (define data
-         (for/list ([fut results]
-                    [i (in-naturals 1)])
-           (display "-")
-           (when (and (> i 0) (= (modulo i 100) 0))
-             (println i))
-           (define-values (title body table pageid) (fut))
-           (define len (string-length body))
-           `#hasheq((id . ,(number->string pageid))
-                    (title . ,title)
-                    (body . ,body)
-                    (table . ,table)
-                    (len . ,len))))
-
-       (println "writing out...")
-       (with-output-to-file "cache.rkt" (λ () (write data)) #:exists 'truncate/replace)
-       data]))
-
-  (println "posting...")
-  (define res
-    (post (format "http://localhost:8983/solr/~a/update?commit=true" wikiname)
-          #:json data)))
-
-;; ***************************************************************************************************
-;; Meilisearch
-;; ***************************************************************************************************
-#;(begin
-  (seq
-   (put (format "http://localhost:7700/indexes/~a/settings/searchable-attributes" wikiname)
-        #:json '("title" "body"))
-   (put (format "http://localhost:7700/indexes/~a/settings/ranking-rules" wikiname)
-        #:json '("words" "typo" #;"proximity" "attribute" "sort" "exactness" #;"len:desc"))
-   (call-with-input-file "stop-words.json"
-     (λ (in)
-       (put (format "http://localhost:7700/indexes/~a/settings/stop-words" wikiname)
-            #:headers '#hasheq((Content-Type . "application/json"))
-            #:data in))))
-  (define data
-    (for/list ([fut results]
-               [i (in-naturals 1)])
-      (display "-")
-      (when (and (> i 0) (= (modulo i 100) 0))
-        (println i))
-      (define-values (title body pageid) (fut))
-      (define len (string-length body))
-      `#hasheq((id . ,pageid)
-               (title . ,title)
-               (body . ,body)
-               (len . ,len))))
-  (define res
-    (post (format "http://localhost:7700/indexes/~a/documents" wikiname)
-          #:json data))
-  (seq res)
-  (println (response-json res)))
-
-(disconnect slc)
+#lang cli
+(require (for-syntax racket/base))
+(require racket/format
+         racket/function
+         racket/future
+         racket/match
+         racket/path
+         racket/promise
+         racket/port
+         racket/runtime-path
+         racket/string
+         file/gunzip
+         db
+         db/unsafe/sqlite3
+         net/http-easy
+         json
+         json-pointer
+         "../lib/html-parsing/main.rkt"
+         "../lib/xexpr-utils.rkt"
+         "../lib/tree-updater.rkt")
+
+(flag (read-from-cache?)
+      ("-c" "--read-from-cache" "read from last run cache instead of rebuilding documents")
+      (read-from-cache? #t))
+
+(define-runtime-path storage-path "../storage/archive")
+
+;; ***************************************************************************************************
+;; Progress bar display
+;; ***************************************************************************************************
+
+(struct progress^ (n max title) #:transparent)
+
+(define (make-m-s seconds)
+  (define-values (eta-m eta-s) (quotient/remainder seconds 60))
+  (format "~a:~a" eta-m (~a eta-s #:width 2 #:align 'right #:pad-string "0")))
+
+(define (make-progress get-p [history-size 20])
+  (define update-sleep 1)
+  (define name-width 30)
+  (define max-width 105)
+  (define history (make-vector history-size 0))
+  (define history-pointer 0)
+  (define elapsed 0)
+  (define (report-progress)
+    (define p (get-p))
+    (define history-cycle (vector-ref history history-pointer))
+    (vector-set! history history-pointer (progress^-n p))
+    (set! history-pointer (modulo (add1 history-pointer) history-size))
+    (set! elapsed (add1 elapsed))
+    (define-values (eta-display diff-per-second)
+      (cond
+        [((progress^-n p) . >= . (progress^-max p)) (values (format "~a **" (make-m-s elapsed)) (format "** ~a" (quotient (progress^-max p) (max elapsed 1))))]
+        [(= history-cycle 0) (values "-:--" "--")]
+        [else (define diff-per-second (/ (- (progress^-n p) history-cycle) (* history-size update-sleep)))
+              (define eta-total
+                (if (diff-per-second . > . 0)
+                    (floor (round (/ (- (progress^-max p) (progress^-n p)) diff-per-second)))
+                    0))
+              (values (make-m-s eta-total)
+                      (round diff-per-second))]))
+    (define left (format "~a/~a ~a/s ~a ~a%"
+                         (~a (progress^-n p) #:width (string-length (~a (progress^-max p))) #:align 'right #:pad-string " ")
+                         (progress^-max p)
+                         diff-per-second
+                         eta-display
+                         (floor (* 100 (/ (progress^-n p) (progress^-max p))))))
+    (define name-display (~a (progress^-title p) #:max-width name-width #:limit-marker "..."))
+    (define remaining-space (- max-width name-width (string-length left) 2))
+    (define bar-width
+      (floor (* (sub1 remaining-space)
+                (/ (progress^-n p) (progress^-max p)))))
+    (define bar (string-append (make-string bar-width #\=)
+                               ">"
+                               (make-string (- remaining-space bar-width) #\ )))
+    (printf "\e[2K\r~a~a~a" left bar name-display)
+    (flush-output))
+  (define (report-progress-loop)
+    (sleep update-sleep)
+    (report-progress)
+    (report-progress-loop))
+  (define t (thread report-progress-loop))
+  (define (quit)
+    (kill-thread t)
+    (report-progress)
+    (displayln ""))
+  quit)
+
+;; ***************************************************************************************************
+;; Page text extractor
+;; ***************************************************************************************************
+
+(define (class-has? attributes substrs)
+  (define cl (or (get-attribute 'class attributes) ""))
+  (ormap (λ (substr) (string-contains? cl substr)) substrs))
+
+(define (updater element element-type attributes children)
+  (cond
+    [(class-has? attributes '("collapsed" "selflink" "label" "toc" "editsection" "reviews"))
+     (list 'div '() '())]
+    [#t
+     (list element-type attributes children)]))
+
+(define (writer tables-mode? page)
+  (define (writer-inner page)
+    (for ([bit page])
+      (cond
+        [(and tables-mode? (pair? bit) (memq (car bit) '(h1 h2 h3 p blockquote q))) (void)]
+        [(and (not tables-mode?) (pair? bit) (memq (car bit) '(ul ol dl table))) (void)]
+        [(memq bit '(div p li td dd dt br)) (displayln "")]
+        [(symbol? bit) (void)]
+        [(and (pair? bit) (eq? (car bit) '*COMMENT*)) (void)]
+        [(and (pair? bit) (eq? (car bit) '@)) (void)]
+        [(pair? bit) (writer-inner bit)]
+        [(string? bit) (display bit)])))
+  (writer-inner page))
+
+(define (write-and-post-process tables-mode? page)
+  (define text (with-output-to-string (λ () (writer tables-mode? page))))
+  ;; (define text-no-numbers (regexp-replace* #px"(?:-|[+$£€¥] *)?[0-9,.]{2,}%?\\s*" text ""))
+  (define shrink-text (regexp-replace* #px"([ \t]*\r?\n+)+" text "\n"))
+  shrink-text)
+
+(define ((extract f)) ; f - filename
+  (with-handlers
+    ([exn:fail? (λ (err) (printf "extract: ~a: ~v~n" f err))])
+    (define j
+      (case (path-get-extension f)
+        [(#".json")
+         (with-input-from-file f (λ () (read-json)))]
+        [(#".gz")
+         (define-values (in out) (make-pipe))
+         (with-input-from-file f (λ () (gunzip-through-ports (current-input-port) out)))
+         (read-json in)]
+        [else #f]))
+    (define title (json-pointer-value "/parse/title" j))
+    (define pageid (json-pointer-value "/parse/pageid" j))
+    (define page-html (preprocess-html-wiki (json-pointer-value "/parse/text" j)))
+    (define page (update-tree updater (html->xexp page-html)))
+    (define body (write-and-post-process #f page))
+    (define table (write-and-post-process #t page))
+    (list title body table pageid)))
+
+;; ***************************************************************************************************
+;; Program, loop, Solr APIs
+;; ***************************************************************************************************
+
+(program
+ (start [wikiname "wikiname to download"])
+
+ (define results
+  (for/list ([f (directory-list (build-path storage-path wikiname) #:build? #t)]
+             #:when (member (path-get-extension f) '(#".gz")))
+    (extract f)))
+
+ (define data
+   (cond
+     [(and (read-from-cache?) (file-exists? "cache.rkt"))
+        (displayln "Reading in...")
+        (with-input-from-file "cache.rkt" (λ () (read)))]
+     [else
+      (define x (box (progress^ 0 1 "...")))
+      (define quit (make-progress (λ () (unbox x))))
+      (define data
+        (for/list ([fut results]
+                   [i (in-naturals 1)]
+                   #:do [(define page (fut))]
+                   #:when (not (void? page)))
+          (match-define (list title body table pageid) page)
+          (define len (string-length body))
+          (set-box! x (progress^ i (length results) title))
+          `#hasheq((id . ,(number->string pageid))
+                   (title . ,title)
+                   (body . ,body)
+                   (table . ,table)
+                   (len . ,len))))
+      (quit)
+
+      (display "Writing out... ")
+      (flush-output)
+      (with-output-to-file "cache.rkt" (λ () (write data)) #:exists 'truncate/replace)
+      data]))
+
+ (display "Converting... ")
+ (flush-output)
+ (define ser (jsexpr->bytes data))
+ (define ser-port (open-input-bytes ser))
+ (define quit (make-progress (λ () (progress^ (ceiling (/ (file-position ser-port) 64 1024))
+                                              (ceiling (/ (bytes-length ser) 64 1024))
+                                              "Posting..."))
+                             2))
+ (define res
+   (post (format "http://localhost:8983/solr/~a/update?commit=true" wikiname)
+         #:data ser-port
+         #:headers '#hasheq((Content-Type . "application/json"))
+         #:timeouts (make-timeout-config #:lease 5 #:connect 5 #:request 300)))
+ (quit)
+ (displayln (response-status-line res)))
+
+(run start)

From a57445abcbda2df7d030587111b7eb8155f769e9 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 12 Dec 2023 11:10:47 +1300
Subject: [PATCH 143/166] Archiver now saves redirects

---
 archiver/archiver-cli.rkt      |  13 +--
 archiver/archiver-database.rkt |   3 +-
 archiver/archiver.rkt          | 138 +++++++++++++++++++++----------
 lib/archive-file-mappings.rkt  |   7 ++
 src/extwiki-data.rkt           |   6 +-
 src/page-global-search.rkt     |   2 +-
 src/page-search.rkt            |   3 +-
 src/page-wiki-offline.rkt      | 146 ++++++++++++++++++---------------
 8 files changed, 197 insertions(+), 121 deletions(-)

diff --git a/archiver/archiver-cli.rkt b/archiver/archiver-cli.rkt
index 11f25d0b..0f349d66 100644
--- a/archiver/archiver-cli.rkt
+++ b/archiver/archiver-cli.rkt
@@ -35,9 +35,12 @@
           (output-lines? #t)]))
  (define (update-width)
    (when (output-progress?)
-     (with-charterm
-       (call-with-values (λ () (charterm-screen-size))
-                         (λ (cols rows) (set! width cols))))))
+     (case (system-type 'os)
+       [(linux)
+        (with-charterm
+          (call-with-values (λ () (charterm-screen-size))
+                            (λ (cols rows) (set! width cols))))]
+       [else 100])))
  (update-width)
  ;; check
  (when (or (not wikiname) (equal? wikiname ""))
@@ -56,8 +59,8 @@
       (define real-width (min (string-length basename) rest))
       (define spare-width (- rest real-width))
       (define name-display (substring basename 0 real-width))
-      (define whitespace (make-string spare-width #\ ))
-      (printf "~a~a~a\r" prefix name-display whitespace)]))
+      (printf "\e[2K\r~a~a" prefix name-display)
+      (flush-output)]))
  ;; download all stages
  (for ([stage all-stages]
        [i (in-naturals 1)])
diff --git a/archiver/archiver-database.rkt b/archiver/archiver-database.rkt
index b81ad6ce..91a40701 100644
--- a/archiver/archiver-database.rkt
+++ b/archiver/archiver-database.rkt
@@ -48,7 +48,8 @@
         ((query-exec slc* "alter table wiki add column sitename TEXT")
          (query-exec slc* "alter table wiki add column basepage TEXT")
          (query-exec slc* "alter table wiki add column license_text TEXT")
-         (query-exec slc* "alter table wiki add column license_url TEXT"))))
+         (query-exec slc* "alter table wiki add column license_url TEXT"))
+        ((query-exec slc* "alter table page add column redirect"))))
 
      (let do-migrate-step ()
        (when (database-version . < . (length migrations))
diff --git a/archiver/archiver.rkt b/archiver/archiver.rkt
index edd0d2bf..84fd16f9 100644
--- a/archiver/archiver.rkt
+++ b/archiver/archiver.rkt
@@ -1,5 +1,6 @@
 #lang racket/base
 (require racket/file
+         racket/format
          racket/function
          racket/list
          racket/path
@@ -43,10 +44,18 @@
             wikiname
             (params->query '(("action" . "query")
                              ("meta" . "siteinfo")
-                             ("siprop" . "general|rightsinfo|statistics")
+                             ("siprop" . "general|rightsinfo|statistics|namespaces")
                              ("format" . "json")
                              ("formatversion" . "2")))))
   (define data (response-json (get dest-url)))
+  (define content-nss
+    (sort
+     (for/list ([(k v) (in-hash (jp "/query/namespaces" data))]
+                #:do [(define id (hash-ref v 'id))]
+                #:when (and (id . < . 2900) ; exclude maps namespace
+                            (hash-ref v 'content))) ; exclude non-content and talk namespaces
+       id)
+     <))
   (define exists? (query-maybe-value* "select progress from wiki where wikiname = ?" wikiname))
   (if (and exists? (not (sql-null? exists?)))
       (query-exec* "update wiki set sitename = ?, basepage = ?, license_text = ?, license_url = ? where wikiname = ?"
@@ -61,7 +70,8 @@
                   (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
                   (jp "/query/rightsinfo/text" data)
                   (jp "/query/rightsinfo/url" data)))
-  (jp "/query/statistics/articles" data))
+  (values (jp "/query/statistics/articles" data)
+          content-nss))
 
 
 (define (check-style-for-images wikiname path)
@@ -131,48 +141,57 @@
   ;; done yet?
   (unless (and (real? wiki-progress) (wiki-progress . >= . 1))
     ;; Count total pages
-    (define num-pages (insert-wiki-entry wikiname))
+    (define-values (num-pages namespaces) (insert-wiki-entry wikiname))
     ;; Download the entire index of pages
-    (define basenames
-      (let loop ([path-with-namefrom "/wiki/Local_Sitemap"]
-                 [basenames-previous-pages null])
-        ;; Download the current index page
-        (define url (format "https://~a.fandom.com~a" wikiname path-with-namefrom))
-        (define r (get url))
-        ;; Metadata from this page (the link to the next page)
-        (define page (html->xexp (bytes->string/utf-8 (response-body r))))
-        (define link-namefrom
-          ((query-selector (λ (t a c x) (and (eq? t 'a)
-                                             (pair? x)
-                                             (string-contains? (car x) "Next page")
-                                             (let ([href (get-attribute 'href a)] )
-                                               (and href (string-contains? href "/wiki/Local_Sitemap")))))
-                           page #:include-text? #t)))
-        ;; Content from this page
-        (define basenames-this-page
-          (for/list ([link (in-producer
-                            (query-selector
-                             (λ (t a c) (eq? t 'a))
-                             ((query-selector (λ (t a c) (has-class? "mw-allpages-chunk" a)) page)))
-                            #f)])
-            (local-encoded-url->basename (get-attribute 'href (bits->attributes link)))))
-        ;; Call the progress callback
-        (define all-basenames (append basenames-previous-pages basenames-this-page))
-        (callback (length all-basenames) num-pages (last all-basenames))
-        ;; Recurse to download from the next page
-        (if link-namefrom
-            (loop (get-attribute 'href (bits->attributes link-namefrom)) all-basenames)
-            all-basenames)))
-    ;; Save those pages into the database
-    ;; SQLite can have a maximum of 32766 parameters in a single query
-    (for ([slice (in-slice 32760 basenames)])
-      (define query-template (string-join (make-list (length slice) "(?1, ?, 0)") ", " #:before-first "insert or ignore into page (wikiname, basename, progress) values "))
-      (call-with-transaction
-       (get-slc)
-       (λ ()
-         (apply query-exec* query-template wikiname slice)
-         ;; Record that we have the complete list of pages
-         (query-exec* "update wiki set progress = 1 where wikiname = ?" wikiname))))))
+    (for*/fold ([total 0])
+               ([namespace namespaces]
+                [redir-filter '("nonredirects" "redirects")])
+      (let loop ([apcontinue ""]
+                 [basenames null])
+        (cond
+          [apcontinue
+           (define url (format "https://~a.fandom.com/api.php?~a"
+                               wikiname
+                               (params->query `(("action" . "query")
+                                                ("list" . "allpages")
+                                                ("apnamespace" . ,(~a namespace))
+                                                ("apfilterredir" . ,redir-filter)
+                                                ("aplimit" . "500")
+                                                ("apcontinue" . ,apcontinue)
+                                                ("format" . "json")
+                                                ("formatversion" . "2")))))
+           ;; Download the current listing page
+           (define res (get url))
+           (define json (response-json res))
+           ;; Content from this page
+           (define current-basenames
+             (for/list ([page (jp "/query/allpages" json)])
+               (title->basename (jp "/title" page))))
+           (when ((length current-basenames) . > . 0)
+             ;; Report
+             (if (equal? redir-filter "nonredirects")
+                 (callback (+ (length basenames) (length current-basenames) total) num-pages (last current-basenames))
+                 (callback total num-pages (last current-basenames))))
+           ;; Loop
+           (loop (jp "/continue/apcontinue" json #f) (append basenames current-basenames))]
+          [else
+           ;; All done with this (loop)! Save those pages into the database
+           ;; SQLite can have a maximum of 32766 parameters in a single query
+           (begin0
+               ;; next for*/fold
+               (if (equal? redir-filter "nonredirects")
+                   (+ (length basenames) total)
+                   total) ; redirects don't count for the site statistics total
+             (call-with-transaction
+              (get-slc)
+              (λ ()
+                (for ([slice (in-slice 32760 basenames)])
+                  (define query-template
+                    (string-join #:before-first "insert or ignore into page (wikiname, redirect, basename, progress) values "
+                                 (make-list (length slice) "(?1, ?2, ?, 0)") ", "))
+                  (apply query-exec* query-template wikiname (if (equal? redir-filter "redirects") 1 sql-null) slice)))))])))
+    ;; Record that we have the complete list of pages
+    (query-exec* "update wiki set progress = 1 where wikiname = ?" wikiname)))
 
 
 ;; 2. Download each page via API and:
@@ -183,7 +202,7 @@
   (define save-dir (build-path archive-root wikiname))
   (make-directory* save-dir)
   ;; gather list of basenames to download (that aren't yet complete)
-  (define basenames (query-list* "select basename from page where wikiname = ? and progress < ?"
+  (define basenames (query-list* "select basename from page where wikiname = ? and progress < ? and redirect is null"
                                 wikiname max-page-progress))
   ;; counter of complete/incomplete basenames
   (define already-done-count
@@ -222,10 +241,41 @@
     (query-exec* "update page set progress = 1 where wikiname = ? and basename = ?"
                 wikiname basename)
     (callback i total-count basename))
+  ;; save redirects as well
+  (save-redirects wikiname callback (+ already-done-count (length basenames)) total-count)
   ;; saved all pages, register that fact in the database
   (query-exec* "update wiki set progress = 2 where wikiname = ?" wikiname))
 
 
+;; 2.5. Download each redirect-target via API and save mapping in database
+(define (save-redirects wikiname callback already-done-count total-count)
+  (define basenames (query-list* "select basename from page where wikiname = ? and progress < ? and redirect = 1"
+                                 wikiname max-page-progress))
+  ;; loop through basenames, in slices of 50 (MediaWiki API max per request), and download
+  (for ([basename basenames]
+        [i (in-naturals (add1 already-done-count))])
+    (define dest-url
+      (format "https://~a.fandom.com/api.php?~a"
+              wikiname
+              (params->query `(("action" . "query")
+                               ("prop" . "links")
+                               ("titles" . ,(basename->name-for-query basename))
+                               ("format" . "json")
+                               ("formatversion" . "2")))))
+    (define res (get dest-url))
+    (define json (response-json res))
+    (define dest-title (jp "/query/pages/0/links/0/title" json #f))
+    (callback i total-count basename)
+    (cond
+      [dest-title
+       ;; store it
+       (define dest-basename (title->basename dest-title))
+       (query-exec* "update page set progress = 1, redirect = ? where wikiname = ? and basename = ?" dest-basename wikiname basename)]
+      [else
+       ;; the page just doesn't exist
+       (query-exec* "delete from page where wikiname = ? and basename = ?" wikiname basename)])))
+
+
 ;; 3. Download CSS and:
 ;; * Save CSS to file
 ;; * Record style images to database
diff --git a/lib/archive-file-mappings.rkt b/lib/archive-file-mappings.rkt
index ba013ab3..03f97f51 100644
--- a/lib/archive-file-mappings.rkt
+++ b/lib/archive-file-mappings.rkt
@@ -7,6 +7,7 @@
  local-encoded-url->segments
  url-segments->basename
  local-encoded-url->basename
+ title->basename
  basename->name-for-query
  url-segments->guess-title)
 
@@ -21,6 +22,12 @@
 (define (local-encoded-url->basename str) ; '("wiki" "Page_title"), no extension or dir prefix
   (url-segments->basename (local-encoded-url->segments str)))
 
+(define (title->basename title) ; "Page title/Strategies" -> "Page_title#Strategies" filename encoded, no extension or dir prefi
+  (define elements (string-split (string-replace title " " "_") "/"))
+  (define extra-encoded (map (λ (s) (bytes->string/latin-1 (percent-encode s filename-set #f))) elements))
+  (define basic-filename (string-join extra-encoded "#"))
+  basic-filename)
+
 (define (basename->name-for-query str)
   (uri-decode (regexp-replace* #rx"#" str "/")))
 
diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 38e8a297..5628078e 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -377,7 +377,7 @@
     '("runescape") 'default
     'RuneScape
     "RuneScape Wiki"
-    "https://runescape.wiki/"
+    "https://runescape.wiki/w/Main_Page"
     "https://runescape.wiki/images/Wiki.png"
     (λ (props)
       `((p "The RuneScape Wiki was founded on April 8, 2005. In October 2018, the wiki left Fandom (then Wikia), citing their apathy towards the wiki and excessive advertisements."))))
@@ -386,7 +386,7 @@
     '("oldschoolrunescape") 'default
     'RuneScape
     "Old School RuneScape Wiki"
-    "https://oldschool.runescape.wiki/"
+    "https://oldschool.runescape.wiki/w/Main_Page"
     "https://oldschool.runescape.wiki/images/Wiki.png"
     (λ (props)
       `((p "The Old School RuneScape Wiki was founded on February 14, 2013. In October 2018, the RuneScape Wiki left Fandom (then Wikia), citing their apathy towards the wiki and excessive advertisements, with the Old School RuneScape Wiki following suit."))))
@@ -395,7 +395,7 @@
     '("runescapeclassic") 'default
     'RuneScape
     "RuneScape Classic Wiki"
-    "https://classic.runescape.wiki/"
+    "https://classic.runescape.wiki/w/Main_Page"
     "https://classic.runescape.wiki/images/Wiki.png"
     (λ (props)
       `((p "The Old School RuneScape Wiki was founded on April 19, 2009. In October 2018, the RuneScape Wiki left Fandom (then Wikia), citing their apathy towards the wiki and excessive advertisements, with the RuneScape Classic Wiki following suit."))))
diff --git a/src/page-global-search.rkt b/src/page-global-search.rkt
index a7748d52..08bfd13b 100644
--- a/src/page-global-search.rkt
+++ b/src/page-global-search.rkt
@@ -19,7 +19,7 @@
      [(not wikiname)
       (response/output
        #:code 400
-       #:mime-type "text/plain"
+       #:mime-type #"text/plain"
        (λ (out)
          (displayln "Requires wikiname and q parameters." out)))]
      [(or (not q) (equal? q ""))
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 4fb76f5f..193dbd63 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -53,7 +53,8 @@
    ;; grab the part after ?q= which is the search terms
    (define query (dict-ref params 'q #f))
    ;; figure out which search provider we're going to use
-   (define search-provider (hash-ref search-providers (config-get 'feature_offline::search)))
+   (define search-provider (hash-ref search-providers (config-get 'feature_offline::search)
+                                     (λ () (error 'search-provider "unknown search provider configured"))))
 
    ;; external special:search url to link at the bottom of the page as the upstream source
    (define external-search-url
diff --git a/src/page-wiki-offline.rkt b/src/page-wiki-offline.rkt
index 37832715..1d0323b2 100644
--- a/src/page-wiki-offline.rkt
+++ b/src/page-wiki-offline.rkt
@@ -20,6 +20,7 @@
          web-server/dispatchers/dispatch
          ; my libs
          "application-globals.rkt"
+         "../archiver/archiver-database.rkt"
          "config.rkt"
          "data.rkt"
          "log.rkt"
@@ -40,6 +41,9 @@
 
 (define path-archive (anytime-path ".." "storage/archive"))
 
+(when (config-true? 'feature_offline::only)
+  (void (get-slc)))
+
 (define (page-wiki-offline req)
   (response-handler
    (define wikiname (path/param-path (first (url-path (request-uri req)))))
@@ -64,84 +68,94 @@
        [else (error 'archive-format "unknown archive format configured")]))
    (define fs-path (build-path path-archive wikiname (format (car archive-format) maybe-hashed-basename)))
    (define source-url (format "https://~a.fandom.com/wiki/~a" wikiname (basename->name-for-query basename)))
-   (cond
-     [(not (file-exists? fs-path))
-      (unless (config-true? 'feature_offline::only)
-        (next-dispatcher))
-      (define mirror-path (url->string (request-uri req)))
+   (cond/var
+
+    [(file-exists? fs-path)
+     (when (config-true? 'debug)
+       (printf "using offline mode for ~v~n" fs-path))
+     (response-handler
+      (define data (with-input-from-file fs-path (cdr archive-format)))
+      (define article-title (jp "/parse/title" data))
+      (define original-page (html->xexp (preprocess-html-wiki (jp "/parse/text" data))))
+      (define page ((query-selector (λ (t a c) (has-class? "mw-parser-output" a)) original-page)))
+      (define initial-head-data ((head-data-getter wikiname) data))
+      (define head-data
+        (case theme
+          [(light dark)
+           (struct-copy head-data^ initial-head-data
+                        [body-class (regexp-replace #rx"(theme-fandomdesktop-)(light|dark)"
+                                                    (head-data^-body-class initial-head-data)
+                                                    (format "\\1~a" theme))])]
+          [else initial-head-data]))
       (define body
         (generate-wiki-page
-         `(div (@ (class "unsaved-page"))
-               (style ".unsaved-page a { text-decoration: underline !important }")
-               (p "breezewiki.com doesn't have this page saved.")
-               (p "You can see this page by visiting a BreezeWiki mirror:")
-               (ul
-                (li (a (@ (href ,(format "https://antifandom.com~a" mirror-path))) "View on antifandom.com"))
-                (li (a (@ (href ,(format "https://bw.artemislena.eu~a" mirror-path))) "View on artemislena.eu"))
-                (li (a (@ (href ,source-url)) "or, you can see the original page on Fandom (ugh)")))
-               (p "If you'd like " ,wikiname ".fandom.com to be added to breezewiki.com, " (a (@ (href "https://lists.sr.ht/~cadence/breezewiki-requests")) "let me know about it!")))
+         (update-tree-wiki page wikiname)
          #:req req
          #:source-url source-url
          #:wikiname wikiname
-         #:title (url-segments->guess-title segments)
+         #:title article-title
          #:online-styles #f
+         #:head-data head-data
          #:siteinfo (siteinfo-fetch wikiname)
          ))
+      (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
+      (define redirect-query-parameter (dict-ref (url-query (request-uri req)) 'redirect "yes"))
+      (define headers
+        (build-headers
+         always-headers
+         ; redirect-query-parameter: only the string "no" is significant:
+         ; https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Wiki.php#L367
+         (when (and redirect-msg
+                    (not (equal? redirect-query-parameter "no")))
+           (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+                  [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
+             (header #"Refresh" value)))))
       (when (config-true? 'debug)
         ; used for its side effects
         ; convert to string with error checking, error will be raised if xexp is invalid
         (xexp->html body))
       (response/output
        #:code 200
-       #:headers always-headers
+       #:headers headers
        (λ (out)
-         (write-html body out)))]
-     [#t
-      (when (config-true? 'debug)
-        (printf "using offline mode for ~v~n" fs-path))
-      (response-handler
-       (define data (with-input-from-file fs-path (cdr archive-format)))
-       (define article-title (jp "/parse/title" data))
-       (define original-page (html->xexp (preprocess-html-wiki (jp "/parse/text" data))))
-       (define page ((query-selector (λ (t a c) (has-class? "mw-parser-output" a)) original-page)))
-       (define initial-head-data ((head-data-getter wikiname) data))
-       (define head-data
-         (case theme
-           [(light dark)
-            (struct-copy head-data^ initial-head-data
-                         [body-class (regexp-replace #rx"(theme-fandomdesktop-)(light|dark)"
-                                                     (head-data^-body-class initial-head-data)
-                                                     (format "\\1~a" theme))])]
-           [else initial-head-data]))
-       (define body
-         (generate-wiki-page
-          (update-tree-wiki page wikiname)
-          #:req req
-          #:source-url source-url
-          #:wikiname wikiname
-          #:title article-title
-          #:online-styles #f
-          #:head-data head-data
-          #:siteinfo (siteinfo-fetch wikiname)
-          ))
-       (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
-       (define redirect-query-parameter (dict-ref (url-query (request-uri req)) 'redirect "yes"))
-       (define headers
-         (build-headers
-          always-headers
-          ; redirect-query-parameter: only the string "no" is significant:
-          ; https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Wiki.php#L367
-          (when (and redirect-msg
-                     (not (equal? redirect-query-parameter "no")))
-            (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
-                   [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
-              (header #"Refresh" value)))))
-       (when (config-true? 'debug)
-         ; used for its side effects
-         ; convert to string with error checking, error will be raised if xexp is invalid
-         (xexp->html body))
-       (response/output
-        #:code 200
-        #:headers headers
-        (λ (out)
-          (write-html body out))))])))
+         (write-html body out))))]
+
+    ;; page not found on disk, perhaps it's a redirect? redirects are stored in the database
+    (var target (query-maybe-value* "select redirect from page where wikiname = ? and basename = ?" wikiname basename))
+    [target
+     (generate-redirect (basename->name-for-query target))]
+
+    ;; breezewiki doesn't have the page archived, see if we can make a network request for it
+    [(not (config-true? 'feature_offline::only))
+     (next-dispatcher)]
+
+    ;; no possible way to provide the page
+    [else
+     (define mirror-path (url->string (request-uri req)))
+     (define body
+       (generate-wiki-page
+        `(div (@ (class "unsaved-page"))
+              (style ".unsaved-page a { text-decoration: underline !important }")
+              (p "breezewiki.com doesn't have this page saved.")
+              (p "You can see this page by visiting a BreezeWiki mirror:")
+              (ul
+               (li (a (@ (href ,(format "https://antifandom.com~a" mirror-path))) "View on antifandom.com"))
+               (li (a (@ (href ,(format "https://bw.artemislena.eu~a" mirror-path))) "View on artemislena.eu"))
+               (li (a (@ (href ,source-url)) "or, you can see the original page on Fandom (ugh)")))
+              (p "If you'd like " ,wikiname ".fandom.com to be added to breezewiki.com, " (a (@ (href "https://lists.sr.ht/~cadence/breezewiki-requests")) "let me know about it!")))
+        #:req req
+        #:source-url source-url
+        #:wikiname wikiname
+        #:title (url-segments->guess-title segments)
+        #:online-styles #f
+        #:siteinfo (siteinfo-fetch wikiname)
+        ))
+     (when (config-true? 'debug)
+       ; used for its side effects
+       ; convert to string with error checking, error will be raised if xexp is invalid
+       (xexp->html body))
+     (response/output
+      #:code 200
+      #:headers always-headers
+      (λ (out)
+        (write-html body out)))])))

From 9c3125d6bec1de1b012d083c56e97607b5796072 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 13 Dec 2023 23:09:00 +1300
Subject: [PATCH 144/166] Minor improvements to archiver

---
 archiver/archiver-gui.rkt   | 36 ++++++++++++++----------------------
 archiver/archiver.rkt       | 11 +++++++----
 lib/mime.types              |  2 ++
 src/page-static-archive.rkt |  5 ++++-
 4 files changed, 27 insertions(+), 27 deletions(-)

diff --git a/archiver/archiver-gui.rkt b/archiver/archiver-gui.rkt
index 6f09cb8d..a5facae9 100644
--- a/archiver/archiver-gui.rkt
+++ b/archiver/archiver-gui.rkt
@@ -90,27 +90,21 @@
 
 (define/obs @input "")
 
-(splicing-let ([frame-count 30])
+(splicing-let ([frame-count 20])
   (define stickman-frames
     (for/vector ([s (in-range 0 1 (/ 1 frame-count))])
       (running-stickman-icon
        s
        #:height status-icon-size
-       #:material (default-icon-material))))
+       #:material (default-icon-material)))))
 
-  (define/obs @stick-frame-no 0)
-  (define stick-timer
-    (new timer%
-         [notify-callback (λ () (@stick-frame-no . <~ . add1))]
-         [interval (truncate (/ 1000 frame-count))]))
-  (define/obs @stick
-    (@stick-frame-no . ~> . (λ (n) (vector-ref stickman-frames
-                                               (modulo n (vector-length stickman-frames)))))))
+(define (stick n)
+  (vector-ref stickman-frames (modulo n (vector-length stickman-frames))))
 
 (define status-icons
   (hasheq 'queued (stop-icon #:color syntax-icon-color #:height status-icon-size)
           'paused (continue-forward-icon #:color syntax-icon-color #:height status-icon-size)
-          'running @stick
+          'running (stick 0)
           'error (x-icon #:height status-icon-size)
           'complete (check-icon #:color color-green #:height status-icon-size)))
 
@@ -155,7 +149,7 @@
                  #:mixin (λ (%) (class % (super-new)
                                   (obs-observe! @visible? (λ (visible?) (send this show visible?)))))
                  (vpanel #:margin '(15 15)
-                         (text "Encountered this error while downloading:")
+                         (text (format "Encountered this error while downloading ~a:" (qi^-wikiname (obs-peek @qi))))
                          (input #:style '(multiple hscroll)
                                 #:min-size '(#f 200)
                                 (exn->string e))
@@ -259,15 +253,16 @@
   (update-qi @qi [th #f] [st 'paused]))
 
 (define (do-reset-qi @qi)
+  (define reset-progress-to 0)
   (define th (qi^-th (obs-peek @qi)))
   (when th (kill-thread th))
-  (update-qi @qi [th #f] [st 'queued] [stage 0] [progress 0] [max-progress 0])
-  (query-exec* "update wiki set progress = 0 where wikiname = ?" (qi^-wikiname (obs-peek @qi))))
+  (update-qi @qi [th #f] [st 'queued] [stage reset-progress-to] [progress 0] [max-progress 0])
+  (query-exec* "update wiki set progress = ? where wikiname = ?" reset-progress-to (qi^-wikiname (obs-peek @qi))))
 
 (define (do-try-unpause-next-entry)
   (define queue (obs-peek @queue))
-  (define next-qi (for/first ([qi queue]
-                              #:when (memq (qi^-st qi) '(paused queued error)))
+  (define next-qi (for/last ([qi queue]
+                             #:when (memq (qi^-st qi) '(paused queued)))
                     qi))
   (when next-qi
     (define @qi (@queue . ~> . (λ (queue) (findf (λ (qi) (equal? (qi^-wikiname qi) (qi^-wikiname next-qi))) queue))))
@@ -281,7 +276,6 @@
     #:mixin (λ (%) (class %
                      (super-new)
                      (define/augment (on-close)
-                       (send stick-timer stop)
                        (for ([qi (obs-peek @queue)])
                          (when (qi^-th qi)
                            (kill-thread (qi^-th qi))))
@@ -307,7 +301,7 @@
       (λ (k @qi)
         (define @status-icons
           (@> (case (qi^-st @qi)
-                [(running) @stick]
+                [(running) (stick (qi^-progress @qi))]
                 [else (hash-ref status-icons (qi^-st @qi))])))
         (define @is-running?
           (@> (memq (qi^-st @qi) '(running))))
@@ -325,10 +319,8 @@
                          (spacer)
                          (hpanel
                           #:stretch '(#f #f)
-                          (if-view @is-complete?
-                                   (button (hash-ref action-icons 'reset)
-                                           (λ () (do-reset-qi @qi)))
-                                   (spacer))
+                          (button (hash-ref action-icons 'reset)
+                                  (λ () (do-reset-qi @qi)))
                           (if-view @is-running?
                                    (button (hash-ref action-icons 'pause)
                                            (λ () (do-stop-qi @qi)))
diff --git a/archiver/archiver.rkt b/archiver/archiver.rkt
index 84fd16f9..01f03ad4 100644
--- a/archiver/archiver.rkt
+++ b/archiver/archiver.rkt
@@ -86,14 +86,17 @@
                              (string-contains? url "/drm_fonts/")
                              (string-contains? url "//db.onlinewebfonts.com/")
                              (string-contains? url "//bits.wikimedia.org/")
+                             (string-contains? url "mygamercard.net/")
                              (string-contains? url "dropbox")
                              (string-contains? url "only=styles")
                              (string-contains? url "https://https://")
                              (regexp-match? #rx"^%20" url)
-                             (regexp-match? #rx"^data:" url))))
+                             (regexp-match? #rx"^data:" url)
+                             (regexp-match? #rx"^file:" url))))
     (cond
       [(string-prefix? url "https://") url]
       [(string-prefix? url "http://") (regexp-replace #rx"http:" url "https:")]
+      [(string-prefix? url "httpshttps://") (regexp-replace #rx"httpshttps://" url "https://")]
       [(string-prefix? url "//") (string-append "https:" url)]
       [(string-prefix? url "/") (format "https://~a.fandom.com~a" wikiname url)]
       [else (raise-user-error "While calling check-style-for-images, this URL had an unknown format and couldn't be saved:" url path)])))
@@ -244,7 +247,7 @@
   ;; save redirects as well
   (save-redirects wikiname callback (+ already-done-count (length basenames)) total-count)
   ;; saved all pages, register that fact in the database
-  (query-exec* "update wiki set progress = 2 where wikiname = ?" wikiname))
+  (query-exec* "update wiki set progress = 2 where wikiname = ? and progress <= 2" wikiname))
 
 
 ;; 2.5. Download each redirect-target via API and save mapping in database
@@ -334,8 +337,8 @@
     (define url (vector-ref row 0))
     (define hash (vector-ref row 1))
     ;; check
-    #; (printf "~a -> ~a~n" url hash)
-    (define r (get url))
+    #;(printf "~a -> ~a~n" url hash)
+    (define r (get url #:timeouts (make-timeout-config #:connect 15)))
     (define declared-type (response-headers-ref r 'content-type))
     (define final-type (if (equal? declared-type #"application/octet-stream")
                            (let ([sniff-entity (message-entity (mime-analyze (response-body r)))])
diff --git a/lib/mime.types b/lib/mime.types
index c06a1e9d..4ae48d8a 100644
--- a/lib/mime.types
+++ b/lib/mime.types
@@ -22,6 +22,7 @@ image/x-jng                           jng
 image/x-ms-bmp                        bmp
 image/svg+xml                         svg
 image/webp                            webp
+image/avif                            avif
 
 application/font-woff2                woff2
 application/acad                      woff2
@@ -31,6 +32,7 @@ font/woff                             woff
 application/x-font-ttf                ttf
 application/x-font-truetype           ttf
 application/x-truetype-font           ttf
+font/ttf                              ttf
 application/font-sfnt                 ttf
 font/sfnt                             ttf
 application/vnd.oasis.opendocument.formula-template otf
diff --git a/src/page-static-archive.rkt b/src/page-static-archive.rkt
index c0c2e09c..501bda79 100644
--- a/src/page-static-archive.rkt
+++ b/src/page-static-archive.rkt
@@ -30,16 +30,19 @@
            (string-contains? url "/drm_fonts/")
            (string-contains? url "//db.onlinewebfonts.com/")
            (string-contains? url "//bits.wikimedia.org/")
+           (string-contains? url "mygamercard.net/")
            (string-contains? url "dropbox")
            (string-contains? url "only=styles")
            (string-contains? url "https://https://")
            (regexp-match? #rx"^%20|^'" url)
-           (regexp-match? #rx"^\"?data:" url))
+           (regexp-match? #rx"^\"?data:" url)
+           (regexp-match? #rx"^file:" url))
        url
        (let* ([norm-url
                (cond
                  [(string-prefix? url "https://") url]
                  [(string-prefix? url "http://") (regexp-replace #rx"http:" url "https:")]
+                 [(string-prefix? url "httpshttps://") (regexp-replace #rx"httpshttps://" url "https://")]
                  [(string-prefix? url "//") (string-append "https:" url)]
                  [(string-prefix? url "/") (format "https://~a.fandom.com~a" wikiname url)]
                  [else (error 'replace-style-for-images "unknown URL format: ~a" url)])])

From 723bb92b0ae7a9ba3865b49828df0d48cea1dff4 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Fri, 15 Dec 2023 21:23:12 +1300
Subject: [PATCH 145/166] Archiver GUI super-reset button

---
 archiver/archiver-gui.rkt | 71 +++++++++++++++++++++++++++++++++------
 1 file changed, 61 insertions(+), 10 deletions(-)

diff --git a/archiver/archiver-gui.rkt b/archiver/archiver-gui.rkt
index a5facae9..25f447f5 100644
--- a/archiver/archiver-gui.rkt
+++ b/archiver/archiver-gui.rkt
@@ -2,11 +2,14 @@
 (require racket/class
          racket/draw
          racket/format
+         racket/function
          racket/list
+         racket/math
          racket/port
          racket/set
          racket/splicing
          racket/string
+         (except-in pict text table)
          db
          net/http-easy
          memo
@@ -65,7 +68,7 @@
 
 (define/obs @auto-retry #f)
 
-(define-struct qi^ (wikiname st stage progress max-progress eta th) #:transparent) ;; queue item
+(define-struct qi^ (wikiname st stage progress max-progress ticks eta th) #:transparent) ;; queue item
 
 (define rows (query-rows* "select wikiname, progress from wiki where progress < 4"))
 (define/obs @queue null)
@@ -74,7 +77,7 @@
                    (define already-exists? (findf (λ (qi) (equal? (qi^-wikiname qi) wikiname)) queue))
                    (if already-exists?
                        queue
-                       (append queue (list (qi^ wikiname st stage 0 1 "..." #f)))))))
+                       (append queue (list (qi^ wikiname st stage 0 1 0 "..." #f)))))))
 (for ([row rows])
   (add-wikiname-to-queue (vector-ref row 0)
                          (if (= (vector-ref row 1) 4)
@@ -88,7 +91,43 @@
 
 (define color-green (make-color 90 212 68))
 
-(define/obs @input "")
+(define (resize coords fraction)
+  (for/list ([coord (in-list coords)])
+    (cons (* fraction (car coord))
+          (* fraction (cdr coord)))))
+
+(define (flat-right-arrow #:height [height 32] #:color [color #f])
+  ((if color
+       (curryr colorize color)
+       values)
+   (dc (λ (dc dx dy)
+         (send dc draw-polygon (resize
+                                (list '(0 . 9) '(15 . 9) '(14 . 0)
+                                      '(31 . 15.5)
+                                      '(14 . 31) '(15 . 22) '(0 . 22))
+                                (/ height 32))))
+       height height)))
+
+(define (double-left-arrow-icon #:height [height 32])
+  (define shift (/ height 48))
+  (pict->bitmap
+   (scale-to-fit
+    (panorama
+     (pin-under
+      (bitmap
+       (left-over-arrow-icon #:color halt-icon-color #:height height
+                             #:material rubber-icon-material))
+      (- (* -20 shift) 2) (+ (* 6 shift) 1)
+      (bitmap
+       (bitmap-render-icon
+        (pict->bitmap
+         (rotate
+          (flat-right-arrow #:color (make-object color% 255 64 64) #:height (/ height 1.26))
+          (* pi 1.23)))))
+      #;(rotate
+         (flat-right-arrow #:color (make-object color% 255 64 64) #:height (/ height 1.26))
+         (* pi 1.23))))
+    height height #:mode 'preserve/max)))
 
 (splicing-let ([frame-count 20])
   (define stickman-frames
@@ -111,7 +150,8 @@
 (define action-icons
   (hasheq 'pause (pause-icon #:color syntax-icon-color #:height button-icon-size)
           'resume (play-icon #:color color-green #:height button-icon-size)
-          'reset (left-over-arrow-icon #:color halt-icon-color #:height button-icon-size)))
+          'reset (left-over-arrow-icon #:color halt-icon-color #:height button-icon-size)
+          'reseter (double-left-arrow-icon #:height button-icon-size)))
 
 (define (bitmap-view @the-bitmap [min-width 1])
   (pict-canvas #:min-size (@> (list (max min-width (send @the-bitmap get-width)) (send @the-bitmap get-height))) #;(if min-size (list min-size min-size) #f)
@@ -217,7 +257,9 @@
 
 (define ((make-progress-updater @qi) a b c)
   ;; (printf "~a: ~a/~a ~a~n" (qi^-wikiname (obs-peek @qi)) a b c)
-  (update-qi @qi [progress a] [max-progress b]))
+  (update-qi @qi [progress a] [max-progress b] [ticks (add1 (qi^-ticks (obs-peek @qi)))]))
+
+(define/obs @input "")
 
 (define (do-add-to-queue)
   (define wikiname (string-trim (obs-peek @input)))
@@ -259,6 +301,10 @@
   (update-qi @qi [th #f] [st 'queued] [stage reset-progress-to] [progress 0] [max-progress 0])
   (query-exec* "update wiki set progress = ? where wikiname = ?" reset-progress-to (qi^-wikiname (obs-peek @qi))))
 
+(define (do-reseter-qi @qi)
+  (do-reset-qi @qi)
+  (query-exec* "delete from page where wikiname = ?" (qi^-wikiname (obs-peek @qi))))
+
 (define (do-try-unpause-next-entry)
   (define queue (obs-peek @queue))
   (define next-qi (for/last ([qi queue]
@@ -301,7 +347,7 @@
       (λ (k @qi)
         (define @status-icons
           (@> (case (qi^-st @qi)
-                [(running) (stick (qi^-progress @qi))]
+                [(running) (stick (qi^-ticks @qi))]
                 [else (hash-ref status-icons (qi^-st @qi))])))
         (define @is-running?
           (@> (memq (qi^-st @qi) '(running))))
@@ -319,13 +365,18 @@
                          (spacer)
                          (hpanel
                           #:stretch '(#f #f)
-                          (button (hash-ref action-icons 'reset)
-                                  (λ () (do-reset-qi @qi)))
+
                           (if-view @is-running?
                                    (button (hash-ref action-icons 'pause)
                                            (λ () (do-stop-qi @qi)))
-                                   (button (hash-ref action-icons 'resume)
-                                           (λ () (do-start-qi @qi))))))
+                                   (hpanel
+                                    #:stretch '(#f #f)
+                                    (button (hash-ref action-icons 'reseter)
+                                            (λ () (do-reseter-qi @qi)))
+                                    (button (hash-ref action-icons 'reset)
+                                            (λ () (do-reset-qi @qi)))
+                                    (button (hash-ref action-icons 'resume)
+                                            (λ () (do-start-qi @qi)))))))
                  ;; progress bar (bottom half)
                  (hpanel
                   (canvas

From 39423504689a0f7a0dfb8da22258e03072d1552d Mon Sep 17 00:00:00 2001
From: blankie <blankie@nixnetmail.com>
Date: Sun, 31 Dec 2023 21:55:56 +1100
Subject: [PATCH 146/166] Fix error on a redirect page with no link

https://lists.sr.ht/~cadence/breezewiki-discuss/%3CCY2G0E3G55N3.ANW2QREUS5SO%40nixnetmail.com%3E
---
 src/page-wiki-offline.rkt | 9 ++++++---
 src/page-wiki.rkt         | 9 ++++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/src/page-wiki-offline.rkt b/src/page-wiki-offline.rkt
index 1d0323b2..3f818eee 100644
--- a/src/page-wiki-offline.rkt
+++ b/src/page-wiki-offline.rkt
@@ -98,16 +98,19 @@
          #:head-data head-data
          #:siteinfo (siteinfo-fetch wikiname)
          ))
-      (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
       (define redirect-query-parameter (dict-ref (url-query (request-uri req)) 'redirect "yes"))
+      (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
+      (define redirect-msg-a (if redirect-msg
+                                 ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))
+                                 #f))
       (define headers
         (build-headers
          always-headers
          ; redirect-query-parameter: only the string "no" is significant:
          ; https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Wiki.php#L367
-         (when (and redirect-msg
+         (when (and redirect-msg-a
                     (not (equal? redirect-query-parameter "no")))
-           (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+           (let* ([dest (get-attribute 'href (bits->attributes redirect-msg-a))]
                   [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
              (header #"Refresh" value)))))
       (when (config-true? 'debug)
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index 8df701c2..ae060d46 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -80,16 +80,19 @@
                #:title title
                #:head-data head-data
                #:siteinfo siteinfo))
-            (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
             (define redirect-query-parameter (dict-ref (url-query (request-uri req)) 'redirect "yes"))
+            (define redirect-msg ((query-selector (attribute-selector 'class "redirectMsg") body)))
+            (define redirect-msg-a (if redirect-msg
+                                       ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))
+                                       #f))
             (define headers
               (build-headers
                always-headers
                ; redirect-query-parameter: only the string "no" is significant:
                ; https://github.com/Wikia/app/blob/fe60579a53f16816d65dad1644363160a63206a6/includes/Wiki.php#L367
-               (when (and redirect-msg
+               (when (and redirect-msg-a
                           (not (equal? redirect-query-parameter "no")))
-                 (let* ([dest (get-attribute 'href (bits->attributes ((query-selector (λ (t a c) (eq? t 'a)) redirect-msg))))]
+                 (let* ([dest (get-attribute 'href (bits->attributes redirect-msg-a))]
                         [value (bytes-append #"0;url=" (string->bytes/utf-8 dest))])
                    (header #"Refresh" value)))))
             (when (config-true? 'debug)

From 0fed724604b95cdf2e0227f3e788aa341b30b387 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 9 Jan 2024 17:13:04 +1300
Subject: [PATCH 147/166] Fix redirects to category pages in offline mode

---
 src/page-wiki-offline.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/page-wiki-offline.rkt b/src/page-wiki-offline.rkt
index 3f818eee..2b523731 100644
--- a/src/page-wiki-offline.rkt
+++ b/src/page-wiki-offline.rkt
@@ -126,7 +126,8 @@
     ;; page not found on disk, perhaps it's a redirect? redirects are stored in the database
     (var target (query-maybe-value* "select redirect from page where wikiname = ? and basename = ?" wikiname basename))
     [target
-     (generate-redirect (basename->name-for-query target))]
+     ; don't url decode the target, or Category: pages will be interpreted as a protocol
+     (generate-redirect (regexp-replace* #rx"#" target "/"))]
 
     ;; breezewiki doesn't have the page archived, see if we can make a network request for it
     [(not (config-true? 'feature_offline::only))

From b8a6c5198d1a4d6e4907e1346033a054912fcfcf Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Tue, 9 Jan 2024 17:35:26 +1300
Subject: [PATCH 148/166] Fix more redirects in offline mode

---
 src/page-wiki-offline.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/page-wiki-offline.rkt b/src/page-wiki-offline.rkt
index 2b523731..906718d8 100644
--- a/src/page-wiki-offline.rkt
+++ b/src/page-wiki-offline.rkt
@@ -127,7 +127,7 @@
     (var target (query-maybe-value* "select redirect from page where wikiname = ? and basename = ?" wikiname basename))
     [target
      ; don't url decode the target, or Category: pages will be interpreted as a protocol
-     (generate-redirect (regexp-replace* #rx"#" target "/"))]
+     (generate-redirect (format "/~a/wiki/~a" wikiname (regexp-replace* #rx"#" target "/")))]
 
     ;; breezewiki doesn't have the page archived, see if we can make a network request for it
     [(not (config-true? 'feature_offline::only))

From b02e2a405329ec56c5ce8fd357fd60ff11332033 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 10 Jan 2024 11:21:42 +1300
Subject: [PATCH 149/166] Fix failing test after search was refactored

---
 src/page-search.rkt            |  4 ++--
 src/search-provider-fandom.rkt | 14 ++++++++------
 src/search-provider-solr.rkt   |  4 ++--
 3 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/src/page-search.rkt b/src/page-search.rkt
index 193dbd63..019ebfec 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -25,8 +25,8 @@
  page-search)
 
 (define search-providers
-  (hash "fandom" generate-results-content-fandom
-        "solr" generate-results-content-solr))
+  (hash "fandom" search-fandom
+        "solr" search-solr))
 
 ;; this takes the info we gathered from fandom and makes the big fat x-expression page
 (define (generate-results-page req source-url wikiname query results-content #:siteinfo [siteinfo #f])
diff --git a/src/search-provider-fandom.rkt b/src/search-provider-fandom.rkt
index 945b111e..2338c136 100644
--- a/src/search-provider-fandom.rkt
+++ b/src/search-provider-fandom.rkt
@@ -8,15 +8,15 @@
          "../lib/xexpr-utils.rkt")
 
 (provide
- generate-results-content-fandom)
+ search-fandom)
 
 (module+ test
   (require rackunit
            "test-utils.rkt")
-  (define search-json-data
-    '#hasheq((batchcomplete . #t) (query . #hasheq((search . (#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))))))
+  (define search-results-data
+    '(#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))
 
-(define (generate-results-content-fandom wikiname query params)
+(define (search-fandom wikiname query params)
   ;; constructing the URL where I want to get fandom data from...
   (define origin (format "https://~a.fandom.com" wikiname))
   ;; the dest-URL will look something like https://minecraft.fandom.com/api.php?action=query&list=search&srsearch=Spawner&formatversion=2&format=json
@@ -33,8 +33,10 @@
   (define res (easy:get dest-url #:timeouts timeouts))
   (define json (easy:response-json res))
   (define search-results (jp "/query/search" json))
+  (generate-results-content-fandom wikiname query search-results))
 
-  ;; generate content for display in the wiki page layout
+;;; generate content for display in the wiki page layout
+(define (generate-results-content-fandom wikiname query search-results)
   `(div (@ (class "mw-parser-output"))
         ;; header before the search results showing how many we found
         (p ,(format "~a results found for " (length search-results))
@@ -60,4 +62,4 @@
 (module+ test
   (parameterize ([(config-parameter 'feature_offline::only) "false"])
     (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Gacha_Capsule")
-                                      (generate-results-content-fandom test-req "" "test" "Gacha" search-json-data))))))
+                                      (generate-results-content-fandom "test" "Gacha" search-results-data))))))
diff --git a/src/search-provider-solr.rkt b/src/search-provider-solr.rkt
index ed9fb7b0..1ec48e25 100644
--- a/src/search-provider-solr.rkt
+++ b/src/search-provider-solr.rkt
@@ -9,11 +9,11 @@
          "../lib/xexpr-utils.rkt")
 
 (provide
- generate-results-content-solr)
+ search-solr)
 
 (struct result^ (hl-title hl-body kb words page-path) #:transparent)
 
-(define (generate-results-content-solr wikiname query params)
+(define (search-solr wikiname query params)
   ;; grab things from params that would modify the search
   (define op (if (equal? (dict-ref params 'op #f) "or") '("or" . "OR") '("and" . "AND")))
   (define sort (if (equal? (dict-ref params 'sort #f) "len") '("len" . "len desc") '("relevance" . "score desc")))

From a52d131b936037fdd7847bf8d58c1662227101ad Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 11 Jan 2024 22:33:59 +1300
Subject: [PATCH 150/166] Split massive uploads in Solr indexer

---
 archiver/fts.rkt | 43 ++++++++++++++++++++++++++++---------------
 1 file changed, 28 insertions(+), 15 deletions(-)

diff --git a/archiver/fts.rkt b/archiver/fts.rkt
index c2f597bc..6a00041b 100644
--- a/archiver/fts.rkt
+++ b/archiver/fts.rkt
@@ -8,6 +8,7 @@
          racket/promise
          racket/port
          racket/runtime-path
+         racket/sequence
          racket/string
          file/gunzip
          db
@@ -156,8 +157,16 @@
  (define data
    (cond
      [(and (read-from-cache?) (file-exists? "cache.rkt"))
-        (displayln "Reading in...")
-        (with-input-from-file "cache.rkt" (λ () (read)))]
+      (define size (file-size "cache.rkt"))
+      (call-with-input-file "cache.rkt"
+        (λ (in)
+          (define quit (make-progress (λ () (progress^ (ceiling (/ (file-position in) 64 1024))
+                                                       (ceiling (/ size 64 1024))
+                                                       "Reading in..."))
+                                      2))
+          (begin0
+              (read in)
+            (quit))))]
      [else
       (define x (box (progress^ 0 1 "...")))
       (define quit (make-progress (λ () (unbox x))))
@@ -183,18 +192,22 @@
 
  (display "Converting... ")
  (flush-output)
- (define ser (jsexpr->bytes data))
- (define ser-port (open-input-bytes ser))
- (define quit (make-progress (λ () (progress^ (ceiling (/ (file-position ser-port) 64 1024))
-                                              (ceiling (/ (bytes-length ser) 64 1024))
-                                              "Posting..."))
-                             2))
- (define res
-   (post (format "http://localhost:8983/solr/~a/update?commit=true" wikiname)
-         #:data ser-port
-         #:headers '#hasheq((Content-Type . "application/json"))
-         #:timeouts (make-timeout-config #:lease 5 #:connect 5 #:request 300)))
- (quit)
- (displayln (response-status-line res)))
+ (define slice-size 30000)
+ (define slices (ceiling (/ (length data) slice-size)))
+ (for ([slice (in-slice slice-size data)]
+       [i (in-naturals 1)])
+   (define ser (jsexpr->bytes slice))
+   (define ser-port (open-input-bytes ser))
+   (define quit (make-progress (λ () (progress^ (ceiling (/ (file-position ser-port) 64 1024))
+                                                (ceiling (/ (bytes-length ser) 64 1024))
+                                                (format "Posting... (~a/~a)" i slices)))
+                               2))
+   (define res
+     (post (format "http://localhost:8983/solr/~a/update?commit=true" wikiname)
+           #:data ser-port
+           #:headers '#hasheq((Content-Type . "application/json"))
+           #:timeouts (make-timeout-config #:lease 5 #:connect 5 #:request 300)))
+   (quit)
+ (displayln (response-status-line res))))
 
 (run start)

From 6260ba809bdd2321fa59c6133f749f2db0d23e17 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 1 May 2024 00:53:09 +1200
Subject: [PATCH 151/166] Fix running out of file descriptors

---
 lib/thread-utils.rkt           |  3 +--
 src/application-globals.rkt    |  3 ---
 src/data.rkt                   | 20 +++++++-------
 src/dispatcher-tree.rkt        | 21 +++++++++++++--
 src/fandom-request.rkt         | 48 ++++++++++++++++++++++++++++++++++
 src/page-category.rkt          | 42 +++++++++++++----------------
 src/page-file.rkt              | 23 +++++++---------
 src/page-search.rkt            |  2 --
 src/page-wiki.rkt              | 34 +++++++++++++-----------
 src/search-provider-fandom.rkt | 24 +++++++----------
 src/search-provider-solr.rkt   |  3 +--
 src/whole-utils.rkt            | 11 --------
 12 files changed, 134 insertions(+), 100 deletions(-)
 create mode 100644 src/fandom-request.rkt
 delete mode 100644 src/whole-utils.rkt

diff --git a/lib/thread-utils.rkt b/lib/thread-utils.rkt
index f907dac7..66e2b4c7 100644
--- a/lib/thread-utils.rkt
+++ b/lib/thread-utils.rkt
@@ -1,6 +1,5 @@
 #lang racket/base
-(require (prefix-in easy: net/http-easy)
-         "../src/data.rkt"
+(require "../src/data.rkt"
          "xexpr-utils.rkt")
 
 (provide
diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index de60820a..fb8f1186 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -22,8 +22,6 @@
 (provide
  ; headers to always send on all http responses
  always-headers
- ; timeout durations for http-easy requests
- timeouts
  ; generates a consistent footer
  application-footer
  ; generates a consistent template for wiki page content to sit in
@@ -39,7 +37,6 @@
 (define always-headers
   (list (header #"Referrer-Policy" #"same-origin") ; header to not send referers to fandom
         (header #"Link" (string->bytes/latin-1 link-header))))
-(define timeouts (easy:make-timeout-config #:lease 5 #:connect 5))
 
 (define-runtime-path path-static "../static")
 (define theme-icons
diff --git a/src/data.rkt b/src/data.rkt
index b22e8a0c..6975b376 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -7,8 +7,8 @@
          (prefix-in easy: net/http-easy)
          db
          memo
+         "fandom-request.rkt"
          "static-data.rkt"
-         "whole-utils.rkt"
          "../lib/url-utils.rkt"
          "../lib/xexpr-utils.rkt"
          "../archiver/archiver-database.rkt"
@@ -54,16 +54,14 @@
                               (vector-ref row 3)))
          siteinfo-default)]
     [else
-     (define dest-url
-       (format "https://~a.fandom.com/api.php?~a"
-               wikiname
-               (params->query '(("action" . "query")
-                                ("meta" . "siteinfo")
-                                ("siprop" . "general|rightsinfo")
-                                ("format" . "json")
-                                ("formatversion" . "2")))))
-     (log-outgoing dest-url)
-     (define res (easy:get dest-url))
+     (define res
+       (fandom-get-api
+        wikiname
+        (params->query '(("action" . "query")
+                         ("meta" . "siteinfo")
+                         ("siprop" . "general|rightsinfo")
+                         ("format" . "json")
+                         ("formatversion" . "2")))))
      (define data (easy:response-json res))
      (siteinfo^ (jp "/query/general/sitename" data)
                 (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 48e8ebba..02122423 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -33,12 +33,29 @@
   ; don't forget that I'm returning *code* - return a call to the function
   (datum->syntax stx `(make-dispatcher-tree ,ds)))
 
+; guard that the page returned a response, otherwise print more detailed debugging information
+(define-syntax-rule (page ds name)
+  (λ (req)
+    (define dispatcher (hash-ref ds (quote name)))
+    (define page-response (dispatcher req))
+    (if (response? page-response)
+        page-response
+        (response/output
+         #:code 500
+         #:mime-type #"text/plain"
+         (λ (out)
+           (for ([port (list (current-error-port) out)])
+             (parameterize ([current-output-port port])
+               (printf "error in ~a:~n  expected page to return a response~n  actually returned: ~v~n"
+                       (quote name)
+                       page-response))))))))
+
 (define (make-dispatcher-tree ds)
   (define subdomain-dispatcher (hash-ref ds 'subdomain-dispatcher))
   (define tree
     (sequencer:make
      subdomain-dispatcher
-     (pathprocedure:make "/" (hash-ref ds 'page-home))
+     (pathprocedure:make "/" (page ds page-home))
      (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
      (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
      (pathprocedure:make "/set-user-settings" (hash-ref ds 'page-set-user-settings))
@@ -48,7 +65,7 @@
      (if (config-true? 'feature_offline::enabled)
          (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki-offline)))
          (λ (_conn _req) (next-dispatcher)))
-     (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
+     (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (page ds page-wiki)))
      (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
      (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
      (if (config-true? 'feature_offline::enabled)
diff --git a/src/fandom-request.rkt b/src/fandom-request.rkt
new file mode 100644
index 00000000..966eeee8
--- /dev/null
+++ b/src/fandom-request.rkt
@@ -0,0 +1,48 @@
+#lang typed/racket/base
+(require "config.rkt"
+         "../lib/url-utils.rkt")
+(define-type Headers (HashTable Symbol (U Bytes String)))
+(require/typed net/http-easy
+  [#:opaque Timeout-Config timeout-config?]
+  [#:opaque Response response?]
+  [#:opaque Session session?]
+  [current-session (Parameter Session)]
+  [make-timeout-config ([#:lease Positive-Real] [#:connect Positive-Real] -> Timeout-Config)]
+  [get ((U Bytes String)
+        [#:close? Boolean]
+        [#:headers Headers]
+        [#:timeouts Timeout-Config]
+        [#:max-attempts Exact-Positive-Integer]
+        [#:max-redirects Exact-Nonnegative-Integer]
+        [#:user-agent (U Bytes String)]
+        -> Response)])
+
+(provide
+ fandom-get
+ fandom-get-api
+ timeouts)
+
+(define timeouts (make-timeout-config #:lease 5 #:connect 5))
+
+(: no-headers Headers)
+(define no-headers '#hasheq())
+
+(: fandom-get (String String [#:headers (Option Headers)] -> Response))
+(define (fandom-get wikiname path #:headers [headers #f])
+  (define dest-url (string-append "https://www.fandom.com" path))
+  (define host (string-append wikiname ".fandom.com"))
+  (log-outgoing wikiname path)
+  (get dest-url
+       #:timeouts timeouts
+       #:headers (hash-set (or headers no-headers) 'Host host)))
+
+(: fandom-get-api (String (Listof (Pair String String)) [#:headers (Option Headers)] -> Response))
+(define (fandom-get-api wikiname params #:headers [headers #f])
+  (fandom-get wikiname
+              (string-append "/api.php?" (params->query params))
+              #:headers headers))
+
+(: log-outgoing (String String -> Void))
+(define (log-outgoing wikiname path)
+  (when (config-true? 'log_outgoing)
+    (printf "out: ~a ~a~n" wikiname path)))
diff --git a/src/page-category.rkt b/src/page-category.rkt
index 213d4236..e1fe659a 100644
--- a/src/page-category.rkt
+++ b/src/page-category.rkt
@@ -15,11 +15,11 @@
          "application-globals.rkt"
          "config.rkt"
          "data.rkt"
+         "fandom-request.rkt"
          "page-wiki.rkt"
          "../lib/syntax.rkt"
          "../lib/thread-utils.rkt"
          "../lib/url-utils.rkt"
-         "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
 
 (provide
@@ -73,30 +73,24 @@
    (define-values (members-data page-data siteinfo)
      (thread-values
       (λ ()
-        (define dest-url
-          (format "~a/api.php?~a"
-                  origin
-                  (params->query `(("action" . "query")
-                                   ("list" . "categorymembers")
-                                   ("cmtitle" . ,prefixed-category)
-                                   ("cmlimit" . "max")
-                                   ("formatversion" . "2")
-                                   ("format" . "json")))))
-        (log-outgoing dest-url)
-        (define dest-res (easy:get dest-url #:timeouts timeouts))
-        (easy:response-json dest-res))
+        (easy:response-json
+         (fandom-get-api
+          wikiname
+          `(("action" . "query")
+            ("list" . "categorymembers")
+            ("cmtitle" . ,prefixed-category)
+            ("cmlimit" . "max")
+            ("formatversion" . "2")
+            ("format" . "json")))))
       (λ ()
-        (define dest-url
-          (format "~a/api.php?~a"
-                  origin
-                  (params->query `(("action" . "parse")
-                                   ("page" . ,prefixed-category)
-                                   ("prop" . "text|headhtml|langlinks")
-                                   ("formatversion" . "2")
-                                   ("format" . "json")))))
-        (log-outgoing dest-url)
-        (define dest-res (easy:get dest-url #:timeouts timeouts))
-        (easy:response-json dest-res))
+        (easy:response-json
+         (fandom-get-api
+          wikiname
+          `(("action" . "parse")
+            ("page" . ,prefixed-category)
+            ("prop" . "text|headhtml|langlinks")
+            ("formatversion" . "2")
+            ("format" . "json")))))
       (λ ()
         (siteinfo-fetch wikiname))))
 
diff --git a/src/page-file.rkt b/src/page-file.rkt
index 2a7332c1..5151f1d1 100644
--- a/src/page-file.rkt
+++ b/src/page-file.rkt
@@ -15,11 +15,11 @@
          "application-globals.rkt"
          "config.rkt"
          "data.rkt"
+         "fandom-request.rkt"
          "page-wiki.rkt"
          "../lib/syntax.rkt"
          "../lib/thread-utils.rkt"
          "../lib/url-utils.rkt"
-         "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
 
 (provide page-file)
@@ -40,8 +40,7 @@
              (imageDescription . #f))))
 
 (define (url-content-type url)
-  (log-outgoing url)
-  (define dest-res (easy:head url #:timeouts timeouts))
+  (define dest-res (easy:head url))
   (easy:response-headers-ref dest-res 'content-type))
 
 (define (get-media-html url content-type)
@@ -106,20 +105,18 @@
   (response-handler
    (define wikiname (path/param-path (first (url-path (request-uri req)))))
    (define prefixed-title (path/param-path (caddr (url-path (request-uri req)))))
-   (define origin (format "https://~a.fandom.com" wikiname))
-   (define source-url (format "~a/wiki/~a" origin prefixed-title))
+   (define source-url (format "https://~a.fandom.com/wiki/~a" wikiname prefixed-title))
 
    (define-values (media-detail siteinfo)
      (thread-values
       (λ ()
-        (define dest-url
-          (format "~a/wikia.php?~a"
-                  origin
-                  (params->query `(("format" . "json") ("controller" . "Lightbox")
-                                                       ("method" . "getMediaDetail")
-                                                       ("fileTitle" . ,prefixed-title)))))
-        (log-outgoing dest-url)
-        (define dest-res (easy:get dest-url #:timeouts timeouts))
+        (define dest-res
+          (fandom-get
+           wikiname
+           (format "/wikia.php?~a"
+                   (params->query `(("format" . "json") ("controller" . "Lightbox")
+                                                        ("method" . "getMediaDetail")
+                                                        ("fileTitle" . ,prefixed-title))))))
         (easy:response-json dest-res))
       (λ ()
         (siteinfo-fetch wikiname))))
diff --git a/src/page-search.rkt b/src/page-search.rkt
index 019ebfec..39f361a7 100644
--- a/src/page-search.rkt
+++ b/src/page-search.rkt
@@ -2,7 +2,6 @@
 (require racket/dict
          racket/list
          racket/string
-         (prefix-in easy: net/http-easy)
          ; html libs
          html-writing
          ; web server libs
@@ -18,7 +17,6 @@
          "../lib/syntax.rkt"
          "../lib/thread-utils.rkt"
          "../lib/url-utils.rkt"
-         "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
 
 (provide
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index ae060d46..f16792c3 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -17,12 +17,12 @@
          "application-globals.rkt"
          "config.rkt"
          "data.rkt"
+         "fandom-request.rkt"
          "../lib/pure-utils.rkt"
          "../lib/syntax.rkt"
          "../lib/thread-utils.rkt"
          "../lib/tree-updater.rkt"
          "../lib/url-utils.rkt"
-         "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
 
 (provide
@@ -38,25 +38,20 @@
 (define (page-wiki req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))
   (define user-cookies (user-cookies-getter req))
-  (define origin (format "https://~a.fandom.com" wikiname))
   (define path (string-join (map path/param-path (cddr (url-path (request-uri req)))) "/"))
   (define source-url (format "https://~a.fandom.com/wiki/~a" wikiname path))
 
   (define-values (dest-res siteinfo)
     (thread-values
      (λ ()
-       (define dest-url
-         (format "~a/api.php?~a"
-                 origin
-                 (params->query `(("action" . "parse")
-                                  ("page" . ,path)
-                                  ("prop" . "text|headhtml|langlinks")
-                                  ("formatversion" . "2")
-                                  ("format" . "json")))))
-       (log-outgoing dest-url)
-       (easy:get dest-url
-                 #:timeouts timeouts
-                 #:headers `#hasheq((cookie . ,(format "theme=~a" (user-cookies^-theme user-cookies))))))
+       (fandom-get-api
+        wikiname
+        `(("action" . "parse")
+          ("page" . ,path)
+          ("prop" . "text|headhtml|langlinks")
+          ("formatversion" . "2")
+          ("format" . "json"))
+        #:headers `#hasheq((cookie . ,(format "theme=~a" (user-cookies^-theme user-cookies))))))
      (λ ()
        (siteinfo-fetch wikiname))))
 
@@ -103,4 +98,13 @@
              #:code 200
              #:headers headers
              (λ (out)
-               (write-html body out))))))]))
+               (write-html body out))))))]
+    [(eq? 404 (easy:response-status-code dest-res))
+     (next-dispatcher)]
+    [else
+     (response-handler
+      (error 'page-wiki "Tried to load page ~a/~v~nSadly, the page didn't load because Fandom returned status code ~a with response:~n~a"
+             wikiname
+             path
+             (easy:response-status-code dest-res)
+             (easy:response-body dest-res)))]))
diff --git a/src/search-provider-fandom.rkt b/src/search-provider-fandom.rkt
index 2338c136..b8dd48f9 100644
--- a/src/search-provider-fandom.rkt
+++ b/src/search-provider-fandom.rkt
@@ -3,8 +3,8 @@
          (prefix-in easy: net/http-easy)
          "application-globals.rkt"
          "config.rkt"
+         "fandom-request.rkt"
          "../lib/url-utils.rkt"
-         "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
 
 (provide
@@ -17,20 +17,14 @@
     '(#hasheq((ns . 0) (pageid . 219) (size . 1482) (snippet . "") (timestamp . "2022-08-21T08:54:23Z") (title . "Gacha Capsule") (wordcount . 214)) #hasheq((ns . 0) (pageid . 201) (size . 1198) (snippet . "") (timestamp . "2022-07-11T17:52:47Z") (title . "Badges") (wordcount . 181)))))
 
 (define (search-fandom wikiname query params)
-  ;; constructing the URL where I want to get fandom data from...
-  (define origin (format "https://~a.fandom.com" wikiname))
-  ;; the dest-URL will look something like https://minecraft.fandom.com/api.php?action=query&list=search&srsearch=Spawner&formatversion=2&format=json
-  (define dest-url
-    (format "~a/api.php?~a"
-            origin
-            (params->query `(("action" . "query")
-                             ("list" . "search")
-                             ("srsearch" . ,query)
-                             ("formatversion" . "2")
-                             ("format" . "json")))))
-  ;; HTTP request to dest-url for search results
-  (log-outgoing dest-url)
-  (define res (easy:get dest-url #:timeouts timeouts))
+  (define res
+    (fandom-get-api
+     wikiname
+     `(("action" . "query")
+       ("list" . "search")
+       ("srsearch" . ,query)
+       ("formatversion" . "2")
+       ("format" . "json"))))
   (define json (easy:response-json res))
   (define search-results (jp "/query/search" json))
   (generate-results-content-fandom wikiname query search-results))
diff --git a/src/search-provider-solr.rkt b/src/search-provider-solr.rkt
index 1ec48e25..31813da0 100644
--- a/src/search-provider-solr.rkt
+++ b/src/search-provider-solr.rkt
@@ -5,7 +5,6 @@
          "application-globals.rkt"
          "../lib/html-parsing/main.rkt"
          "../lib/url-utils.rkt"
-         "whole-utils.rkt"
          "../lib/xexpr-utils.rkt")
 
 (provide
@@ -37,7 +36,7 @@
                              ("sort" . ,(cdr sort))))))
   ;; HTTP request to dest-url for search results
   (log-outgoing dest-url)
-  (define res (easy:get dest-url #:timeouts timeouts))
+  (define res (easy:get dest-url #:timeouts (easy:make-timeout-config #:lease 5 #:connect 5)))
   (define json (easy:response-json res))
 
   ;; build result objects
diff --git a/src/whole-utils.rkt b/src/whole-utils.rkt
deleted file mode 100644
index 71188664..00000000
--- a/src/whole-utils.rkt
+++ /dev/null
@@ -1,11 +0,0 @@
-#lang typed/racket/base
-(require "config.rkt")
-
-(provide
- ; prints "out: <url>"
- log-outgoing)
-
-(: log-outgoing (String -> Void))
-(define (log-outgoing url-string)
-  (when (config-true? 'log_outgoing)
-    (printf "out: ~a~n" url-string)))

From 7dff049ece876d1d31d4537c2176629cabdd7af0 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 1 May 2024 00:57:13 +1200
Subject: [PATCH 152/166] Wrap all pages in response safety checker

---
 src/dispatcher-tree.rkt      | 20 ++++++++++----------
 src/search-provider-solr.rkt |  1 -
 2 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index 02122423..a9670956 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -56,20 +56,20 @@
     (sequencer:make
      subdomain-dispatcher
      (pathprocedure:make "/" (page ds page-home))
-     (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
-     (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
-     (pathprocedure:make "/set-user-settings" (hash-ref ds 'page-set-user-settings))
-     (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
-     (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
-     (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
+     (pathprocedure:make "/proxy" (page ds page-proxy))
+     (pathprocedure:make "/search" (page ds page-global-search))
+     (pathprocedure:make "/set-user-settings" (page ds page-set-user-settings))
+     (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (page ds page-it-works))
+     (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (page ds page-category)))
+     (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (page ds page-file)))
      (if (config-true? 'feature_offline::enabled)
-         (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki-offline)))
+         (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (page ds page-wiki-offline)))
          (λ (_conn _req) (next-dispatcher)))
      (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (page ds page-wiki)))
-     (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (hash-ref ds 'page-search)))
-     (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (hash-ref ds 'redirect-wiki-home)))
+     (filter:make (pregexp (format "^/~a/search$" px-wikiname)) (lift:make (page ds page-search)))
+     (filter:make (pregexp (format "^/~a(/(wiki(/)?)?)?$" px-wikiname)) (lift:make (page ds redirect-wiki-home)))
      (if (config-true? 'feature_offline::enabled)
-         (filter:make (pregexp (format "^/archive/~a/(styles|images)/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-static-archive)))
+         (filter:make (pregexp (format "^/archive/~a/(styles|images)/.+$" px-wikiname)) (lift:make (page ds page-static-archive)))
          (λ (_conn _req) (next-dispatcher)))
      (hash-ref ds 'static-dispatcher)
      (lift:make (hash-ref ds 'page-not-found))))
diff --git a/src/search-provider-solr.rkt b/src/search-provider-solr.rkt
index 31813da0..c15e31ff 100644
--- a/src/search-provider-solr.rkt
+++ b/src/search-provider-solr.rkt
@@ -35,7 +35,6 @@
                              ("hl.tag.post" . "</mark>")
                              ("sort" . ,(cdr sort))))))
   ;; HTTP request to dest-url for search results
-  (log-outgoing dest-url)
   (define res (easy:get dest-url #:timeouts (easy:make-timeout-config #:lease 5 #:connect 5)))
   (define json (easy:response-json res))
 

From d2765c2a78a5413d4ab9e7f3e7676521f0372fa6 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 2 May 2024 00:01:32 +1200
Subject: [PATCH 153/166] Fix duplicate params->query

---
 src/data.rkt | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/data.rkt b/src/data.rkt
index 6975b376..9fd0774d 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -57,11 +57,11 @@
      (define res
        (fandom-get-api
         wikiname
-        (params->query '(("action" . "query")
-                         ("meta" . "siteinfo")
-                         ("siprop" . "general|rightsinfo")
-                         ("format" . "json")
-                         ("formatversion" . "2")))))
+        '(("action" . "query")
+          ("meta" . "siteinfo")
+          ("siprop" . "general|rightsinfo")
+          ("format" . "json")
+          ("formatversion" . "2"))))
      (define data (easy:response-json res))
      (siteinfo^ (jp "/query/general/sitename" data)
                 (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))

From 0fd0efc3f2371e25ba8ff5e8725b179428ed7c29 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 4 May 2024 18:01:50 +1200
Subject: [PATCH 154/166] Use default siteinfo when online wiki not found

---
 src/data.rkt | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/data.rkt b/src/data.rkt
index 9fd0774d..5aba2c2b 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -62,11 +62,13 @@
           ("siprop" . "general|rightsinfo")
           ("format" . "json")
           ("formatversion" . "2"))))
-     (define data (easy:response-json res))
-     (siteinfo^ (jp "/query/general/sitename" data)
-                (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
-                (license^ (jp "/query/rightsinfo/text" data)
-                          (jp "/query/rightsinfo/url" data)))]))
+     (cond [(= (easy:response-status-code res) 200)
+            (define data (easy:response-json res))
+            (siteinfo^ (jp "/query/general/sitename" data)
+                       (second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
+                       (license^ (jp "/query/rightsinfo/text" data)
+                                 (jp "/query/rightsinfo/url" data)))]
+           [else siteinfo-default])]))
 
 (define/memoize (head-data-getter wikiname) #:hash hash
   ;; data will be stored here, can be referenced by the memoized closure

From 2e0bd786ec60591382fbb9f31b9689a03c30b84f Mon Sep 17 00:00:00 2001
From: Evalprime <evalprime@noreply.gitdab.com>
Date: Sun, 25 Feb 2024 20:45:52 +0000
Subject: [PATCH 155/166] add tardis

---
 src/application-globals.rkt |  2 +-
 src/extwiki-data.rkt        | 16 ++++++++++++++++
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index fb8f1186..4d8e27e4 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -110,7 +110,7 @@
                       (div (@ (class "niwa__left"))
                            (p ,((extwiki-group^-description group) props))
                            (p ,((extwiki^-description xt) props))
-                           (p "This wiki's core community has wholly migrated away from Fandom. You should "
+                           (p "This wiki's core community has largely migrated away from Fandom. You should "
                               (a (@ (href ,go)) "go to " ,(extwiki^-name xt) " now!"))
                            (p (@ (class "niwa__feedback"))
                               ,@(add-between
diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 5628078e..77aa27a1 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -71,6 +71,13 @@
            (λ (props)
              '(p "The wiki was founded by Citricsquid on July 16th, 2009 as a way to document information from Minecraft. Since November 15th, 2010, it has been hosted by Curse Media. On December 12th, 2018, it moved to Fandom as it purchased Curse Media. Since September 24, 2023, it forked from Fandom and has been hosted by Weird Gloop.")))
 
+          'Tardis
+          (extwiki-group^
+           "Tardis"
+           '(("Forking announcement" . "https://tardis.wiki/wiki/Tardis:Forking_announcement")
+             ("Discussion on Reddit" . "https://old.reddit.com/r/doctorwho/comments/1azxmrl/tardis_wiki_has_regenerated/"))
+           (λ (props) '()))
+
           'empty
           (extwiki-group^
            "Misc"
@@ -419,6 +426,15 @@
     (λ (props)
       `()))
 
+   (extwiki^
+    '("tardis") 'default
+    'Tardis
+    "Tardis Data Core"
+    "https://tardis.wiki/wiki/Doctor_Who_Wiki"
+    "https://tardis.wiki/images/Tardis_images/e/e6/Site-logo.png"
+    (λ (props)
+      `()))
+
    ;; fandom wikinames * empty * empty * Name * Home Page
    (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
    (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)

From 755efe3cd65968b626c3d661d83c44e468428322 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 5 Jun 2024 23:07:05 +1200
Subject: [PATCH 156/166] Tabber code size and quality

---
 src/application-globals.rkt |  2 +-
 static/tabs.js              | 92 ++++++++++++-------------------------
 2 files changed, 30 insertions(+), 64 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index ff0e81f0..e5747076 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -172,7 +172,7 @@
        (define styles
          (list
           (format "~a/wikia.php?controller=ThemeApi&method=themeVariables&variant=~a" origin (user-cookies^-theme user-cookies))
-          (format "~a/load.php?lang=en&modules=site.styles%7Cskin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.gadget.site-styles%2Csound-styles&only=styles&skin=fandomdesktop" origin)))
+          (format "~a/load.php?lang=en&modules=site.styles%7Cskin.fandomdesktop.styles%7Cext.fandom.PortableInfoboxFandomDesktop.css%7Cext.fandom.GlobalComponents.CommunityHeaderBackground.css%7Cext.fandom.photoGallery.gallery.css%7Cext.gadget.site-styles%2Csound-styles&only=styles&skin=fandomdesktop" origin)))
        (if (config-true? 'strict_proxy)
            (map u-proxy-url styles)
            styles)]
diff --git a/static/tabs.js b/static/tabs.js
index a077efec..718b48ec 100644
--- a/static/tabs.js
+++ b/static/tabs.js
@@ -1,74 +1,40 @@
 "use strict";
 
-let tabToFind = location.hash.length > 1 ? location.hash.substring(1) : null;
-for (let tabber of document.body.querySelectorAll(".wds-tabber")) {
-    let [tabs, contents] = getTabs(tabber);
+const tabFromHash = location.hash.length > 1 ? location.hash.substring(1) : null
 
-    for (let i in tabs) {
-        let tab = tabs[i];
-        let content = contents[i];
+for (const tabber of document.body.querySelectorAll(".wds-tabber")) {
+	for (const [tab, content] of getTabberTabs(tabber)) {
+		// set up click listener on every tab
+		tab.addEventListener("click", e => {
+			setCurrentTab(tabber, tab, content)
+			e.preventDefault()
+		})
 
-        tab.addEventListener("click", function(e) {
-            setCurrentTab(tabber, tab, content);
-            e.preventDefault();
-        });
-        if (tab.dataset.hash === tabToFind) {
-            setCurrentTab(tabber, tab, content);
-        }
-    }
-}
-document.body.classList.remove("bw-tabs-nojs");
-
-
-
-function getTabs(tabber) {
-    let tabs = [];
-    let contents = [];
-
-    for (let i of tabber.querySelector(".wds-tabs__wrapper").querySelectorAll(".wds-tabs__tab")) {
-        tabs.push(i);
-    }
-    for (let i of tabber.children) {
-        if (!i.matches(".wds-tab__content")) {
-            continue;
-        }
-        contents.push(i);
-    }
-
-    return [tabs, contents];
+		// re-open a specific tab on page load based on the URL hash
+		if (tab.dataset.hash === tabFromHash) {
+			setCurrentTab(tabber, tab, content)
+			tab.scrollIntoView()
+		}
+	}
 }
 
-function getCurrentTab(tabber) {
-    let tab = null;
-    let content = null;
-
-    tab = tabber.querySelector(".wds-tabs__wrapper").querySelector(".wds-tabs__tab.wds-is-current");
-    for (let i of tabber.children) {
-        if (!i.matches(".wds-tab__content.wds-is-current")) {
-            continue;
-        }
-        content = i;
-        break;
-    }
-
-    return [tab, content];
+function getTabberTabs(tabber) {
+	// need to scope the selector to handle nested tabs. see /unturned/wiki/Crate for an example
+	const tabs = [...tabber.querySelectorAll(":scope > .wds-tabs__wrapper .wds-tabs__tab")]
+	const contents = [...tabber.querySelectorAll(":scope > .wds-tab__content")]
+	return tabs.map((_, index) => [tabs[index], contents[index]]) // transpose arrays into [[tab, content], ...]
 }
 
 function setCurrentTab(tabber, tab, content) {
-    let [currentTab, currentContent] = getCurrentTab(tabber);
-    if (currentTab) {
-        currentTab.classList.remove("wds-is-current");
-    }
-    if (currentContent) {
-        currentContent.classList.remove("wds-is-current");
-    }
+	// clear currently selected tab
+	getTabberTabs(tabber).flat().forEach(e => e.classList.remove("wds-is-current"))
 
-    tab.classList.add("wds-is-current");
-    content.classList.add("wds-is-current");
-    if (tab.dataset.hash) {
-        let fragment = "#" + tab.dataset.hash;
-        if (location.hash !== fragment) {
-            history.pushState(null, "", fragment);
-        }
-    }
+	// select new tab
+	tab.classList.add("wds-is-current")
+	content.classList.add("wds-is-current")
+	if (tab.dataset.hash) {
+		history.replaceState(null, "", `#${tab.dataset.hash}`)
+	}
 }
+
+document.body.classList.remove("bw-tabs-nojs")

From 5672f468862951837f54c792bddd9758f64a4738 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 1 Jul 2024 01:28:27 +1200
Subject: [PATCH 157/166] Add new independent wikis

---
 src/application-globals.rkt |  2 +-
 src/extwiki-data.rkt        | 68 +++++++++++++++++++++++++++++++++++--
 2 files changed, 66 insertions(+), 4 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index e5747076..6d940ac6 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -108,8 +108,8 @@
                  (a (@ (class "niwa__go") (href ,go)) "Read " ,title " on " ,(extwiki^-name xt) " →")
                  (div (@ (class "niwa__cols"))
                       (div (@ (class "niwa__left"))
-                           (p ,((extwiki-group^-description group) props))
                            (p ,((extwiki^-description xt) props))
+                           (p ,((extwiki-group^-description group) props))
                            (p "This wiki's core community has largely migrated away from Fandom. You should "
                               (a (@ (href ,go)) "go to " ,(extwiki^-name xt) " now!"))
                            (p (@ (class "niwa__feedback"))
diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 77aa27a1..29997c44 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -27,6 +27,13 @@
            (λ (props)
              `(p "The Square Enix Indpendent Wiki Alliance, or SEIWA, is a network of independent wikis established in 2011 and focused on providing high-quality coverage of Square Enix and its content. We work together, along with our affiliates and others, to co-operate and support one another while providing the best-quality content on the various Square Enix video games and media.")))
 
+          'GWN
+          (extwiki-group^
+           "GWN"
+           '(("Gaming Wiki Network" . "https://gamingwikinetwork.org/"))
+           (λ (props)
+             `(p "This wiki is part of the Gaming Wiki Network, a network of independently-hosted wikis about video game franchises. The GWN was founded on October 21, 2022. It aims to support all gaming communities in building independently-hosted wikis.")))
+
           'Terraria
           (extwiki-group^
            "Terraria"
@@ -316,11 +323,11 @@
    (extwiki^
     '("zelda" "zelda-archive") 'default
     'NIWA
-    "Zeldapedia"
-    "https://zeldapedia.wiki/wiki/Main_Page"
+    "Zelda Wiki"
+    "https://zeldawiki.wiki/wiki/Main_Page"
     "https://niwanetwork.org/images/logos/zeldapedia.png"
     (λ (props)
-      `((p "Founded on April 23, 2005 as Zelda Wiki, today's Zeldapedia is your definitive source for encyclopedic information on The Legend of Zelda series, as well as all of the latest Zelda news. Zeldapedia went independent from Fandom in October 2022, citing Fandom's recent buyouts and staffing decisions among their reasons."))))
+      `((p "Founded on April 23, 2005, Zelda Wiki is your definitive source for encyclopedic information on The Legend of Zelda series, as well as all of the latest Zelda news. Zelda Wiki went independent from Fandom in October 2022, citing Fandom's recent buyouts and staffing decisions among their reasons."))))
 
    (extwiki^
     '("chrono") 'default
@@ -435,6 +442,61 @@
     (λ (props)
       `()))
 
+   (extwiki^
+    '("wizardry") 'default
+    'GWN
+    "Wizardry Wiki"
+    "https://wizardry.wiki.gg/wiki/Wizardry_Wiki"
+    "https://wizardry.wiki.gg/images/e/e6/Site-logo.png"
+    (λ (props)
+      `((p "On March 21, 2023, the wiki has decided to leave and abandoning from Fandom due to numerous of issues such as intrusive advertising, long-lasting bugs, restrictions on customization, etcetera. Wizardry Wiki was officially inducted into the wiki.gg wikifarm, with all contents forked over.")
+        (p "The wiki has partnered with " (a (@ (href "https://fallout.wiki/")) "Independent Fallout Wiki") " as of June 14, 2024."))))
+
+   (extwiki^
+    '("jackryan") 'default
+    'GWN
+    "Tom Clancy Wiki"
+    "https://tomclancy.wiki.gg/wiki/Tom_Clancy_Wiki"
+    "https://tomclancy.wiki.gg/images/thumb/c/c5/Jack_Ryan_Logo_Dark.png/600px-Jack_Ryan_Logo_Dark.png"
+    (λ (props)
+      `((p "The Tom Clancy Wiki is a collaborative encyclopedia dedicated to Tom Clancy’s franchises. The Tom Clancy franchise is a 40-year old expansive franchise founded by Tom Clancy, telling several unique sagas through books, video games, and films, as well as a TV show."))))
+
+    (extwiki^
+     '("hollowknight") 'default
+     'GWN
+     "Hollow Knight Wiki"
+     "https://hollowknight.wiki/wiki/Main_Page"
+     "https://gamingwikinetwork.org/images/logos/hollowknight.png"
+     (λ (props)
+       `((p "We are an independently hosted wiki for the games Hollow Knight and Hollow Knight: Silksong, created by fans, for fans. The wiki is a fork of the FANDOM Hollow Knight Wiki and was officially unveiled on October 31, 2023."))))
+
+    (extwiki^
+     '("hellokitty" "sanrio") 'default
+     'GWN
+     "Sanrio Wiki"
+     "https://sanriowiki.com/wiki/Sanrio_Wiki"
+     "https://cdn.sanriowiki.com/wiki.png"
+     (λ (props)
+       `((p "Sanrio Wiki is a project that was started on April 14, 2015 by EvieMelody. It was hosted on the wiki-farm ShoutWiki and has since become independent."))))
+
+    (extwiki^
+     '("sto") 'default
+     'GWN
+     "Star Trek Online Wiki"
+     "https://stowiki.net/wiki/Main_Page"
+     "https://gamingwikinetwork.org/images/logos/stowiki.png"
+     (λ (props)
+       `()))
+
+    (extwiki^
+     '("rayman-game" "ubisoftrayman") 'default
+     'GWN
+     "Rayman Wiki"
+     "https://raymanpc.com/wiki/en/Main_Page"
+     "https://raymanpc.com/wiki/script-en/resources/assets/logo-en.png?5c608"
+     (λ (props)
+       `()))
+
    ;; fandom wikinames * empty * empty * Name * Home Page
    (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
    (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)

From 1ef184547b2be6715318c3d749d3114fe61866ec Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 1 Jul 2024 02:28:17 +1200
Subject: [PATCH 158/166] Allow minimising independent wiki notice

---
 src/application-globals.rkt | 18 ++++++++++--------
 src/data.rkt                | 25 ++++++++++++++++++++-----
 static/main.css             | 17 +++++++++++++++++
 3 files changed, 47 insertions(+), 13 deletions(-)

diff --git a/src/application-globals.rkt b/src/application-globals.rkt
index 6d940ac6..26cd6aeb 100644
--- a/src/application-globals.rkt
+++ b/src/application-globals.rkt
@@ -68,9 +68,6 @@
                           `(p ,(format "This instance is run by the ~a developer, " (config-get 'application_name))
                               (a (@ (href "https://cadence.moe/contact"))
                                  "Cadence")
-                              ". Proudly hosted by "
-                              (a (@ (href "http://alphamethyl.barr0w.net"))
-                                 "Barrow Network Solutions" (sup "XD"))
                               ".")
                           `(p
                             ,(format "This unofficial instance is based off the ~a source code, but is not controlled by the code developer." (config-get 'application_name)))))
@@ -88,11 +85,13 @@
 
 ;; generate a notice with a link if a fandom wiki has a replacement as part of NIWA or similar
 ;; if the wiki has no replacement, display nothing
-(define (extwiki-notice wikiname title)
+(define (extwiki-notice wikiname title req user-cookies)
   (define xt (findf (λ (item) (member wikiname (extwiki^-wikinames item))) extwikis))
   (cond/var
    [xt
-    (let* ([group (hash-ref extwiki-groups (extwiki^-group xt))]
+    (let* ([seen? (member wikiname (user-cookies^-notices user-cookies))]
+           [aside-class (if seen? "niwa__notice niwa--seen" "niwa__notice")]
+           [group (hash-ref extwiki-groups (extwiki^-group xt))]
            [search-page (format "/Special:Search?~a"
                                 (params->query `(("search" . ,title)
                                                  ("go" . "Go"))))]
@@ -103,7 +102,7 @@
            [props (extwiki-props^ go)])
       (cond
         [(eq? (extwiki^-banner xt) 'default)
-         `(aside (@ (class "niwa__notice"))
+         `(aside (@ (class ,aside-class))
                  (h1 (@ (class "niwa__header")) ,(extwiki^-name xt) " has its own website separate from Fandom.")
                  (a (@ (class "niwa__go") (href ,go)) "Read " ,title " on " ,(extwiki^-name xt) " →")
                  (div (@ (class "niwa__cols"))
@@ -117,7 +116,10 @@
                                  `(,@(for/list ([link (extwiki-group^-links group)])
                                        `(a (@ (href ,(cdr link))) ,(car link)))
                                    "This notice is from BreezeWiki"
-                                   (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "Feedback?"))
+                                   (a (@ (rel "nofollow")
+                                         (class "niwa__got-it")
+                                         (href ,(user-cookies-setter-url/add-notice req user-cookies wikiname)))
+                                      "OK, got it"))
                                  " / ")))
                       (div (@ (class "niwa__right"))
                            (img (@ (class "niwa__logo") (src ,(extwiki^-logo xt)))))))]
@@ -225,7 +227,7 @@
                 (div (@ (class "fandom-community-header__background tileHorizontally header")))
                 (div (@ (class "page"))
                      (main (@ (class "page__main"))
-                           ,(extwiki-notice wikiname title)
+                           ,(extwiki-notice wikiname title req user-cookies)
                            (div (@ (class "custom-top"))
                                 (h1 (@ (class "page-title")) ,title)
                                 (nav (@ (class "sitesearch"))
diff --git a/src/data.rkt b/src/data.rkt
index 5aba2c2b..63c7f034 100644
--- a/src/data.rkt
+++ b/src/data.rkt
@@ -1,6 +1,7 @@
 #lang racket/base
 (require racket/list
          racket/match
+         racket/string
          web-server/http/request-structs
          net/url-string
          (only-in net/cookies/server cookie-header->alist cookie->set-cookie-header make-cookie)
@@ -27,7 +28,8 @@
  user-cookies-getter
  user-cookies-default
  user-cookies-setter
- user-cookies-setter-url)
+ user-cookies-setter-url
+ user-cookies-setter-url/add-notice)
 
 (struct siteinfo^ (sitename basepage license) #:transparent)
 (struct license^ (text url) #:transparent)
@@ -90,8 +92,8 @@
     ;; then no matter what, return the best information we have so far
     this-data))
 
-(struct user-cookies^ (theme) #:prefab)
-(define user-cookies-default (user-cookies^ 'default))
+(struct user-cookies^ (theme notices) #:prefab)
+(define user-cookies-default (user-cookies^ 'default '()))
 (define (user-cookies-getter req)
   (define cookie-header (headers-assq* #"cookie" (request-headers/raw req)))
   (define cookies-alist (if cookie-header (cookie-header->alist (header-value cookie-header) bytes->string/utf-8) null))
@@ -100,16 +102,29 @@
       (match pair
         [(cons "theme" (and theme (or "light" "dark" "default")))
          (values 'theme (string->symbol theme))]
+        [(cons "notices" notices)
+         (values 'notices (string-split notices "|"))]
         [_ (values #f #f)])))
   (user-cookies^
-   (hash-ref cookies-hash 'theme (user-cookies^-theme user-cookies-default))))
+   (hash-ref cookies-hash 'theme (user-cookies^-theme user-cookies-default))
+   (hash-ref cookies-hash 'notices (user-cookies^-notices user-cookies-default))))
 
 (define (user-cookies-setter user-cookies)
   (map (λ (c) (header #"Set-Cookie" (cookie->set-cookie-header c)))
        (list (make-cookie "theme" (symbol->string (user-cookies^-theme user-cookies))
+                          #:path "/"
+                          #:max-age (* 60 60 24 365 10))
+             (make-cookie "notices" (string-join (user-cookies^-notices user-cookies) "|")
+
                           #:path "/"
                           #:max-age (* 60 60 24 365 10)))))
 
 (define (user-cookies-setter-url req new-settings)
   (format "/set-user-settings?~a"  (params->query `(("next_location" . ,(url->string (request-uri req)))
-                                                    ("new_settings" . ,(format "~a" new-settings))))))
+                                                    ("new_settings" . ,(format "~s" new-settings))))))
+
+(define (user-cookies-setter-url/add-notice req user-cookies notice-name)
+  (user-cookies-setter-url
+   req
+   (struct-copy user-cookies^ user-cookies
+                [notices (cons notice-name (user-cookies^-notices user-cookies))])))
diff --git a/static/main.css b/static/main.css
index bcd612b7..a8e9703e 100644
--- a/static/main.css
+++ b/static/main.css
@@ -431,6 +431,23 @@ a.ext-audiobutton { /* see hearthstone/wiki/Diablo_(Duels_hero) */
     font-size: 14px;
     text-align: right;
 }
+/* more compact notice after it's been seen the first time */
+.niwa--seen {
+    padding: 1.5vw 2vw 2vw;
+    overflow-y: auto;
+    max-height: min(280px, 33vh);
+    font-size: 17px;
+}
+.niwa--seen .niwa__header {
+    font-size: 26px;
+}
+.niwa--seen .niwa__go {
+    padding: 10px 18px;
+    font-size: 20px;
+}
+.niwa--seen .niwa__got-it {
+    display: none;
+}
 
 /* media queries */
 

From 14930f18dc73457f1cb6ef677285333a112a048e Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 1 Jul 2024 02:32:39 +1200
Subject: [PATCH 159/166] Save even more vertical space

---
 static/main.css | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/static/main.css b/static/main.css
index a8e9703e..5b3e7e20 100644
--- a/static/main.css
+++ b/static/main.css
@@ -437,6 +437,8 @@ a.ext-audiobutton { /* see hearthstone/wiki/Diablo_(Duels_hero) */
     overflow-y: auto;
     max-height: min(280px, 33vh);
     font-size: 17px;
+    margin-top: -2vw;
+    margin-bottom: 12px;
 }
 .niwa--seen .niwa__header {
     font-size: 26px;

From 8f0caa913240df0e797c587d460ab460f75528f3 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Mon, 1 Jul 2024 02:45:51 +1200
Subject: [PATCH 160/166] Add Enter the Gungeon wiki.gg redirect

---
 src/extwiki-data.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 29997c44..f190e5f6 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -512,6 +512,7 @@
    (extwiki^ '("doom") 'empty 'empty "DoomWiki.org" "https://doomwiki.org/wiki/Entryway" #f #f)
    (extwiki^ '("dreamscaper") 'empty 'empty "Official Dreamscaper Wiki" "https://dreamscaper.wiki.gg/wiki/Dreamscaper_Wiki" #f #f)
    (extwiki^ '("elderscrolls") 'empty 'empty "UESP" "https://en.uesp.net/wiki/Main_Page" #f #f)
+   (extwiki^ '("enterthegungeon" "exit-the-gungeon" "enter-the-gungeon-archive") 'empty 'empty "Official Enter The Gungeon Wiki" "https://enterthegungeon.wiki.gg/wiki/Enter_the_Gungeon_Wiki" "https://enterthegungeon.wiki.gg/images/e/e6/Site-logo.png" #f)
    (extwiki^ '("fiend-folio") 'empty 'empty "Official Fiend Folio Wiki" "https://fiendfolio.wiki.gg/wiki/Fiend_Folio_Wiki" #f #f)
    (extwiki^ '("foxhole") 'empty 'empty "Foxhole Wiki" "https://foxhole.wiki.gg/wiki/Foxhole_Wiki" #f #f)
    (extwiki^ '("have-a-nice-death") 'empty 'empty "Have a Nice Death Wiki" "https://haveanicedeath.wiki.gg/wiki/Have_a_Nice_Death_Wiki" #f #f)

From 49682b23207443a7766853f4afd90e0dbd4520c8 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 3 Jul 2024 23:37:44 +1200
Subject: [PATCH 161/166] Fix for Racket 8.13

---
 src/config.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/config.rkt b/src/config.rkt
index fec546b9..b1afe0a9 100644
--- a/src/config.rkt
+++ b/src/config.rkt
@@ -104,7 +104,7 @@
   ; all values here are optimised for maximum prettiness
   (parameterize ([pretty-print-columns 80])
     (display "config: ")
-    (pretty-write ((inst sort (Pairof Symbol String))
+    (pretty-write ((inst sort (Pairof Symbol String) Symbol)
                    (hash->list (make-immutable-hasheq combined-alist))
                    symbol<?
                    #:key car))))

From 778cf24957935a9e3852e439ea65dbbb0a6dcd9f Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 4 Jul 2024 19:21:17 +1200
Subject: [PATCH 162/166] Add Granblue redirect

---
 src/extwiki-data.rkt | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index f190e5f6..8971640e 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -89,7 +89,7 @@
           (extwiki-group^
            "Misc"
            '(("This wiki doesn't have a description yet. Add one?" . "https://docs.breezewiki.com/Reporting_Bugs.html"))
-           #f)))
+           (λ (props) '()))))
 
 ;; wikiname, niwa-name, url, logo-url
 (struct extwiki^ (wikinames banner group name home logo description) #:transparent)
@@ -497,6 +497,15 @@
      (λ (props)
        `()))
 
+    (extwiki^
+     '("granblue") 'empty
+     'empty
+     "Granblue Fantasy Wiki"
+     "https://gbf.wiki/"
+     "https://gbf.wiki/images/1/18/Vyrnball.png?0704c"
+     (λ (props)
+       `()))
+
    ;; fandom wikinames * empty * empty * Name * Home Page
    (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
    (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)

From 1e3451a990e64fc75b76ee51bd626ccd57e28127 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 14 Jul 2024 23:25:52 +1200
Subject: [PATCH 163/166] Add HELLMET wiki

---
 src/extwiki-data.rkt | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 8971640e..4a2cca2c 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -506,6 +506,15 @@
      (λ (props)
        `()))
 
+    (extwiki^
+     '("hellmet-roblox") 'empty
+     'empty
+     "HELLMET Wiki"
+     "https://hellmet.miraheze.org/wiki/Main_Page"
+     "https://static.miraheze.org/hellmetwiki/thumb/c/ce/Hellmet_Wiki_Logo.png/135px-Hellmet_Wiki_Logo.png"
+     (λ (props)
+       `()))
+
    ;; fandom wikinames * empty * empty * Name * Home Page
    (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
    (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)

From 8db91d5e32c1a8671d4d7537e381611e5732e8f9 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sun, 14 Jul 2024 23:38:30 +1200
Subject: [PATCH 164/166] Add Rainverse wiki redirect

---
 src/extwiki-data.rkt | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index 4a2cca2c..e283dfba 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -85,6 +85,13 @@
              ("Discussion on Reddit" . "https://old.reddit.com/r/doctorwho/comments/1azxmrl/tardis_wiki_has_regenerated/"))
            (λ (props) '()))
 
+          'Rainverse
+          (extwiki-group^
+           "Rainverse"
+           '(("Forking announcement" . "https://transfem.social/notes/9qsqdkmqi78e01bh"))
+           (λ (props)
+             '()))
+
           'empty
           (extwiki-group^
            "Misc"
@@ -515,6 +522,17 @@
      (λ (props)
        `()))
 
+    (extwiki^
+     '("rain-web-comic") 'default
+     'empty
+     "Rainverse Wiki"
+     "https://rainverse.wiki/wiki/Main_Page"
+     "https://static.miraheze.org/rainversewiki/2/2c/Rain_comic_cover.png"
+     (λ (props)
+       `((p "We have a newly-migrated Rainverse Wiki which escaped from Fandom! Rain is the comic that helped me figure out my gender, so I am really glad to have a wiki on a non-evil host.")
+         (p "Please stop using the abandoned copy of Rain Wiki on Fandom. Fandom is still \"training\" a generator which adds procedurally-generated bullshit to articles, with no way for users to remove or correct it, and they're demanding volunteer wiki admins waste time \"vetting\" the procedurally-generated BS for accuracy. As Jocelyn herself said, \"fuck Fandom forever.\"")
+         (p "If you are interested, please add more articles related to other Rainverse stories."))))
+
    ;; fandom wikinames * empty * empty * Name * Home Page
    (extwiki^ '("aether") 'empty 'empty "Aether Wiki" "https://aether.wiki.gg/wiki/Aether_Wiki" #f #f)
    (extwiki^ '("before-darkness-falls") 'empty 'empty "Before Darkness Falls Wiki" "https://beforedarknessfalls.wiki.gg/wiki/Before_Darkness_Falls_Wiki" #f #f)

From 97c4e54f38558f67abb1a1cc5baec23fa9cc0b21 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Sat, 10 Aug 2024 15:04:13 +1200
Subject: [PATCH 165/166] Fix Tardis Wiki metadata

---
 src/extwiki-data.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/extwiki-data.rkt b/src/extwiki-data.rkt
index e283dfba..a8ee1597 100644
--- a/src/extwiki-data.rkt
+++ b/src/extwiki-data.rkt
@@ -443,9 +443,9 @@
    (extwiki^
     '("tardis") 'default
     'Tardis
-    "Tardis Data Core"
+    "TARDIS Wiki"
     "https://tardis.wiki/wiki/Doctor_Who_Wiki"
-    "https://tardis.wiki/images/Tardis_images/e/e6/Site-logo.png"
+    "https://tardis.wiki/w/images/Tardis_Images/e/e6/Site-logo.png"
     (λ (props)
       `()))
 

From 443f1eecbc4c15c8038920027e62fccbdcb0bbe7 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Wed, 23 Oct 2024 22:52:00 +1300
Subject: [PATCH 166/166] Add user agent and detect blocked pages

---
 src/fandom-request.rkt | 40 +++++++++++++++++++++++++++++++++-------
 src/page-wiki.rkt      | 28 ++++++++++++++++++++++++++--
 2 files changed, 59 insertions(+), 9 deletions(-)

diff --git a/src/fandom-request.rkt b/src/fandom-request.rkt
index 966eeee8..c306b049 100644
--- a/src/fandom-request.rkt
+++ b/src/fandom-request.rkt
@@ -1,12 +1,16 @@
 #lang typed/racket/base
-(require "config.rkt"
+(require racket/format
+         racket/string
+         "config.rkt"
          "../lib/url-utils.rkt")
 (define-type Headers (HashTable Symbol (U Bytes String)))
 (require/typed net/http-easy
   [#:opaque Timeout-Config timeout-config?]
   [#:opaque Response response?]
   [#:opaque Session session?]
+  [response-status-code (Response -> Natural)]
   [current-session (Parameter Session)]
+  [current-user-agent (Parameter (U Bytes String))]
   [make-timeout-config ([#:lease Positive-Real] [#:connect Positive-Real] -> Timeout-Config)]
   [get ((U Bytes String)
         [#:close? Boolean]
@@ -22,19 +26,41 @@
  fandom-get-api
  timeouts)
 
+(unless (string-contains? (~a (current-user-agent)) "BreezeWiki")
+  (current-user-agent
+   (format "BreezeWiki/1.0 (~a) ~a"
+           (if (config-true? 'canonical_origin)
+               (config-get 'canonical_origin)
+               "local")
+           (current-user-agent))))
+
 (define timeouts (make-timeout-config #:lease 5 #:connect 5))
 
+(: last-failure Flonum)
+(define last-failure 0.0)
+(: stored-failure (Option Response))
+(define stored-failure #f)
+(define failure-persist-time 30000)
+
 (: no-headers Headers)
 (define no-headers '#hasheq())
 
 (: fandom-get (String String [#:headers (Option Headers)] -> Response))
 (define (fandom-get wikiname path #:headers [headers #f])
-  (define dest-url (string-append "https://www.fandom.com" path))
-  (define host (string-append wikiname ".fandom.com"))
-  (log-outgoing wikiname path)
-  (get dest-url
-       #:timeouts timeouts
-       #:headers (hash-set (or headers no-headers) 'Host host)))
+  (or
+   (and ((current-inexact-milliseconds) . < . (+ last-failure failure-persist-time)) stored-failure)
+   (let ()
+     (define dest-url (string-append "https://www.fandom.com" path))
+     (define host (string-append wikiname ".fandom.com"))
+     (log-outgoing wikiname path)
+     (define res
+       (get dest-url
+            #:timeouts timeouts
+            #:headers (hash-set (or headers no-headers) 'Host host)))
+     (when (memq (response-status-code res) '(403 406))
+       (set! last-failure (current-inexact-milliseconds))
+       (set! stored-failure res))
+     res)))
 
 (: fandom-get-api (String (Listof (Pair String String)) [#:headers (Option Headers)] -> Response))
 (define (fandom-get-api wikiname params #:headers [headers #f])
diff --git a/src/page-wiki.rkt b/src/page-wiki.rkt
index f16792c3..da636171 100644
--- a/src/page-wiki.rkt
+++ b/src/page-wiki.rkt
@@ -18,6 +18,7 @@
          "config.rkt"
          "data.rkt"
          "fandom-request.rkt"
+         "../lib/archive-file-mappings.rkt"
          "../lib/pure-utils.rkt"
          "../lib/syntax.rkt"
          "../lib/thread-utils.rkt"
@@ -37,8 +38,9 @@
 
 (define (page-wiki req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))
+  (define segments (map path/param-path (cdr (url-path (request-uri req)))))
   (define user-cookies (user-cookies-getter req))
-  (define path (string-join (map path/param-path (cddr (url-path (request-uri req)))) "/"))
+  (define path (string-join (cdr segments) "/"))
   (define source-url (format "https://~a.fandom.com/wiki/~a" wikiname path))
 
   (define-values (dest-res siteinfo)
@@ -101,9 +103,31 @@
                (write-html body out))))))]
     [(eq? 404 (easy:response-status-code dest-res))
      (next-dispatcher)]
+    [(memq (easy:response-status-code dest-res) '(403 406))
+     (response-handler
+      (define body
+        (generate-wiki-page
+         `(div
+           (p "Sorry! Fandom isn't allowing BreezeWiki to show pages right now.")
+           (p "We'll automatically try again in 30 seconds, so please stay on this page and be patient.")
+           (p (small "In a hurry? " (a (@ (href ,source-url)) "Click here to read the page on Fandom."))))
+         #:req req
+         #:source-url source-url
+         #:wikiname wikiname
+         #:title (url-segments->guess-title segments)
+         #:siteinfo siteinfo))
+      (response/output
+       #:code 503
+       #:headers (build-headers
+                  always-headers
+                  (header #"Retry-After" #"30")
+                  (header #"Cache-Control" #"max-age=30, public")
+                  (header #"Refresh" #"35"))
+       (λ (out)
+         (write-html body out))))]
     [else
      (response-handler
-      (error 'page-wiki "Tried to load page ~a/~v~nSadly, the page didn't load because Fandom returned status code ~a with response:~n~a"
+      (error 'page-wiki "Tried to load page ~a/~a~nSadly, the page didn't load because Fandom returned status code ~a with response:~n~a"
              wikiname
              path
              (easy:response-status-code dest-res)