30 lines
884 B
Clojure
30 lines
884 B
Clojure
(ns auto-ap.views.pages.needs-activation
|
|
(:require-macros [cljs.core.async.macros :refer [go]])
|
|
(:require [re-frame.core :as re-frame]
|
|
[reagent.core :as reagent]
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.events :as events]
|
|
[auto-ap.views.utils :refer [login-url dispatch-event]]
|
|
[cljs.reader :as edn]
|
|
[auto-ap.routes :as routes]
|
|
[bidi.bidi :as bidi]
|
|
[goog.string :as gstring]))
|
|
|
|
(re-frame/reg-event-fx
|
|
::relogin
|
|
(fn [{:keys [db]} _]
|
|
{
|
|
:db (assoc db :user nil)}
|
|
))
|
|
|
|
|
|
(defn needs-activation-page []
|
|
[:div
|
|
[:h2 "Sorry, your user is not activated yet. Please have Ben Skinner enable your account. Click "
|
|
[:a {:on-click (fn []
|
|
(re-frame/dispatch-sync [::relogin])
|
|
true)
|
|
:href login-url}
|
|
"here"]
|
|
" to try again."]])
|