Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
65 lines (57 sloc) 2.52 KB
(:require [ring.util.response :as response]
[noir.session :as session])
(:use [hiccup.form :only [form-to check-box]]
[hiccup.element :only [link-to]]
[foreclojure.utils :only [with-user]]
[foreclojure.template :only [def-page content-page]]
[foreclojure.users :only [golfer?]]
[compojure.core :only [defroutes POST GET]]
[somnium.congomongo :only [update!]]))
(def-page golfer-page []
"Your preferences have been saved.")
(defn golf-opt-in-box [user-obj]
(form-to [:post "/golf/opt-in"]
(check-box :opt-in
(golfer? user-obj))
[:label {:for "opt-in"}
"I want to join the golf league and compete to find the shortest solutions"]]]
[:tr [:td [:button {:type "submit"} "Update"]]])]))
(def-page opt-in-page []
(with-user [{:keys [user] :as user-obj}]
{:title "Account Settings"
{:heading "League sign-up"
:sub-heading (list "While the primary purpose of is to teach Clojure \"by doing\", you may "
"also choose to compete for the shortest solution. This is affectionately known as "
(link-to "" "code golf")
": the lower your score the better, get it? If you choose to participate, we'll score "
"your correct solutions based on the number of non-whitespace characters (and some more "
"metrics in the future). We'll also provide a chart showing how you stack up compared "
"to everyone else on the site.")
:main (golf-opt-in-box user-obj)})}))
(defn set-golfer [opt-in]
(with-user [{:keys [_id]}]
(update! :users
{:_id _id}
{:$set {:golfer (boolean opt-in)}})
(response/redirect "/golf/opt-in")))
(defroutes golf-routes
(POST "/golf/opt-in" [opt-in]
(set-golfer opt-in))
(GET "/golf/opt-in" []
(GET "/league" []
(comment ;; be smarter somehow in future. not sure what the right UI is, atm
(if-let [username (session/get :user)]
(let [user-obj (get-user username)]
(if-not (golfer? user-obj)
(response/redirect "/leag")))))
(GET "/league/opt-in" []
Something went wrong with that request. Please try again.