Skip to content

Instantly share code, notes, and snippets.

@jadudm
Created July 5, 2012 02:27
Show Gist options
  • Save jadudm/3050679 to your computer and use it in GitHub Desktop.
Save jadudm/3050679 to your computer and use it in GitHub Desktop.
Exploration of the PLT web server...
#lang racket
(require web-server/dispatch
web-server/http
web-server/dispatchers/dispatch
)
(define-values (dispatch blog-url)
(dispatch-rules
[("") serve-static]
[("go" (string-arg)) go]
[else (next-dispatcher)]
))
(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.
(response/xexpr
`(div (p "serve") )))
(define (go req json)
;; If they hit /go, then I'd like to do something.
(response/xexpr
`(div (p "go")
(p ,json))))
;; Some magic happens down here that might let
;; me make the above happen
(serve/dispatch dispatch)
;; I was playing with things down here, and this wasn't getting
;; me anywhere in particular.
#|
(serve/servlet start
#:launch-browser? #t
#:extra-files-paths
(list (build-path (current-directory) "htdocs"))
#:servlet-path "/"
#:log-file
"its.log")
|#
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment