diff --git a/src/com/yetanalytics/lrs_admin_ui/handlers.cljs b/src/com/yetanalytics/lrs_admin_ui/handlers.cljs index 1bdcb1d..5cb79ec 100644 --- a/src/com/yetanalytics/lrs_admin_ui/handlers.cljs +++ b/src/com/yetanalytics/lrs_admin_ui/handlers.cljs @@ -470,6 +470,19 @@ ;; Api Key Management ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(defn- has-seed-cred? + [credentials] + (boolean (some (fn [cred] (when (:seed? cred) cred)) credentials))) + +(re-frame/reg-event-fx + :credentials/notify-on-seed + global-interceptors + (fn [{:keys [db]} _] + (let [credentials (get db ::db/credentials)] + (if (has-seed-cred? credentials) + {:fx [[:dispatch [:notification/notify true "Seed credentials should be deleted!"]]]} + {})))) + (re-frame/reg-event-db :credentials/set-credentials global-interceptors diff --git a/src/com/yetanalytics/lrs_admin_ui/views/credentials/tenant.cljs b/src/com/yetanalytics/lrs_admin_ui/views/credentials/tenant.cljs index 103e122..4c60b52 100644 --- a/src/com/yetanalytics/lrs_admin_ui/views/credentials/tenant.cljs +++ b/src/com/yetanalytics/lrs_admin_ui/views/credentials/tenant.cljs @@ -5,6 +5,9 @@ (defn tenant [] (let [credentials @(subscribe [:db/get-credentials])] + ;; FIXME: Apply notify-on-seed effect properly after re-route PR is merged + (when (not-empty credentials) + (dispatch [:credentials/notify-on-seed])) [:div {:class "tenant-wrapper"} [:div {:class "api-keys-table-actions"} [:input {:type "button",