(use awful)
(use regex)

(enable-sxml #t)
(enable-ajax #t)

(define *groups*
  (make-hash-table))

(set! (hash-table-ref *groups* "foo") "bar")

(define-page (regexp "/.*")
  (lambda (path)
    (let* ((group (hash-table-ref *groups* (substring path 1 (string-length path)))))
      `((h1 ,group)))))