Welcome to the CHICKEN Scheme pasting service

(use awful)

(define-syntax define-app
  (syntax-rules ()
    ((_ base-path params)
     (add-request-handler-hook!
      (string->symbol base-path)
      (lambda (path handler)
        (when (string-prefix? base-path path)
          (parameterize params
            (handler)
            )))))))

(define-app "/foo"
  ((enable-ajax #t)
   (enable-sxml #t)
   (ajax-library "/the-foo-ajax.js")))

(define-app "/bar"
  ((enable-sxml #f)
   (page-template (lambda args (car args)))))


(define-page "/foo/a-page"
  (lambda ()
    "a page from foo"))

(define-page "/bar/a-page"
  (lambda ()
    "a page from bar"))