From 5ca8ec5eed9e8b8e9f73e241b0ea3b0e577d71b4 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 7 Jan 2014 16:37:49 -0800 Subject: [PATCH] updates --- server.rkt | 3 ++- setup.rkt | 9 +++++---- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/server.rkt b/server.rkt index 04e8953..e307d06 100755 --- a/server.rkt +++ b/server.rkt @@ -37,7 +37,8 @@ (route-default req) (next-dispatcher))])) -(message "Ready to rock") +(message "Ready to rock. Type ^C to exit") + (serve/servlet start #:port port-number diff --git a/setup.rkt b/setup.rkt index 36199ad..c67e54a 100644 --- a/setup.rkt +++ b/setup.rkt @@ -9,19 +9,20 @@ #lang racket/base (require pollen/command) ; pollen setup run on ~a" - (string-trim racket-path) + racket-path (format "~a at ~a" (make-datestamp) (make-timestamp)))) (define (setup) (define cd (current-directory)) (message (format "Setting up ~a as a pollen directory" cd)) - (define racket-path (with-output-to-string (λ() (system "which racket")))) + (define racket-path (string-trim (with-output-to-string (λ() (system "which racket"))))) (define path-to-racket-exists? (> (len racket-path) 0)) (if path-to-racket-exists? (let ([polcom-data (make-polcom-data racket-path)] [polcom-filename "polcom"]) + (message (format "Using ~a as racket path" racket-path)) (when (file-exists? polcom-filename) (begin (message (format "Deleting existing polcom file in ~a" cd)) @@ -31,7 +32,7 @@ (display-to-file polcom-data polcom-filename) (with-output-to-string (λ() (system (format "chmod 755 ~a" polcom-filename)))) (message "Setup complete") - (message (format "Run './~a start' to start pollen" polcom-filename)) - (message (format "Or run './~a help' for a list of commands" polcom-filename)) + (message (format "Run '~a~a start' to start pollen development server" cd polcom-filename)) + (message (format "Or run '~a~a help' for a list of commands" cd polcom-filename)) (exit))) (message "No path to racket binary. Aborting setup"))) \ No newline at end of file