#!/usr/local/bin/awful

(use srfi-1 html-utils html-tags awful srfi-13 regex)

(define-page "/foo"
  (lambda ()
    (with-request-variables (nick)
      (<div> id: "anotherdiv"
             (<h1> (string-append "Oh it's you!" nick)))))
  method: 'post)

(define-page (main-page-path)
  (lambda ()
    (<div> id: "adiv" (<h1> "hallo")
           (form
            (string-append "Your nick: "
                           (text-input 'nick))
            action: "/foo"
            method: "post"))))