pull/9/head
Matthew Butterick 11 years ago
parent 6f56232153
commit cc3c3b49cc

@ -3,8 +3,8 @@
;; use full planet paths because this file is evaluated from source directory, ;; use full planet paths because this file is evaluated from source directory,
;; not module directory ;; not module directory
(require (for-syntax racket/rerequire (planet mb/pollen/tools) (planet mb/pollen/world))) (require (for-syntax racket/rerequire pollen/tools pollen/world))
(require (planet mb/pollen/tools) (planet mb/pollen/world)) (require pollen/tools pollen/world)
(provide (all-defined-out)) (provide (all-defined-out))

@ -48,7 +48,6 @@
#:servlet-regexp #rx"" ; respond to top level #:servlet-regexp #rx"" ; respond to top level
#:command-line? #t #:command-line? #t
#:extra-files-paths (list #:extra-files-paths (list
;; todo: use a function to determine directory ;; todo: files in this directory are wrongly reported in log as missing
(build-path "/Users/mb/git/pollen/" "pollen-server-extras") (build-path MODULE_ROOT "pollen-server-extras")
;; for serving static files out of project directory
(build-path PROJECT_ROOT))) (build-path PROJECT_ROOT)))

@ -48,5 +48,8 @@
(define PROJECT_ROOT (current-directory)) (define PROJECT_ROOT (current-directory))
;; use current-contract-region to calculate containing directory of module
(define MODULE_ROOT (apply build-path (drop-right (explode-path (current-contract-region)) 1)))
(define DASHBOARD_NAME "poldash.html") (define DASHBOARD_NAME "poldash.html")
Loading…
Cancel
Save