Hosting generously provided by alphamethyl

This allows inspecting the program state using
(enter! "breezewiki.rkt") in the REPL.

breezewiki.rkt

@@ -24,15 +24,20 @@
   (set-reload-poll-interval! #f))
 (reload!)
 
-(serve/launch/wait
+(define ch (make-channel))
- #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
+(define (start)
- #:port (string->number (config-get 'port))
+  (serve/launch/wait
- (λ (quit)
+   #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
-   (sequencer:make
+   #:port (string->number (config-get 'port))
-    (pathprocedure:make "/" page-home)
+   (λ (quit)
-    (pathprocedure:make "/proxy" page-proxy)
+     (channel-put ch (lambda () (semaphore-post quit)))
-    (filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make page-category))
+     (sequencer:make
-    (filter:make #rx"^/[a-z-]+/wiki/.+$" (lift:make page-wiki))
+      (pathprocedure:make "/" page-home)
-    (filter:make #rx"^/[a-z-]+/search$" (lift:make page-search))
+      (pathprocedure:make "/proxy" page-proxy)
-    static-dispatcher
+      (filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make page-category))
-    (lift:make page-not-found))))
+      (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)))))
+(define server-t (thread start))
+(define quit (channel-get ch))

src/page-home.rkt

@@ -57,9 +57,13 @@
                                   (div (@ (class "internal-footer"))
                                        (img (@ (class "my-logo") (src "/static/breezewiki.svg")))
                                        ,(if (config-get 'instance-is-official)
-                                            `(p ,(format "This instance is run by the ~a developer, " (config-get 'application-name))
+                                            `(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 "://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), "

src/page-proxy.rkt

@@ -4,9 +4,6 @@
          racket/port
          ; libs
          (prefix-in easy: net/http-easy)
-         ; html libs
-         html-parsing
-         html-writing
          ; web server libs
          net/url
          web-server/http