(use awful)
(enable-sxml #t)

(define login-page
  (lambda ()
    `(form (@ (method "post")
              (action ,(make-pathname app-root-path "login-trampoline")))
      (h1 "Creative Commons Radio")
      (p "Please login to access your account, rate songs, and more!")
      (label "User Handle: ")
      (input (@ (type "text") (name "user")))
      (label "Password: ")
      (input (@ (type "password") (name "password")))
      (input (@ (type "submit") (value "Submit"))))))