(ns chef.pages.home
  (:require [hiccup2.core :as html]
            [ring.util.response :as ruresp]
            [chef.utils :as cutils]
            [ring.middleware.session :as rmsession]))

(defn handler [req]
  (let [access-token (get-in req [:oauth2/access-tokens :auth])
        resp (-> (cutils/gen-page "chef" [:i "Coming soon..."])
                 html/html
                 str
                 ruresp/response)]
    (if (some? access-token)
      (assoc resp :session (assoc (:session req) :oauth-token access-token))
      resp)))