(ns auto-ap.views.utils
  (:require [re-frame.core :as re-frame]))

(defn active-when= [active-page candidate]
  (when (= active-page candidate) " active"))

(def login-url
  (let [client-id "264081895820-0nndcfo3pbtqf30sro82vgq5r27h8736.apps.googleusercontent.com"
        redirect-uri (js/encodeURI (str (.-origin (.-location js/window)) "/api/oauth"))]
    (str "https://accounts.google.com/o/oauth2/auth?access_type=online&client_id=" client-id "&redirect_uri=" redirect-uri "&response_type=code&scope=https%3A%2F%2Fwww.googleapis.com%2Fauth%2Fuserinfo.email+https%3A%2F%2Fwww.googleapis.com%2Fauth%2Fuserinfo.profile")))

(defn dispatch-value-change [event]
  (fn [e]
    (.preventDefault e)
    (re-frame/dispatch (conj event (.. e -target -value)))))

(defn dispatch-event [event]
  (fn [e]
    (.preventDefault e)
    (re-frame/dispatch event)))