21 lines
854 B
Clojure
21 lines
854 B
Clojure
(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)))
|