diff --git a/server.rkt b/server.rkt index 85bbdd9..a1e9ac0 100755 --- a/server.rkt +++ b/server.rkt @@ -1,6 +1,6 @@ #lang web-server/base -(require racket/list racket/contract +(require racket/list web-server/servlet-env web-server/dispatch) (require "server-routes.rkt" @@ -26,12 +26,8 @@ (define server-name (format "http://localhost:~a" (world:current-server-port))) (message (format "Project server is ~a" server-name) "(Ctrl-C to exit)") (message (format "Project dashboard is ~a/~a" server-name world:default-pagetree)) - (message "Ready to rock") - - (define module-root (apply build-path (drop-right (explode-path (current-contract-region)) 1))) - (world:current-server-extras-path (build-path module-root world:server-extras-dir)) - + (parameterize ([error-print-width 1000] [current-cache (make-cache)]) (serve/servlet pollen-servlet diff --git a/world.rkt b/world.rkt index 3fd67a5..6f19b06 100644 --- a/world.rkt +++ b/world.rkt @@ -1,4 +1,5 @@ #lang racket/base +(require racket/runtime-path) (provide (prefix-out world: (all-defined-out))) @@ -53,8 +54,8 @@ (define dashboard-css "poldash.css") -(define server-extras-dir "server-extras") -(define current-server-extras-path (make-parameter #f)) +(define-runtime-path server-extras-dir "server-extras") +(define current-server-extras-path (make-parameter server-extras-dir)) (define check-directory-requires-in-render? (make-parameter #t))