Add notify-on-seed effect

yetanalytics · Feb 10, 2025 · 0190c7b · 0190c7b
1 parent 7b35c42
commit 0190c7b
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git 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
@@ -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",