0ee99fd4f363
Use form-to everywhere.
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Wed, 05 Oct 2011 23:16:58 -0400 |
parents | 906581f17100 |
children | 2b3adcffb942 |
branches/tags | (none) |
files | src/newseasons/templates/main.clj |
Changes
--- a/src/newseasons/templates/main.clj Wed Oct 05 22:59:03 2011 -0400 +++ b/src/newseasons/templates/main.clj Wed Oct 05 23:16:58 2011 -0400 @@ -89,10 +89,10 @@ (defpartial home [] (base "home" [:div.six.columns - [:form {:action "" :method "POST"} - (field text-field "email" "Email Address") - (field password-field "password" "Password") - (submit-button "Log In or Create Account")]] + (form-to [:post ""] + (field text-field "email" "Email Address") + (field password-field "password" "Password") + (submit-button "Log In or Create Account"))] [:div.five.columns [:p "New Seasons will notify you when your favorite TV " "shows have new seasons on iTunes."]] @@ -111,24 +111,24 @@ (defpartial user [user] (inner (str "Hello, " (:email user)) "user" - [:div.seven.columns - [:form {:action "/search"} - (field text-field - "query" - "Which show do you want to keep track of?") - (submit-button "Search")]] - [:div.nine.columns - (let [shows (:shows user)] - (if (empty? shows) - [:p "You're not currently watching any shows."] - (list - [:p - "You're watching " - (count shows) - " show" - (pluralize shows) - "."] - [:ul.shows (map user-show shows)])))])) + [:div.seven.columns + (form-to [:get "search"] + (field text-field + "query" + "Which show do you want to keep track of?") + (submit-button "Search"))] + [:div.nine.columns + (let [shows (:shows user)] + (if (empty? shows) + [:p "You're not currently watching any shows."] + (list + [:p + "You're watching " + (count shows) + " show" + (pluralize shows) + "."] + [:ul.shows (map user-show shows)])))])) (defpartial result [r]