You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
1.7 KiB
Racket
40 lines
1.7 KiB
Racket
#lang web-server/base
|
|
(require racket/list
|
|
web-server/servlet-env
|
|
web-server/dispatch
|
|
"project-server-routes.rkt"
|
|
"debug.rkt"
|
|
"../setup.rkt"
|
|
"../file.rkt"
|
|
"../cache.rkt"
|
|
"version.rkt")
|
|
|
|
(provide start-server)
|
|
|
|
(define (start-server servlet-path [open-browser-window? #f])
|
|
(define-values (pollen-servlet _)
|
|
(dispatch-rules
|
|
[((string-arg) ... (? (λ (x) (string=? "" x)))) route-index] ; last element of a "/"-terminated url is ""
|
|
[((string-arg) ... (? pagetree-source?)) route-dashboard]
|
|
[((string-arg) ... "in" (string-arg) ...) route-in]
|
|
[((string-arg) ... "out" (string-arg) ...) route-out]
|
|
[else route-default]))
|
|
|
|
(message (format "Welcome to Pollen ~a" pollen:version) (format "(Racket ~a)" (version)))
|
|
(message (format "Project root is ~a" (current-project-root)))
|
|
|
|
(define server-name (format "http://localhost:~a" (current-server-port)))
|
|
(message (format "Project server is ~a" server-name) "(Ctrl+C to exit)")
|
|
(message (format "Project dashboard is ~a/~a" server-name (setup:main-pagetree)))
|
|
(message "Ready to rock")
|
|
|
|
(parameterize ([error-print-width 1000])
|
|
(serve/servlet pollen-servlet
|
|
#:launch-browser? open-browser-window?
|
|
#:servlet-path servlet-path
|
|
#:port (current-server-port)
|
|
#:listen-ip (current-server-listen-ip)
|
|
#:servlet-regexp #rx"" ; respond to top level
|
|
#:command-line? #t
|
|
#:file-not-found-responder route-404
|
|
#:extra-files-paths (list (current-server-extras-path) (current-project-root))))) |