 
 
 (defpage "/signup/" []
-         (println "signups")
          (common/layout "Signup" :signup
            [:div.span4 
             [:a {:href "/login/github"} "login with github"]]))
 
+(defpage "/login/" []
+         (common/layout "Login" :login))
 (defpage "/login/github" []
          (redirect (:uri ppl_auth/auth-req)))
 

           (let [guser (ppl_auth/github-user token)]
             ;new user? create and login
             ;
            (def current-user (check-user (get guser "email")))
            (ppl_auth/login-user (if current-user
              (update-token current-user token)
              (insert users (values (create-user guser token)))
            ))))
         (redirect "/home")

           ;login said user

  (:require [clj-oauth2.client :as oauth2])
  (:require [ppl.auth :as ppl_auth])
  ;(:require [korma.db :refer [select]])
  (:use [korma.core :only [select where fields, insert, values, update, set-fields]])
  ;(:require [ppl.models :refer [users]])
  (:use [ppl.models :only [users]])
  ;(:require [korma.db] 
