(define-values (dispatch blog-url)
[("go" (string-arg)) go]
(define (serve-static req)
;; Actually, I'd like to serve static content here.
;; Perhaps from a directory that has the path ./htdocs/
;; relative to the server launch point.
`(div (p "serve") )))
(define (go req json)
;; If they hit /go, then I'd like to do something.
`(div (p "go")
;; Some magic happens down here that might let
;; me make the above happen
;; I was playing with things down here, and this wasn't getting
;; me anywhere in particular.
(list (build-path (current-directory) "htdocs"))