#!/usr/local/bin/awful

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

(define (underfoo path)
  (let ((blah (string-match  path)))
    (if (not blah) #f #t)))

(define-page (regexp "^.*/foo.*")
  (lambda (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"))))