auth now actually works straight through google

This commit is contained in:
Bryce Covert
2017-12-18 22:45:24 -08:00
parent 3b3295f535
commit 36806c9cf6
6 changed files with 57 additions and 14 deletions

View File

@@ -1,5 +1,7 @@
(ns auto-ap.subs
(:require [re-frame.core :as re-frame]))
(:require [re-frame.core :as re-frame]
[clojure.string :as str]
[goog.crypt.base64 :as base64]))
(re-frame/reg-sub
::company
@@ -19,7 +21,10 @@
(re-frame/reg-sub
::user
(fn [db]
(:user db)))
(when (:user db)
(let [{:strs [name] :as x} (js->clj (.parse js/JSON (base64/decodeString (second (str/split (:user db) #"\.")))))]
(println x)
{:name name}))))
(re-frame/reg-sub
::active-page