mirror of
https://gitdab.com/cadence/breezewiki.git
synced 2026-03-05 13:40:27 -05:00
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
This commit is contained in:
23
dist.rkt
23
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)))
|
||||
|
||||
Reference in New Issue
Block a user