auth now actually works straight through google
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user