magic login

gistfile1.cljs

(defn login []
  (let [
        magic (Magic. "pk_live_E0A5A86F2EF4DE14"
                      (clj->js {:extensions [(OAuthExtension.)]}))
        !social-logged-in (atom nil)
        _ (go (js/console.log "is logged in " (<p! (.. magic -user (isLoggedIn))
                                                   )))
        _ (go (reset! !social-logged-in
                      (<p! (.. magic -user (isLoggedIn))
                           )))
        _ (js/console.log "social logged in " @!social-logged-in)
        _ (go (js/console.log "redirect result"
                              @!social-logged-in
                              (<p! (.. magic -oauth (getRedirectResult)))))
        ]
    [:div
     (if @!social-logged-in
       [:div {:style {:cursor :pointer}
              :on-click #(.. magic -user (logout))} "Logout"]
       [:div {:style {:display :flex :flex-direction :row}}
        [:img
         {:on-click (fn [event]
                      (go
                        (<p! (.. magic -oauth
                                (loginWithRedirect
                                 #js {:provider "facebook"
                                      :redirectURI
                                      (.. js/window -location -origin)})))))
          :src "https://i.stack.imgur.com/oL5c2.png"
          :style {:cursor :pointer :height 50}}]])]))