#lang racket/base (require web-server/servlet-dispatch "src/config.rkt" "src/dispatcher-tree.rkt") (require (only-in "src/page-category.rkt" page-category)) (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-search.rkt" page-search)) (require (only-in "src/page-static.rkt" static-dispatcher)) (require (only-in "src/page-wiki.rkt" page-wiki)) (serve/launch/wait #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f) #:port (string->number (config-get 'port)) (λ (quit) (dispatcher-tree ; order of these does not matter page-category page-home page-not-found page-proxy page-search page-wiki static-dispatcher)))