#!/usr/bin/awful

(use awful regex)

;; / -> /foo
(define-page (main-page-path) (cut redirect-to "/foo"))

;; /bar.* -> /foo
(define-page (regexp "/bar.*")
  (lambda (_)
    (redirect-to "/foo")))

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


;; A chain of redirections.  Access http://localhost:8080/a and you
;; should be redirected to /d through /b and /c
(define-page "/a" (cut redirect-to "/b"))
(define-page "/b" (cut redirect-to "/c"))
(define-page "/c" (cut redirect-to "/d"))
(define-page "/d" (lambda () "D"))

(define-page "/chicken"
  (cut redirect-to "http://www.call-with-current-continuation.org"))