Welcome to the CHICKEN Scheme pasting service

(use awful html-utils)

(enable-sxml #t)

(define (define-my-page path content)
  (define-page path
    (lambda ()
      (with-request-variables ((css as-symbol))
        (html-page (content)
                   css: (case css
                          ((foo) "foo.css")
                          ((bar) "bar.css")
                          (else #f)))))))

(define-my-page (main-page-path)
  (lambda ()
    "Hi"))

(use awful html-utils)

(enable-sxml #t)

(define (define-my-page path content)
  (define-page path
    (lambda ()
      (with-request-variables ((css as-symbol))
        (html-page (content)
                   css: (case css
                          ((foo) "foo.css")
                          ((bar) "bar.css")
                          (else #f)))))
    no-template: #t))

(define-my-page (main-page-path)
  (lambda ()
    "Hi"))