artemis/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Issues Pull requests 2 Projects Releases Packages Wiki Activity

In breezewiki.rkt, start server in thread

Browse source 
This allows inspecting the program state using
(enter! "breezewiki.rkt") in the REPL.
This commit is contained in:
Cadence Ember 2022-09-01 14:55:25 +12:00
parent 8754273acf
commit 13c1b0636b
Signed by untrusted user: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 17 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

29
breezewiki.rkt
View file

@ -24,15 +24,20 @@
(set-reload-poll-interval! #f))
(reload!)
(serve/launch/wait
#: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))))
(define ch (make-channel))
(define (start)
(serve/launch/wait
#:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
#: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)))))
(define server-t (thread start))
(define quit (channel-get ch))